Listing of file='IDS2PBX5' on disk='vmedia/701-2717B.wvd.zip'
# Sector 994, program filename = 'IDS2PBX5'
1000 REM "IDS2PBX5"
1020 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
1155 COM C0
: C0=1
: 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$()
: E3$()=" "
: U=1500
: F$()=HEX(A23A)
: FOR I=2TO 7
: IF STR(E$(),I*45+89,45)=" "THEN 1578
: GOSUB '78(STR(E$(),I*8+70))
: IF X=ZTHEN F$()="F6$(14)="&HEX(224E223A)
: IF E$(864+I)="U"THEN 1534
: F$()=F$()&"F$()="
: FOR J=28TO 40STEP 3
1530 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$()))=":"
1534 IF F$()=" "THEN F$()="E$="
: ELSE F$()=F$()&"E$="
: FOR J=I*45+97TO I*45+133STEP 9
: 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:F6$("&BIN(I+49)
: CONVERT I+17TO F9$,(##)
: IF E$(864+I)="U"THEN F$()=F$()&"),F6$("&F9$
: F$()=F$()&HEX(293D2259223A)
1545 IF E$(864+I)<>"U"THEN F$()=F$()&HEX(9F)&"E$<>F$()"&HEX(B1)
: F$()=F$()&HEX(9A)&"'41(E9$("&BIN(I+49)&"),E$,"
: P=E(I+1)
: IF E$(I+864)<>"U"THEN P=-P
: $PACK(F=HEX(1005))F5$FROMP
: F$()=F$()&STR(F5$,POS(F5$>20))
: F$()=F$()&"):"
: F$()=F$()&HEX(9F)&"Q=0"&HEX(B1)
: GOSUB '77(E(I+1),E0(I+1))
1554 STR(F$(),LEN(F$()))=HEX(3D2220223A9F)&"Q=0"&HEX(B1)&"F6$("&BIN(I+49)&HEX(
293D224E22)
: IF E$(864+I)="U"THEN F$()=F$()&HEX(3A9F)&"Q<=0"&HEX(B1)&"F6$("&F9$&HEX(29
3D224E22)
: F$()=F$()&":"
: GOSUB 1882
1578 NEXT I
: E4$(),F$(),E2$()=" "
: IF STR(E$(),673,100)=" "THEN 1612
: Q=1
: E4$()="C$()="
: MAT REDIM E2$(20)16
: FOR I=0TO 9
: F$()=" "
: IF STR(E$(),I*10+673,10)=" "THEN 1600
: E$=STR(E$(),I*10+673,10)
: GOSUB '77(INT(VAL(STR(E$,6),2)/16),VAL(STR(E$,8)))
: E4$()=E4$()&STR(F$(),2)
: $TRAN(F$()<,LEN(F$())>,HEX(9F203C26))R
: E3$()=E3$()&F$()
1592 F$()=" "
: GOSUB '77(Q,L)
: Q=Q+L
: C0=MAX(1,Q-1)
: $TRAN(F$()<,LEN(F$())>,HEX(43453E20B126))R
: E3$()=E3$()&F$()&"J8="
: CONVERT I+2TO F9$,(##)
: IF I<8THEN F9$=STR(F9$,2)
: E3$()=E3$()&F9$&":"
1600 NEXT I
: E3$()=E3$()&E4$()
: STR(E3$(),LEN(E3$()))=":H=1:"
1612 IF E3$()=" "THEN E3$()=HEX(A23A)
1614 U=U+1
: F$()=HEX(00FF)
: PACK(####)STR(F$(),3,2)FROMU
: W=POS(-STR(E3$(),,249)=":")
: F$()=F$()&STR(E3$(),,W-1)&HEX(0DFCFCFD)
: E3$()=STR(E3$(),W+1)
: IF E3$()=" "THEN $TRAN(F$(),HEX(200000FCFEFD))R
: $TRAN(F$(),HEX(00FC))R
: DATA SAVE BA T#2,(X,X)F$()
: IF E3$()<>" "THEN 1614
: CONVERT R0TO STR(F5$,7),(##)
1654 IF X>ZTHEN E8$=E8$&F5$
: ELSE F5$=" "
: E$="\B2\CE\C4\A0\CC\CF\C1\C4"
: IF E$(1)="\F2"THEN LOAD T#2,"IDS2PRX0"1000,1994
: E$="IDS2PBX6IDS2PX"
: CONVERT R0TO STR(E$,15),(##)
: LOAD T#2,<2>E$1000,1994
1800 STOP #
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
1882 IF E3$()=" "THEN E3$()=F$()
: ELSE E3$()=E3$()&F$()
: RETURN
1990 %
1994 ON XGOTO 1990,1994
: ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PBX5"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"