home *** CD-ROM | disk | FTP | other *** search
/ The Programmer Disk / The Programmer Disk (Microforum).iso / xpro / basic3 / pro7 / menu.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1991-03-23  |  1.5 KB  |  49 lines
  1. 100  KEY OFF : WIDTH 80 : SCREEN 0,0,0:COLOR 4,3,5 : CLS : LOCATE 1,11 : PRINT"WELCOME TO CNA2 CREATED BY FREDERICK XAVIER SMALL,LVN,DSD"
  2. 101  PRINT
  3. 102  PRINT
  4. 110  PRINT"                              MAIN MENU"
  5. 120  PRINT "         ________________________________________________________"
  6. 180  PRINT
  7. 190  PRINT
  8. 200  LOCATE  8,32,0:PRINT "A - CNA1"
  9. 210  LOCATE  9,32,0:PRINT "B - CNA2"
  10. 220  LOCATE 10,32,0:PRINT "C - CNA3"
  11. 230  LOCATE 11,32,0:PRINT "D - CNA4"
  12. 240  LOCATE 12,32,0 : PRINT "E - CNA5"
  13. 250  LOCATE 13,32,0 : PRINT "F - CPR"
  14. 260  LOCATE 14,32,0 : PRINT "G - TIME"
  15. 270  LOCATE 15,32,0 : PRINT "H - README"
  16. 280  LOCATE 16,32,0 : PRINT "I - REGISTER"
  17. 290  LOCATE 17,32,0 : PRINT "J - DISCLAIM"
  18. 480  LOCATE 23,3,0:PRINT "ENTER LETTER OF PROGRAM TO RUN, OR"
  19. 485  LOCATE 24,3,0:PRINT "                     ESC KEY TO EXIT";
  20. 490  POKE 106,0
  21. 491  REM POKE CLEARS KEY BOARD BUFFER
  22. 500  K$ = INKEY$: IF K$ <> "" THEN GOTO 490
  23. 510  K$ = INKEY$: IF K$ = "" THEN GOTO 510
  24. 600  IF MID$(K$,1,1) = "A" THEN RUN "CNA1"
  25. 601  IF MID$(K$,1,1) = "a" THEN RUN "CNA1"
  26. 602  IF MID$(K$,1,1) = "B" THEN RUN "CNA2"
  27. 603  IF MID$(K$,1,1) = "c" THEN RUN "CNA2"
  28. 604  IF MID$(K$,1,1) = "C" THEN RUN "CNA3"
  29. 605  IF MID$(K$,1,1) = "c" THEN RUN "CNA3"
  30. 606  IF MID$(K$,1,1) = "D" THEN RUN "CNA4"
  31. 607  IF MID$(K$,1,1) = "d" THEN RUN "CNA4"
  32. 609  IF MID$(K$,1,1) = "E" THEN RUN "CNA5"
  33. 610  IF MID$(K$,1,1) = "e" THEN RUN "CNA5"
  34. 611  IF MID$(K$,1,1) = "F" THEN RUN "CPR"
  35. 612  IF MID$(K$,1,1) = "f" THEN RUN "CPR"
  36. 613  IF MID$(K$,1,1) = "G" THEN RUN "TIME"
  37. 614  IF MID$(K$,1,1) = "g" THEN RUN "TIME"
  38. 615  IF MID$(K$,1,1) = "H" THEN RUN "README"
  39. 617  IF MID$(K$,1,1) = "h" THEN RUN "README"
  40. 618  IF MID$(K$,1,1) = "I" THEN RUN "REGISTER"
  41. 619  IF MID$(K$,1,1) = "i" THEN RUN "REGISTER"
  42. 620  IF MID$(K$,1,1) = "J" THEN RUN "DISCLAIM"
  43. 621  IF MID$(K$,1,1) = "j" THEN RUN "DISCLAIM"
  44. 900  IF MID$(K$,1,1) = " " THEN GOTO 920
  45. 910  IF MID$(K$,1,1) = CHR$(27) THEN GOTO 999
  46. 920  GOTO 100
  47. 999  SCREEN 0,1:COLOR 4,3,5 :CLS:SYSTEM
  48. 1000  END
  49.