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"