10 REM******************************************************************
20 REM        かせ゛の めいきゅう           1990年7月1日   by T.F
30 REM******************************************************************
40 CLEAR500,&HDE00:DIMRO$(10,10),M(15,15),XF(10),YF(10),XD(10),YD(10)
50 CD=&HDE0D:GOSUB1030:POKE&HFAEB,&H0A:POKE&HFAEC,&HDE
60 CONSOLE0,16,0,0:SCREEN3,2,2:COLOR2,1,1
70 R=1:GOSUB880
80 REM======( ケ゛ーム スタート )==============================================
90 N=3:GSW=0:IFR>10THENR=1
100 GOSUB590:W=12:CH=0:FORV=1TO10:GOSUB650:NEXT:LOCATE1,12:PRINTT$
110 FORV=12TO14:GOSUB650:NEXT:CH=4:FORV=12+(3-N)TO14:GOSUB650:NEXT
120 W=14:CH=0:FORV=4TO11:GOSUB650:NEXT:LOCATE4,14:PRINT"Round"R
130 REM=====( メインルーフ゜ )================================================
140 IFSTRIG(0)=0THENS=STICK(0):GOTO180
150 IFSTRIG(0)=0THENGOSUB670:GOTO200
160 IFSTICK(0)=1THENR=R+1:GOTO90
170 GOTO150
180 GOSUB230:IFGSW=0THEN140
190 GOSUB800:R=R+1:GOTO90
200 N=N-1:IFN=0THENGOSUB730:GOTO70
210 GOTO100
220 REM=====( フワフワ いと゛う )==============================================
230 DX=(S=7)-(S=3):DY=(S=1)-(S=5)
240 IFDX=0ANDDY=0THENRETURN
250 XX=XF+DX:YY=YF+DY:A=M(XX,YY):IFA=1THENRETURN
260 IFA=5THENV=XF:W=YF:CH=0:GOSUB650:GSM=1:RETURN
270 IFDX=0THEN310
280 IFA=3THENGOSUB400:RETURN
290 DD=DX:XK=XX:YK=YY:GOSUB440:IFFG<>0THENRETURN
300 GOSUB380:RETURN
310 IFA=2ORA=3THENGOSUB400:GOTO330
320 GOSUB380
330 A=M(XF-1,YF):IFA=3ORA=1THENRETURN
340 A=M(XF+1,YF):IFA=3ORA=1THENRETURN
350 DM=0:FORDD=-1TO1STEP2:XK=XF+DD:YK=YF:GOSUB440:DM=DM+FG:NEXT
360 IFDM<>0THENGOSUB490
370 RETURN
380 V=XX:W=YY:CH=4:GOSUB650:V=XF:W=YF:CH=0:GOSUB650:XF=XX:YF=YY:RETURN
390 REM=====( フ゛ロック、そうふうきを おす )========================================
400 XN=XX+DX:YN=YY+DY:IFM(XN,YN)<>0THENRETURN
410 I=3:IFA=2THENI=2
420 V=XN:W=YN:CH=I:GOSUB650:GOSUB380:RETURN
430 REM=====( かせ゛の つうろか? )=============================================
440 IFM(XK,YK)<>0THEN460
450 XK=XK+DD:GOTO440
460 IFM(XK,YK)=2THENFG=-DD:RETURN
470 FG=0:RETURN
480 REM=====( かせ゛に とは゛される )============================================
490 XK=XF+DM
500 PLAY"t200o7c16d16":IFM(XK,YK)<>0THEN530
510 V=XK:W=YF:CH=4:GOSUB650:V=XF:W=YF:CH=0:GOSUB650
520 XF=XK:XK=XK+DM:GOTO500
530 IFM(XK,YF)<>3THENRETURN
540 PLAY"o6f16d16":V=XK:W=YF:CH=4:GOSUB650:V=XF:W=YF:CH=0:GOSUB650
550 XF=XK:IFM(XF+DM,YF)<>0THENRETURN
560 DD=DM:XK=XF+DM:YK=YF:GOSUB440:IFFG=0THEN490
570 RETURN
580 REM=====( めんを かく )=================================================
590 CLS:CH=1:FORW=0TO10:V=0:GOSUB650:V=15:GOSUB650:NEXT
600 FORV=0TO15:W=0:GOSUB650:FORW=11TO15:GOSUB650:NEXT:NEXT
610 FORW=1TO10:FORV=1TO13:C=VAL("&h"+MID$(RO$(R,W),(V+1)/2,1))
620 CH=INT(C/4):GOSUB650:V=V+1:CH=C-CH*4:GOSUB650:NEXTV,W
630 V=XF(R):W=YF(R):CH=4:GOSUB650:XF=V:YF=W
640 V=XD(R):W=YD(R):CH=5:GOSUB650:RETURN
650 POKECD,CH:AD=&HE200+V*2+W*384:A=USR(AD):M(V,W)=CH:RETURN
660 REM=====( キ゛フ゛アッフ゜ )===============================================
670 LINE(46,36)-(193,120),2,BF:LINE(51,41)-(188,115),4,BF
680 LOCATE4,6:PRINT"Giveup!":RESTORE700
690 READM1$,M2$:READM1$,M2$:FORI=0TO2000:NEXT:RETURN
700 DATAs0m10000t150o6e4rd+rc+ro5bg+c+ef+ag+ec+f+rd+e
710 DATAs0m10000t150o5c+4eo4bo5eo4ao5f+o4brrrrrbra+ro3bo4ae2
720 REM=====( ケ゛ームオーハ゛ー )==============================================
730 LINE(34,36)-(205,120),3,BF:LINE(39,41)-(200,115),4,BF
740 LOCATE3,6:PRINT"Game Over":RESTORE760:FORI=1TO2
750 READM1$,M2$:PLAYM1$,M2$:NEXT:FORI=0TO2000:NEXT:RETURN
760 DATAs0m11000t90o5d4ddfdgadrfdrgb-a8b-8,s0m13000t90o4r4frrb-rrafradr
770 DATAo6c4o5eb-afrag2a4fgae-b-gc+rfdrdfe8f8g4c+fd1
780 DATAegrfo5co4dro5c+ro4darcf+ro3b-o4fo3aro4ao3ao4f+rro3ao4aro3d1
790 REM=====( クリア )====================================================
800 LINE(46,36)-(193,120),2,BF:LINE(51,41)-(188,115),3,BF
810 LOCATE4,6:PRINT"Clear!!":RESTORE830:FORI=1TO4:READM1$,M2$
820 PLAYM1$,M2$:NEXT:FORI=0TO2000:NEXT:RETURN
830 DATAs0m15000t230o5b3g4d8r4edgd,s0m13000t230o4d3d4r8d4drdr
840 DATAbd8g4d8r4edrdbd8g4d8r4edgr,dr8d4r8d4drdrdr8d4r8d4drdg
850 DATAad8f+4r8r4rr8g4r8r4cro4br,dr8d4g8d4o3go4d8r4g8d4f+gdg
860 DATAo5rg8r4r8r4cro4bro5g2,o3gr8o4g8d8b8g4dgdgo3g2
870 REM=====( テ゛モ )====================================================
880 CLS:T$="かせ゛の めいきゅう":LOCATE1,0:PRINTT$
890 RESTORE980:FORV=1TO8STEP7:FORW=2TO6STEP2:READCH,A$
900 GOSUB650:LOCATEV+1,W:PRINT" "A$:NEXT:NEXT
910 CH=1:FORV=2TO14:W=8:GOSUB650:W=15:GOSUB650:NEXT
920 FORW=9TO14:V=2:GOSUB650:V=14:GOSUB650:NEXT
930 RESTORE990:FORW=9TO14:READA$:V=3:FORI=1TO11
940 CH=VAL(MID$(A$,I,1)):GOSUB650:V=V+1:NEXT:NEXT:READXF,YF
950 READQ$:FORQ=1TOLEN(Q$)STEP2:S=VAL(MID$(Q$,Q+1,1))
960 FORP=1TOVAL(MID$(Q$,Q,1)):GOSUB230:IFSTRIG(0)THENRETURN
970 FORT=0TO50:NEXT:NEXT:NEXT:GOTO910
980 DATA4,フワフワ,2,FAN,1,WALL,3,BLOCK,5,EXIT,0,
990 DATA01100003000,03320000002,01201331111
1000 DATA01400001000,01111311015,00000000002,5,12
1010 DATA132125231511131115172113113315151315214583212315
1020 DATA====(　テ゛ータセット )===============================================
1030 RESTORE1100:AD=&HDE00:FORJ=0TO1:READA$:FORI=1TO49STEP2
1040 POKEAD,VAL("&h"+MID$(A$,I,2)):AD=AD+1:NEXTI,J
1050 AD=&HDF00:FORJ=0TO5:READA$:FORI=1TO47STEP2
1060 POKEAD,VAL("&h"+MID$(A$,I,2)):AD=AD+1:NEXTI,J
1070 FORJ=1TO10:FORI=1TO10:READRO$(J,I):NEXT
1080 READXF(J),YF(J),XD(J),YD(J):NEXT:RETURN
1090 REM====( マシンコ゛テ゛ータ )==============================================
1100 DATAE521200019545DE1181526181E00441600626A1910FD0100DF
1110 DATA09CD4107060CDD210000DD197EDD7700237EDD77012310CFC9
1120 REM====( キャラクタテ゛ータ )==============================================
1130 DATA000000000000000000000000000000000000000000000000
1140 DATAFFFFFFFFAAAAFBFBFBFBAAAAFFFFFFFFAAAAFBFBFBFBAAAA
1150 DATAA00A982696969D76BD7EFFFFFFFFBD7E9D7696969826A00A
1160 DATA0AA025589AA69826982698269826982698269AA625580AA0
1170 DATA05501554196466995555555555551AA41694055001400550
1180 DATA0FF037DC37DCD7D7D7D7D7D7DBE7DBE7D7D7D7D7D7D7FFFF
1190 REM====( めん テ゛ータ )================================================
1200 DATA8000000,1551554,1011000,1011000,1551000
1210 DATA1001000,1001002,1001000,10017FC,000F002,10,5,3,6
1220 DATA1402403,00C54D4,1540404,04046C4,47D4404
1230 DATA800440C,545445C,0024440,45d457C,0400002,10,8,1,10
1240 DATA1000000,1155554,13C0008,1215544,1333C44
1250 DATA1101144,11554C4,2000008,17D57D4,0000000,1,1,9,6
1260 DATA0001000,7151514,8312005,4651042,0403155
1270 DATA0555002,C401515,00930C2,0451551,4060001,4,5,14,2
1280 DATA0000002,0F55550,1000024,1815514,1103114
1290 DATA0015104,5555154,1B00003,17C5955,0000000,1,8,12,6
1300 DATA4001002,0009C40,0F01054,1F55050,1303002
1310 DATA1101050,1555754,0001C08,20F1444,0051040,7,10,9,10
1320 DATA0000000,0554550,9404400,1544410,1004416
1330 DATA1164400,100450D,137457C,2004400,C304400,4,3,8,10
1340 DATA3000000,1555700,1040750,1800012,1070000
1350 DATA1C65551,1040310,1C51518,100FC00,0055154,14,10,9,10
1360 DATA0103400,30347FF,25954F0,0010F03,51560F4
1370 DATA8004005,51175FC,01801CC,1511142,0001C00,10,1,8,2
1380 DATA1000000,13D57C5,9F10040,03D8454,0410040
1390 DATA0410745,C510040,09D5657,450100F,0010000,1,1,14,1