Listing of file='IDS2PF07' on disk='vmedia/701-2717B.wvd.zip'
# Sector 192, program filename = 'IDS2PF07' 1000 REM "IDS2PF07" - Release 2.1 - DATA FILES - RE-ARRANGE FIELDS FOR OPTIMUM PACK 1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM" : DIM F9$(250)2,F8$(250)2,F4$(249)1,F1$8,F2$8 : E3$()=ALL(FF) : FOR I=1TO Z : E3$(I)=HEX(0E00FFFF)AND STR(E$(),I*6+494,4) : IF STR(E3$(I),3,1)=HEX(00)THEN STR(E3$(I),3,1)=BIN(I) : STR(E3$(I),,1)=STR(E$(),VAL(STR(E3$(I),3))*6+494,1)AND HEX(0E) : NEXT I : MAT SORTE3$()TO F9$(),F8$() : FOR I=1TO Z 1130 F4$(I)=STR(F8$(I),2) : NEXT I : MAT REDIM E3$(259)6 : P=1 : L=0 : E3$()=ALL(00) : FOR I=1TO Z : E3$(I)=STR(E$(),VAL(F4$(I))*6+493)AND HEX(000FFFFFFFFF) : IF STR(E3$(I),4,1)<>HEX(00)THEN STR(E3$(I),4,1)=BIN(POS(F4$()=STR(E3$(I), 4))) : IF STR(E3$(I),4,1)=HEX(00)THEN J5=P : ELSE J5=INT(VAL(E3$(VAL(STR(E3$(I),4))),2)/16)-1+VAL(STR(E3$(I),5)) 1240 STR(E3$(I),1,2)=STR(E3$(I),1,2)OR BIN(J5*16,2) : L=VAL(STR(E3$(I),3)) : P=MAX(J5+L,P) : NEXT I : STR(E$(),499,1494)=E3$() : MAT REDIM E3$(249)8,F$(249)8 : E3$()=ALL(20) : MAT MOVE F$(),F8$(1),ZTO E3$(1) : F$()=E3$() : MAT REDIM F$(E9)1 : LOAD DC T#2,"IDS2PF03"1000, 3699 ON ERRORE1$,E2$GOTO 3700 3700 DEFFN'31 : E$="IDS2PF07" : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000, : STOP "ERROR"