来讲讲肥宅当年写程式的开头好了，其实肥宅当年小学看过 Apple ][，
国中时就读当时台中市区的居仁国中，某次去当时的同班同学家看到
Apple ][，玩了一下游戏，拿起旁边的程式设计书，翻看了几页，就觉得
写程式蛮好玩的。
回家后，肥宅因为当时成绩好，跟肥宅的老爸要了一台电脑 PC/XT (Turbo
8 Mhz) ,CPU 8088 ,内存 640KB，肥宅一直记得当年的价钱 NT$22,000
，当年小公务员老爸的薪水大概 NT$10,000，很谢谢老爸赏脸，当年我其
实不知道物价，只会胡闹。
扣掉复制版的程式，肥宅印象中的第一支程式是支猜几A几B的程式。时隔
三十年，当年的程式当然不会留下来，肥宅来仿作一下
10 RANDOMIZE
20 ANSA = INT(RND(1)*10)
30 ANSB = INT(RND(1)*10)
40 ANSC = INT(RND(1)*10)
50 IF (ANSA=ANSB) OR (ANSB=ANSC) OR (ANSC=ANSA) THEN GOTO 20
60 INPUT "Please Eeter A" ,A
70 INPUT "Please Enter B" ,B
80 INPUT "Please Enter C" ,C
90 IF (A=B) OR (B=C) OR (C=A) THEN GOTO 60
100 COUNTA=0
110 COUNTB=0
120 IF A = ANSA THEN COUNTA = 1
130 IF B = ANSB THEN COUNTA = COUNTA +1
140 IF C = ANSC THEN COUNTA = COUNTA +1
150 IF (A = ANSB) OR (A=ANSC) THEN COUNTB=1
160 IF (B = ANSA) OR (B=ANSC) THEN COUNTB=COUNTB + 1
170 IF (C = ANSA) OR (C=ANSC) THEN COUNTB=COUNTB + 1
180 IF (COUNTA = 3) THEN GOTO 220
190 PRINT COUNTA ; "A" ; COUNTB ; "B"
200 PRINT "Retry again."
210 GOTO 60
220 PRINT "You got correct number!!"
230 END
现在写起来，当然比以前好看多了也考虑了更多事情，不过这就是肥宅当
年的第一支程式，其实很简单，很直接，就是想拿来当作玩游戏而已，每
个人学写程式的理由不一样，对于当年的肥宅来说，搞个小游戏来玩是很
简单的。
不知道看到这篇文章的诸多看倌们，自己第一支不是抄课本，抄同学的程
式是什么呢？肥宅蛮想看看每个人当初玩票时，写出来的第一支程式。
2019/06/06 修改一下文章 ,让整篇更容易看懂 .
原文网址: https://www.facebook.com/CGSNOTES/posts/10157475765511340