home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a070 / 3.ddi / FOXPRO / SAMPLE / SYSTMENU.PRG < prev    next >
Encoding:
Text File  |  1990-04-07  |  2.7 KB  |  93 lines
  1. * ┌─────────────────────────────────────────────────────────────────────┐ *
  2. * │  PROG NAME: SYSTMENU.PRG System submenu called by main menu         │ *
  3. * │  Copyright (c) 1989,1990 Tech III, Inc. All rights reserved.        │ *
  4. * │  Tech III of San Pedro, California      (213) 547-2191.             │ *
  5. * │  "The bridge connecting people and technology."(tm)                 │ *
  6. * └─────────────────────────────────────────────────────────────────────┘ *
  7.  
  8. SET TOPIC TO 'SYSTEM'
  9. STORE BAR() TO choice
  10. HIDE POPUP syspop
  11. DO CASE
  12.   CASE choice = 1
  13.     DO msg2user WITH ;
  14.     ' Thank-you for using PRO-DEMO from Tech III of San Pedro, CA and FOXPRO ', ;
  15.     ' from Fox Software of Perrysburg, OH.  If you have any questions or ',  ;
  16.     ' ideas concerning PRO-DEMO, please call Tech III @ (213) 547-2191.'
  17.     DO standby WITH 'You are about to return to the operating system.'
  18.     CLOSE DATA
  19.     QUIT
  20.   CASE choice = 2
  21.     STORE .f. TO in_prodemo
  22.     DEACTIVATE MENU
  23.   CASE choice = 3
  24.     DO indexer
  25.   CASE choice = 4
  26.     DO reviewer
  27.   CASE choice = 5
  28.     = INSMODE(.t.)
  29.     ON ERROR
  30.     SUSPEND
  31.     = INSMODE(.f.)
  32.     ON ERROR DO SYSERROR WITH PROGRAM(), LINENO()
  33.   CASE choice = 6
  34.     SAVE SCREEN TO curr_scrn
  35.     STORE GETFILE("PRG","File to Edit:") TO edfile
  36.     IF .NOT. EMPTY(edfile)
  37.       = INSMODE(.t.)
  38.       MODIFY COMMAND (edfile)
  39.     ENDIF
  40.     = INSMODE(.f.)
  41.     RESTORE SCREEN FROM curr_scrn
  42.   CASE choice = 7
  43.     ACTIVATE WINDOW msg2user
  44.     STORE SPACE(10) TO wkarea
  45.     @ 01,00 SAY 'Select Main Report-Database File: ' GET wkarea ;
  46.     PICTURE '@M INVOICE   ,LINES     ,ITEMS     ,CUSTOMER  ,PAYMENTS  ,SALESREP  '
  47.     READ
  48.     IF .NOT. EMPTY(wkarea)
  49.       SELECT &wkarea.
  50.       DEACTIVATE WINDOW msg2user
  51.       = INSMODE(.t.)
  52.       DEFINE WINDOW rephelp FROM 00,00 TO 00,68 NONE COLOR SCHEME 7
  53.       ACTIVATE WINDOW rephelp
  54.       @ 00,00 SAY 'Press [Alt] O for Report Menu.'
  55.       MODIFY REPORT ?
  56.       = INSMODE(.f.)
  57.       RELEASE WINDOW rephelp
  58.     ENDIF
  59.   CASE choice = 8
  60.     DO credits
  61.   CASE choice = 9
  62.     DO sysinfo
  63.   CASE choice = 10
  64.     DO techdoc
  65.   CASE choice = 11
  66.     DO reporter
  67.   CASE choice = 12
  68.     DO techport
  69.   CASE choice = 13
  70.     ACTIVATE SCREEN
  71.     SAVE SCREEN TO curr_scrn
  72.     SET CURSOR OFF
  73.     @ 21,43 TO 23,74 CLEAR  COLOR GR+/R
  74.     @ 21,43 TO 23,74 DOUBLE COLOR gr+/r
  75.     @ 22,44 SAY ' Loading command processor... ' COLOR GR+/R
  76.     RUN /0 osaccess
  77.     SET CURSOR ON
  78.     RESTORE SCREEN FROM curr_scrn
  79.   CASE choice = 14
  80.     SELECT 0
  81.     USE system
  82.     LOCATE FOR LABEL = 'NEWS'
  83.     MODIFY MEMO contents NOEDIT WINDOW reportview
  84.     USE
  85.     SELECT INVOICE
  86. ENDCASE
  87. SET TOPIC TO 'MASTER MENU'
  88. SHOW POPUP syspop
  89. HIDE WINDOW ALL
  90. RETURN
  91.  
  92. * EOF
  93.