image of READY prompt

Wang2200.org

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