10 REM
20 REM
30 DIM RO$(16,16),M(16,16),XF(16),YF(16),XD(16),YD(16),KY(60),CL(6)
40 COLOR 0,16:CONSOLE 0,25,0,0:SCREEN 3,2,2:CLS
45 REM CL(4)=6:CL(2)=2:CL(1)=4:CL(3)=2:CL(5)=5
50 GOSUB 1030
60 REM KY(32)=0:KY(50)=5:KY(56)=1:KY(52)=7:KY(54)=3
70 R=1:GOSUB 880:N=3
80 REM *************** STLART
90 PW=10:GSW=0:IFR>8THENR=1
100 GOSUB 590:REM LOCATE 4,23:PRINT T$;
110 CH=4:W=12:FORV=23+(3-N)TO25:GOSUB655:NEXT
120 REM LOCATE 20,24:PRINT " Round ";R
130 REM
140 IN$=INKEY$:IF IN$="" THEN S=0:GOTO 180 
141 K=STICK(0):IF (K>0) * (K<9) THEN S=K:GOTO180
142 IF STRIG(0)=0 THEN S=0:GOTO180
150 GOSUB670:GOTO200
160 REM
170 GOTO150
180 GOSUB 230:IF GSW=0 THEN 140
190 GOSUB800:R=R+1:GSW=0:GOTO90
200 N=N-1:IFN=0THENGOSUB730:GOTO70
205 GOTO 90
210 '・・・・・・・・ﾌﾜﾌﾜ ﾞ・・・・・・・・・
220 '
230 DX=(S=7)-(S=3):DY=(S=1)-(S=5)
240 IF (DX=0) AND (DY=0) THEN RETURN 
250 XX=XF+DX:YY=YF+DY:A=M(XX,YY):IF A=1 THEN RETURN
260 PW=PW-1:IF PW < 1 THEN GOSUB 670:GOTO 90
270 IF A=0 THEN V=XF:W=YF:CH=0:GOSUB653
275 IF A=0 THEN XF=XF+DX:YF=YF+DY:V=XF:W=YF
276 IF A=0 THEN CH=4:GOSUB653:GOSUB320:RETURN
280 IF A=5 THEN V=XF:W=YF:CH=0:GOSUB653:GSW=1:GOSUB 320:RETURN
290 IF A=2 THEN V=XF:W=YF:CH=0:GOSUB653
295 IF A=2 THEN PW=PW+2:XF=XX:YF=YY:V=XF:W=YF
297 IF A=2 THEN CH=4:GOSUB653:GOSUB 320:RETURN
300 IF A=3 THEN V=XF:W=YF:CH=0:GOSUB653
305 IF A=3 THEN PW=PW+3:XF=XX:YF=YY:V=XF:W=YF
307 IF A=3 THEN CH=4:GOSUB653:GOSUB 320:RETURN
310 RETURN
320 COLOR 16:EXEC&HD000
325 COLOR 11:POKE &HD108,PW:EXEC&HD100
330 RETURN
590 CLS:CH=1
595 FORW=0TO10:V=0:GOSUB653:V=11:GOSUB653:NEXT
600 FORV=0TO11:W=0:GOSUB653:W=11:GOSUB653:NEXT
610 FORW=1TO10:FORV=1TO10:C=VAL("&H"+MID$(RO$(R,W),(V+1)/2,1))
615 CH=INT(C/4):GOSUB653:V=V+1:CH=C-CH*4:GOSUB653:NEXTV,W:GOSUB320
630 V=XF(R):W=YF(R):CH=4:GOSUB653:XF=V:YF=W
640 V=XD(R):W=YD(R):CH=5:GOSUB653:RETURN
650 POSITION V*16,W*16-7:PATTERN[CL(CH)] -16,AC$(CH):M(V,W) = CH:RETURN
653 POKE&HC003,V:POKE&HC001,W:POKE&HED0D,CH:Z=USR(0):M(V,W)= CH:RETURN
655 POKE&HC003,V:POKE&HC001,W:POKE&HED0D,CH:Z=USR(0):RETURN
660 REM
670 CLS
680 LOCATE 8,10:PRINT"Giveup!":RESTORE700
690 READM1$:PLAY M1$:RETURN
700 DATAO6E4RD-RC-RO5BG-C-EF-AG-EC-F-RD-E
710 REM
720 REM
730 CLS
740 LOCATE 8,10:PRINT"Game Over":RESTORE760
750 READM1$,M2$:PLAY M1$,M2$:RETURN
760 DATAO5D4DDFDGADRFDRGB-A8B-8,O4R4FRRB-RRAFRADR
790 REM
800 CLS
810 LOCATE 8,10:PRINT"CLEAR!!":RESTORE830:FORI=1TO2:READM1$,M2$
820 PLAY M1$,M2$:NEXT:RETURN
830 DATAO5B3G4D8R4EDGD,O4D3D4R8D4DRDR
840 DATABD8G4D8R4EDRDBD8G4D8R4EDGR,DR8D4R8D4DRDRDR8D4R8D4DRDG
870 REM
880 CLS:RESTORE 886:CD=&HD000 
881 READ BC$:IF BC$="@" THEN 883
882 POKE CD,VAL("&H"+BC$):CD=CD+1:GOTO 881 
883 RESTORE 887:CD=&HD100 
884 READ BC$:IF BC$="@" THEN 888
885 POKE CD,VAL("&H"+BC$):CD=CD+1:GOTO 884
886 DATA 26,01,2E,13,CD,6D,11,06,0E,3E,81,CD,75,10,10,FB,C9,@
887 DATA 26,01,2E,13,CD,6D,11,06,0E,3E,81,CD,75,10,10,FB,C9,@
888 COLOR 16:LOCATE 2,8:PRINT"ﾌﾜﾌﾜﾉﾌﾙｰﾂﾀﾞﾝｼﾞｮﾝ";
889 LOCATE 4,10:PRINT "[PUSH SPACE]";
890 IF STRIG(0) THEN RETURN
891 GOTO 890
1020 DATA ===============DATA SET ===================================
1030 RESTORE 1200
1040 FOR J = 1 TO 10:FOR I = 1 TO 10:READ RO$(J,I):NEXT
1050 READ XF(J),YF(J),XD(J),YD(J):NEXT
1060 RETURN
1190 REM
1200 DATA 00300,05553,10004,18006,1080C
1210 DATA 10030,10004,10824,35558,C0820,1,1,3,8
1220 DATA 02000,05550,80012,0A040,00100
1230 DATA 00680,39282,04000,05550,08080,4,8,1,1
1240 DATA 80002,10810,04070,39100,00700
1250 DATA 01100,04070,DE090,00308,80030,5,4,5,6
1260 DATA 3000C,10004,10A04,84A12,04010
1270 DATA 24010,04018,01040,80502,0C0A0,6,10,5,8
1280 DATA 00000,05553,06A80,06A80,05500
1290 DATA C6800,06800,04000,00000,C0000,1,1,10,10
1300 DATA C0003,10A04,10A04,10004,10004
1310 DATA D5557,10004,10004,10A04,00A00,5,5,6,7
1320 DATA 20003,05550,00040,20062,28042
1330 DATA 28070,00C40,04120,01700,80000,6,3,10,10
1340 DATA C0C03,00500,05443,10410,10404
1350 DATA 20403,E8400,00440,00100,C08C3,4,4,6,3
1360 DATA 0000000,0000000,0000000,0000000,0000000
1370 DATA 0000000,0000000,0000000,0000000,0000000,10,1,8,2
1380 DATA 0000000,0000000,0000000,0000000,0000000
1390 DATA 0000000,0000000,0000000,0000000,0000000,1,1,14,1