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