Listing of file='IDS2PR25' on disk='vmedia/701-2716B.wvd.zip'
# Sector 331, program filename = 'IDS2PR25'
1000 REM "IDS2PR25" - Release 2.1 - RETRIEVE FIELD ATTRIBUTES FOR SELECTIONS
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: MAT REDIM E$(E8)1
: E$(1600)=E$(151)AND HEX(07)
: E$(1601)=BIN(POS(-STR(E$(),872,15)<>20))
: IF E$(1601)>HEX(00)THEN 1180
: E$(1601)=E$(1600)
: E$=STR(E$(),78,8)
: INIT("1")STR(E$(),872,VAL(E$(1600)))
: GOSUB 1430
: FOR I=1TO 5
: IF STR(E3$(),108+(I-1)*17,8)=" "THEN 1160
1150 STR(E$(),879+I*8,8),STR(E$(),987+I*20,20)=STR(E3$(),108+(I-1)*17,8)
1160 NEXT I
1180 FOR I=1TO 7
: F9$=BIN(I+48)
: IF POS(STR(E$(),872,15)=F9$)=0THEN 1360
: E$=STR(E$(),70+I*8,8)
1220 GOSUB 1430
: E$=STR(E3$(),82,8)
: IF STR(E3$(),10,1)>"4"THEN 1220
: MAT REDIM E3$(24)83
: DATA LOAD DA T#P,(A+8)E3$()
: FOR J=1TO POS(-STR(E$(),872,15)=F9$)
: IF E$(871+J)=F9$THEN MAT SEARCHE3$(),=STR(E$(),879+J*8,8)TO STR(E$,J*2-1,
2)STEP 8
: NEXT J
: DATA LOAD DA T#P,(A)E3$()
: E3$()=STR(E3$(),499)
: MAT REDIM E3$(249)6
: FOR J=1TO POS(-STR(E$(),872,15)=F9$)
1340 IF E$(871+J)=F9$THEN STR(E$(),1596+J*6,6)=E3$(INT((VAL(STR(E$,J*2-1),2)-1
)/8)+1)
: NEXT J
1360 NEXT I
: IF E$(856)="D"THEN LOAD T#2,"IDS2PR35"1000,
: IF E$(856)="X"AND E$(774)="Y"OR E$(856)=" "OR E$(856)="R"THEN LOAD T#2,"I
DS2PR26"1000,1994
: IF E$(856)="X"AND E$(775)="Y"OR E$(856)="L"THEN LOAD T#2,"IDS2PR27"1000,1
994
: IF E$(856)="X"AND E$(776)="Y"OR E$(856)="S"THEN LOAD T#2,"IDS2PR20"1000,1
994
1420 LOAD T#2,"IDS2PBX1"1000,1994
1430 F5$=E$OR ALL(20)
: GOSUB '39(F5$,5)
: MAT REDIM E3$(6)83
: DATA LOAD DA T#P,(A)E3$()
: RETURN
1990 ON XGOTO 1990,1994
1994 %
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PR25"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"