home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / cpm / utils / a / db2.arc / DGEN.CMD < prev    next >
Encoding:
Text File  |  1989-09-27  |  2.3 KB  |  93 lines
  1. * Program..: dGEN.CMD (version 1.0)
  2. * Author...: Luis A. Castro
  3. * Date.....: 02/25/84
  4. * Notice...: Copyright 1984, All Rights Reserved
  5. * Notes....: This program is the menu driver for the
  6. *            dGEN utilities.  Three of the modules
  7. *            (MENUGEN, FILEGEN, LABELGEN) were written
  8. *            by yours truly and the fourth (FORMGEN)
  9. *            was co-authored with Roy M. Moore.
  10. * Reserved.: select, selectnum
  11. *
  12. SET TALK OFF
  13. SET BELL OFF
  14. SET COLON OFF
  15.  
  16. DO WHILE T
  17.  
  18. ERASE
  19. @  1, 0 SAY "========================================"
  20. @  1,40 SAY "========================================"
  21. @  2, 0 SAY "||"
  22. @  2,25 SAY "d G E N    M A I N    M E N U"
  23. @  2,78 SAY "||"
  24. @  3, 0 SAY "========================================"
  25. @  3,40 SAY "========================================"
  26. @  4, 0 SAY "||"
  27. @  4,78 SAY "||"
  28. @  5, 0 SAY "||"
  29. @  5,78 SAY "||"
  30. @  6, 0 SAY "||"
  31. @  6,78 SAY "||"
  32. @  7, 0 SAY "||"
  33. @  7,78 SAY "||"
  34. @  8, 0 SAY "||"
  35. @  8,78 SAY "||"
  36. @  9, 0 SAY "||"
  37. @  9,78 SAY "||"
  38. @ 10, 0 SAY "||"
  39. @ 10,78 SAY "||"
  40. @ 11, 0 SAY "||"
  41. @ 11,78 SAY "||"
  42. @ 12, 0 SAY "========================================"
  43. @ 12,40 SAY "========================================"
  44. @  5,27 SAY " 0. exit"
  45. @  6,27 SAY " 1. MENU generator"
  46. @  7,27 SAY " 2. FILE generator"
  47. @  8,27 SAY " 3. REPORT FORM generator"
  48. @  9,27 SAY " 4. LABEL generator"
  49. STORE  5 TO selectnum
  50. DO WHILE selectnum < 0 .OR. selectnum >  4
  51.    STORE " " TO select
  52.    @ 12,33 SAY " select : : "
  53.    @ 12,42 GET select PICTURE "#"
  54.    READ
  55.    STORE VAL(select) TO selectnum
  56. ENDDO
  57.  
  58. DO CASE
  59.    CASE selectnum= 0
  60.       SET COLON ON
  61.       SET BELL ON
  62.       SET TALK ON
  63.       CLEAR
  64.       RETURN
  65.    CASE selectnum= 1
  66.    *  DO MENU generator
  67.       DO Menugen
  68.    CASE selectnum= 2
  69.    *  DO FILE generator
  70.       DO Filegen
  71.    CASE selectnum= 3
  72.    *  DO REPORT FORM generator
  73.       DO Formgen
  74.    CASE selectnum= 4
  75.    *  DO LABEL generator
  76.       DO Labelgen
  77. ENDCASE
  78.  
  79. * ---The following flags have to be reset, because Menugen,
  80. * ---Filegen, Formgen, and Labelgen set the flags to their
  81. * ---default values.
  82. SET TALK OFF
  83. SET BELL OFF
  84. SET COLON OFF
  85. ?
  86. ?
  87. STORE " " TO select
  88. @ 23,0 SAY "Strike any key to continue... " GET select 
  89. READ
  90.  
  91. ENDDO T
  92. * EOF: dGEN.CMD
  93.