Listing of file='START040' on disk='vmedia/701-2048D.wvd.zip'
# Sector 114, program filename = 'START040'
0010 REM START040,00-00(02/18/76),12003A - COPYRIGHT WANG LABS. INC., 1976
0060 SELECT PRINT 005(64),CO 005(64)
: PRINT HEX(030A)
: DIM Q6$64
: GOTO 670
0110 DEFFN'33(Q6$)
: PRINT HEX(030A0A0A0A0A)
: PRINT TAB(10);"* * * * * * * * * * * * * * * * * * * * * * * *"
: PRINT TAB(10);"* *"
0150 PRINT TAB(10);"* SYSTEM NOW LOADING *"
: PRINT TAB(10);"*";TAB(35-INT(LEN(Q6$)/2));Q6$;TAB(56);"*"
: PRINT TAB(10);"* *"
0180 PRINT TAB(10);"* * * * * * * * * * * * * * * * * * * * * * * *"
: RETURN
0210 DEFFN'0
: GOSUB '33("COPY/VERIFY")
: LOAD DC T#0,"COPY010A"
0250 DEFFN'1
: GOSUB '33("CREATE REFERENCE FILE")
: LOAD DC T#0,"COPY010B"
0290 DEFFN'2
: GOSUB '33("SORT DISK CATALOG")
: LOAD DC T#0,"SCAT010A"
0330 DEFFN'3
: GOSUB '33("DISK DUMP")
: LOAD DC T#0,"DISKDUMP"
0370 DEFFN'4
: GOSUB '33("DECOMPRESSION")
: LOAD DC T#0,"DCOM010A"
0410 DEFFN'5
: IF S<12THEN 490
: GOSUB '33("LIST/CROSS REFERENCE")
: LOAD DC T#0,"XREF010A"
0460 DEFFN'6
: RETURN CLEAR
0480 IF S>8THEN 520
0490 PRINT HEX(030A);"INSUFFICIENT MEMORY"
: INPUT "KEY RETURN(EXEC) TO RESUME",Q6$
: GOTO 60
0520 GOSUB '33("COMPRESSION")
: LOAD DC T#0,"COMP010A"
0550 DEFFN'7
: GOSUB '33("LISTING PROGRAM")
: LOAD DC T#0,"LIST010A"
0590 DEFFN'8
: GOSUB '33("RECONSTRUCT DISK INDEX")
: LOAD DC T#0,"RCDI010A"
0630 DEFFN'15
: GOSUB '33("SYSTEM START-UP")
: LOAD DC T#0,"START"
0670 PRINT TAB(20);"WANG COMPUTER SYSTEMS"
: PRINT TAB(26);"UTILITIES"
: PRINT
: PRINT "----------------------------------------------------------------"
0710 PRINT " FN KEY PROGRAM NAME FN KEY PROGRAM NAME"
: PRINT "----------------------------------------------------------------"
0730 PRINT " 00 COPY / VERIFY 05 LIST/CROSS REF"
: PRINT " 01 CREATE REFERENCE FILE 06 COMPRESSION"
0750 PRINT " 02 SORT DISK CATALOG 07 LISTING PROGRAM"
: PRINT " 03 DISK DUMP 08 RECONSTRUCT INDEX"
0770 PRINT " 04 DECOMPRESS 15 SYSTEM START-UP"
: PRINT HEX(0C)
: STOP