Nibble Magazine/nib33b.dsk/METEOROIDS.bas

BASIC Source File | 2023-02-26 | 568b | 2 lines

10  FOR Y = 768 TO 826: READ K: POKE Y,K: NEXT : POKE 232,34: POKE 233,3: ROT= 0: SCALE= 1: HGR : HCOLOR= 3: HOME : VTAB 21:Y = 120:S = Y:L = 159: DATA 169,32,133,39,162,0,134,38,160,0,200,177,38,136,145,38,200,192,39,208,245,169,0,145,38,32,4,245,232,224,160,208,231,96,2,0
20 K =  PEEK(49152):Y = Y +(K = 218) -(K = 193):Q =  PEEK(49200): DRAW 2 AT 278, RND(1) *S:S = S -.25:N = S + RND(1) *40: HPLOT 272,L TO 279,N:L = N: CALL 768: DRAW 1 AT 3,Y: ON   NOT  PEEK(234) GOTO 20: PRINT (120 -S) *100: DATA 6,0,15,0,28,63,14,190,45,45,44,37,0,63,56,36,12,45,21,23,21,4,0