image of READY prompt

Wang2200.org

Listing of file='START030' on disk='vmedia/701-2047D.wvd.zip'

# Sector 161, program filename = 'START030'
0010 REM START030,00-00(02/18/76),12003A - COPYRIGHT WANG LABS. INC., 1976
0050 SELECT PRINT 005(64),CO 005(64)
   : COM F$16,I
   : DIM C1$16,F$(11)16
   : INIT(00)F$,F$()
   : INIT(0A)C1$
   : F$(1)=HEX(01000000000000000000000000000000)
   : F$(2)=HEX(00010001000000000000000000000000)
0160 F$(3)=HEX(00010100000000000000000000000000)
   : F$(4)=HEX(00010000000000000000000000000000)
   : F$(5)=HEX(00010101010001010000010101000000)
   : F$(6)=HEX(00010000010101010100000101000000)
0240 F$(7)=HEX(00000000010001000000000000000000)
   : F$(8)=HEX(00000000010001010000000000000000)
   : F$(9)=HEX(00000000010001000100000000000000)
   : F$(10)=HEX(00000000010001010101000000000000)
0320 F$(11)=HEX(00000000010001000000000100000000)
   : PRINT HEX(030A0A0A);TAB(23);"USER SUBROUTINES"
   : PRINT
   : PRINT "----------------------------------------------------------------"
0380 PRINT "   FN KEY   SUBROUTINE NAME         FN KEY   SUBROUTINE NAME"
   : PRINT "----------------------------------------------------------------"
0400 PRINT "      00 - DATA ENTRY                  06 - POSITION CURSOR"
   : PRINT "      01 - FREE UNUSED SECTORS         07 - ALPHANUMERIC INPUT"
0420 PRINT "      02 - ALLOCATE DATA FILE SPACE    08 - NUMERIC INPUT"
   : PRINT "      03 - SEARCH CATALOG INDEX        09 - DATE"
0440 PRINT "      04 - OPEN/CLOSE OUTPUT           10 - OPERATOR WAIT"
   : PRINT "      05 - OPEN/CLOSE INPUT"
   : PRINT
   : PRINT "      16 - LOAD SELECTED ROUTINES      31 - SYSTEM START-UP";HEX(0
     1)
0490 PRINT HEX(010A);"KEY THE DESIRED SPECIAL FUNCTIONS"
   : PRINT ":";
0510 KEYIN A$,530,550
   : GOTO 510
0530 PRINT HEX(010A0A0A);"RE-ENTER"
   : GOTO 490
0550 IF A$=HEX(1F)THEN 9910
   : IF A$=HEX(10)THEN 650
   : IF A$>HEX(0A)THEN 530
   : PRINT HEX(010A0A0A);TAB(20);HEX(010D);TAB(4);
   : IF A$<HEX(06)THEN 610
   : PRINT TAB(37);
0610 PRINT STR(C1$,1,VAL(A$)+1-INT((VAL(A$))/6)*6+7);"*";HEX(0D01)
   : OR (F$,F$(VAL(A$)+1))
   : GOTO 490
0650 I=0
9900 DEFFN'99
9901 I=I+1
   : IF I>16THEN 9908
   : IF STR(F$,I,1)=HEX(00)THEN 9901
   : N$="SUB-000A"
   : CONVERT I-1TO STR(N$,5,3),(###)
   : PRINT HEX(03);"LOADING FILE - ";N$
   : LOAD DC T#0,N$10,1000
9908 PRINT HEX(03);"ALL MODULES LOADED"
   : END
9910 DEFFN'15
   : COM CLEAR F$
   : LOAD DC T#0,"START"