Listing of file='IDS2PS56' on disk='vmedia/701-2715B.wvd.zip'
# Sector 283, program filename = 'IDS2PS56' 1000 REM "IDS2PS56" - Release 2.1 - SCREEN/REPORT/BATCH EDIT LIBRARY RETRIEVAL 1005 E6$=F6$(17)AND HEX(02) : IF E6$=HEX(00)THEN LOAD T#2,"IDS2SUB8"3701,3899BEG 1010 1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM" : E7$=F5$ : MAT SEARCHE3$(),=STR(C9$,9,8)TO F9$STEP 8 : J0=VAL(F9$,2) : IF J0=0THEN J0=Z*8+1 : F6$(14)="N" : J5$=STR(E$(),82) : STR(E$(),82,16)=C9$ : GOSUB '37(7) : GOSUB '37(8) : GOSUB '60(E1$(2),J5$) : F8=0 1040 GOSUB '62(E1$(2),1,0) : IF Q=0OR STR(F$(),7,16)>J5$THEN 1230 : IF F$(1)<>E$(76)THEN 1040 : IF F8=0THEN STR(E$(),98,1944)=" " : IF F8=0THEN F8=VAL(F$(3)) : ELSE IF F8<>VAL(F$(3))THEN 1230 : CONVERT F$(2)TO Q : ON QGOTO 1140,1150,1160,1170,1180,1190,1200,1210 : STR(E$(),98,228)=STR(F$(),23) : GOTO 1220 1140 STR(E$(),326,228)=STR(F$(),23) : GOTO 1220 1150 STR(E$(),554,228)=STR(F$(),23) : GOTO 1220 1160 STR(E$(),782,228)=STR(F$(),23) : GOTO 1220 1170 STR(E$(),1010,228)=STR(F$(),23) : GOTO 1220 1180 STR(E$(),1238,228)=STR(F$(),23) : GOTO 1220 1190 STR(E$(),1466,192)=STR(F$(),23) : GOTO 1220 1200 STR(E$(),1658,192)=STR(F$(),23) : GOTO 1220 1210 STR(E$(),1850,192)=STR(F$(),23) 1220 GOTO 1040 1230 MAT REDIM E3$(24)83 : DATA LOAD DA T#3,(E4+17)E3$() : MAT REDIM E3$(249)8 : STR(E3$(),J0,8)=STR(C9$,9) : F6$(14)="Y" : FOR I=1TO 9STEP 8 1232 MAT SEARCHE$()<76,>,=STR(J5$,I,8)TO F9$ : IF F9$=HEX(0000)OR STR(J5$,I,8)=STR(C9$,I,8)THEN 1233 : STR(E$(),VAL(F9$,2)+75,8)=STR(C9$,I) : GOTO 1232 1233 NEXT I : F0$="Edit library specification "&STR(J5$,,8)&"-"&STR(J5$,9,8)&"-"&E$(76) : IF F8=0THEN F0$=F0$&" not" : F0$=F0$&" found." : IF F8=0THEN GOSUB '35(F0$) : ELSE GOSUB '53(F0$) : IF F8>0THEN GOSUB '36 : LOAD T#2,E7$1000, 1260 STOP # : ON ERRORE1$,E2$GOTO 3700 3700 DEFFN'31 : E$="IDS2PS56" : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000, : STOP "ERROR"