Listing of file='IDS2PF16' on disk='vmedia/701-2717B.wvd.zip'
# Sector 199, program filename = 'IDS2PF16' 1000 REM "IDS2PF16" - DATA FILE EDITOR - PRINT GENERAL FILE DOCUMENTATION 1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM" : MAT REDIM E2$(24)83 : DATA LOAD DC OPEN T#2,"IDS2sF15" : DATA LOAD DC #2,E2$(),E2$() : MAT REDIM E2$(250)9 : GOSUB '43(1) : F1$=E$ : OR (E$,20) : MAT REDIM E$(24)83 : GOSUB '39(E$,5) : DATA LOAD DA T#P,(A)E$() : MAT REDIM E$(E8)1 : C3=0 : FOR I=49TO 64 : GOSUB '43(I) : IF E$<>" "THEN C3=C3+1 : NEXT I 1050 E0$()=HEX(01) : GOSUB '71(HEX(0C)) : GOSUB '49(0) : GOSUB '63("Now printing doc","umentation."," ") 1060 E$=" Data file "&HEX(22)&STR(E$(),2,8)&HEX(2220)&STR(E$(),22,32) : GOSUB '71(E$) : E$=STR(R2$,1,2)&"/"&STR(R2$,3,2)&"/"&STR(R2$,5)&" Page 1 of X" : GOSUB '48(62,E$,0) : GOSUB '43(71) : CONVERT INT((C3+Q+26)/50)+1TO STR(E0$(),83),(#) : GOSUB '49(0) : GOSUB '49(0) 1070 GOSUB '71(" Revision number") : GOSUB '48(-1,STR(E$(),11),5) : GOSUB '48(32,"Version",0) : GOSUB '48(52,STR(E$(),54),1) : GOSUB '48(62,"User class",0) : GOSUB '48(82,STR(E$(),62),1) : GOSUB '49(0) 1080 E$=" Last revised "&STR(E$(),16,2)&"/"&STR(E$(),18,2)&"/"&STR(E$(),20,2) : GOSUB '71(E$) : GOSUB '48(32,"Application code",0) : GOSUB '48(50,STR(E$(),55),3) : GOSUB '48(62,"User ID code",0) : GOSUB '48(80,STR(E$(),63),3) : GOSUB '49(0) 1090 GOSUB '71(" Last revised by") : GOSUB '48(-3,STR(E$(),447),3) : GOSUB '48(32,"Function code",0) : GOSUB '48(49,STR(E$(),58),4) : GOSUB '48(62,"Password",0) : GOSUB '48(75,STR(E$(),66),8) : GOSUB '49(0) : GOSUB '49(0) 1100 GOSUB '71(" Read user class = . User ID code = ... Write user class = . User ID code =") : FOR I=0TO 1 : GOSUB '48(I*42+21,STR(E$(),I*4+74),1) : GOSUB '48(I*42+38,STR(E$(),I*4+75),3) : NEXT I : GOSUB '49(0) : GOSUB '49(0) : GOSUB '48(12,"T",0) : GOSUB '48(68,"P D",0) : GOSUB '49(0) 1122 GOSUB '48(12,"Y",0) : GOSUB '48(65,"K A P A K",0) : GOSUB '49(0) : GOSUB '48(12,"P",0) : GOSUB '48(65,"E C T T I SORT ",0) : GOSUB '49(0) : GOSUB '71(" KEY FILE E FIELD FIELD FIELD FIELD FIELD Y K R A E ARRAY") : GOSUB '49(0) 1140 GOSUB '71(" -------- - --------- --------- --------- --------- --------- -- -- - -- -- -----") : GOSUB '49(0) : FOR J=0TO 16 : GOSUB '43(J+48) : IF E$=" "THEN 1180 : GOSUB '48(3,E$,8) : OR (E$,20) : GOSUB '39(E$,5) : IF Q>0THEN 1160 : GOSUB '48(-1,"- FILE NOT CURRENTLY AVAILABLE",0) : GOSUB '49(0) : GOTO 1180 1160 MAT REDIM E$(6)83 : DATA LOAD DA T#P,(A)E$() : GOSUB '48(-1,STR(E$(),10),1) : FOR I=108TO 176STEP 17 : GOSUB '48(-1,STR(E$(),I+16),1) : GOSUB '48(0,STR(E$(),I),8) : NEXT I : GOSUB '48(-1,STR(E$(),193),2) : FOR I=44TO 47 : GOSUB '43(I) : GOSUB '48(LEN(E$)-2-ABS(SGN(45-I)),E$,0) : NEXT I 1165 X=(VAL(STR(E$(),416))+VAL(STR(E$(),417))+4)*(VAL(STR(E$(),435),2)+1) : CONVERT XTO E$,(########) : STR(E$,9)="X" : STR(E$,1,POS(E$>30)-1)=" " : GOSUB '48(78,STR(E$,4),5) : GOSUB '49(0) : GOSUB '43(48) : OR (E$,20) : MAT REDIM E$(24)83 : GOSUB '39(E$,5) : DATA LOAD DA T#P,(A)E$() : MAT REDIM E$(E8)1 1180 NEXT J : GOSUB '49(0) : E$=F1$ : OR (E$,20) : MAT REDIM E$(24)83 : GOSUB '39(E$,5) : DATA LOAD DA T#P,(A)E$() : MAT REDIM E$(E8)1 : GOSUB '71(" Record statistics: Numeric =") : GOSUB '48(-1,STR(E$(),97),4) : GOSUB '48(-2,"Records currently on file =",0) : GOSUB '48(-1,STR(E$(),458),8) : GOSUB '49(0) 1210 GOSUB '71(" No. of fields =") : GOSUB '48(-2,STR(E$(),480),3) : GOSUB '48(-1," Upper case =",0) : GOSUB '48(-1,STR(E$(),101),4) : GOSUB '48(-2,STR(E$(),466),6) : GOSUB '48(0,"% full as specified @",0) : GOSUB '48(-1,STR(E$(),201),8) : GOSUB '49(0) 1220 GOSUB '71(" Record length =") : GOSUB '48(-1,STR(E$(),93),4) : GOSUB '48(-1," Packed length =",0) : GOSUB '48(-1,STR(E$(),218),4) : GOSUB '48(-2,STR(E$(),472),6) : GOSUB '48(0,"% full as provided @",0) : GOSUB '48(-1,STR(E$(),209),8) : GOSUB '49(0) : GOSUB '49(0) 1230 GOSUB '71(" Key to field attribute description column headings:") : GOSUB '49(0) : GOSUB '71(" FIELD = Field name") : GOSUB '49(0) : GOSUB '71(" POS = Position in record of first character in field") : GOSUB '49(0) : GOSUB '71(" LEN = Length of field") : GOSUB '49(0) 1270 GOSUB '71(" T = Type of field as follows: 0 = Digits only 4 = Upper case letterd") : GOSUB '49(0) : GOSUB '48(39,"1 = Digits & signs 5 = U/C letters & digits",0) : GOSUB '49(0) : GOSUB '48(39,"2 = Digits & dec pt 6 = U/C numerics & punct",0) : GOSUB '49(0) 1300 GOSUB '48(39,"3 = Any numeric 7 = Any character",0) : GOSUB '49(0) : GOSUB '71(" J = Justification (blank if left justified, 'R' if righ t)") : GOSUB '49(0) : Q=C3 : LOAD DC T#2,"IDS2PF17"1000, 1370 DEFFN'71(E4$()) : GOSUB '48(0,E4$(),0) : RETURN 3699 ON ERRORE1$,E2$GOTO 3700 3700 DEFFN'31 : E$="IDS2PF16" : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000, : STOP "ERROR"