home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib38b.dsk / TL.BOMBER.LONG.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  34 lines

  1. 1  REM  ******************************
  2. 2  REM  * TL.BOMBER.LONG             *
  3. 3  REM  * BY GERALD BREAUX           *
  4. 4  REM  * COPYRIGHT(C) 1989          *
  5. 5  REM  * MINDCRAFT PUBL. CORP.      *
  6. 6  REM  * CONCORD, MA. 01742         *
  7. 7  REM  ******************************
  8. 10 B = 9
  9. 20  FOR I = 1 TO 50
  10. 30  PRINT 
  11. 40 S$ = S$ +"@"
  12. 50 H$ = H$ +" "
  13. 60  NEXT 
  14. 70 H$ = H$ +" BOOM!" +H$
  15. 80 B$ = S$ +"PQQPP" +S$:P$ = S$ +"0003" +S$
  16. 90  GR 
  17. 100  FOR T = 1 TO 999
  18. 110 B = B -1 +60 *(B = 1)
  19. 120 P = P *(P <55) +1
  20. 130  VTAB 1: PRINT  MID$ (P$,P,40)
  21. 140  VTAB 20: PRINT  MID$ (B$,B,40);
  22. 150 K =  PEEK(49152) >127:Q =  PEEK(49168)
  23. 160 F = F +(F = 0) *(P >15) *(P <51) *K
  24. 180  COLOR= 0: PLOT (52 -X) *F,Y +1
  25. 190 F = F *(Y <37)
  26. 200 X = P *(F = 0) +X *(F = 1)
  27. 210 Y = Y *F +2 *F
  28. 220 W = ( SCRN( (52 -X) *F,Y +1) = 1):S = S +W *(1 + SCRN( F *(52 -X),Y))
  29. 230  PRINT  MID$ (H$,1 +B *W,40)
  30. 240  NORMAL : PRINT "TIME ";999 -T;" ","SCORE ";S
  31. 250  INVERSE 
  32. 260 B = B *  NOT (W) +66 *W
  33. 270  COLOR= 3 *F: PLOT (52 -X) *F,Y +1
  34. 280  NEXT