10CLS 20LOCATE 7,1 30PRINT "±Ô¼¹ÞÅ ·¾·" 40FOR L=0 TO 1200:NEXT 50LOCATE 7,2:PRINT "¾ÂÒ²ÐÙ?" 60GOSUB 1080 70IF X=1 THEN 90 80IF X=2 THEN 110 ELSE 60 90CLS :PRINT " ºÉ¹Þ-ÑÃÞʷض´½²¯Á¦FASTƼøÀÞ»²¡¹Þ-ÑɶÞÒÝÆÅÙĤËÀÞØÁ­³µ³ÆÃݤзÞÆɺؼ޶ݤ¿Úĸ۲¼®³¶Þ²ÌÞ¶ޱ×ÜÚϽ¡":GOSUB 1050 100CLS :PRINT " ÃÝ·-É8¤6¤2¤4¶Þ¼Þ­³¼Þ·-ÉÖ³Æůòä¿Ú¦µ½Ä¹Þ-ѶÞʼÞÏؤ¿Ú¿ÞÚƵ³¼ÞäÃÝɳºÞ¸Ñ·ÄÊÔ»¶Þ¶ÜØϽ¡":GOSUB 1050 102CLS :PRINT " ÃÝʤ·¾·¦´¶Þ·Å¶Þ׳ºÞ·Ï½¡¼®³¶Þ²ÌÞÂƱÀ×½Þ¤¶Â¤·¾·ÆÓ±À×½ÞƤ¶ÞÒÝзÞͳϸ³ºÞ¶¼Ã¸ÀÞ»²¡ÉºØ¼Þ¶ÝÆÓ·¦Â¹Ï¼®³¡":GOSUB 1050 103CLS :PRINT " Ãݦ³ºÞ¶½¿³»Ê¤¶¿¸ÄÞÆÅØϽ¡³Ï¸¶¿¸¤¹ÞÝ¿¸¦¼Ã¸ÀÞ»²¡ºÝèƭ-½ÙÄSCORE¶Þ10ÍØϽ¡ÅÒ׶Åײݦ´¶Þ·Ï¼®³¡":GOSUB 1050 110CLS :Q=0 120FOR J=1 TO 16 130LOCATE 8,1 140PRINT USING "###";"STAGE";J 150FOR L=0 TO 1000:NEXT 160CLS 170ON J GOTO 180,190,200,210,220,230,240,250,260,270,280,290,300,310,320,330 180RESTORE 890:GOTO 340 190RESTORE 900:GOTO 340 200RESTORE 910:GOTO 340 210RESTORE 920:GOTO 340 220RESTORE 930:GOTO 340 230RESTORE 940:GOTO 340 240RESTORE 950:GOTO 340 250RESTORE 960:GOTO 340 260RESTORE 970:GOTO 340 270RESTORE 980:GOTO 340 280RESTORE 990:GOTO 340 290RESTORE 1000:GOTO 340 300RESTORE 1010:GOTO 340 310RESTORE 1020:GOTO 340 320RESTORE 1030:GOTO 340 330RESTORE 1040:GOTO 340 340READ E 350READ K 360FOR L=1 TO K 370READ M,N,O,P 380LINE (M,N)-(O,P),BF 390NEXT L 400LINE (113,23)-(143,31),BF 410LOCATE 19,3 420PRINT USING "#####";E 430PSET (0,15) 440IF INKEY$ ="" THEN 440 450A=0:B=0:C=0:D=15 460PSET (C,D) 470LOCATE 19,3 480E=E-1 490PRINT E:IF E=0 THEN 650 500IF INKEY$ ="8" THEN B=B-0.01 510IF INKEY$ ="6" THEN A=A+0.01 520IF INKEY$ ="2" THEN B=B+0.01 530IF INKEY$ ="4" THEN A=A-0.01 540F= INT C 550G= INT D 560C=C+A 570D=D+B 580H= INT C 590I= INT D 600IF F=H AND G=I THEN 640 610IF POINT (C,D)=1 THEN 650 620IF C<0 OR D<0 OR D>=32 THEN 650 630IF INT C>=144 THEN 780 640GOTO 460 650LOCATE 8,1:PRINT " н! " 660FOR L=0 TO 800:NEXT 670CLS 680LOCATE 7,1:PRINT "SCORE";Q 690IF Q<10 THEN 722 700LOCATE 8,2:PRINT "CONTINUE?" 710GOSUB 1080 720IF X=2 THEN 722 ELSE 730 722LOCATE 7,3:PRINT "GAME OVER":END 730IF X<>1 THEN 710 740Q=Q-10 750LOCATE 3,3:PRINT "NOW SCORE";Q 760FOR L=0 TO 1200:NEXT 765CLS 770GOTO 130 780CLS 790LOCATE 9,1:PRINT "CLEAR!" 800FOR L=0 TO 1000:NEXT 810LOCATE 4,2:PRINT "REST TIME";E 820LOCATE 8,3:PRINT USING "#####";"SCORE";Q 830FOR L=0 TO 1000:NEXT 840Q=Q+E 850LOCATE 13,3:PRINT Q 860GOSUB 1050 870CLS 880NEXT J 890DATA 300,1,60,10,100,31 900DATA 400,2,30,0,33,20,70,10,80,31 910DATA 400,3,20,6,50,26,70,0,80,12,70,19,80,31 920DATA 220,1,100,3,144,31 930DATA 550,2,80,0,90,26,96,15,110,31 940DATA 500,3,6,0,16,26,40,8,76,23,120,7,144,31 950DATA 700,4,30,0,31,26,60,5,61,31,80,0,81,26,100,5,101,31 960DATA 700,18,2,12,18,19,27,0,34,14,27,19,34,31,45,10,47,12,52,22,55,24,60,8,62,10,73,10,75,12,80,16,82,18,90,20,92,22,120,16,144,31,70,0,72,4,80,21,83,24,55,9,58,13,96,1,100,5,105,16,110,21,40,12,44,31,66,14,69,25,90,4,93,22 970DATA 750,4,10,0,10,22,10,22,90,22,108,10,108,31,20,10,108,10 980DATA 990DATA 1000DATA 1010DATA 1020DATA 1030DATA 1040DATA 1050IF INKEY$ <>"" THEN 1050 1060IF INKEY$ ="" THEN 1060 1070RETURN 1080LOCATE 19,2:PRINT "1:YES" 1090LOCATE 19,3:PRINT "2: NO" 1100IF INKEY$ <>"" THEN 1100 1110X= VAL INKEY$ 1120IF X=1 OR X=2 THEN RETURN ELSE 1110