100 screen1,0:keyoff:defint a-z:sound 8,0 110 gosub1000:gosub 1090 115 cls:gosub2000 120 X=128:Y=100:CL=1:Z=0:VX=1:cs=0:PL=3:EL=3 130 put sprite0,(X,Y),15,0 140 X=X+VX:VX=VX*((X<0 OR X>247)*2+1) 150 VPOKE BASE(6)+16,CL*16+4 160 Z=Z+1:CL=Z\100+1:IF Z=1499 THEN Z=0 170 if STRIG(0)+STRIG(1)<>-1 then 130 175 x!=64:y!=40:xx!=0:yy!=0:x1!=192:y1!=160:xa!=0:ya!=0:a=rnd(-time):on sprite gosub 960:sprite on:vpoke base(6)+16,&hF4 180 cls:?:?:for i=2 to 21:PRINT" __________________________":NEXT:for i=0 to 9:LOCATE 2+rnd(1)*20,2+rnd(1)*20:?CHR$(96):NEXT 190 locate 1,0:?"PLAYER:":for i=0 to PL-1:locate i+8,0:? chr$(128):next:locate 16,0:?"ENEMY:":for i=0 to EL-1:locate i+22,0:? chr$(128):next:GOSUB 600 200 st=STICK(0)+STICK(1) 210 if st=7 and xx!>-8 then xx!=xx!-0.05 220 if st=3 and xx!<8 then xx!=xx!+0.05 230 if st=1 and yy!>-8 then yy!=yy!-0.05 240 if st=5 and yy!<8 then yy!=yy!+0.05 290 x!=x!+xx!:y!=y!+yy! 300 put SPRITE 0,(x!,y!),15,0 305 gosub850 310 if x!>x1! and xa!<1 then xa!=xa!+0.02 320 if x!-1then xa!=xa!-0.02 330 if y!>y1! and ya!<1then ya!=ya!+0.02 340 if y!-1then ya!=ya!-0.02 350 x1!=x1!+xa!:y1!=y1!+ya! 360 put sprite 1,(x1!,y1!),10,0 370 gosub 900 380 if cs>0 then cs=cs-1 500 goto 200 600 if PL=0 then LOCATE 9,10:?" GAME OVER ":goto 610 605 if EL=0 then LOCATE 9,10:?" YOU WIN! !":goto 610 607 RETURN 610 if STRIG(0)+STRIG(1)<>-1 then 610 else 115 850 cr=vpeek(base(5)+int((x!+4)\8)+int((y!+4)\8)*32) 868 if cr=32 then GOTO 2500 887 if cr=96 and cs=0 then xx!=xx!*-1:yy!=yy!*-1:cs=20:gosub 3110 890 RETURN 900 cr=vpeek(base(5)+int((x1!+4)\8)+int((y1!+4)\8)*32) 905 if cr=32 then GOTO 2510 910 if cr=96 and cs=0 then xa!=xa!*-1:ya!=ya!*-1:cs=20:gosub 3110 954 RETURN 960 if cs>0 then RETURN 969 t!=(xa!*1.2):xa!=(xx!*1.2):xx!=t!:t!=(ya!*1.2):ya!=(yy!*1.2):yy!=t!:cs=20:gosub 3310 979 if xa!>4 then xa!=4 980 if xa!<-4 then xa!=-4 981 if ya!>4 then ya!=4 982 if ya!<-4 then ya!=-4 983 if xx!>4 then xx!=4 991 if xx!<-4 then xx!=-4 995 if yy!>4 then yy!=4 997 if yy!<-4 then yy!=-4 998 RETURN 999 end 1000 for j=0 to 2:d$="":for i=0 to 7:read a$:d$=d$+chr$(val("&b"+a$)):vpoke (128+j)*8+i,VAL("&B"+a$):next:sprite$(j)=d$:next:return 1001 data 00111100 1002 data 01011110 1003 data 10111111 1004 data 11111111 1005 data 11111111 1006 data 11111111 1007 data 01111110 1008 data 00111100 1011 data 00000000' 1012 data 00111100 1013 data 00111110 1014 data 01111110 1015 data 01111110 1016 data 01111110 1017 data 00111100 1018 data 00000000 1021 data 00000000' 1022 data 00000000 1023 data 00011000 1024 data 00111100 1025 data 00111100 1026 data 00011000 1027 data 00000000 1028 data 00000000 1090 for i=0 to 15:read a$:vpoke 95*8+i,val("&b"+a$):next:RETURN 1100 data 11111110 1110 data 10000000 1120 data 10000000 1130 data 10000000 1140 data 10000000 1150 data 10000000 1160 data 10000000 1170 data 00000000 1180 data 01111111' 1190 data 10111110 1200 data 11011100 1210 data 11101000 1220 data 11110000 1230 data 11101100 1240 data 11010110 1250 data 10101011 2000 restore 2010:locate 5,2:?"THE":locate0,20:?"2024 Hando'sGameChannel/かずとも":for i=0 to 47:READ D:vpoke base(5)+D,128:NEXT:RETURN 2010 DATA 43,44,45,52,54 2020 DATA 75,78,84,86 2030 DATA 107,110,112,113,116,118 2040 DATA 139,140,141,146,148,150 2050 DATA 171,174,176,177,178,180,182 2060 DATA 203,206,207,210,212,214 2070 DATA 235,238,239,241,242,244,246 2080 DATA 267,268,269,272,274,276,278 2500 gosub 3200:put SPRITE 0,(x!,y!),15,1:for i=0 to 5000:next:put SPRITE 0,(x!,y!),15,2:PL=PL-1:goto 175 2510 gosub 3200:put SPRITE 1,(x1!,y1!),10,1:for i=0 to 5000:next:put SPRITE 1,(x1!,y1!),10,2:EL=EL-1:goto 175 3000 'sound 3100 'GAN 3110 SOUND 8,16 3120 SOUND 11,10:SOUND 12,10 3130 SOUND 13,9 3140 SOUND 6,22 3150 SOUND 7,&B10110110 3160 SOUND 0,177:SOUND 1,210:RETURN 3200 A=50 3210 SOUND 9,15 3220 SOUND 7,&B10111101 3230 FOR I=0 TO 200 3240 SOUND 2,A:SOUND 3,0 3250 A=A+1:NEXT 3260 SOUND 7,&B10111111:RETURN 3310 SOUND 8,16 3320 SOUND 11,0:SOUND 12,10 3330 SOUND 13,9 3340 SOUND 7,&B10111110 3350 SOUND 0,35:SOUND 1,0:RETURN