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"