Listing of file='IDS2PF02' on disk='vmedia/701-2717B.wvd.zip'
# Sector 36, program filename = 'IDS2PF02' 1000 REM "IDS2PF02" - DATA FILE FIELD EDITOR SET-UP MODULE 1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM" : COM D2,D3,D4 : D3,D4=0 : GOSUB '32("IDS2sF02") : F=1 : F$(),F1$,F2$=" " : CONVERT STR(E$(),10,1)TO D2 : ERRORGOSUB '35("Invalid file type") : COM CLEAR D2 : LOAD T#2,"IDS2MF01"1000, 1040 IF D2>4THEN E$,F7$=STR(E$(),82) : ELSE E$,F7$=STR(E$(),2) : OR (E$,20) : GOSUB '39(E$,5) : MAT REDIM E$(24)83,F$(24)83 : DATA LOAD DA T#P,(A)E$(),F$() : MAT REDIM F$(E9)1,E$(6)83 : GOSUB '43(1) : OR (E$,20) : GOSUB '39(E$,5) : DATA LOAD DA T#P,(A)E$() : MAT REDIM E$(E8)1 : GOSUB '37(1) : GOSUB '37(2) : GOSUB '45(3,F7$) : GOSUB '45(4,"1") : IF D2>4THEN LOAD DC T#2,"IDS2PF10"1000, 1200 F5$=" " : MAT SEARCHF$(),=F5$TO F9$STEP 8 : Z=(VAL(F9$,2)-1)/8 : IF Z=0THEN 1300 : FOR I=1TO Z : P=INT(VAL(STR(E$(),I*6+493),2)/16) : L=VAL(STR(E$(),I*6+495)) : D4=MAX(D4,P+L-1) : IF STR(E$(),I*6+496,1)=HEX(00)THEN D3=D3+1 : NEXT I 1300 LOAD DC T#2,"IDS2PF03"1000, 3699 ON ERRORE1$,E2$GOTO 3700 3700 DEFFN'31 : E$="IDS2PF02" : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000, : STOP "ERROR"