home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / SPACEVIK.DSK / EX.bas < prev    next >
BASIC Source File  |  2014-09-09  |  813b  |  16 lines
  1. 0  ONERR  GOTO 63999
  2. 2  POKE  -16299,0
  3. 4  PRINT "<CTRL-D>BLOAD SOUND GEN,A$9276"
  4. 5  HCOLOR= 3:Y1 = 20:EN = 30841:EX = 37494
  5. 6  SCALE= 2: XDRAW 2 AT 140,65: XDRAW 15 AT 140,65: XDRAW 16 AT 140,65: XDRAW 17 AT 140,65: XDRAW 18 AT 140,65: POKE  -16300,0: POKE  -16298,0: FOR J = 1 TO 50: CALL EX: NEXT : POKE  -16297,0: SCALE= 1
  6. 7  FOR J = 1 TO 25: CALL EX: NEXT : FOR X1 = 5 TO 130  STEP 8:Y1 = Y1 +4.8: FOR J = 1 TO 15
  7. 20 X2 = X1 -( RND(1) *(X1 +X1)):Y2 = Y1 -( RND(1) *(Y1 +Y1))
  8. 21  IF Y2 >65  THEN Y2 = 65
  9. 22  IF Y2 < -60  THEN Y2 =  -60
  10. 25  HPLOT 140,60 TO 140 +X2,60 +Y2: NEXT 
  11. 30  NEXT : POKE 38205,0: POKE EN,127
  12. 40  PRINT "<CTRL-D>BLOADDEBRIS,A30841"
  13. 56 F =  PEEK(38207)/2: POKE 38207,F
  14. 57  PRINT "<CTRL-D>BLOAD SOUND GEN,A$9276"
  15. 60  PRINT "<CTRL-D>RUN STARSHIP SIMULATOR"
  16. 63999  PRINT : PRINT "<CTRL-D>INT"