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"