home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / db2shl20.zip / APPLMENU.CMD next >
OS/2 REXX Batch file  |  1987-02-14  |  3KB  |  135 lines
  1. SET TALK OFF
  2. STORE t TO xapplsw
  3. DO WHILE xapplsw
  4.   ERASE
  5.   @ 1,20 SAY '**** DBASE II APPLICATION MENU ****'
  6.   @ 3,0 SAY '0.  EXIT MENU'
  7.   @ 3,40 SAY '1.  Run DB-SQZ5 on a .CMD file'
  8.   @ 4,0 SAY '2.  Run dUTIL on a .CMD file'
  9.   @ 4,40 SAY '3.  Run fastBASE Utility on .CMD file'
  10.   @ 5,0 SAY '4.  Run COMPDB on a .CMD file'
  11.   @ 5,40 SAY '5.  Run UNCOMPDB on a .CMD file'
  12.   @ 6,0 SAY '6.  Run DBSQUASH on a .CMD file'
  13.   @ 6,40 SAY '7.  Run RECOVER on a .DBF file'
  14.   @ 7,0 SAY '8.  Run DBCLINIC on a .DBF file'
  15.   @ 7,40 SAY '9.  Run ZIP for screen generation'
  16.   @ 8,0 SAY 'A.  Run dFASTEST'
  17.   @ 8,40 SAY 'B.  Run dSORT on a .DBF file'
  18.   @ 9,0 SAY 'C.  Run MAIL.CMD'
  19.   @ 9,40 SAY 'D.  Run UNIQUE on a .DBF file'
  20.   @ 10,0 SAY 'E.  Run DECODE on a "sq" .CMD file'
  21.   @ 10,40 SAY 'F.  Run RECODE on a "usq" .CMD file'
  22.   @ 11,0 SAY 'G.  Run fastBASE .CMD file generator'
  23.   @ 11,40 SAY 'H.  Run WordStar'
  24.   @ 16,28 SAY '**** ENTER OPTION ****'
  25.   WAIT TO xoption
  26.   STORE !(xoption) TO xoption
  27.   DO CASE
  28.     CASE xoption= '0'
  29.       STORE f TO xapplsw
  30.     CASE xoption= '1'
  31.       ERASE
  32.       CLEAR
  33.       DO db-sqz5
  34.     CASE xoption= '2'
  35.       ERASE
  36.       CLEAR
  37.       SET CONSOLE OFF
  38.       QUIT TO 'DUTIL0'
  39.     CASE xoption= '3'
  40.       ERASE
  41.       CLEAR
  42.       SET CONSOLE OFF
  43.       QUIT TO 'FBUT'
  44.     CASE xoption= '4'
  45.       ERASE
  46.       CLEAR
  47.       SET CONSOLE OFF
  48.       QUIT TO 'COMPDB'
  49.     CASE xoption= '5'
  50.       ERASE
  51.       CLEAR
  52.       SET CONSOLE OFF
  53.       QUIT TO 'UNCOMPDB'
  54.     CASE xoption= '6'
  55.       ERASE
  56.       CLEAR
  57.       SET CONSOLE OFF
  58.       QUIT TO 'MBASIC DBSQUASH'
  59.     CASE xoption= '7'
  60.       ERASE
  61.       CLEAR
  62.       SET CONSOLE OFF
  63.       QUIT TO 'RECOVER'
  64.     CASE xoption= '8'
  65.       ERASE
  66.       CLEAR
  67.       SET CONSOLE OFF
  68.       QUIT TO 'MBASIC DBCLINIC'
  69.     CASE xoption= '9'
  70.       ERASE
  71.       CLEAR
  72.       SET CONSOLE OFF
  73.       QUIT TO 'ZIP'
  74.     CASE xoption= 'A'
  75.       ERASE
  76.       CLEAR
  77.       DO dfastest
  78.     CASE xoption= 'B'
  79.       ERASE
  80.       CLEAR
  81.       SET CONSOLE OFF
  82.       QUIT TO 'DSORT'
  83.     CASE xoption= 'C'
  84.       ERASE
  85.       CLEAR
  86.       DO mail
  87.     CASE xoption= 'D'
  88.       ERASE
  89.       CLEAR
  90.       DO unique
  91.     CASE xoption= 'E'
  92.       DO WHILE t
  93.         ERASE
  94.         STORE '?' TO which
  95.         @ 12,20 SAY 'Run DEC8 or DEC16 ?'
  96.         @ 13,25 SAY '(A) DEC8'
  97.         @ 14,25 SAY '(B) DEC16'
  98.         @ 16,20 SAY '---> ' GET which
  99.         READ
  100.         IF !(which)= 'A'
  101.           CLEAR
  102.           SET CONSOLE OFF
  103.           QUIT TO 'DEC8'
  104.         ELSE
  105.           IF !(which)= 'B'
  106.             CLEAR
  107.             SET CONSOLE OFF
  108.             QUIT TO 'DEC16R8'
  109.           ENDIF !(which)= 'B'
  110.           LOOP
  111.         ENDIF !(which)= 'A'
  112.       ENDDO WHILE t
  113.     CASE xoption= 'F'
  114.       ERASE
  115.       CLEAR
  116.       SET CONSOLE OFF
  117.       QUIT TO 'RECODE'
  118.     CASE xoption= 'G'
  119.       ERASE
  120.       CLEAR
  121.       SET CONSOLE OFF
  122.       QUIT TO 'FBASMAIN'
  123.     CASE xoption= 'H'
  124.       ERASE
  125.       CLEAR
  126.       SET CONSOLE OFF
  127.       QUIT TO 'WS0'
  128.     OTHERWISE
  129.       @ 22,27 SAY '**** INVALID OPTION ****' +chr(7)
  130.       WAIT
  131.       @ 22,0
  132.   ENDCASE
  133. ENDDO WHILE xapplsw
  134. RETURN
  135.