10 DIM RO$(5,10),M(7,10)
20 CD=&HED0D:RD=5:R=1
30 CONSOLE0,20,0,0:GOSUB600
40 A$="o4ccfgaa8a8a2ao5cco4afag2aa8a8"
50 M$=A$+"o5co4agf8f8d2fdcfgafr"
60 PLAY"s8m5000l16t150"
70 REM****** make screen ***********
80 SCREEN3,2,2:COLOR16,10:CLS
90 LOCATE6,8:PRINT"Part"R:FORI=0TO50
100 PSET(RND(1)*320,RND(1)*200),16:NEXT I
110 LINE(260,20)-(280,70),1,BF
120 KANJI(265,25),16,427:KANJI(265,50),16,961
130 FORW=0TO10:FORV=0TO7
140 CH=VAL(MID$(RO$(R,W),V+1,1))
150 GOSUB480:NEXTV:NEXTW
160 PLAY"o5cdefgab":X=0:Y=0:N=0
170 REM***** main ******************
180 CH=4:V=X:W=Y:GOSUB480
190 IFSTRIG(0)THEN450
200 S=STICK(0):IFS=0THEN190
210 DX=(S=7)-(S=3):DY=(S=1)-(S=5)
220 XX=X+DX:YY=Y+DY:GOTO370
230 ONM(XX,YY)+1GOTO240,270,320,180
240 CH=0:V=X:W=Y:GOSUB480
250 X=XX:Y=YY:GOTO180
260 REM**** star move **************
270 SX=XX:SY=YY:CH=1:V=SX:W=SY:PLAY"o5c"
280 GOSUB480:XX=SX+DX:YY=SY+DY:GOTO370
290 ONM(XX,YY)+1GOTO300,270,320,180
300 CH=0:V=SX:W=SY:GOSUB480:GOTO270
310 REM**** hikobosi ***************
320 HX=XX:HY=YY:CH=2:V=HX:W=HY:PLAY"o4g"
330 GOSUB480:XX=HX+DX:YY=HY+DY:GOTO370
340 ONM(XX,YY)+1GOTO350,270,,510
350 CH=0:V=HX:W=HY:GOSUB480:GOTO320
360 REM**** hanyou sub *************
370 IF(XX<0)+(XX>7)+(YY<0)+(YY>10)THEN390
380 ONCHGOTO290,340,,230
390 ONCHGOTO410,450,,180
400 REM**** out of area ************
410 PLAY"o4fe":CH=0:V=SX:W=SY:GOSUB480
420 N=N+1:IFN>8THEN450
430 POKECD,1:AD=N*3+7363:A=USR(AD):GOTO180
440 REM**** miss! ******************
450 PLAY"o3gagfedc":COLOR,,2
460 FORI=1TO800:NEXT:COLOR,,1:GOTO80
470 REM**** chr put ****************
480 POKECD,CH:AD=606+V*3+W*600
490 A=USR(AD):M(V,W)=CH:RETURN
500 REM**** round clear! ***********
510 PLAY"o4fedfedcefao5fcfc"
520 FORI=1TO80:COLOR,,(I=INT(I/2)*2)+2
530 NEXT:R=R+1:IFR<=RDTHEN80
540 REM**** ending *****************
550 CLS:PLAY"s0m15000l4t100":FORI=2TO3
560 V=8-I*2:W=5:CH=5-I:GOSUB480
570 KANJI(62,88),I*4-1,1,"     ‚µ‚Ä‚é!"
580 PLAYM$:NEXT:END
590 REM**** round set ***************
600 FORI=1TORD:FORJ=0TO10:READA$
610 RO$(I,J)=A$:NEXTJ:NEXTI:RETURN
620 REM**** round data **************
630 DATA00000000,00000000,01111110,02000010
640 DATA00010110,00010000,00010000,00010000
650 DATA00110030,00100000,00000000
660 DATA00000000,00020110,00001100,00011000
670 DATA00111000,01101000,00001000,00001000
680 DATA00301000,00001000,00000000
690 DATA00000000,00030000,01110000,00000000
700 DATA01110010,00000010,00002010,00000110
710 DATA00011100,01110000,00000000
720 DATA00000000,00300000,00111100,00000000
730 DATA01111110,00001000,00001000,00001000
740 DATA00011000,00110200,00000000
750 DATA00000000,00003000,02001000,00101000
760 DATA00101000,00101000,00101010,00101010
770 DATA01101010,01001110,00000000