Nibble Magazine/nib38b.dsk/TL.BOMBER.bas

BASIC Source File | 2023-02-26 | 731b | 4 lines

1  REM  TL.BOMBER BY GERALD BREAUX
2  REM  COPYRIGHT(C) 1989 BY MINDCRAFT PUBL. CORP.
10 B = 9: FOR I = 1 TO 50: PRINT :S$ = S$ +"@":H$ = H$ +" ": NEXT :H$ = H$ +" BOOM!" +H$:B$ = S$ +"PQQPP" +S$:P$ = S$ +"0003" +S$: GR : FOR T = 1 TO 999:B = B -1 +60 *(B = 1):P = P *(P <55) +1: VTAB 1: PRINT  MID$ (P$,P,40): VTAB 20: PRINT  MID$ (B$,B,40);:K =  PEEK(49152) >127:Q =  PEEK(49168):F = F +(F = 0) *(P >15) *(P <51) *K
180  COLOR= 0: PLOT (52 -X) *F,Y +1:F = F *(Y <37):X = P *(F = 0) +X *(F = 1):Y = Y *F +2 *F:W = ( SCRN( (52 -X) *F,Y +1) = 1):S = S +W *(1 + SCRN( F *(52 -X),Y)): PRINT  MID$ (H$,1 +B *W,40): NORMAL : PRINT "TIME ";999 -T;" ","SCORE ";S: INVERSE :B = B *  NOT (W) +66 *W: COLOR= 3 *F: PLOT (52 -X) *F,Y +1: NEXT