home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / GOLF1.DSK / HELLO.bas < prev    next >
BASIC Source File  |  2014-09-09  |  853b  |  30 lines
  1. 10 D$ =  CHR$(4)
  2. 20  PRINT D$;"NOMON  C,I,O"
  3. 25  CALL  -936: HOME 
  4. 30  VTAB 3
  5. 40  PRINT "YOUR OPTIONS..."
  6. 50  PRINT : PRINT 
  7. 60  PRINT "  (1) PLAY WORLD CLASS LEADER BOARD"
  8. 70  PRINT : PRINT "  (2) EDIT COURSES"
  9. 80  PRINT : PRINT 
  10. 90  PRINT "  PLEASE SELECT."
  11. 100 A =  PEEK(49152)
  12. 110  IF A <128  THEN 100
  13. 115  POKE 49168,A
  14. 120  IF A = 177  THEN 200
  15. 130  IF A = 178  THEN 300
  16. 140  GOTO 100
  17. 200  PRINT D$;"BLOAD BDOS"
  18. 210  PRINT D$;"BRUN BEXEC"
  19. 300  CALL  -936: HOME 
  20. 310  VTAB 4
  21. 320  PRINT "     REMEMBER YOU WILL NEED TO MAKE A"
  22. 330  PRINT "BACKUP COPY OF THE BACK SIDE OF THE"
  23. 340  PRINT "PROGRAM DISK TO SAVE YOUR EDITTED"
  24. 350  PRINT "COURSES.  IF YOU HAVE NOT DONE SO,"
  25. 360  PRINT "PLEASE DO AND THEN RESTART."
  26. 370  PRINT : PRINT 
  27. 380  PRINT "       PRESS ANY KEY TO CONTINUE"
  28. 390 A =  PEEK(49152)
  29. 400  IF A <128  THEN 390
  30. 410  PRINT D$;"RUN EDITOR"