home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / games / eamon_d.zip / MENU.BAS < prev    next >
BASIC Source File  |  1984-01-31  |  640b  |  24 lines

  1. 10 CLS
  2. 20 LOCATE 10,1
  3. 30 PRINT"            1. INITIALIZE DUNGEON FILES"
  4. 40 PRINT"            2. EDIT DUNGEON FILE"
  5. 50 PRINT"            3. LIST DUNGEON DATA TO PRINTER"
  6. 60 PRINT"            4. LIST DUNGEON DATA TO MONITOR"
  7. 70 PRINT
  8. 90 PRINT"            5. END SESSION"
  9. 100 PRINT
  10. 110 PRINT"            CHOOSE ONE =>";
  11. 120 LINE INPUT A$
  12. 130 '
  13. 140 IF A$="1" THEN RUN"DUNINIT"
  14. 150 IF A$="2" THEN RUN"WORK"
  15. 160 IF A$="3" THEN RUN"LISTER"
  16. 170 IF A$="4" THEN RUN"MLIST"
  17. 180 '
  18. 190 IF A$="5" THEN CLS:END
  19. 200 GOTO 10
  20. THEN RUN"WORK"
  21. 160 IF A$="3" THEN RUN"LISTER"
  22. 170 IF A$="4" THEN RUN"MLIST"
  23. 180 '
  24. 190 IF A$="5" THEN CLS:END