home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib30b.dsk / SA.LOADER.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  26 lines
  1. 10  REM **********************
  2. 20  REM * SA.LOADER          *
  3. 30  REM * BY JEFF G. COX     *
  4. 40  REM * COPYRIGHT (C) 1987 *
  5. 50  REM * BY MICROSPARC, INC.*
  6. 60  REM * CONCORD, MA  01742 *
  7. 70  REM **********************
  8. 80  DIM V(10)
  9. 90  ONERR  GOTO 260
  10. 100 D$ =  CHR$(4): PRINT D$"VERIFYSAFAST": PRINT D$"VERIFYSURPRISE.ATTACK": POKE 216,0
  11. 110  TEXT : HOME : PRINT "SURPRISE ATTACK!": PRINT "BY JEFF G. COX": PRINT "COPYRIGHT 1987 BY MICROSPARC, INC."
  12. 120  VTAB 6: PRINT "ENTER 'A' FOR ARCADE MODE": PRINT "OR 'C' FOR CONTINUOUS MODE: ";: POKE  -16368,0: GET CH$: POKE  -16368,0: PRINT CH$:V(0) = 1: IF CH$ = "A"  OR CH$ =  CHR$(99)  THEN V(0) = 0
  13. 130  IF CH$ < >"A"  AND CH$ < >"C"  AND CH$ < > CHR$(97)  AND CH$ < > CHR$(99)  THEN 120
  14. 140  VTAB 9: PRINT "ENTER 'K' TO SELECT BASE WITH KEYBOARD": PRINT "OR A 'C' FOR COMPUTER CONTROL: ";: POKE  -16368,0: GET CH$: PRINT CH$: POKE  -16368,0:V(1) = 1: IF CH$ = "C"  OR CH$ =  CHR$(99)  THEN V(1) = 0
  15. 150  IF CH$ < >"C"  AND CH$ < >"K"  AND CH$ < > CHR$(99)  AND CH$ < > CHR$(107)  THEN 140
  16. 160  VTAB 12: PRINT "ENTER STARTING LEVEL (1-9): ";: POKE  -16368,0: GET CH$: POKE  -16368,0: PRINT CH$:V(2) =  VAL(CH$): IF V(2) <1  OR V(2) >9  THEN 160
  17. 170  VTAB 15: PRINT "ENTER PUSHBUTTON NUMBER (0-1): ";: POKE  -16368,0: GET CH$: POKE  -16368,0: PRINT CH$:V(3) =  VAL(CH$): IF V(3) <0  OR V(3) >1  THEN 170
  18. 180  VTAB 18: PRINT "PAUSE AFTER SCORE? (Y/N): ";: POKE  -16368,0: GET CH$: POKE  -16368,0: PRINT CH$:V(4) = 0: IF CH$ = "Y"  OR CH$ =  CHR$(121)  THEN V(4) = 1: REM PAUSE SELECT 0=NO PAUSE AFTER SCORE, 1=PAUSE
  19. 190  IF CH$ < >"N"  AND CH$ < >"Y"  AND CH$ < > CHR$(110)  AND CH$ < > CHR$(121)  THEN 180
  20. 200  VTAB 21: PRINT "ENTER 'K' TO AIM WITH KEYBOARD OR": PRINT "'J' FOR PADDLE/JOYSTICK: ";: POKE  -16368,0: GET CH$:V(5) = 0: PRINT CH$: IF CH$ = "K"  OR CH$ =  CHR$(107)  THEN V(5) = 1
  21. 210  IF CH$ < >"J"  AND CH$ < >"K"  AND CH$ < > CHR$(106)  AND CH$ < > CHR$(107)  THEN 200
  22. 220 V(6) = 0: REM LATERAL POLARITY 0=NORMAL, 1=REVERSED
  23. 230 V(7) = 0: REM VERTICAL POLARITY 0=NORMAL, 1=REVERSED
  24. 240  FOR X = 0 TO 7: POKE 768 +X,V(X): NEXT 
  25. 250  PRINT  CHR$(4)"RUN SURPRISE.ATTACK"
  26. 260  TEXT : HOME : PRINT  CHR$(7): VTAB 7: PRINT "THE TWO FILES 'SURPRISE.ATTACK' AND ": PRINT "'SAFAST' MUST BOTH BE ON THE DISK FOR": PRINT "THIS PROGRAM TO RUN.": VTAB 22: END