home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / 59A.DSK / HELLO.bas < prev    next >
BASIC Source File  |  2014-09-09  |  1KB  |  36 lines
  1. 20  TEXT : HOME 
  2. 30  GOSUB 430
  3. 40  PRINT : PRINT "SELECT:"
  4. 50  PRINT : PRINT : PRINT "   <1> - PEGASUS ]["
  5. 60  PRINT : PRINT "   <2> - PENGO"
  6. 70  PRINT : PRINT "   <3> - BC'S QUEST FOR TIRES"
  7. 80  VTAB 2: HTAB 8: GET A$: PRINT 
  8. 90  IF A$ = "1"  THEN 140
  9. 100  IF A$ = "3"  THEN  PRINT "<CTRL-D>BRUNBC'S QUEST FOR TIRES"
  10. 110  IF A$ = "2"  THEN  PRINT "<CTRL-D>BRUNPENGO"
  11. 130  PRINT  CHR$(7): GOTO 80
  12. 140  ONERR  GOTO 190
  13. 150  TEXT : HOME 
  14. 160  HGR 
  15. 170  POKE  -16302,0
  16. 180  PRINT "<CTRL-D>BLOAD PEGASUS.B"
  17. 190  VTAB 24
  18. 210  FOR A = 1 TO 1000: NEXT A: POKE  -16301,0
  19. 220  PRINT "(T) TERRAIN GENERATOR"
  20. 230  PRINT "(P)  PLAY A GAME"
  21. 240  GET X$
  22. 250  IF X$ = "T"  THEN 400
  23. 260  IF X$ < >"P"  THEN 240
  24. 270  PRINT "(B) BEGINNER TUNNEL"
  25. 280  PRINT "(I) INTERMEDIATE TUNNEL"
  26. 300  PRINT "(A) ADVANCED TUNNEL"
  27. 310  GET X$: PRINT : PRINT : PRINT 
  28. 330  IF X$ = "B"  THEN  PRINT "<CTRL-D>BLOAD PEGASUS.C"
  29. 340  IF X$ = "I"  THEN  PRINT "<CTRL-D>BLOAD PEGASUS.D"
  30. 350  IF X$ = "A"  THEN  PRINT "<CTRL-D>BLOAD PEGASUS.A"
  31. 360  IF X$ < >"A"  AND X$ < >"I"  AND X$ < >"B"  THEN 270
  32. 380  PRINT "<CTRL-D>BLOAD PEGASUS.H"
  33. 390  PRINT "<CTRL-D>BRUN PEGASUS.G"
  34. 400  PRINT "PEGASUS II TERRAIN GENERATOR"
  35. 410  PRINT "<CTRL-D>BRUN PEGASUS.F"
  36. 420  END