Listing of file='IDS2PBX3' on disk='vmedia/701-2717B.wvd.zip'
# Sector 981, program filename = 'IDS2PBX3' 1000 REM "IDS2PBX3" 1020 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM" 1170 E$="IDS2PX" : CONVERT R0TO STR(E$,7),(##) 1190 LIMITS T#2,E$,X,Y,Z,Z : IF Z=1AND Y-X>=9THEN 1230 : IF Z<>0THEN 1225 1210 SAVE T#2,(7)E$1000,1000 : GOTO 1190 1225 Z=9000 : F5$="JUNK####" 1226 Z=Z-1 : CONVERT ZTO STR(F5$,5,4),(####) : LIMITS T#2,F5$,X,X,X,X : IF X<>0THEN 1226 : SCRATCH T#2,E$ : SAVE T#2,(E$)F5$1000,1000 : SCRATCH T#2,F5$ : GOTO 1210 1230 MAT REDIM F$(256)1 : Z,X=X+1 : DATA LOAD BA T#2,(Y)F$() : STR(F$(),,3)=HEX(20000A) : DATA SAVE BA T#2,(Y)F$() : E$=E$(1468)&E$(1471)&E$(1475)&E$(1478)&E$(1482)&STR(E$(),1485,6) : $TRAN(E$<1,LEN(E$)>,"A AV")R : FOR I=1TO LEN(E$) : STR(E$,I,1)=E$(VAL(STR(E$,I))+807) : NEXT I : IF POS(E$>"1")=0THEN 1465 : F$()="1" : FOR I=1TO LEN(E$) : IF STR(E$,I,1)<"2"THEN 1455 1435 CONVERT STR(E$,I,1)TO F : FOR J=0TO 4 : E$=E$&E$(J*9+F*45+97) : NEXT J 1455 NEXT I 1465 FOR I=1TO 7 : IF STR(E$(),I*8+70,8)=" "THEN 1512 : CONVERT ITO E6$,(#) : MAT SEARCHE$()<187,261>,=E6$TO F9$STEP 9 : IF F9$>HEX(0000)THEN 1482 : MAT SEARCHE$()<681,91>,=E6$TO F9$STEP 10 : IF F9$=HEX(0000)THEN 1512 1482 MAT SEARCHE1$(),=STR(E$(),I*8+70,8)TO F9$STEP 56 : V=INT((VAL(F9$,2)+55)/56) : IF V>0THEN 1484 : GOSUB '38(14," ") : END 1484 F5$=E1$(VAL(STR(E1$(V),10),2))OR ALL(20) : GOSUB '39(F5$,5) : MAT REDIM E2$(24)83,E3$(24)83 : DATA LOAD DA T#P,(A)E2$(),E3$() 1496 MAT SEARCHE$()<187,261>,=E6$TO F9$STEP 9 : IF F9$=HEX(0000)THEN 1504 : Q=178 : GOSUB 1851 : GOTO 1496 1504 MAT SEARCHE$()<681,91>,=E6$TO F9$STEP 10 : IF F9$=HEX(0000)THEN 1512 : Q=672 : GOSUB 1851 : GOTO 1504 1512 NEXT I : U=1499 : FOR I=2TO 7 : CONVERT ITO E6$,(#) : IF POS(E$=E6$)=0THEN 1578 : U=U+1 : MAT SEARCHE1$(),=STR(E$(),I*8+70,8)TO F9$STEP 56 : V=INT((VAL(F9$,2)+55)/56) : IF V>0THEN 1522 : GOSUB '38(14," ") : END 1522 F$()=HEX(00FF) : PACK(####)STR(F$(),3,2)FROMU : IF X=ZTHEN STR(F$(),5)="F6$(14)="&HEX(224E223A) : STR(F$(),MAX(LEN(F$())+1,5))="F$()=" : FOR J=28TO 40STEP 3 : IF STR(E1$(V),J,3)>HEX(0000)THEN GOSUB '77(MOD(VAL(STR(E1$(V),J),2),32768 )-1+E(I+1),VAL(STR(E1$(V),J+2))) : NEXT J : STR(F$(),LEN(F$()))=":E$=" : FOR J=I*45+97TO I*45+133STEP 9 1538 IF E$(J)>HEX(00)AND E$(J)<HEX(08)THEN GOSUB '77(INT(VAL(STR(E$(),J-3),2)/ 16),VAL(E$(J-1))) : NEXT J : STR(F$(),LEN(F$()))=":Q=1:"&HEX(9F)&"E$<>F$()"&HEX(B19A)&"'41("&HEX(22)&S TR(E$(),I*8+70,8)&HEX(22)&",E$,-" : P=E(I+1) : $PACK(F=HEX(1005))F5$FROMP : F$()=F$()&STR(F5$,POS(F5$>20)) : F$()=F$()&"):"&HEX(9F)&"Q=0"&HEX(B1) 1570 GOSUB '77(E(I+1),E0(I+1)) : STR(F$(),LEN(F$()))=HEX(3D2220220D0000FD)&ALL(00) : DATA SAVE BA T#2,(X,X)F$() 1578 NEXT I : STR(E$(),449,80)=E$ : LOAD T#2,"IDS2PR21"1000,1994 1700 STOP # : STOP # 1851 P=VAL(F9$,2)+Q : MAT SEARCHE3$(),=STR(E$(),P,8)TO F9$STEP 8 : STR(E$(),P,9)=ALL(00) : STR(E$(),P+5,4)=STR(E2$(),499+INT(VAL(F9$,2)/8)*6,3)&BIN(I) : STR(E$(),P+5,2)=ADDCBIN((E(I+1)-1)*16,2) : RETURN 1862 DEFFN'77(P,L) : F$()=F$()&HEX(D3)&"E$()" : GOSUB 1870 : GOSUB 1870 : F$()=F$()&")&" : RETURN 1870 F5$=" " : $PACK(F=HEX(1006))F5$FROMP : STR(F5$,,1)="," : F$()=F$()&F5$ : P=L : RETURN 1990 % 1994 ON XGOTO 1990,1994 : ON ERRORE1$,E2$GOTO 3700 3700 DEFFN'31 : E$="IDS2PBX3" : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000, : STOP "ERROR"