home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol048 / menu.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-01-11  |  3.8 KB  |  71 lines
  1. 10  CLS:KEY OFF
  2. 20  LOCATE 3,19,0:COLOR 0,7:PRINT " DUMPSCRN (C) COPYRIGHT 1983 L.C. SYSTEMS ":COLOR 7,0
  3. 30  LOCATE 5,5:PRINT "Programs and documentation may be accessed by depressing the number"
  4. 40  PRINT "    of your selection."
  5. 45  LOCATE 8,7:PRINT "1. Basic program to create machine language subroutine file"
  6. 46  LOCATE 9,7:PRINT "2. Draw an impressive screen and print (runs approx. 1 hour)"
  7. 47  LOCATE 10,7:PRINT "3. Quick version of selection number 2 (runs approx. 2 minutes)"
  8. 48  LOCATE 11,7:PRINT "4. Print documentation       "
  9. 49  LOCATE 12,7:PRINT "5. Print assembler source code "
  10. 50  LOCATE 16,7:PRINT "9. return to the system"
  11. 52  LOCATE 20,10:PRINT "Press the number of your choice... "
  12. 53  A$=INKEY$:IF A$ = "" GOTO 53
  13. 54  W = VAL(A$):ON W GOTO 100,200,300,400,500,55,55,55,600
  14. 55  GOTO 53
  15. 100  CLS:LOCATE 3,19,0:COLOR 0,7:PRINT " CREATE MACHINE LANGUAGE SUBROUTINE FILE ":COLOR 7,0
  16. 110  LOCATE 5,5:PRINT "The following Basic program POKE's the assembly object code into"
  17. 120  LOCATE 6,5:PRINT "memory and then BSAVE's it.  IBM recognizes the fact that the "
  18. 121  LOCATE 7,5:PRINT  "command BSAVE will often come up with the error 'UNDEFINED LINE NUMBER'."
  19. 130  LOCATE 8,5:PRINT "Once this message comes up, the program can not be LISTed or re-RUN."
  20. 140  LOCATE 9,5:PRINT "The best thing to do is to reload the program and try again."
  21. 141  LOCATE 10,5:PRINT "Type LOAD";CHR$(34);"CREATE";CHR$(34); AND THEN RUN.  IT USUALLY"
  22. 142  LOCATE 11,5:PRINT "works the 2nd time."
  23. 150  LOCATE 20,19:COLOR 0,7:PRINT " Do you want to continue...(Y/N).? ";:COLOR 7,0
  24. 151  A$= INKEY$:IF A$="" GOTO 151 ELSE IF A$="Y" OR A$="y" GOTO 160
  25. 152  GOTO 10                      'return to the menu
  26. 160  CLS:CHAIN "CREATE"
  27. 200  CLS:LOCATE 3,21,0:COLOR 0,7:PRINT " DRAW GRAPHIC IMAGE AND PRINT ":COLOR 7,0
  28. 210  LOCATE 5,5:PRINT "The following Basic program will draw a 3 dimensional image on the"
  29. 220  LOCATE 6,5:PRINT "screen and then will print it.  Please turn the printer on now if "
  30. 230  LOCATE 7,5:PRINT "you want to continue"
  31. 250  LOCATE 20,19:COLOR 0,7:PRINT " Do you want to continue...(Y/N).? ";:COLOR 7,0
  32. 251  A$= INKEY$:IF A$="" GOTO 251 ELSE IF A$="Y" OR A$="y" GOTO 260
  33. 252  GOTO 10                      'return to the menu
  34. 260  CLS:CHAIN "SLOWDRAW"
  35. 300  CLS:LOCATE 3,21,0:COLOR 0,7:PRINT " LOAD GRAPHIC IMAGE AND PRINT ":COLOR 7,0
  36. 310  LOCATE 5,5:PRINT "The following Basic program will load a 3 dimensional image on the"
  37. 320  LOCATE 6,5:PRINT "screen and then will print it.  Please turn the printer on now if "
  38. 330  LOCATE 7,5:PRINT "you want to continue"
  39. 350  LOCATE 20,19:COLOR 0,7:PRINT " Do you want to continue...(Y/N).? ";:COLOR 7,0
  40. 351  A$= INKEY$:IF A$="" GOTO 351 ELSE IF A$="Y" OR A$="y" GOTO 360
  41. 352  GOTO 10                      'return to the menu
  42. 360  CLS:CHAIN "FASTDRAW"
  43. 400  CLS:LOCATE 3,29,0:COLOR 0,7:PRINT " PRINT DOCUMENTATION ":COLOR 7,0
  44. 410  LOCATE 5,5:PRINT "Continuing with the following program will print the documentation."
  45. 420  LOCATE 6,5:PRINT "Please turn the printer on now if you want to continue. "
  46. 450  LOCATE 20,19:COLOR 0,7:PRINT " Do you want to continue...(Y/N).? ";:COLOR 7,0
  47. 451  A$= INKEY$:IF A$="" GOTO 451 ELSE IF A$="Y" OR A$="y" GOTO 460
  48. 452  GOTO 10                      'return to the menu
  49. 460  OPEN "DUMPSCRN.DOC" FOR INPUT AS #1
  50. 465  IF EOF(1) THEN 490
  51. 470  LINE INPUT #1,A$
  52. 480  PRINT A$:LPRINT A$
  53. 481  GOTO 465
  54. 490  CLOSE:GOTO 10
  55. 500  CLS:LOCATE 3,29,0:COLOR 0,7:PRINT " PRINT ASSEMBLY CODE ":COLOR 7,0
  56. 510  LOCATE 5,5:PRINT "Continuing with the following program will print the assembly code."
  57. 520  LOCATE 6,5:PRINT "Please turn the printer on now if you want to continue. "
  58. 530  LOCATE 7,5:PRINT "The printer will be set to compressed format to allow 132 characters "
  59. 540  LOCATE 8,5:PRINT "to be printed across a page."
  60. 550  LOCATE 20,19:COLOR 0,7:PRINT " Do you want to continue...(Y/N).? ";:COLOR 7,0
  61. 551  A$= INKEY$:IF A$="" GOTO 551 ELSE IF A$="Y" OR A$="y" GOTO 560
  62. 552  GOTO 10                      'return to the menu
  63. 560  OPEN "DUMPSCRN.LST" FOR INPUT AS #1
  64. 561  LPRINT CHR$(15);:WIDTH "lpt1:",133:GOTO 465
  65. 600  CLS:LOCATE 3,29,0:COLOR 0,7:PRINT " RETURN TO THE SYSTEM ":COLOR 7,0
  66. 610  LOCATE 9,5:PRINT "Continuing with the following program will return to the system."
  67. 650  LOCATE 20,19:COLOR 0,7:PRINT " Do you want to continue...(Y/N).? ";:COLOR 7,0
  68. 651  A$= INKEY$:IF A$="" GOTO 651 ELSE IF A$="Y" OR A$="y" GOTO 660
  69. 652  GOTO 10                      'return to the menu
  70. 660  SYSTEM
  71.