10 CGEN2:CGSET,0:SPRITEON:VIEW
12 Y=4:CH=0:T1=0:NM=2:TE=0
15 LOCATE7,0:PRINTTE:LOCATE25,0:PRINTNM
20 DEFMOVE(0)=SPRITE(0,3,1,2,0,0):POSITION0,100,192:MOVE0
30 DEFMOVE(1)=SPRITE(14,5,1,6,0,0):POSITION1,12,20:MOVE1
40 DEFSPRITE0,(0,0,0,1,0)=CHR$(213)
100 'MAIN
105 IFMOVE(2)=0THENERA2
110 S=STICK(0):T=STRIG(0)
120 IF MOVE(0)=0 ONS GOSUB500,550
135 IF T1=1 GOSUB650
140 IF T1=0 AND T=8 GOSUB600
150 IF YPOS(1)>170THEN155
152 IF MOVE(2)=0 GOSUB700
155 IF CH=4 AND MOVE(1) GOSUB900
160 IF MOVE(1)=0 THEN ONY GOSUB430,450,480,400
180 GOSUB 750
190 GOSUB 800
199 GOTO100
400 DEFMOVE(1)=SPRITE(14,3,1,108):MOVE1:Y=1:RETURN
430 DEFMOVE(1)=SPRITE(14,5,1,10):MOVE1:Y=2:RETURN
450 DEFMOVE(1)=SPRITE(14,7,1,108):MOVE1:Y=3:RETURN
480 DEFMOVE(1)=SPRITE(14,5,1,10):MOVE1:Y=4:CH=CH+1:RETURN
500 IF XPOS(0)>210 THEN RETURN
510 DEFMOVE(0)=SPRITE(0,3,1,3):MOVE0:RETURN
550 IF XPOS(0)<30 THEN RETURN
560 DEFMOVE(0)=SPRITE(0,7,1,3):MOVE0:RETURN
600 T1=1:TX=XPOS(0)+8:TY=YPOS(0):SPRITE0,TX,TY:RETURN
650 TY=TY-5:IFTY<30THENSPRITE0:T1=0:RETURN
660 SPRITE0,TX,TY:RETURN
700 DEFMOVE(2)=SPRITE(12,5,1,((180-YPOS(1))/2))
710 POSITION2,XPOS(1),YPOS(1)+16:MOVE2
720 RETURN
750 IF XPOS(0)<XPOS(2) AND XPOS(0)+12>XPOS(2) AND YPOS(0)<YPOS(2) AND YPOS(0)+12>YPOS(2) THEN 770
760 RETURN
770 NM=NM-1:LOCATE 25,0:PRINT NM;" ":IF NM<0 THEN 1500
780 DEF MOVE(0)=SPRITE(10,1,1,10):CH=0:Y=4:MOVE0:PLAY"O3F0CFCFC"
785 IF MOVE(0) THEN 785
790 RETURN 20
800 IF XPOS(1)<TX AND XPOS(1)+12>TX AND YPOS(1)<TY AND YPOS(1)+12>TY THEN 820
810 RETURN
820 SPRITE0:TX=XPOS(0):TY=YPOS(0):TE=TE+5:LOCATE 7,0:PRINT TE;"0"
830 DEF MOVE(1)=SPRITE(10,1,1,8):MOVE 1
835 PLAY"O3F0EGFEGFEG"
840 IF MOVE(1) THEN 840
849 T1=0:CH=0:Y=4:RETURN 30
900 CUT0:Z=(XPOS(0)-XPOS(1))/2
910 DEFMOVE(1)=SPRITE(14,3,1,Z):MOVE1
920 IF MOVE(1) THEN920
925 DEF MOVE(0)=SPRITE(10,1,2,50):MOVE0
926 PLAY"O3C0GEBAGECDFAGEB"
928 IF MOVE(0) THEN 928
930 CH=0:NM=NM-1:IF NM<0 THEN 1500
940 RETURN15
1500 CLS:SPRITE OFF
1510 LOCATE 5,5:PRINT"テンスウ ";TE;" テン"
1520 LOCATE 5,8:PRINT"モウイチド シマスカ Y/N"
1530 A$=INKEY$:IF A$=""THEN 1530
1540 IF A$="Y" THEN RUN
5 GOSUB 2000
10 CGSET,0:SPRITE ON:VIEW
15 PAUSE 30:PLAY"C1R5C1R5C1R5":PAUSE 30
20 DE=0:TE=0:TT=0
100 'MAIN
110 IF MOVE(0)=0 AND Y=0 GOSUB 500
120 IF MOVE(0)=0 AND Y=1 GOSUB 550
130 GOSUB 600
150 IF MOVE(0)=0 AND DE>29 AND Y=0 THEN 1500
199 GOTO 100
500 Z=RND(26)+1:IF F=Z THEN500
505 DE=DE+1:F=Z:LOCATE 5,22:PRINTDE;" "
510 ON Z RESTORE 3000,3010,3020,3030,3040,3050,3060,3070,3080,3090,3100,3110,3120,3130,3140,3150,3160,3170,3180,3190,3200,3210,3220,3230,3240,3250
520 READ A,B,C
530 DEF MOVE(0)=SPRITE(A,1,L,10,1,0):POSITION0,B,C:MOVE0:PLAY"O5C0O4C":Y=1:RETURN
550 DEF MOVE(0)=SPRITE(A,5,L,10,1):MOVE0:Y=0:RETURN
600 A$=INKEY$
610 IF A$=CHR$(Z+64) THEN 630
620 RETURN
630 DEF MOVE(0)=SPRITE(10,1,1,6,1):MOVE0:PLAY"O3G0CGCGC"
640 IF MOVE(0) THEN640
645 TE=TE+(55-L*5):Y=0:TT=TT+1:ERA 0
648 IF DE>29 THEN 1500
649 LOCATE 20,22:PRINTTE;" ":RETURN
1500 PAUSE30:CLS:SPRITE OFF
1505 IF DE=TT THEN LOCATE 5,5:PRINT"パ-フェクト ボ-ナス 3000":TE=TE+3000
1510 LOCATE3,8:PRINT"アナタ ノ テンスウ ハ ";TE;" テン デス"
1520 LOCATE 8,12:PRINT"モウイチド シマスカ ? "
1525 LOCATE 8,14:PRINT"ヤメル トキ ハ N キ-"
1530 LOCATE 8,16:INPUT A$
1540 IF A$="N" THEN END
1550 RUN
2000 CLS:PRINT" <<< キ-ボ-ド レッスン >>>"
2005 LOCATE 3,5:PRINT "*** ムズカシサ ハ ドレグライ ? ***"
2010 LOCATE7,8:PRINT "1-5 1ガ イチバン ハヤイ "
2020 LOCATE 7,10:PRINT"RETURN キ- ヲ オシテネ":PRINT
2030 INPUT" ";L
2040 RETURN
3000 DATA 11,16,38
3010 DATA 5,48,38
3020 DATA 2,80,38
3030 DATA 3,112,38
3040 DATA 11,144,38
3050 DATA 2,176,38
3060 DATA 5,208,38
3070 DATA 14,16,78
3080 DATA 8,48,78
3090 DATA 9,80,78
3100 DATA 13,144,78
3110 DATA 14,176,78
3120 DATA 15,208,78
3130 DATA 14,16,118
3140 DATA 11,48,118
3150 DATA 5,80,118
3160 DATA 2,144,118
3170 DATA 11,176,118
3180 DATA 8,208,118
3190 DATA 9,16,158
3200 DATA 11,48,158
3210 DATA 2,80,158
3220 DATA 8,112,158
3230 DATA 14,144,158
3240 DATA 7,176,158
3250 DATA 5,208,158
10 CGSET,0:SPRITE ON:VIEW
20 FORI=0TO2:DEFSPRITEI,(0,1,1,1,0)="ドデビバ":NEXT
30 FORI=3TO5:DEFSPRITEI,(0,1,1,0,0)="ギグゲゴ":NEXT40 FORI=0TO3:READA,B,C,D,E,F:DEFMOVE(I)=SPRITE(A,B,C,D,E,F):NEXT
50 DEFSPRITE 6,(0,1,0,1,0)=CHR$(21)+CHR$(20)+CHR$(23)+CHR$(22):SPRITE 6,110,160
90 P1=0:P2=0:X1=21:Y1=45:X2=219:Y2=107:T1=1:T2=0:NT=30:TE=0:TX=120:TY=160:T1=0
100 IF MOVE(3)=0 THEN T1=0:ERA3:POSITION3,120,160
104 LOCATE21,0:PRINTNT;" "
105 S=STICK(0):T=STRIG(0)
123 IFT1=1THEN130
125 IFT=8THENNT=NT-1:GOSUB850
130 IF XPOS(0)<XPOS(3) AND XPOS(0)+16>XPOS(3) AND YPOS(0)<YPOS(3) AND YPOS(0)+16>YPOS(3) GOSUB900
140 IF XPOS(1)<XPOS(3) AND XPOS(1)+16>XPOS(3) AND YPOS(1)<YPOS(3) AND YPOS(1)+16>YPOS(3) GOSUB950
168 IFMOVE(0)=-1THEN170
169 GOSUB600
170 IFMOVE(1)=-1THEN180
175 GOSUB650
180 GOSUB500
185 IF MOVE(3)=0ANDNT<1THEN1500
190 GOSUB550
195 IFMOVE(0)=0THENC1=0:ERA0
197 IFMOVE(1)=0THENC2=0:ERA1
198 IFMOVE(2)=0THENERA2
199 GOTO100
500 IFP1=0THENY1=Y1+3:GOTO503
501 Y1=Y1-3:GOTO505
503 IFY1>107THENP1=1:Y1=107:GOTO510
505 IFY1<45THENP1=0:Y1=45:GOTO510
510 SPRITE0,X1,Y1:SPRITE1,X1,Y1+27:SPRITE2,X1,Y1+54:RETURN
550 IFP2=0THENY2=Y2+3:GOTO553
551 Y2=Y2-3:GOTO555
553 IFY2>107THENP2=1:Y2=107:GOTO560
555 IFY2<45THENP2=0:Y2=45:GOTO560
560 SPRITE3,X2,Y2:SPRITE4,X2,Y2+27:SPRITE5,X2,Y2+54:RETURN
600 YP=RND(60)+50:POSITION0,20,YP:MOVE0:PLAY"O3G0C":RETURN
650 YP=RND(60)+50:POSITION1,220,YP:MOVE1:PLAY"O3C0G":RETURN
850 T1=1:POSITION3,TX,TY:MOVE3:RETURN
900 POSITION2,XPOS(0),YPOS(0):ERA0,3:TE=TE+100:MOVE2:T1=0
905 PLAY"O4C0GCGCG"
910 IFMOVE(2)THEN910
912 LOCATE 8,0:PRINTTE;" "
915 POSITION3,120,160:ERA2,3:RETURN
950 POSITION2,XPOS(1),YPOS(1):ERA1,3:TE=TE+50:MOVE2:T1=0
955 PLAY"O4C0GCGCG"
960 IFMOVE(2)THEN960
962 LOCATE 8,0:PRINTTE;" "
965 POSITION3,120,160:ERA2,3:RETURN
1500 PAUSE30:CLS:SPRITEOFF:LOCATE5,6:PRINT"アナタ ノ テンスウ ハ"
1510 LOCATE 10,8:PRINTTE;" テンデス"
1520 LOCATE 5,12:PRINT"ゲ-ム ヲ ツヅケマスカ ? Y/N"
1530 A$=INKEY$:IF A$=" "THEN1530
1540 IF A$="N" THEN END
1550 IF A$="Y" RUN
1560 GOTO 1530
2000 DATA9,3,1,60,0,0,8,7,1,60,0,0,10,2,1,8,0,0,12,1,1,56,0,0
10 CGEN2:CGSET,0:SPRITEON:VIEW
15 Y=0:TE=0:NM=2:J=0
20 DEFMOVE(0)=SPRITE(0,3,1,3,0,0):POSITION0,20,200:MOVE0
30 LOCATE 25,0:PRINTNM
100 S=STICK(0):T=STRIG(0)
110 IF MOVE(0)=0 ONS GOSUB 200,220
130 IF MOVE(2)=0 AND T=8 GOSUB250
140 IF MOVE(1)=0 AND Y=0 GOSUB 400
150 IF MOVE(1)=0 AND Y=1 GOSUB 450
155 IF MOVE(3)=0 AND J=1 THEN J=0:ERA 3
160 IF J=0 GOSUB500
170 GOSUB550
199 GOTO100
200 IFXPOS(0)>228 RETURN
210 DEFMOVE(0)=SPRITE(0,3,1,2):MOVE0:RETURN
220 IF XPOS(0)<20 RETURN
230 DEFMOVE(0)=SPRITE(0,7,1,2):MOVE0:RETURN
250 DEFMOVE(2)=SPRITE(12,1,1,100,0,0):POSITION2,XPOS(0)+8,YPOS(0):MOVE2:RETURN
400 Z=RND(8)+1:IF F=Z THEN 400
410 Y=1:F=Z:ON Z RESTORE 2000,2010,2020,2030,2040,2050,2060,2070
420 READA,B,C,D
430 DEFMOVE(1)=SPRITE(9,A,1,B,1,1):POSITION1,C,D:MOVE1:RETURN
450 READ A,B
460 IF A=999 THEN Y=0:RETURN
470 DEFMOVE(1)=SPRITE(9,A,1,B,0):MOVE1:RETURN
500 IF XPOS(1)-16<XPOS(0) AND XPOS(0)<XPOS(1)+16 AND YPOS(1)-16<YPOS(0) AND YPOS(0)<YPOS(1)+16 THEN 520
510 RETURN
520 ERA0:DEFMOVE(0)=SPRITE(10,1,1,30):POSITION0,XPOS(0),YPOS(0):MOVE0:PLAY"O4C0GCGCGC":NM=NM-1:J=1
525 IF MOVE(1) THEN 525
530 IF NM<0 THEN 1500
549 RETURN 20
550 IF XPOS(1)<XPOS(2) AND XPOS(1)+10>XPOS(2) AND YPOS(1)<YPOS(2)+2 AND YPOS(1)+14>YPOS(2) THEN 570
560 RETURN
570 ERA2:POSITION2,250,250:DEFMOVE(1)=SPRITE(10,1,1,10):MOVE1:PLAY"O4C0DEFGAB":TE=TE+10:LOCATE 8,0:PRINTTE;" ":Y=0:J=0:RETURN
1500 CLS:SPRITEOFF:LOCATE10,10:PRINT" トクテン ";TE
1510 LOCATE 8,18:PRINT"モウイチド シマスカ Y/N"
1520 A$=INKEY$:IF A$=""THEN1520
1530 IF A$="N" THEN END
1540 RUN
2000 DATA 8,10,81,67,7,8,6,8,5,6,4,1,3,1,2,1,1,1,8,1,7,4,6,2,5,40,4,12,3,30,4,15,5,20,999
2010 DATA 1,10,159,67,3,8,4,8,5,6,6,1,7,1,8,1,1,1,2,1,3,4,4,2,5,40,6,12,7,30,6,15,5,20,999
2020 DATA 1,20,127,67,3,15,4,1,5,1,6,1,7,1,8,1,1,1,3,6,4,2,5,25,4,8,3,1,2,1,1,1,8,1,7,1,6,1,5,30,6,16,7,20,5,20,999
2030 DATA 1,20,111,67,7,35,6,1,5,1,4,1,3,1,2,1,1,1,7,1,6,1,5,25,6,8,7,1,8,1,1,1,2,1,3,1,4,1,5,30,4,16,3,75,5,24,999
2040 DATA 3,10,159,95,4,2,5,20,6,2,7,50,8,1,1,1,2,1,3,1,4,1,5,45,999
2050 DATA 7,10,81,95,6,2,5,34,4,2,3,50,2,1,1,1,8,1,7,1,6,1,5,40,999
2060 DATA 5,24,121,123,4,1,3,30,2,1,1,1,8,1,7,40,6,2,5,34,999
2070 DATA 5,28,121,123,6,1,7,30,8,1,1,1,2,1,3,40,4,2,5,28,999,0
10 CLS:TA$="タ シ ザ ン":HI$="ヒキ ザ ン":KA$="カ ケ ザ ン":WA$="ワリ ザ ン":X$=" 10 ダイ "
20 GOSUB5000
30 CLS:LOCATE3,5:PRINT"サンスウゴッコ ノ ハジマリ デス。"
40 LOCATE3,7:PRINT"シタカラ モンダイ ヲ エランデ クダサイ"
50 LOCATE7,10:PRINTTA$;".....1"
60 LOCATE7,12:PRINTHI$;".....2"
70 LOCATE7,14:PRINTKA$;".....3"
80 LOCATE7,16:PRINTWA$;".....4"
90 INPUTA
100 CLS:S=0:M=0:ONA GOTO 1000,2000,3000,4000
1000 LOCATE6,8:PRINTTA$,X$
1010 GOSUB6000
1020 FOR I=1TO10:GOSUB5500
1050 LOCATE8,16:PRINTX;" タス";Y;" ワ ??"
1060 INPUTK
1070 IF K=X+Y THEN 1100
1080 GOSUB7000:NEXT:GOTO9000
1100 GOSUB8000
1110 NEXT:GOTO9000
2000 LOCATE6,8:PRINTHI$,X$
2010 GOSUB6000
2020 FOR I=1 TO 10
2040 GOSUB5500
2050 LOCATE 8,16:PRINTX+Y;"ヒク ";X;" ワ ??"
2060 INPUT K
2070 IF K=Y THEN 2100
2080 GOSUB7000:NEXT:GOTO9000
2100 GOSUB8000
2110 NEXT:GOTO9000
3000 LOCATE 6,8:PRINTKA$,X$
3010 GOSUB6000
3020 FOR I=1TO10
3040 GOSUB5500
3050 LOCATE8,16:PRINTX;" カケル ";C;" ワ ??"
3060 INPUT K
3070 IF K=X*C THEN 3100
3080 GOSUB7000:NEXT:GOTO9000
3100 GOSUB8000:NEXT:GOTO9000
4000 LOCATE6,8:PRINTWA$,X$
4010 GOSUB6000
4020 FOR I=1 TO 10
4040 GOSUB5500
4050 LOCATE 8,16:PRINTX*C;"ワル ";C;" ワ ??"
4060 INPUT K
4070 IF K=X THEN 4100
4080 GOSUB7000:NEXT:GOTO9000
4100 GOSUB8000:NEXT:GOTO9000
5000 LOCATE 5,5:PRINT"アナタ ノナマエ ヲ イレテクダサイ"
5010 INPUT NA$:RETURN
5500 X=RND(20)+1:Y=RND(20)+1:C=RND(7)+3
5505 IFX1=X AND Y1=Y THEN5500
5510 X1=X:Y1=Y:LOCATE5,14:PRINT"ダイ ";I;" モン":RETURN
6000 LOCATE3,10:PRINT"イイデスカ?"
6005 LOCATE3,11:PRINTNA$;" サン ガンバッテ クダサイ":PAUSE80
6010 LOCATE3,12:PRINT"ジャ-- ソロソロ イキマショウ":PAUSE50:RETURN
7000 CLS:G=10:M=M+1:GOSUB9500
7010 PRINT"ホラホラ ヨ--ク カンガエテ":RETURN
8000 CLS:G=RND(8):S=S+1:GOSUB9500
8010 LOCATE5,5:PRINT"ツギモ ガンバロ--- !!!":RETURN
9000 CLS:IF M=0 THEN LOCATE5,8:PRINT"アナタ ハ テンサイダ !!!":PLAY"O4C4O3GC:O3E4BE:O3G4DG":PAUSE200:GOTO9040
9010 LOCATE8,6:PRINT"アナタ ノ ケイサン ハ"
9020 LOCATE10,8:PRINT"10 モンチュウ "
9030 LOCATE8,10:PRINTS;"モン セイカイ シマシタ "
9040 LOCATE8,15:PRINT"ツギモ ガンバロウ !!!!!":PAUSE300:CLS
9050 GOTO30
9500 CLS:SPRITE ON:CGSET 1,0
9510 FOR N=0 TO 7
9520 DEF MOVE(N)=SPRITE(G,N+1,1,64,0,0):NEXT
9530 MOVE 0,1,2,3,4,5,6,7
9531 IF G=10THEN PLAY"O1C4ECRC3ECRC2ECRC1EC":GOTO9540
9533 PLAY"T1O4C1B1DEG1CDE1"
9540 IF MOVE(0) THEN9540
9550 SPRITE OFF:RETURN
10 CGEN2:CGSET,0:SPRITEON:VIEW:NM=3:ID=220 DEFSPRITEI,(0,1,0,0,0)="XYZ「":BH=15
30 DEFMOVE(0)=SPRITE(0,3,1,4,0,0):POSITION0,120,167:MOVE0
35 Y1=25:C1=0:RESTORE2000
40 LOCATE8,2:PRINTTE:LOCATE20,2:PRINTNM
100 S=STICK(0):T=STRIG(0)
110 IFC1=0THENB1=B1+1:GOSUB300
120 IFC1=1THENB1=B1-1:GOSUB300
130 IFMOVE(0)=0ONS GOSUB200,230
145 IFT=8ANDX2=0GOSUB400
150 IFX2=1GOSUB450:GOSUB800
165 GOSUB750:GOTO100
200 IFXPOS(0)>215RETURN
210 DEFMOVE(0)=SPRITE(0,3,1,3):MOVE0:RETURN
230 IFXPOS(0)<25RETURN
240 DEFMOVE(0)=SPRITE(0,7,1,3):MOVE0:RETURN
300 IFB1=BH THENC1=1:GOTO310
305 IFB1=1THENC1=0
310 B0=B1:GOSUB600
320 IFY1>214THENW1=1:GOTO325
322 IFY1<25THENW1=-1
325 IFW1=1THENY1=Y1-ID:GOTO340
330 Y1=Y1+ID
340 IFBH=15THENSPRITE0,Y1,A:A1=A
342 IFBH=10THENSPRITE0,Y1,B:A1=B
344 IFBH=5THENSPRITE0,Y1,C:A1=C
349 RETURN
400 XX=(XPOS(0)/8)-1:X2=1:X3=17:XF=(XX*8)+20:YH=(X3*8)+32
410 LOCATEXX,X3:PRINTCHR$(211):RETURN
450 X3=X3-1:YG=(X3*8)+24:IFX3=3THEN470
460 LOCATEXX,X3:PRINTCHR$(211)
465 IFX3=3THEN470
468 RETURN
470 X2=0:FORU=17TO4STEP-1:LOCATEXX,U:PRINT" ":NEXT:RETURN
480 IF ID=10THENID=2:RETURN
490 RETURN
500 IFBH=5THENSP=SP-1:I=0:DEFSPRITE0,(0,1,0,0,0)="XYZ「":TE=TE+5:LOCATE8,2:PRINTTE;"0":PLAY"O4C1DEFG#GACDEF":GOSUB470:ID=ID+1:GOSUB480:BH=15:RETURN35
510 IFBH=15THENBH=10:I=0:B1=2:DEFSPRITE0,(0,1,0,0,0)="89:;":PLAY"::O3G0DAFC":GOSUB470:W1=W1*-1:RETURN
520 IFBH=10THENBH=5:I=0:B1=2:DEFSPRITE0,(0,1,0,0,0)="チツテト":PLAY"::O4G0DAFC":GOSUB470:W1=W1*-1:RETURN
600 ON B0 RESTORE2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014
610 READ A,B,C:RETURN
750 IF XPOS(0)<Y1+10 AND XPOS(0)+12>Y1+2 AND 165<A1+16 THEN770
760 RETURN
770 DEFMOVE(0)=SPRITE(10,1,1,40):MOVE0:PLAY"B0AGFEDC":PAUSE90:NM=NM-1:LOCATE20,2:PRINTNM
780 IFNM<1THEN1500
790 RETURN30
800 IFY1<XF AND Y1+16>XF AND YG<A1+12 AND YH>A1 GOSUB500
810 RETURN
1500 DEFMOVE(0)=SPRITE(10,1,1,10):MOVE0:NM=NM-1:IFNM<0THEN1800
1510 Y1=25:BH=15:GOTO30
1800 CLS:SPRITEOFF:LOCATE5,10:PRINT"GAME OVER!!!"
2000 DATA50,100,130
2001 DATA51,101,132
2002 DATA53,104,138
2003 DATA56,109,150
2004 DATA60,115,167
2005 DATA65,122,0
2006 DATA71,132,0
2007 DATA78,143,0
2008 DATA86,155,0
2009 DATA95,167,0
2010 DATA105,0,0
2011 DATA116,0,0
2012 DATA130,0,0
2013 DATA150,0,0
2014 DATA167,0,0
10 CGSET,0:SPRITEON:CGEN3:NT=5:DIM C(13,15)
30 DEFSPRITE0,(0,1,0,1,0)=CHR$(227)+CHR$(227)+CHR$(32)+CHR$(32)
38 RESTORE2000:FORI1=3TO14:FORI=3TO13:READA:C(I,I1)=A:NEXT:NEXT
40 VIEW:NB=105:PX=65
45 LOCATE21,12:PRINTSC;"0":LOCATE21,17:PRINTNT
50 BX=RND(12)+4:BY=18:TP=1:PT=2:SPRITE0,PX,190
100 S=STICK(0):ONS GOSUB200,220
115 LOCATE BX,BY:PRINT" ":GOSUB250
125 IFTP=1THENBX=BX-1
127 IFTP=2THENBX=BX+1
130 IFPT=1THENBY=BY+1
132 IFPT=2THENBY=BY-1
140 GOSUB330
160 IF BY<15 AND BY>1 AND BX>1 AND BX<14 GOSUB500
199 PAUSE5:GOTO100
200 IFPX>122THENPX=122:RETURN
210 PX=PX+12:SPRITE0,PX,190:RETURN
220 IFPX<32THENPX=32:RETURN
230 PX=PX-12:SPRITE0,PX,190:RETURN
250 IFBX>14THENTP=1:PLAY"G0":RETURN
260 IFBX<2THENTP=2:PLAY"G0":RETURN
270 RETURN
330 LOCATEBX,BY:PRINTCHR$(207):IFBY<3THENPT=1:PLAY"B0":RETURN
360 IFPT=1ANDBY>19GOSUB380
370 RETURN
380 T1=(BX*8)+16:IF PX<T1+12ANDPX+20>T1 THEN PT=2:PLAY"C0":RETURN
390 PLAY"O3C1B1DEG1CDE1":NT=NT-1:IFNT<1RETURN1500
395 LOCATE21,17:PRINTNT:PAUSE50:LOCATEBX,BY:PRINT" ":RETURN50
500 IFPT=1AND C(BX,BY+1)=1THENC(BX,BY+1)=0:L=BX:K=BY+1:PT=1:GOSUB600
510 IFPT=2AND C(BX,BY-1)=1THENC(BX,BY-1)=0:L=BX:K=BY-1:PT=1:GOSUB600
520 IFC(BX,BY)=1 THENC(BX,BY)=0:L=BX:K=BY:GOSUB600
530 RETURN
600 LOCATEL,K:PRINT" ":NB=NB-1:SC=SC+2:PLAY"C0":LOCATE21,12:PRINTSC;"0":IFTP=1THENTP=2:GOTO620
610 TP=1
620 IFNB=0RETURN38
630 RETURN
1500 CLS:SPRITEOFF
1510 LOCATE5,8:PRINT"イマ ノ スコア ";SC;"0"
2000 DATA 1,0,1,1,1,1,1,1,1,0,1,1,0,1,1,1,1,1,1,1,0,1
2001 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
2002 DATA 1,1,0,1,1,1,1,1,0,1,1,1,1,0,0,1,1,1,0,0,1,1
2003 DATA 1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1
2004 DATA 1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,0,0,0,1,1,1,0
2005 DATA 0,1,1,0,0,1,0,0,1,1,0,0,0,1,1,1,1,1,1,1,0,0
10 CGEN2:CGSET,0:SPRITEON:VIEW
20 DEFMOVE(0)=SPRITE(0,3,1,4,0,0):POSITION0,120,168:MOVE0
30 P8=0:P4=0:L=0:TE=0:TA=30
100 S=STICK(0):T=STRIG(0)
110 IFMOVE(0)=0 ONS GOSUB500,550
130 IFMOVE(1)=0 AND P8=1GOSUB650
135 IFT=8 AND P8=0 GOSUB600
140 IFMOVE(2)=0 AND P4=1GOSUB750
145 IFT=4 AND P4=0 GOSUB700
158 IFMOVE(5)=0THENL=0:GOTO165
160 IFL=1THEN170
165 GOSUB800
170 IFXPOS(5)<XPOS(1)ANDXPOS(5)+16>XPOS(1)ANDYPOS(5)<YPOS(1)ANDYPOS(5)+16>YPOS(1)GOSUB1000
180 IFXPOS(5)<XPOS(2)ANDXPOS(5)+16>XPOS(2)ANDYPOS(5)<YPOS(2)ANDYPOS(5)+16>YPOS(2)GOSUB1100
199 GOTO100
500 IFXPOS(0)>198RETURN
530 DEFMOVE(0)=SPRITE(0,3,1,2):MOVE0:RETURN
550 IFXPOS(0)<38RETURN
580 DEFMOVE(0)=SPRITE(0,7,1,2):MOVE0:RETURN
600 DEFMOVE(1)=SPRITE(12,2,1,4,0,0):POSITION1,XPOS(0)+8,YPOS(0):MOVE1:P8=1:P1=1:TA=TA-1
610 LOCATE23,0:PRINTTA;" ":RETURN
650 IFYPOS(1)<40THEN P8=0:ERA1:POSITION1,120,168:RETURN140
651 D2=XPOS(1)/8-2:A2=-(D2=0)-(D2=8)-(D2=18)-(D2=26)
652 IF A2=1 AND P1=0 THEN P1=1:GOTO665
653 IF A2=1 AND P1=1 THEN P1=O:GOTO672
654 IFP1=1THEN665
655 GOTO672
665 DEFMOVE(1)=SPRITE(12,2,1,3):MOVE1:RETURN140
672 DEFMOVE(1)=SPRITE(12,8,1,3):MOVE1:RETURN140
700 DEFMOVE(2)=SPRITE(12,8,1,2,0,0):POSITION2,XPOS(0),YPOS(0):MOVE2:P4=1:P2=0:TA=TA-1
710 LOCATE23,0:PRINTTA;" ":RETURN
750 IFYPOS(2)<40THENP4=0:ERA2:E2=0:POSITION2,120,168:RETURN
751 D1=XPOS(2)/8-2:A=-(D1=0)-(D1=8)-(D1=18)-(D1=26)
752 IF A=1 AND P2=1 THEN P2=0:GOTO765
753 IF A=1 AND P2=0 THEN P2=1:GOTO772
754 IFP2=0THEN765
755 GOTO772
765 DEFMOVE(2)=SPRITE(12,8,1,3):MOVE2:RETURN158
772 DEFMOVE(2)=SPRITE(12,2,1,3):MOVE2:RETURN158
800 X=RND(180)+24:G=RND(2)
805 IF TA<1 THEN 1500
810 IFG=1THENG=2:GOTO830
820 G=5
830 DEFMOVE(5)=SPRITE(G,5,4,60,0):POSITION5,X,30:MOVE5:L=1:RETURN
1000 ERA1:P8=0:L=0:TE=TE+5:DEFMOVE(5)=SPRITE(10,1,1,8):MOVE5:PLAY"O4G0CGCGC"
1010 LOCATE8,0:PRINTTE;"0"
1020 IFTA=0THEN1500
1030 POSITION1,100,168:RETURN
1100 ERA2:P4=0:L=0:TE=TE+5:DEFMOVE(5)=SPRITE(10,1,1,8):MOVE5:PLAY"O4G0CGCGC"
1110 LOCATE8,0:PRINTTE;"0"
1120 IFTA=0THEN1500
1130 POSITION1,100,168:RETURN
1500 SPRITEOFF:CLS:LOCATE5,10:PRINT"アナタノ テンスウ ハ"
1510 LOCATE5,12:PRINTTE;"0 テン デス"
10 CGEN3:CGSET,0:SPRITEON:VIEW:PLAY"T2M1V10O3"
15 Y1=90:Y2=90:TP=1:PT=1:BX=120:BY=100:ID=0
20 DEFSPRITE0,(0,0,1,1,0)=CHR$(207)
30 FORI=1TO4:DEFSPRITEI,(0,0,1,1,0)=CHR$(226):NEXT
50 SPRITE1,20,Y1:SPRITE3,20,Y1+8:SPRITE2,228,Y2:SPRITE4,228,Y2+8
60 LOCATE1,21:PRINT"1PLAYER ";P1:LOCATE15,21:PRINT"2PLAYER ";P2
100 S1=STICK(0):S2=STICK(1)
110 ONS1 GOSUB299,299,299,200,299,299,299,220
120 ONS2 GOSUB299,299,299,250,299,299,299,270
130 ON TP GOSUB300,350
140 ON PT GOSUB400,450
150 GOSUB480
199 GOTO 100
200 IFY1>168RETURN
210 Y1=Y1+4:SPRITE1,20,Y1:SPRITE3,20,Y1+8:RETURN
220 IFY1<32RETURN
230 Y1=Y1-4:SPRITE1,20,Y1:SPRITE3,20,Y1+8:RETURN
250 IFY2>168RETURN
260 Y2=Y2+4:SPRITE2,228,Y2:SPRITE4,228,Y2+8:RETURN
270 IFY2<32RETURN
280 Y2=Y2-4:SPRITE2,228,Y2:SPRITE4,228,Y2+8:RETURN
299 RETURN
300 IF BX<5THENTP=2:P2=P2+1::RETURN1000
310 BX=BX-6:RETURN
350 IF BX>240THENTP=1:P1=P1+1:RETURN1000
360 BX=BX+6:RETURN
400 IF BY<32THENPT=2:PLAY"A0":RETURN
410 BY=BY-ID:RETURN
450 IF BY>174THENPT=1:PLAY"A0":RETURN
460 BY=BY+ID:RETURN
480 SPRITE0,BX,BY
500 IF TP=1ANDBX<26ANDBX>20ANDBY>Y1-8ANDBY+8<Y1+22THENTP=2:ID=RND(6):PLAY"C0E":RETURN
510 IF TP=2ANDBX>220ANDBX<234ANDBY>Y2-8ANDBY+8<Y2+22THENTP=1:ID=RND(6):PLAY"B0G":RETURN
520 RETURN
1000 LOCATE1,21:PRINT"1PLAYER ";P1:LOCATE15,21:PRINT"2PLAYER ";P2
1010 PT=1:BX=120:BY=100:ID=0:PLAY"T1O2CDET2O3EGAC":PAUSE80
1020 IF P1=21 OR P2=21THEN1500
1030 GOTO 100
1500 CLS:SPRITE OFF
1510 IF P1>P2 THENKA=1:GOTO1530
1520 KA=2
1530 LOCATE 7,5:PRINTP1;" タイ ";P2;" デ "
1540 LOCATE 5,8:PRINT"PLAYER";KA;" ノ カチ"
1550 LOCATE 8,12:PRINT"モウイチド シマスカ "
1560 LOCATE 6,14:PRINT"ヤメル トキ ハ N キ-"
1570 A$=INKEY$:IF A$=""THEN1570
1580 IF A$="N"THENEND
1590 RUN
10 CGEN3:CGSET,0:SPRITEON:VIEW
15 PLAY"M1V10Y2T3O4":P1=100:P2=100:Y1=25:TP=1:PT=1
20 DEFSPRITE0,(0,0,0,1,0)=CHR$(207)
25 FORI=1TO6:DEFSPRITEI,(0,0,0,1,0)=CHR$(226):NEXT
30 PALETS 0,&HF,&H30,&H26,&H12
35 RESTORE2000:Y1=100:ID=3
40 SPRITE 1,16,P1:SPRITE 2,16,P1+8:SPRITE3,16,P1+16:SPRITE4,232,P2:SPRITE5,232,P2+8:SPRITE6,232,P2+16
100 S1=STICK(0):S2=STICK(1):F1=STRIG(0):F2=STRIG(1)
105 GOSUB400
110 ONTP GOSUB300,310
120 ONPT GOSUB330,340
125 GOSUB350
130 ONS1 GOSUB299,299,299,200,299,299,299,220
140 ONS2 GOSUB299,299,299,250,299,299,299,270
150 SPRITE1,16,P1:SPRITE2,16,P1+8:SPRITE3,16,P1+16:SPRITE4,232,P2:SPRITE5,232,P2+8:SPRITE6,232,P2+16
199 GOTO100
200 IFP1>160RETURN
210 P1=P1+8:RETURN
220 IFP1<32RETURN
230 P1=P1-8:RETURN
250 IFP2>160RETURN
260 P2=P2+8:RETURN
270 IFP2<32RETURN
280 P2=P2-8:RETURN
299 RETURN
300 B1=B1+1:RETURN
310 B1=B1-1:RETURN
330 Y1=Y1+ID:RETURN
340 Y1=Y1-ID:RETURN
350 B0=B1:GOSUB600
360 IFB1=15THENTP=2:PLAY"G0":GOTO380
370 IFB1=1THENTP=1
380 SPRITE0,Y1,A:RETURN
400 IF Y1<25 AND Y1>15 AND P1-6<A+6 AND P1+28>A+2 THEN PT=1:ID=3:PLAY"C0":GOSUB495:RETURN
410 IF Y1>220 AND Y1<230 AND P2-6<A+6 AND P2+28>A+2 THEN PT=2:ID=3:PLAY"B0":GOSUB495:RETURN
420 IF Y1<10 AND PT=2 THEN T2=T2+1:PT=1:GOSUB 480:GOTO440
430 IF Y1>240 AND PT=1 THENT1=T1+1:PT=2:GOSUB 480:GOTO440
440 IF T1=21 OR T2=21 RETURN1500
450 RETURN
480 LOCATE0,22:PRINT"PLAYER1 ";T1:LOCATE14,22:PRINT"PLAYER2 ";T2
490 PLAY"O4G0FEABEGFAFECGEFC":Y1=100:ID=3:RETURN
495 IF PT=1 AND F1=8 THEN ID=ID+5:RETURN
496 IF PT=2 AND F2=8 THEN ID=ID+5:RETURN
499 RETURN
600 ONB0 RESTORE2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014
610 READA:RETURN
1500 IF T1>T2 THEN A$="PLAYER 1":TE=T1:T=T2:GOTO1520
1510 A$="PLAYER 2":TE=T2:T=T1
1520 PAUSE50:CLS:SPRITEOFF
1530 LOCATE5,5:PRINT"WINNER";A$
1540 LOCATE8,8:PRINTTE;" タイ ";T
1550 LOCATE5,10:PRINT"モウ イチド シマスカ Y/N"
1560 A$=INKEY$:IFA$=""THEN1560
1570 IFA$="N"THENEND
1580 RUN
2000 DATA50
2001 DATA51
2002 DATA53
2003 DATA56
2004 DATA60
2005 DATA65
2006 DATA71
2007 DATA78
2008 DATA86
2009 DATA95
2010 DATA105
2011 DATA116
2012 DATA130
2013 DATA152
2014 DATA176
Quote from: 80sFREAK on August 13, 2012, 11:03:46 pm
Hmmm, is this file same as you uploaded yesterday? I don't remeber any background tiles, but file was loaded without error :(
Quote from: 80sFREAK on August 14, 2012, 05:20:47 am
Ah, ok. Yesterday i tried another old trick to run machine code from Family Basic. If someone interested, i can make short "how to"
Quote from: UglyJoe on August 27, 2012, 07:56:35 pmGame 6 is up!looks like killing enemies with yoyo :)