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"
; 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 "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"
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
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
