Listing of file='IDS2PF08' on disk='vmedia/701-2717B.wvd.zip'
# Sector 461, program filename = 'IDS2PF08'
1000 REM "IDS2PF08" - DATA FILE EDITOR - SAVE FIELD PARAMETERS IN BUFFER
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: IF F8=1THEN GOSUB '71(" ")
: ELSE GOSUB '71(F1$)
: C4=Q
: J2=C4*6+493
: GOSUB '43(6)
: F1$,STR(F$(),C4*8-7,8)=E$
: GOSUB '43(10)
: D5=Q
: STR(E$(),J2,6)=BIN(Q*16,2)&ALL(00)
: GOSUB '43(11)
: E6$=BIN(Q*2)
: OR (STR(E$(),J2+1,1),E6$)
: GOSUB '43(12)
: IF E$="Y"THEN OR (STR(E$(),J2+1,1),01)
: D7=1
: GOSUB '43(7)
: IF E$=" "THEN 1210
1155 D7=2
: F2$=E$
: GOSUB '71(E$)
: BIN(STR(E$(),J2+3,1))=Q
: GOSUB '43(8)
: BIN(STR(E$(),J2+4,1))=Q
1210 GOSUB '43(9)
: D6=Q
: BIN(STR(E$(),J2+2,1))=Q
: HEXPACKSTR(E$(),J2+5,1)FROMSTR(E$(),497,2)
: GOSUB '43(13)
: IF E$="Y"THEN OR (STR(E$(),J2+5,1),80)
: ROTATE(STR(E$(),J2+5,1),4)
: IF F8=1AND D7=1THEN D3=D3+1
: IF D2=1AND D3>5THEN 1330
: IF D5+D6-1>D4THEN D4=D5+D6-1
: GOTO 1380
1330 GOSUB '35("Type 1 files may have only 5 primary fields, '31 to cancel")
: F6$(11)="N"
: GOSUB '34(250)
: IF Q<>31THEN 1330
: STR(F$(),C4*8-7,8)=" "
: STR(E$(),J2,6)=ALL(00)
: D3=D3-1
1380 LOAD DC T#2,"IDS2PF03"1000,
1400 DEFFN'71(E$)
: MAT SEARCHF$(),=STR(E$,1,8)TO F9$STEP 8
: Q=INT((VAL(F9$,2)+7)/8)
: RETURN
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PF08"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"