Listing of file='IDS2PIX7' on disk='vmedia/701-2717B.wvd.zip'
# Sector 230, program filename = 'IDS2PIX7'
1000 REM "IDS2PIX7" - VERIFY CURRENT SYSTEM USER ID FILE ACCESS VALIDITY
1005 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: DIM C$(100)2,F8$(6)83
: F=0
1017 INIT(00)C$()
: MAT SEARCHE1$()<9+F*5600>,>HEX(0F)TO C$()STEP 56
: FOR I=1TO 100
: N=F*100+INT(VAL(C$(I),2)/56)+1
: IF STR(F4$,4,8)="IDS2PCST"AND N>2THEN 1160
: IF N=VAL(STR(E1$(N),10),2)THEN 1100
: STR(E1$(N),52,2)=STR(E1$(VAL(STR(E1$(N),10),2)),52,2)
: IF STR(E1$(VAL(STR(E1$(N),10),2)),9,1)>HEX(0F)THEN STR(E1$(N),9,1)=OR HEX
(80)
: GOTO 1160
1100 F0$=STR(E1$(N),,8)OR ALL(20)
: P=5
: IF STR(F0$,,4)="ids2"THEN P=2
: LIMITS T#P,F0$,A,B,C,D
: DATA LOAD DA T#P,(A)F8$()
: IF R4$<>STR(F8$(),75,3)THEN STR(E1$(N),52,1)="G"
: IF R4$<>STR(F8$(),79,3)THEN STR(E1$(N),53,1)="G"
: IF I=100OR C$(I+1)=HEX(0000)THEN I=100
1160 NEXT I
: F=F+1
: IF C$(100)<>HEX(0000)THEN 1017
: F0$=STR(R3$(),,9)
: R3$()=STR(R3$(),10)
: IF STR(F0$,,4)="IDS2"THEN P=2
: ELSE P=4
: LOAD T#P,STR(F0$,,8)1000,