10 PAUSE300:CGSET1,0:CGEN2:SPRITEON:VIEW:EX=32:EY=48
20 FORSP=0TO1:DEFSPRITESP,(SP,1,0,0,0)="チツテト":DEFSPRITESP+2,(3,1,0,0,0)="チツテト":NEXT:GOSUB1000
30 CGSET1,0:C1=0:C2=0:X1=96:Y1=127:X2=143:Y2=Y1:XA=0:YA=0:XB=0:YB=0:PALETS 3,13,13,13,13:SPRITE0,X1,Y1:SPRITE1,X2,Y2:SPRITE2:SPRITE3:PAUSE100:POKE&H4015,15
40 A=STICK(0):B=STICK(1)
41 IFXA<>0ORYA<>0POKE&H400C,1,&H8F,X1,Y1
42 IFXB<>0ORYB<>0POKE&H4000,2,&H8F,X2,Y2
45 IFC1=1THEN65
50 XA=XA+((A=2)-(A=1))*2:XA=XA+((XA>6)-(XA<-6))*2:XA=XA+((XA>0)-(XA<0))*1
60 YA=YA+((A=8)-(A=4))*2:YA=YA+((YA>6)-(YA<-6))*2:YA=YA+((YA>0)-(YA<0))*1
65 IFC2=1THEN90
70 XB=XB+((B=2)-(B=1))*2:XB=XB+((XB>6)-(XB<-6))*2:XB=XB+((XB>0)-(XB<0))*1
80 YB=YB+((B=8)-(B=4))*2:YB=YB+((YB>6)-(YB<-6))*2:YB=YB+((YB>0)-(YB<0))*1
90 X1=X1+XA:Y1=Y1+YA:X2=X2+XB:Y2=Y2+YB:SPRITE0,X1,Y1:SPRITE 1,X2,Y2
100 IFC1=0IFC2=0IFABS(X1-X2)<16IFABS(Y1-Y2)<16XA=ABS(X1-X2)*SGN(X1-X2)/3:XB=ABS(X1-X2)*SGN(X2-X1)/3:YA=ABS(Y1-Y2)*SGN(Y1-Y2)/3:YB=ABS(Y1-Y2)*SGN(Y2-Y1)/3
150 X1=X1+XA:Y1=Y1+YA:X2=X2+XB:Y2=Y2+YB:SPRITE0,X1,Y1:SPRITE1,X2,Y2
160 IFX1<18ORX1>220THEN2000
165 IFC1=0IFSCR$(X1/8-1,Y1/8-2)=" "THEN2000
170 IFX2<18ORX2>220THEN3000
180 IFC2=0IFSCR$(X2/8-1,Y2/8-2)=" "THEN3000
190 IFYA=0IFC1=0IFSTRIG(0)=8TA=-3:TB=3:G1=Y1:C1=1
200 IFC1=1Y1=Y1+TA:G1=G1+TB:TB=TB-1:TA=TA+1:SPRITE2,X1,G1:IFTA=4C1=0:SPRITE2
210 IFYB=0IFC2=0IFSTRIG(1)=8UA=-3:UB=3:G2=Y2:C2=1
220 IFC2=1Y2=Y2+UA:G2=G2+UB:UB=UB-1:UA=UA+1:SPRITE3,X2,G2:IFUA=4C2=0:SPRITE3
500 GOTO40
1000 IFSTRIG(0)=1THENRETURN
1010 S=STICK(0):EX=EX+((S=2)-(S=1))*16:EY=EY+((S=8)-(S=4))*16:SPRITE0,EX,EY:PAUSE9:IFSTRIG(0)<>8THEN1000
1015 IFEX=96IFEY=128THEN1000
1016 IFEX=144IFEY=128THEN1000
1020 LOCATEEX/8-2,EY/8-3:PRINT"  ":LOCATEEX/8-2,EY/8-2:PRINT"  ":GOTO1000
2000 BEEP:SPRITE0:PAUSE99:N=N+1:LOCATE18,0:PRINTN:IFN=5THEN4000
2010 GOTO30
3000 BEEP:SPRITE1:PAUSE99:M=M+1:LOCATE6,0:PRINTM:IFM=5THEN5000
3010 GOTO30
4000 PRINT"グリ-ンファイタノカチ!":RUN
5000 PRINT"レッドガイタノカチ!":RUN

