10CLS
20LOCATE 4,1
30PRINT "Îß¹ºÝÒÄÛÉ°Ñ Ver.2
40LOCATE 4,2
50PRINT "1 ÃÝÎßÆ­³Ø®¸
60LOCATE 4,3
70PRINT "2 Ö³ºÞ¾ÝÀ¸          "
80IF INKEY$ ="1" THEN 100
90IF INKEY$ ="2" THEN 1000 ELSE 80
100LOCATE 4,3
110PRINT "          "
120LOCATE 4,3
130INPUT "ÃÝÎß=";T
140LOCATE 13,3
150PRINT "ò¼ ANY KEY
160A= INT ((8150/T)-4.2)
165IF INKEY$ <>"" THEN 165
170BEEP 1,2,120
180FOR B=0 TO A
190IF INKEY$ <>"" THEN 210
200NEXT
205GOTO 170
210B=A
220NEXT
230GOTO 20
1000LOCATE 4,2
1010PRINT "ÏÀÞÃ޷õØϾݡ"
1020LOCATE 4,3
1030PRINT "ÃÝÎßÆ­³Ø®¸ÃÞÄÞ³¿Þ¡"
1040IF INKEY$ <>"" THEN 1040
1050IF INKEY$ <>"" THEN 20:ELSE 1050