6/15/94
James:
Here are the two sample menus. Execute the second from the first (choice 11),
then MENU back to the first and see how it messes up the display of the first.
If you comment out the last choice on menu 1, then it displays properly. As I
said though, other submenus come back to menu 1 and don't mess it up.
I have not yet put read/write levels in. I'm working on that now.
Clive
TITLE "<<< Main Menu >>>"
MESSAGE "[ Press MENU/F13 to Logoff ]"
BOT-STATUS "NOTE-Some options are unavailable to you"
;--------------------------------
SUBTITLE "MAIN OFFICE APPLICATIONS"
SUBTITLE ""
SELECTION "AlphaWRITE Word Processor"
EXECUTE WRITE
SELECTION "AlphaCALC Spreadsheet"
EXECUTE CALC
SELECTION "DataVUE Data Manager"
CHAIN-TO UMENU SDVMEN
SELECTION "Electronic Mail (Interoffice)"
EXECUTE MAIL
;--------------------------------
SUBTITLE ""
SUBTITLE ""
SUBTITLE "ACCOUNTING"
SUBTITLE ""
SELECTION "General Accounting"
CHAIN-TO GLUE SACCTG
; HOME not needed here due to DELALL.CMD run upon exit from AA
SELECTION "Payroll"
EXECUTE :S | LOG DSK2:[150,0]
EXECUTE :R | AALOAD.CMD
; HOME needed when exiting DR due to LOG stmts in DRRCPR.RUN
; - should no longer be needed once init. of DRRWRK.DAT done differently
SELECTION "Receipting"
EXECUTE :S | LOG DSK0:[120,]
EXECUTE :R | RUN DRMENU
EXECUTE :S | HOME
EXECUTE :R |
; HOME not needed here due to DELALL.CMD run upon exit from AA
SELECTION "Shop Inventory"
EXECUTE :S | LOG DSK2:[150,0]
EXECUTE :R | AALOAD.CMD
SELECTION "View GL Accts (INQUIRY ONLY)"
EXECUTE :S | LOG DSK0:[120,100] | LOAD SMOPR.SBR
EXECUTE :R | RUN SMMNUS
EXECUTE :S | HOME
EXECUTE :R |
;--------------------------------
SUBTITLE ""
SUBTITLE "OTHER OFFICE APPLICATIONS"
SUBTITLE ""
SELECTION "Word Processing Options"
CHAIN-TO GLUE SWPMEN
SELECTION "Spreadsheet Options"
CHAIN-TO GLUE SSSMEN
SELECTION "Data Management Options"
CHAIN-TO GLUE SDMMEN
SELECTION "Dot-matrix Printer Settings"
EXECUTE RUN PITCH
;--------------------------------
SUBTITLE ""
SUBTITLE ""
SUBTITLE "MISCELLANEOUS"
SUBTITLE ""
SELECTION "Modem Communications"
CHAIN-TO GLUE SMODEM
SELECTION "File Transfers Between PCs"
CHAIN-TO GLUE SNETWK
SELECTION "Reset Wyse50 F-keys/Display"
EXECUTE :S | CMD:CY50E.CMD
EXECUTE :R |
SELECTION "Logoff"
CHAIN-TO LOGIN
SELECTION "System Maintenance"
HELP-MESSAGE "Only SysOp can see & execute"
SECURITY 254,254
CHAIN-TO GLUE SSYSMT
SELECTION "Exit to AMOS"
HELP-MESSAGE "Only SysOp can see & execute"
SECURITY 254,254
EXIT
;--------------------------------
KEY F1
EXECUTE USTAT E
KEY MENU
CHAIN-TO LOGIN
**********************************************************
Below is 2nd menu called from choice 10 in main menu above
**********************************************************
TITLE "<<< Word Processing Options Menu >>>"
MESSAGE "[ Press MENU/F13 to Return to Previous Menu ]"
BOT-STATUS "NOTE-Some options are unavailable to you"
;--------------------------------
SUBTITLE "DOCUMENT/FILE CONVERSION"
SUBTITLE ""
SELECTION "Convert WRITE Doc to ASCII"
HELP-MESSAGE "Do before transfer to PC or BB"
EXECUTE XY 5 1
EXECUTE :<Document to convert? >
EXECUTE :P | GLUWRA.DO |:K
RETURN-AFTER-PAUSE
SELECTION "Convert ASCII to WRITE Doc"
HELP-MESSAGE "Do after transfer from PC or BB"
EXECUTE XY 5 1
EXECUTE :<Full filename to convert? >
EXECUTE :P | GLUAWR.DO |:K
RETURN-AFTER-PAUSE
;--------------------------------
SUBTITLE ""
SUBTITLE "AMOS-PC FILE TRANSFERS"
SUBTITLE ""
SELECTION "Trans ASCII File - AMOS to PC"
HELP-MESSAGE "Assumes file in your AMOS dir"
EXECUTE XY 5 1
EXECUTE :<FOLLOW THESE INSTRUCTIONS|>
EXECUTE :<~~~~~~~~~~~~~~~~~~~~~~~~~|>
EXECUTE :<Enter BOTH items TOGETHER with a space between them|>
EXECUTE :<||Filename? (.TXT assumed) & PC directory to place file in?|>
EXECUTE :<| >
EXECUTE :P | GLUAMP.DO |:K
RETURN-AFTER-PAUSE
SELECTION "Trans ASCII File - PC to AMOS"
HELP-MESSAGE "File goes into your AMOS dir"
EXECUTE XY 5 1
EXECUTE :<FOLLOW THESE INSTRUCTIONS|>
EXECUTE :<~~~~~~~~~~~~~~~~~~~~~~~~~|>
EXECUTE :<Enter BOTH items TOGETHER with a space between them|>
EXECUTE :<||Full filename? & PC directory where file is located?|>
EXECUTE :< (if in root directory, leave blank)|>
EXECUTE :<| >
EXECUTE :P | GLUPAM.DO |:K
RETURN-AFTER-PAUSE
;--------------------------------
SUBTITLE ""
SUBTITLE "WRITE SHARED-USE DIRECTORIES"
SUBTITLE ""
SELECTION "Admin Secretarial"
EXECUTE :S | LOG DSK3:[110,3]
EXECUTE :R | WRITE
EXECUTE :S | HOME
EXECUTE :R |
SELECTION "Admin Bookkeeping General"
EXECUTE :S | LOG DSK3:[110,5]
EXECUTE :R | WRITE
EXECUTE :S | HOME
EXECUTE :R |
SELECTION "ABC Secretarial"
EXECUTE :S | LOG DSK3:[111,114]
EXECUTE :R | WRITE
EXECUTE :S | HOME
EXECUTE :R |
SELECTION "ABC Library"
EXECUTE :S | LOG DSK3:[111,113]
EXECUTE :R | WRITE
EXECUTE :S | HOME
EXECUTE :R |
;--------------------------------
SUBTITLE "SEND OF ALASKA BULLETIN BOARD"
SUBTITLE ""
SELECTION "Directory of BB Files"
EXECUTE :S | LOG DSK3:[117,1] | DIRSEQ
EXECUTE :R | START | XY 3 1
EXECUTE :<|Filename(s)? (RETURN for All Files) >
EXECUTE :P | DIR |:K
EXECUTE :S | HOME
EXECUTE :R |
RETURN-AFTER-PAUSE
SELECTION "Trans ASCII File onto BB (Put)"
HELP-MESSAGE "Assumes file in your AMOS dir"
EXECUTE XY 5 1
EXECUTE :<Document name? (.TXT assumed) >
EXECUTE :P | GLUBBP.DO |:K
RETURN-AFTER-PAUSE
SELECTION "Trans ASCII File from BB (Get)"
HELP-MESSAGE "File goes into your AMOS dir"
EXECUTE XY 5 1
EXECUTE :<Full Filename? >
EXECUTE :P | GLUBBG.DO |:K
RETURN-AFTER-PAUSE
SELECTION "Rename BB File(s)"
EXECUTE :S | LOG DSK3:[117,1] | DIRSEQ
EXECUTE :R | START | XY 3 1
EXECUTE :<FOLLOW THESE INSTRUCTIONS|>
EXECUTE :<~~~~~~~~~~~~~~~~~~~~~~~~~|>
EXECUTE :<Enter BOTH items TOGETHER with a space between them|>
EXECUTE :<||Existing filename(s)? & New filename(s)?|>
EXECUTE :<| >
EXECUTE :P | GLUBBR.DO |:K
RETURN-AFTER-PAUSE
SELECTION "Erase BB File(s)"
EXECUTE :S | LOG DSK3:[117,1] | DIRSEQ
EXECUTE :R | START | XY 3 1 | DIR
EXECUTE :<|Filename(s) to erase? >
EXECUTE :P | ERASE/Q |:K
EXECUTE :S | HOME
EXECUTE :R |
RETURN-AFTER-PAUSE
SELECTION "View an ASCII File on BB"
EXECUTE :S | LOG DSK3:[117,1] | DIRSEQ
EXECUTE :R | START | XY 3 1 | DIR
EXECUTE :<|Full filename? >
EXECUTE :P | LOOK |:K
EXECUTE :S | HOME
EXECUTE :R |
;--------------------------------
SUBTITLE ""
SUBTITLE ""
SUBTITLE "MISCELLANEOUS"
SUBTITLE ""
SELECTION "Dot-matrix Printer Settings"
EXECUTE RUN PITCH
SELECTION "Return to Previous Menu"
EXECUTE :S | HOME
EXECUTE :R |
CHAIN-TO GLUE SMAIN
SELECTION "Exit to AMOS"
HELP-MESSAGE "Only SysOp can see & execute"
SECURITY 254,254
EXIT
;--------------------------------
KEY F1
EXECUTE USTAT E
KEY MENU
EXECUTE :S | HOME
EXECUTE :R |
CHAIN-TO GLUE SMAIN
_