[閒聊] 肥宅的第一支程式

[CGS0 (Mike Chen)]

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

--
歡迎來到 肥宅的多彩人生
肥宅死老爸的親子世界 https://fb.me/cgschild
肥宅的胡言亂語       https://fb.me/cgsmisc
肥宅的職場人生       https://fb.me/cgsnotes
肥宅學禪             https://fb.me/cgszen

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 1.162.49.58 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Programming/M.1559583562.A.7BE.html
※ 編輯: CGS0 (1.162.49.58 臺灣), 06/04/2019 02:07:15
推 Bencrie: 磁帶容易壞嗎 XD
→ MOONRAKER: APPLE II沒有RANDOMIZE PC的BASICA才有
→ MOONRAKER: 2: RND只是個變數 RND(1)才是虛擬亂數
→ MOONRAKER: 現在模擬器滿地爬 起碼找來跑看看
→ MOONRAKER: 不要畫虎爛騙人沒看過ap II, OK?
→ yzfr6: 泥這一段比較像 BASIC
→ CGS0: 我看到 apple 2,但是買的是 PC/XT
→ CGS0: 仿作，沒執行過，對不起
推 hala932: 懷念的gw-basic
→ MOONRAKER: 沒有什麼比較像 就是BASIC
推 kisaraki1976: 10 PRINT “1”
※ 編輯: CGS0 (39.12.133.44 臺灣), 06/21/2019 14:06:00