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"