Listing of file='MENU000A' on disk='vmedia/701-2047D.wvd.zip'
# Sector 174, program filename = 'MENU000A'
0010 REM MENU000A,00-00(04/26/76),12003A - COPYRIGHT WANG LABS. INC., 1976
0060 % ## - ###################### ## - ######################
0070 SELECT PRINT 005(64),CO 005(64)
: PRINT HEX(030A)
: COM Q1$8,Q1,S,S1
: DIM Q6$64
: DATA LOAD DC OPEN T#0,"MEMORY"
: DATA LOAD DC #0,S,Q1$,Q1,S1
: DATA SAVE DC CLOSEALL
: GOTO 510
0170 DEFFN'33(Q6$)
: PRINT HEX(030A0A0A0A0A)
: PRINT TAB(10);"* * * * * * * * * * * * * * * * * * * * * * * *"
: PRINT TAB(10);"* *"
0210 PRINT TAB(10);"* SYSTEM NOW LOADING *"
: PRINT TAB(10);"*";TAB(35-INT(LEN(Q6$)/2));Q6$;TAB(56);"*"
: PRINT TAB(10);"* *"
0240 PRINT TAB(10);"* * * * * * * * * * * * * * * * * * * * * * * *"
: RETURN
0270 DEFFN'0
: GOSUB '33("PROGRAMMING AIDS")
: LOAD DC T#0,"MENU030A"
0310 DEFFN'1
: GOSUB '33("APPLICATION SUPPORT #1")
: LOAD DC T#0,"MENU010A"
0350 DEFFN'2
: GOSUB '33("APPLICATION SUPPORT #2")
: LOAD DC T#0,"MENU020A"
0390 DEFFN'3
: GOSUB '33("APPLICATION SUPPORT #3")
: LOAD DC T#0,"MENU040A"
0430 DEFFN'4
: GOSUB '33("APPLICATIONS")
: LOAD DC T#0,"START060"
0470 DEFFN'5
: GOSUB '33("CHANGE SYSTEM SPECS.")
: LOAD DC T#0,"SPEC010A"
0510 PRINT TAB(20);"WANG COMPUTER SYSTEMS"
: PRINT TAB(24);"SYSTEM MENU"
: PRINT "----------------------------------------------------------------"
0540 PRINT " FN KEY PROGRAM NAME FN KEY PROGRAM NAME"
: PRINT "----------------------------------------------------------------"
0560 PRINTUSING 60,"00","PROGRAMMING AIDS","03","APPLICATION SUPPORT #3"
: PRINTUSING 60,"01","APPLICATION SUPPORT #1","04","APPLICATION"
0580 PRINTUSING 60,"02","APPLICATION SUPPORT #2","05","CHANGE SYSTEM SPECS."
: STOP