來講講肥宅當年寫程式的開頭好了，其實肥宅當年小學看過 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