home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib38b.dsk
/
TL.BOMBER.LONG.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
1KB
|
34 lines
1 REM ******************************
2 REM * TL.BOMBER.LONG *
3 REM * BY GERALD BREAUX *
4 REM * COPYRIGHT(C) 1989 *
5 REM * MINDCRAFT PUBL. CORP. *
6 REM * CONCORD, MA. 01742 *
7 REM ******************************
10 B = 9
20 FOR I = 1 TO 50
30 PRINT
40 S$ = S$ +"@"
50 H$ = H$ +" "
60 NEXT
70 H$ = H$ +" BOOM!" +H$
80 B$ = S$ +"PQQPP" +S$:P$ = S$ +"0003" +S$
90 GR
100 FOR T = 1 TO 999
110 B = B -1 +60 *(B = 1)
120 P = P *(P <55) +1
130 VTAB 1: PRINT MID$ (P$,P,40)
140 VTAB 20: PRINT MID$ (B$,B,40);
150 K = PEEK(49152) >127:Q = PEEK(49168)
160 F = F +(F = 0) *(P >15) *(P <51) *K
180 COLOR= 0: PLOT (52 -X) *F,Y +1
190 F = F *(Y <37)
200 X = P *(F = 0) +X *(F = 1)
210 Y = Y *F +2 *F
220 W = ( SCRN( (52 -X) *F,Y +1) = 1):S = S +W *(1 + SCRN( F *(52 -X),Y))
230 PRINT MID$ (H$,1 +B *W,40)
240 NORMAL : PRINT "TIME ";999 -T;" ","SCORE ";S
250 INVERSE
260 B = B * NOT (W) +66 *W
270 COLOR= 3 *F: PLOT (52 -X) *F,Y +1
280 NEXT