5 'C000-スクロール処理　C100 C200-c4c0☆　C500-C7C0デブリ　C800-CAC0裏画面1 CB00-CDC0裏画面２ 10 KEYOFF:screen 1,,1:clear 200,&hc000:DEFINT A-Z:color 15,1,1':sound 11,100:sound12,20 20 bload"program.bin":DEFUSR=&HC000:DEFUSR1=&hC100:DEFUSR2=&hC120 22 s=0:gosub 500:gosub 600 23 a=rnd(-time):z=usr1(0):gosub 300:gosub 310 25 x=120:y=160:EG=0:SC=0:m=0:vx=0:SH=3:TM=0:sound 7,&b00111000:play"t150l16v13o4egab-agedo3bb-bo4gf+4","t150l16v9o4ggbbo4eeo3f+f+aao4ddc+4","t150l16v13o2ccggo3cco2ddaao3ddo2e4":gosub 250:color 15,1,1:CLS 30 'z=usr2(0) 32 vpoke&h1B00,y:vpoke&h1B01,x:vpoke&h1B02,0:vpoke&h1B03,14:vpoke&h1b07,6:vpoke&h1b0b,06:vpoke&h1ae0,83:vpoke&h1ae1,67:vpoke&h1ae2,58:vpoke&h1ae6,83:vpoke&h1ae7,72:vpoke&h1ae8,58:vpoke&h2014,&h51:gosub 160:gosub 180 35 z=usr(0):FOR I=0 TO 2:PLAY"V11O4B-16":FOR J=0 TO 1000:NEXT:NEXT:PLAY"O5B-2 40 z=USR(0) 45 if eg=0 then poke&hc500+rnd(1)*32,64:eg=1 60 st=STICK(0)orStick(1) 66 if st=0 then sound 10,0:goto 85 72 vx=vx+(st=7)*-(vx>-8)-(st=3)*-(vx!<8):sound 7,&b00011100:sound10,10*-((st=3)or(st=7)) 80 if st=5 and sh>0 and tm=0 then sh=sh-1:tm=10:play"s8m1o1f2.":gosub 180 85 vx=vx*-(x>7+(-vx))*-(x<247-vx)*-(STRIG(0)=0)*-(STRIG(1)=0) 86 x=x+vx 87 vpoke&h1B00,y:vpoke&h1B01,x:vpoke&h1b04,(y*-(st=7))+(212*-(st<>7)):vpoke&h1b05,(x+5)*-(st=7):vpoke&h1b08,(y*-(st=3))+(212*-(st<>3)):vpoke&h1b09,(x-7)*-(st=3) 90 v=vpeek(&h1800+((x+4)\8)+640) 100 if v=42 then 280 105 if v=64 then poke &hC500+((x+4)\8)+640,32:eg=0:sc=sc+1:play"l64v13o6efo7efv6o6efo7efv1o6efo7ef":gosub 160:poke&hC501+rnd(1)*30,42 112 if tm>0 then tm=tm-1:gosub 190 120 goto 40 160 vpoke&h1AE3,(sc/10)+48:vpoke&h1AE4,(scmod10)+48:RETURN 180 vpoke&h1AE9,sh+48:return 190 if tm>0 then vpoke&h1b03,6 else vpoke&h1b03,14 195 RETURN 200 play"l64v13o3ba-fdo2ba-v6o3ba-fdo2ba-v1o3ba-fdo2ba-","l64v13o2ba-fdo1ba-v6o2ba-fdo1ba-v1o2ba-fdo1ba-":color 15,6,6:locate0,0:?"きみはしんだ"+chr$(10)+"GAME OVER SCORE=";SC:for i=0 to 3500:next:?:if hs>>":?:?:?">>> STORY"+chr$(10)+chr$(13)+"きみはうちゅうのジャンクやJANKERのむすこだ"+chr$(10)+chr$(13)+"スペースデブリ[*]にあたらないように"+chr$(10)+chr$(13)+"おたから [@] をゲットしよう!" 260 ?:?" > PUSH SPACE KEY <":?:?" < > --- イドウ":?" V --- シールド":?" SPACE--- ブレーキ":LOCATE 7,20:?"Ver 2023/5/8B"+chr$(10)+chr$(13)+" By Hando's GameChannel"+chr$(10)+chr$(13)+" SOUND:Yakimeshi Taroh" 270 if STRIG(0) or STRIG(1)=-1 then return else 270 280 if tm=0 then goto 200 else poke &hC500+((x+4)\8)+640,32:goto 105 300 for i=0 to 19:poke&hC200+rnd(1)*32+(rnd(1)*22*32),165:next:RETURN 310 FOR I=0 TO 10:poke&hC500+RND(1)*32+(RND(1)*22*32),42:NEXT:RETURN 500 READ d$ 505 if d$="0" then goto 530 510 sp$=sp$+chr$(val("&H"+d$)) 520 goto 500 530 SPRITE$(s)=sp$ 532 if s=2 then 535 else s=s+1:sp$="":goto 500 535 RETURN 540 data 48,84,FC,48,FC,78,FC,30,0 555 DATA 00,00,40,20,00,40,60,10,0 570 data 00,00,02,04,00,02,06,08,0 600 restore 650 610 for i=0 to 7:read d$:vpoke &h0+ASC("*")*8+i,val("&h"+d$):next 620 for i=0 to 7:read d$:vpoke &h0+ASC("@")*8+i,val("&h"+d$):next 630 RETURN 650 data 08,14,22,44,88,50,20,00 660 data 38,54,fe,54,28,38,10,00

5 'C000-スクロール処理 C100 C200-c4c0☆ C500-C7C0デブリ C800-CAC0裏画面1 CB00-CDC0裏画面２

5 'C000-スクロール処理　C100 C200-c4c0☆　C500-C7C0デブリ　C800-CAC0裏画面1 CB00-CDC0裏画面２