image of READY prompt

Wang2200.org

Listing of file='START055' on disk='vmedia/701-2048D.wvd.zip'

# Sector 664, program filename = 'START055'
0010 REM START055,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 330
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("DETERMINE WORK FILE SIZE")
   : LOAD DC T#0,"SORTSP01"
0250 DEFFN'1
   : GOSUB '33("GENERAL DISK SORT UTILITY")
   : LOAD DC T#0,"SORT"
0290 DEFFN'15
   : GOSUB '33("SYSTEM START-UP")
   : LOAD DC T#0,"START"
0330 PRINT HEX(0A0A)
   : PRINT TAB(25);"ISS DISK SORT"
   : PRINT
   : PRINT "----------------------------------------------------------------"
   : PRINT " FN KEY     PROGRAM NAME            FN KEY     PROGRAM NAME"
0380 PRINT "----------------------------------------------------------------"
   : PRINT
   : PRINT "   00   DETERMINE WORK FILE SIZE      01   ISS DISK SORT"
   : PRINT ;TAB(38);"15   SYSTEM START-UP"