home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / busi / chkmstr.zip / CHEXRUN.PRG < prev    next >
Text File  |  1990-03-05  |  5KB  |  116 lines
  1.  
  2. IF ISCOLOR()
  3. SET COLOR TO W/B,W/R,BG
  4. ENDIF
  5. SET FUNCTION 9 TO "DO CHEXMENU;"
  6. SET TALK OFF
  7. CLEAR
  8. TEXT
  9.  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  10.  %%          CHEX-MASTER   Version 2.0       Written and produced by:        %%
  11.  %%                                                             * * * *      %%
  12.  %%    TOTAL LOGISTICS CONSULTING                              *   *   *     %%
  13.  %%    565 PLEASANT STREET                  We Serve YOU With  *  TLC  *     %%
  14.  %%    CHAMBERSBURG PA. 17201                             (c)   *     *      %%
  15.  %%    COMPU-SERVE ID# 71650-3665                                *   *       %%
  16.  %%                                                                *         %%
  17.  %%   Copyright (c) Total Logistics Consulting 1989. All Rights Reserved.    %%
  18.  %%   CHEX-MASTER and LOGO are trademarks of Total Logistics Consulting.     %%
  19.  %%                                                                          %%
  20.  %%   This program is a "SHARE-WARE" package. It is NOT FREEware nor is it   %%
  21.  %%   Public Domain. Please copy and distribute the entire package "AS IS".  %%
  22.  %%   You are NOT authorized to modify this program package in any way !!!   %%
  23.  %%   Use it and see if you are satisfied with its performance ! If you are  %%
  24.  %%   and it meets your needs, please send $ 24 plus $ 5 S+H to the above    %%
  25.  %%   address. More details on this inside. If not, I would really like to   %%
  26.  %%   hear your suggestions. Use above address or COMPU-SERVE number.        %%
  27.  %%                                                                          %%
  28.  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  29.  
  30.    TYPE "Y" IF YOU ACCEPT THE ABOVE AGREEMENT, AND WISH TO USE THE PROGRAM.
  31.                  TYPE "N" TO CANCEL AND RETURN TO D-BASE !!!
  32. ENDTEXT
  33. AGREE=" "
  34. DO WHILE .NOT. (UPPER(AGREE) $ 'YN')
  35. WAIT " " TO AGREE
  36. ENDDO
  37. IF UPPER(AGREE)= "N"
  38. CANCEL
  39. ENDIF
  40. DO WHILE .T.
  41. CLEAR
  42. TEXT
  43.   #############################################################################
  44.   ##                                                                         ##
  45.   ##                      C H E X  -----   M A S T E R                       ##
  46.   ##                                                                         ##
  47.   ##                       ****   OPTION  MENU   ****                        ##
  48.   ##                                                                         ##
  49.   ##                                                                         ##
  50.   ##             { C }   RUN CHECK PROGRAM                                   ##
  51.   ##                                                                         ##
  52.   ##             { S }   RUN SETUP PROGRAM                                   ##
  53.   ##                     [ assign check program operating parameters         ##
  54.   ##                                  and values ]                           ##
  55.   ##                                                                         ##
  56.   ##             { D }   DISPLAY OPERATING INSTRUCTIONS TO SCREEN            ##
  57.   ##                                                                         ##
  58.   ##             { P }   PRINT OPERATING INSTRUCTIONS TO PRINTER             ##
  59.   ##                                                                         ##
  60.   ##             { Q }   QUIT  [ return to D-Base III ]                      ##
  61.   ##                                                                         ##
  62.   ##                                                                         ##
  63.   ##                                                                         ##
  64.   ##                                                                         ##
  65.   #############################################################################
  66. ENDTEXT
  67. CHOICE= " "
  68. @21,20 SAY "ENTER YOUR CHOICE" GET CHOICE
  69. READ
  70. CHOICE=UPPER(CHOICE)
  71. DO CASE
  72. CASE CHOICE= "C"
  73. CLEAR
  74. @10,20 SAY "LOADING DATA FILES ------------------------------"
  75. SET PROCEDURE TO CHECK
  76. SET FUNCTION 9 TO "DO CHEXMENU;"
  77. DO CHEXMENU
  78. CASE CHOICE= "S"
  79. CLEAR
  80. @10,20 SAY "LOADING DATA FILES ------------------------------"
  81. SET FUNCTION 9 TO "DO CHEXMENU:"
  82. DO SETUP
  83. CASE CHOICE= "D"
  84. DO CASE
  85. CASE CONFIG="A"
  86. RUN A:LIST A:TEXT.TXT
  87. CASE CONFIG="B"
  88. RUN B:LIST B:TEXT.TXT
  89. CASE CONFIG="C"
  90. RUN C:\CHEXMANG\LIST C:\CHEXMANG\TEXT.TXT
  91. CASE CONFIG="D"
  92. RUN D:\CHEXMANG\LIST D:\CHEXMANG\TEXT.TXT
  93. ENDCASE
  94. CASE CHOICE= "P"
  95. DO CASE
  96. CASE CONFIG="A"
  97. RUN A:TFL A:TEXT.TXT
  98. CASE CONFIG="B"
  99. RUN B:TFL B:TEXT.TXT
  100. CASE CONFIG="C"
  101. RUN C:\CHEXMANG\TFL C:\CHEXMANG\TEXT.TXT
  102. CASE CONFIG="D"
  103. RUN D:\CHEXMANG\TFL D:\CHEXMANG\TEXT.TXT
  104. ENDCASE
  105. CASE CHOICE="Q"
  106. CANCEL
  107. OTHERWISE
  108. @20,15 SAY "**** ENTER { C }, { D }, { P }, { Q }, OR { S } ****"
  109. @21,10 SAY "                                    "
  110. @21,18 SAY "YOU ENTERED" GET CHOICE
  111. ENDCASE
  112. WAIT
  113. ENDDO
  114. RETURN
  115.  
  116.