image of READY prompt

Wang2200.org

Listing of file='START065' on disk='vmedia/701-2086B.wvd.zip'

# Sector 516, program filename = 'START065'
0010 REM START065,03/02/76
0050 COM M$1
   : SELECT PRINT 005(64),CO 005(64)
   : PRINT HEX(030A)
   : DIM Q6$64
0110 M$="A"
0130 GOTO 650
0150 DEFFN'33(Q6$)
   : PRINT HEX(030A0A0A0A0A)
   : PRINT TAB(10);"* * * * * * * * * * * * * * * * * * * * * * * *"
   : PRINT TAB(10);"*                                             *"
0190 PRINT TAB(10);"*               SYSTEM NOW LOADING            *"
   : PRINT TAB(10);"*";TAB(35-INT(LEN(Q6$)/2));Q6$;TAB(56);"*"
   : PRINT TAB(10);"*                                             *"
0220 PRINT TAB(10);"* * * * * * * * * * * * * * * * * * * * * * * *"
   : RETURN
0250 DEFFN'0
   : GOSUB '33("INITIALIZE KFAM FILE")
   : LOAD DC T#0,"KFAM1004"
0290 DEFFN'1
   : GOSUB '33("KEY FILE CREATION UTILITY")
   : LOAD DC T#0,"KFAM2004"
0330 DEFFN'2
   : GOSUB '33("REORGANIZE KFAM FILE")
   : LOAD DC T#0,"KFAM3004"
0370 DEFFN'3
   : GOSUB '33("REALLOCATE KFAM FILE SPACE")
   : LOAD DC T#0,"KFAM4004"
0410 DEFFN'4
   : GOSUB '33("DISK COPY AND REORGANIZE")
   : LOAD DC T#0,"KFAM4104"
0450 DEFFN'5
   : GOSUB '33("CONVERT FILE FROM KFAM-3 TO KFAM-4")
   : LOAD DC T#0,"KFAM5004"
0490 DEFFN'6
   : GOSUB '33("PRINT KEY FILE")
   : LOAD DC T#0,"KFAM6004"
0530 DEFFN'7
   : GOSUB '33("RESET ACCESS TABLE")
   : LOAD DC T#0,"KFAM7004"
0570 DEFFN'8
   : GOSUB '33("BUILD SUBROUTINE MODULE")
   : LOAD DC T#0,"KFAM8004"
0594 DEFFN'9
   : GOSUB '33("KEY FILE RECOVERY")
   : LOAD DC T#0,"KFAM9004"
0610 DEFFN'15
   : GOSUB '33("SYSTEM START-UP")
   : COM CLEAR M$
   : LOAD DC T#0,"START"
0650 PRINT TAB(20);"WANG COMPUTER SYSTEMS"
   : PRINT TAB(23);"KFAM-4 UTILITIES"
   : PRINT
   : PRINT "----------------------------------------------------------------"
0690 PRINT " FN KEY     PROGRAM NAME         FN KEY     PROGRAM NAME"
   : PRINT "----------------------------------------------------------------"
0710 PRINT "   00   INITIALIZE KFAM FILE       05   CONVERT KFAM-3 TO KFAM-4"
   : PRINT "   01   KEY FILE CREATION UTILITY  06   PRINT KEY FILE"
0730 PRINT "   02   REORGANIZE KFAM FILE       07   RESET ACCESS TABLE"
   : PRINT "   03   REALLOCATE KFAM FILE SPACE 08   BUILD SUBROUTINE MODULE"
0750 PRINT "   04   DISK COPY/ REORGANIZE      09   KEY FILE RECOVERY"
   : PRINT "                                   15   SYSTEM START-UP"
   : STOP