10CLEAR :CLS :RANDOMIZE
20H= PEEK &HF0,B= PEEK &HF1,M=.07:H=H*256+B:B=0
30LOCATE 8,1:PRINT "ÄÞ¯Ä Ö¹"
40LOCATE 6,3:PRINT "HI-SCORE:"; STR$ H
50LOCATE 5,5:PRINT "ʲ½º±É¸Ø± [C]":CALL 48381:IF INKEY$ ="C" GOTO *INIT
60*SET CLS :X=-1,Y=23,A=0:PRINT "Lv"; STR$ (L+1):LOCATE 0,5:PRINT "Sc"; STR$ INT (S/10)
70FOR J=0 TO L*6+8
80P= RND 120+20
90Q= RND 46
100LINE (P,Q)-(P+2,Q+2),BF:NEXT
110*MAIN
120IF INKEY$ ="" LET A=A+M ELSE A=A-M
130IF A>1 LET A=1
140IF A<-1 LET A=-1
150X=X+1,Y=Y+A
160IF POINT (X,Y) GOTO *A
170PSET (X,Y)
180GOTO *MAIN
190*A
200IF Y<-1 OR Y>48 OR (O>30 AND X<144) GOTO *GOVER
210IF X=144 IF F=0 LET L=L+1,S=S+ ABS A*200:BEEP 1,75,2:BEEP 1,25,2:GOTO *SET ELSE LET F=0:GOTO *SET
220OUT 64,167
230S=S- ABS A*30,F=1,O=O+1:IF S<0 LET S=0
240BEEP 1,225,3
250BEEP 1,175,5
260LOCATE 2,5:PRINT STR$ INT (S/10);" "
270OUT 64,166
280GOTO *MAIN
290*GOVER
300OUT 64,167
310BEEP 1,205,3
320BEEP 1,155,5
330FOR I=0 TO 20
340FOR J=0 TO 6
350GCURSOR (I*8-J*4,J*8)
360GPRINT "00000000000000000FEDCBA987654321"
370NEXT :NEXT
380IF S<0 LET S=0
390S= INT (S/10)+L*2
400IF S>H GOSUB *REC
410LOCATE 9,3:PRINT "SC:"; STR$ (S+B*256)
420LOCATE 9,4:PRINT "HI:"; STR$ H
430LOCATE 7,0:PRINT "GAME OVER":OUT 64,166:CALL 48381:GOTO 10
440*REC LOCATE 7,2:PRINT "NewRecord":POKE &HF0,S\256,S MOD 256:BEEP 2,55,8:BEEP 4,45,8:BEEP 2,65,13:BEEP 1,58,200:RETURN
450*INIT POKE &HF0,0,0
460CLS :LOCATE 6,2:PRINT "Clear ¼Ï¼À":BEEP 5,100,30:GOTO 10