home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol155 / sammenu.cmd < prev    next >
Encoding:
Text File  |  1984-04-29  |  2.9 KB  |  98 lines
  1. *SAMMENU-Sample Menu Program.*********************************************
  2. *DATE OF LAST UPDATE  05/17/83                                           *
  3. *REVISION NUMBER 001.00                                                  *
  4. *                                     *
  5. *                           THIS PROGRAM PLACED INTO PUBLIC DOMAIN BY    *
  6. *                           DOUGLAS G. COUSE, ATLANTA, GA. 5/20/83       *
  7. *                           COPYING FOR NON-COMMMERCIAL OR EDUCATIONAL   *
  8. *                           PURPOSES ALLOWED, PROVIDED THIS NOTICE IS    *
  9. *                           NOT REMOVED.  COMMERCIAL RESALE IS PROHIBITED*
  10. *                                                                        *
  11. **************************************************************************
  12.  
  13. ********************************************************************************
  14. *NOTE----any comment labelled (*P-) is a procedural section numbering reference*
  15. *that should be used in flowcharting and other program documentation.          *
  16. ********************************************************************************
  17.  
  18. *P-001-{START}. Program and screen initialization.
  19. ERASE
  20. SET ECHO OFF
  21. SET TALK OFF
  22. CLEAR
  23. RELEASE
  24. USE
  25. *P-001-{END}.
  26.  
  27. *================================================================================
  28.  
  29. *P-005-{START}.  Doloop (initialization and execution) section.
  30. STORE "T" TO MORE
  31. DO WHILE MORE = "T"
  32. *P-005-{END}.
  33.  
  34. *================================================================================
  35.  
  36. *P-010-{START}. Link variable initialization SECTION.
  37. STORE "SAM" TO PREFIX
  38. *P-010-{END}.
  39.  
  40. *================================================================================
  41.  
  42. *P-020-{START}. Screen literal display program call & execution section.
  43. DO SAMSCRM
  44. *P-020-{END}.
  45.  
  46. *================================================================================
  47.  
  48. *P-030-{START}. Option message display and option entry/validation section.
  49. STORE 00 TO SUFFIX
  50. SET INTENSITY OFF
  51. @ 21,05 SAY 'Enter selection ## or strike <RETURN> to END ' GET SUFFIX PICTURE '99'
  52. READ
  53. SET INTENSITY ON
  54. IF SUFFIX = 00
  55.     STORE "F" TO MORE
  56.     LOOP 
  57. ELSE
  58.     IF SUFFIX >2  
  59.         SET INTENSITY OFF
  60.         @ 22,1 SAY "-"
  61.         REMARK Invalid option, strike any key to repeat
  62.         SET INTENSITY ON
  63.         SET CONSOLE OFF
  64.         WAIT
  65.         SET CONSOLE ON
  66.         ERASE
  67.         LOOP         
  68.     ENDIF 2
  69. ENDIF 1
  70. *P-030-{END}.
  71.  
  72. *================================================================================
  73.  
  74. *P-040-{START}. Program link variable generation & execution section.
  75. STORE PREFIX+"00"+STR(SUFFIX,1) TO PROGRAM
  76. RELEASE PREFIX
  77. RELEASE SUFFIX
  78. DO &PROGRAM 
  79. *P-040-{END}.
  80.  
  81. *================================================================================
  82.  
  83. *P-050-{START}. Re-entry point after called program has been exited.
  84. STORE "T" TO MORE
  85. LOOP
  86. *P-050-{END}.
  87.  
  88. *================================================================================
  89.  
  90. *P-060-{START}. End of program execution and exit to operating system.
  91. ENDDO
  92. ERASE
  93. RELEASE
  94. CLEAR
  95. USE
  96. QUIT
  97. *P-060-{END}.
  98.