10RANDOMIZE :CLS :IF INKEY$ <>"" THEN 10
20LOCATE 5,1
30PRINT "Êݼ¬¼Ý¹² ¹Þ°Ñ"
40IF INKEY$ ="" THEN 40
50LOCATE 6,2
60PRINT "¾ÂÒ²ÐÙ? [Y/N]"
70IF INKEY$ ="N" THEN 999
80IF INKEY$ <>"Y" THEN 70
90CLS
100PRINT " ¶ÞÒÝÆ·Þ·Þı×ÜÚÙ¶½Þĵż޶½ÞÉ·°¦¤¼Þ¶ÝŲƵ¼Ã¸ÀÞ»²¡±×ÜÚÙ¶½ÞÉÊÞ¼®Ä±À²Ê×ÝÀÞÑÃÞ½¡"
110GOSUB 200
120PRINT " ÊÔ¸µ¾ÊÞ¿ÉķʲÙÃÝÊÀ¶²¹ÄÞÑØÊ·ÝÓ¡Á¶Þ³·°¦µ¼Ã¼Ï³Ä¤Ð½¤ÄÅØϽ¡¼Þ¶ÝŲƵ¾Å¸ÃÓнÃÞ½¡3¶²Ð½½ÙĹްѵ°ÊÞ°ÃÞ½¡"
130GOSUB 200
140PRINT " ¶½Þɱ×ÜÚÙ²ÁÉÊݲʤÀÞÝÀÞÝËÛ¸ÅÙÉÃÞ¼¯¶ØÐϼ®³¡       SPACE·°ÃÞ²Á¼Þò¼¶ÞÃÞ·¤Ó³²ÁÄÞµ¾ÊÞÏÀÂÂÞ·¶ÞÃ޷Ͻ¡"
150GOSUB 200
160PRINT " »²º³É½º±¦À޽Ĥ¿Éķɽº±Ä±ÅÀÉÅÏ´¦·Û¸Ã޷Ͻ¡±Ù̧ÍÞ¯ÄÃÞÓ²²¹ÄÞ¤¢¶Å£·°¦Â¶³Ä¤¶À¶ÅÃÞÓOK¤7Ó¼ÞÏÃÞ·Û¸»ÚϽ¡"
170GOSUB 200
180GOTO 999
200IF INKEY$ <>"" THEN 200
210IF INKEY$ <>"" THEN CLS :RETURN
220GOTO 210
999S=0:I=3:M=0:L=0
1000CLS :LOCATE 21,2
1010PRINT "½º±"
1020LOCATE 23,3
1030PRINT "0"
1040LOCATE 7,1
1050WAIT 50:PRINT "GAME START":WAIT 0
1060LOCATE 7,1
1070PRINT "          "
1080FOR Z=0 TO 400:NEXT
1200B=( RND 10)-1
1210C=( RND (L+4))+14-L
1220D=( RND 4)-1
1230LOCATE C,D
1240PRINT USING "##";B:USING
1250E=5.9
1260IF INKEY$ <>"" THEN 2000
1270IF E=0.9 THEN 2500
1280E=E-0.1:GOTO 1260
2000IF INKEY$ =" " THEN 2100
2005IF B<> VAL INKEY$ THEN 2500
2010LOCATE C+1,D
2020WAIT 5:PRINT "*":WAIT 0
2030S=S+ INT E:LOCATE 19,3:PRINT USING "#####";S
2040LOCATE C+1,D
2050PRINT " "
2060M=M+1:IF M=10 THEN M=0:L=L+1
2070IF L=16 THEN L=15
2080GOTO 1200
2100LOCATE 20,0
2110PRINT "²Á¼Þ"
2120LOCATE 20,1
2130PRINT "ò¼"
2140IF INKEY$ <>"" THEN 2140
2150IF INKEY$ =" " THEN 2160 ELSE 2150
2160LOCATE 20,0
2170PRINT "    "
2180LOCATE 20,1
2190PRINT "   "
2200IF INKEY$ <>"" THEN 2200
2210GOTO 1260
2500LOCATE 20,0
2510WAIT 40:PRINT "н!":WAIT 0:LOCATE 20,0:PRINT "   ":WAIT 30:LOCATE C+1,D:PRINT " ":WAIT 0
2520I=I-1:IF I=0 THEN 3000
2530GOTO 1200
3000CLS
3010LOCATE 7,1
3020PRINT "GAME OVER"
3030LOCATE 6,2
3040WAIT 63:PRINT "SCORE"; USING "#####";S:WAIT 0
3200IF S<=N THEN 3500
3210N=S
3220CLS
3230LOCATE 1,0
3240PRINT "YOUR SCORE IS HI SCORE."
3250LOCATE 1,1
3260PRINT "INPUT YOUR NAME !"
3270LOCATE 1,2
3280PRINT "YOUR NAME=?"
3290LOCATE 11,2
3300INPUT X$
3310LOCATE 1,3
3320PRINT "OK? [Y/N]"
3330IF INKEY$ ="Y" THEN 3400
3340IF INKEY$ ="N" THEN 3350 ELSE 3330
3350LOCATE 1,3
3360CLS :GOTO 3230
3400LOCATE 12,3
3410WAIT 63:PRINT "VERY GOOD!":WAIT 0:GOTO 4000
3500LOCATE 3,3
3510WAIT 0:PRINT "HI SCORE"; USING "#####";N;" ";X$
3520IF INKEY$ ="" THEN 3520
4000CLS
4010LOCATE 4,1
4020PRINT "Ó³²ÁÄÞÔÙ? [Y/N]"
4030IF INKEY$ ="Y" THEN 999
4040IF INKEY$ ="N" THEN 4050 ELSE 4030
4050CLS :LOCATE 9,1
4060PRINT "ÃÞÊÏÀ¡"