Listing of file='IDS2PF09' on disk='vmedia/701-2717B.wvd.zip'
# Sector 905, program filename = 'IDS2PF09' 1000 REM "IDS2PF09" - DATA FILE EDITOR - SAVE FIELD & RECORD PARAMETERS 1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM" : DIM J(4) : CONVERT ZTO STR(E$(),90,3),(###) : J(1)=0 : J(2),J(3),J(4)=9999 : FOR I=1TO Z : IF STR(E$(),I*6+496,1)>HEX(00)THEN 1140 : P=INT(VAL(STR(E$(),I*6+493),2)/16) : L=VAL(STR(E$(),I*6+495)) : T=INT(INT(MOD(VAL(STR(E$(),I*6+494)),16)/2)/3.5)+2 : J(1)=MAX(J(1),P+L-1) : J(T)=MIN(J(T),P) 1140 NEXT I : FOR I=2TO 4 : IF J(I)>J(1)THEN J(I)=J(1)+1 : NEXT I : J(4)=MAX(0,J(1)+1-J(4)) : J(3)=MAX(0,J(1)+1-J(4)-J(3)) : J(2)=MAX(0,J(1)+1-J(4)-J(3)-J(2)) : FOR I=1TO 3 : CONVERT J(I)TO STR(E$(),89+4*I,4),(####) : NEXT I 1224 FOR I=0TO 240STEP 16 : BIN(E6$)=I : MAT SEARCHE$()<504,1489>,>=E6$TO F9$STEP 6 : IF F9$=HEX(0000)THEN 1226 : HEXUNPACKE6$TO F9$ : STR(E$(),446,1)=F9$ 1226 NEXT I : MAT REDIM E$(24)83,F$(24)83 : IF STR(E$(),10,1)<>"1"THEN 1300 : FOR I=1TO 5 : IF STR(E$(),91+(I*17),17)=" "THEN 1270 : MAT SEARCHE3$(),=STR(E$(),91+(I*17),8)TO F9$STEP 8 : IF F9$>HEX(0000)THEN 1270 : STR(E$(),91+(I*17),17)=" " 1270 NEXT I 1300 IF STR(E$(),10,1)>"4"THEN F7$=STR(E$(),82) : ELSE F7$=STR(E$(),2) : OR (F7$,20) : GOSUB '39(F7$,5) : DATA SAVE DA T#P,(A,A)E$() : DATA SAVE DA T#P,(A)F$() : COM CLEAR F9$() : MAT REDIM E$(E8)1,E2$(250)9,E3$(249)8,F$(E9)1 : LOAD DC T#2,"IDS2PF10"1000, 3699 ON ERRORE1$,E2$GOTO 3700 3700 DEFFN'31 : E$="IDS2PF09" : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000, : STOP "ERROR"