1 CGEN2:CGSET1,0:PALETB 0,13,48,39,22:DEFSPRITE0,(3,1,0,0,0)="ゥェォャ":DIMD(12,7):R=0:B$=CHR$(195)+CHR$(195)
2 CLS:VIEW:SPRITEON:G=0:READA$:FORX=0TO12:FORY=1TO2:T=VAL("&H"+MID$(A$,X*2+Y,1)):G=G+4:S=4:IFY=2THENS=0
3 D(X,S+3)=0:IFT>7THENM=3:L=8:GOSUB8
4 D(X,S+2)=0:IFT>3THENM=2:L=4:GOSUB8
5 D(X,S+1)=0:IFT>1THENM=1:L=2:GOSUB8
6 D(X,S)=0:IFT>0THENM=0:GOSUB8
7 NEXT:NEXT:R=R+1:LOCATE23,20:PRINTR:GOTO9
8 D(X,S+M)=1:G=G-1:T=T-L:LOCATE2*X+1,(S+M)*2+2:PRINTB$:LOCATE2*X+1,(S+M)*2+3:PRINTB$:RETURN
9 X=6:Y=4:T=20:GOSUB23:LOCATE7,23:PRINT"PUSH [START]";:IFSTRIG(0)<>1THEN9
10 DEFMOVE(0)=SPRITE(0,3,60,48,0,0):POSITION0,16,192:DEFMOVE(1)=SPRITE(1,7,60,50,0,2):POSITION1,224,192:MOVE0,1:LOCATE7,23:PRINT"            ";:H=-5:O=10:A$=CHR$(254)+CHR$(254)
11 S=STICK(0):IFS=2ANDX>0THENIFD(X-1,Y)<>1GOSUB18:X=X-1:O=1:GOSUB21
12 IFS=1ANDX<12THENIFD(X+1,Y)<>1GOSUB18:X=X+1:O=3:GOSUB21
13 IFS=8ANDY>0THENIFD(X,Y-1)<>1GOSUB18:Y=Y-1:O=2:GOSUB21
14 IFS=4ANDY<7THENIFD(X,Y+1)<>1GOSUB18:Y=Y+1:O=4:GOSUB21
15 H=O:LOCATE14,20:PRINTT;" ":IFMOVE(0)<>-1THEN27
16 IFG=0THENGOTO24
17 GOTO11
18 D(X,Y)=2-D(X,Y):IFD(X,Y)=0GOSUB20:G=G+1:PRINT"  ":LOCATEM,L+1:PRINT"  ":RETURN
19 GOSUB20:G=G-1:PRINTA$:LOCATEM,L+1:PRINTA$:RETURN
20 M=X*2+1:L=Y*2+2:LOCATEM,L:RETURN
21 IFABS(O-H)=2THENT=T-1:IFT=0THENCLS:GOTO27
22 IFT=1THENPLAY"T1O4C1DE"
23 SPRITE0,X*16+24,Y*16+39:RETURN:
24 IFR=10THEN26
25 GOTO2
26 CLS:LOCATE5,10:PRINT"YOUR PLAY IS NICE"
27 SPRITEOFF:LOCATE9,12:PRINT"GAME OVER"
50 DATA086A005510DA02585206684218
51 DATA086A00561077O0DA026A28AA88
52 DATA1056107A00B5007622A80A5A18
53 DATA10465415D01A4077007644550O
54 DATA10461057405AO8EF00BA025610
55 DATA086A02E80F6D401BD105E80AB8
56 DATA086A00EB01744610D514426A08
57 DATA10462CA18D206E2A802B482A88
58 DATA085A5803E90C694318DD045610
59 DATA04754017E016406B28822E600A

