Listing of file='MENU020A' on disk='vmedia/701-2049C.wvd.zip'
# Sector 114, program filename = 'MENU020A' 0010 REM MENU020A,00-00(04/26/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("KFAM-3") : LOAD DC T#0,"START050" 0310 DEFFN'1 : GOSUB '33("APPLICATIONS") : LOAD DC T#0,"START060" 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(20);"APPLICATION SUPPORT #2" : PRINT "----------------------------------------------------------------" 0550 PRINT " FN KEY PROGRAM NAME FN KEY PROGRAM NAME" : PRINT "----------------------------------------------------------------" 0570 PRINT " 00 - KFAM-3 02 - CHANGE SYSTEM SPECS." : PRINT " 01 - APPLICATION 15 - NOT ON THIS VOL." : STOP