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"