Listing of file='MENU030A' on disk='vmedia/701-2047D.wvd.zip'
# Sector 185, program filename = 'MENU030A'
0010 REM MENU030A,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 520
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("SCREEN & DISK SUBROUTINES")
: LOAD DC T#0,"START030"
0310 DEFFN'1
: GOSUB '33("TRANSLATION TABLES")
: LOAD DC T#0,"START035"
0350 DEFFN'2
: GOSUB '33("CHANGE SYSTEM SPECS.")
: LOAD DC T#0,"SPEC010A"
0390 DEFFN'15
: IF M=0THEN 450
: PRINT HEX(03);"MOUNT DESIRED ISS VOLUME"
: PRINT HEX(010A);"KEY RETURN(EXEC) TO RESUME"
: INPUT Q6$
0450 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"
0520 PRINT TAB(20);"WANG COMPUTER SYSTEMS"
: PRINT TAB(23);"PROGRAMMING AIDS"
: PRINT "----------------------------------------------------------------"
0550 PRINT " FN KEY PROGRAM NAME FN KEY PROGRAM NAME"
: PRINT "----------------------------------------------------------------"
0570 PRINT " 00 - SCREEN/DISK 02 - CHANGE SYSTEM SPECS."
: PRINT " 01 - TRANSLATION TABLES 15 - NOT ON THIS VOL."
: STOP