Listing of file='START050' on disk='vmedia/701-2049C.wvd.zip'
# Sector 135, program filename = 'START050'
0010 REM START050,02/13/76
0050 SELECT PRINT 005(64),CO 005(64)
: PRINT HEX(030A)
: DIM Q6$64
: GOTO 600
0100 DEFFN'33(Q6$)
: PRINT HEX(030A0A0A0A0A)
: PRINT TAB(10);"* * * * * * * * * * * * * * * * * * * * * * * *"
: PRINT TAB(10);"* *"
0140 PRINT TAB(10);"* SYSTEM NOW LOADING *"
: PRINT TAB(10);"*";TAB(35-INT(LEN(Q6$)/2));Q6$;TAB(56);"*"
: PRINT TAB(10);"* *"
0170 PRINT TAB(10);"* * * * * * * * * * * * * * * * * * * * * * * *"
: RETURN
0200 DEFFN'0
: GOSUB '33("INITIALIZE KFAM FILE")
: LOAD DC T#0,"KFAM1003"
0240 DEFFN'1
: GOSUB '33("KEY FILE CREATION UTILITY")
: LOAD DC T#0,"KFAM2003"
0280 DEFFN'2
: GOSUB '33("REORGANIZE KFAM FILE")
: LOAD DC T#0,"KFAM3003"
0320 DEFFN'3
: GOSUB '33("REALLOCATE KFAM FILE SPACE")
: LOAD DC T#0,"KFAM4003"
0360 DEFFN'4
: GOSUB '33("DISK COPY AND REORGANIZE")
: LOAD DC T#0,"KFAM4103"
0400 DEFFN'5
: GOSUB '33("CONVERT FILE FROM KFAM-1 TO KFAM-3")
: LOAD DC T#0,"KFAM5000"
0440 DEFFN'6
: GOSUB '33("CONVERT FILE FROM KFAM-2 TO KFAM-3")
: LOAD DC T#0,"KFAM5002"
0480 DEFFN'7
: GOSUB '33("PRINT KEY FILE")
: LOAD DC T#0,"KFAM6003"
0520 DEFFN'8
: GOSUB '33("BUILD SUBROUTINE MODULE")
: LOAD DC T#0,"KFAM8003"
0544 DEFFN'9
: GOSUB '33("KEY FILE RECOVERY")
: LOAD DC T#0,"KFAM9003"
0560 DEFFN'15
: GOSUB '33("SYSTEM START-UP")
: LOAD DC T#0,"START"
0600 PRINT TAB(20);"WANG COMPUTER SYSTEMS"
: PRINT TAB(22);"KFAM-3 UTILITIES"
: PRINT
: PRINT "----------------------------------------------------------------"
0640 PRINT " FN KEY PROGRAM NAME FN KEY PROGRAM NAME"
: PRINT "----------------------------------------------------------------"
0660 PRINT " 00 INITIALIZE KFAM FILE 05 CONVERT KFAM-1 TO KFAM-3"
: PRINT " 01 KEY FILE CREATION UTILITY 06 CONVERT KFAM-2 TO KFAM-3"
0680 PRINT " 02 REORGANIZE KFAM FILE 07 PRINT KEY FILE"
: PRINT " 03 REALLOCATE KFAM FILE SPACE 08 BUILD SUBROUTINE MODULE"
0700 PRINT " 04 DISK COPY/ REORGANIZE 09 KEY FILE RECOVERY"
: PRINT TAB(35);"15 SYSTEM START-UP"
: STOP