10 'Asteroidbelt 20 POKE#798,248,16,188,242,255,190,19,248 30 POKE#7A0,73,90,45,250,45,122,74,145 40 POKE#7A8,0,115,204,235,236,219,116,3 50 POKE#7B0,0,218,0,118,0,218,0,182 60 @ST:CLS:S=0:X=5:Y=12:C=#F3:D=-1:E=#F5:F=#F4:Z=20 70 @DO:FORI=0TORND(S/50):LC30,RND(21)+1:?CHR$(E);CHR$(E+1):NEXT 80 K=INKEY():CLK:V=X:W=Y:IF(K>27)*(K<32)D=K-28 90 X=X-(D=0)+(D=1):Y=Y-(D=2)+(D=3):IF(X<5)OR(X>25)OR(Y<1)OR(Y>21)THENX=V:Y=W 100 LCV,W:?CHR$(0):SCROLL(3):S=S+1:LC0,0:?"SCORE:";S:LCX,Y:IFSCR(X,Y)=0?CHR$(C):WAITZ:GOTO@DO:ELSELCX,Y:?CHR$(F) 110 @EL:K=INKEY():IFK!=32SCROLL(3):LC0,0:?"SCORE:";S:FORI=0TORND(S/50):LC30,RND(21)+1:?CHR$(E);CHR$(E+1):NEXT:WAITZ:GOTO@EL:ELSEGOTO@ST
自機に慣性が付いているのが面白いです! スクロール自体は遅く感じるのに、操作の難しさ、小惑星の多さで、いいバランスになってます。先をどんどん読んでいかないと、逃げ場がなくなるという緊張感!