Listing of file='MENU010A' on disk='vmedia/701-2048D.wvd.zip'
# Sector 149, program filename = 'MENU010A'
0010 REM MENU010A,00-00(02/18/76),12003A - COPYRIGHT WANG LABS. INC., 1976
0060 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 LOAD DC #0,M
: DATA SAVE DC CLOSEALL
: GOTO 560
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("ISS UTILITIES")
: LOAD DC T#0,"START040"
0310 DEFFN'1
: GOSUB '33("DISK SORT")
: LOAD DC T#0,"START055"
0350 DEFFN'3
: GOSUB '33("APPLICATIONS")
: LOAD DC T#0,"START060"
0390 DEFFN'2
: GOSUB '33("CHANGE SYSTEM SPECS.")
: LOAD DC T#0,"SPEC010A"
0430 DEFFN'15
: IF M=0THEN 490
: PRINT HEX(03);"MOUNT DESIRED ISS VOLUME"
: PRINT HEX(010A);"KEY RETURN(EXEC) TO RESUME"
: INPUT Q6$
0490 DATA LOAD DC OPEN T#0,"MEMORY"
: DATA LOAD DC S2,Q$,Q,S1
: DBACKSPACE 1S
: DATA SAVE DC S,Q1$,Q1,S1
: LOAD DC T#0,"START"
0560 PRINT TAB(20);"WANG COMPUTER SYSTEMS"
: PRINT TAB(20);"APPLICATION SUPPORT #1"
: PRINT "----------------------------------------------------------------"
0590 PRINT " FN KEY PROGRAM NAME FN KEY PROGRAM NAME"
: PRINT "----------------------------------------------------------------"
0610 PRINT " 00 - ISS UTILITIES 02 - CHANGE SYSTEM SPEC."
: PRINT " 01 - DISK SORT 03 - APPLICATIONS"
0630 PRINT " 15 - NOT ON THIS VOL."
: STOP