Listing of file='IDS2PBX6' on disk='vmedia/701-2717B.wvd.zip'
# Sector 882, program filename = 'IDS2PBX6' 1000 REM "IDS2PBX6" 1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM" 1020 COM C$(C0)1,C1$(C1)9,C2,C4,C6,C7,C8,C9,D0,D5,D6,E0,F1,F2,F3,F4,F5,J7,J8 : CONVERT E$(77)TO U : F6$(54)=F6$(17)AND HEX(03) : X=662 : V=VAL(F6$(54)) : E$="IDS2SUB7" : ON UGOTO ,1030,1032,1060 : ON VGOTO 1060,,1060 : GOTO 1034 1030 IF V>1THEN 1060 : STR(E$,8)="8" : X=506 : GOTO 1034 1032 IF V=3THEN 1060 : IF SPACE<1432THEN U=1 : ELSE E$=E$&"IDS2SUB8" 1034 F6$(54)=F6$(54)OR BIN(U) : IF SPACE>XTHEN LOAD T#2,<LEN(E$)/8>E$1020,1034BEG 1010 : COM CLEAR F() : GOSUB '38(25,E8$) : GOSUB '40(R3$(1)) 1060 CONVERT STR(E$(),152,3)TO F : CONVERT STR(E$(),157,3)TO O : D=VAL(E$(860)) : S=VAL(STR(E$(),861),2) : MAT REDIM E2$(249)9 : E2$()=ALL(00) : MAT REDIM E2$(3*ABS(INT(-F*9/249)))83 : DATA LOAD DA T#D,(S+6)E2$() : MAT REDIM E2$(250)9 : IF O=0THEN 1160 : GOSUB '50(S+6+MAX(1,ABS(INT(-F*9/249)))+MAX(1,ABS(INT(-F*8/249))),3*ABS(I NT(-O*9/249))," ") : MAT REDIM E3$(1992)1 1130 FOR I=O*9-8TO 1STEP -9 : E$=STR(E3$(),I,9)&ALL(00) : FOR J=1TO 12 : ROTATEC(STR(E$,J),-2) : NEXT J : STR(E$,,11)=ADDALL(20) : STR(C$,POS(" 0123456789RP"=STR(E$,9)),1)=BIN(I/9) : NEXT I 1160 FOR I=1TO F : STR(E2$(I),4,1)=OR HEX(40) : NEXT I : F3=F*9-8 : F4=D : F5=M : IF F3$="005"THEN C2=0 : ELSE C2=1 : CONVERT STR(E$(),842,3)TO F0 : ERRORF0=1 1220 CONVERT STR(E$(),157,3)TO F1 : ERRORF1=0 1230 IF F2>1AND F2<>66THEN F2=F2-1 : C3=LEN(STR(E1$(),1))/56 : C4=VAL(STR(E1$(C3),24))+1 : C5=VAL(STR(E1$(C3),25)) : C6=VAL(STR(E1$(C3),27))+1 : C7=C6+3 : C8=VAL(STR(E1$(C3),10),2) : C9=LEN(D$())+1-C7 : D0=VAL(STR(E1$(C3),9)) : D1=VAL(STR(E1$(C8),9)) : MAT REDIM E$(E8)1,F$(E9)1,E0$(249)1 : D2,D3,D4=0 : D5=-1 : IF E$(865)="U"THEN D5=1 1360 D6=VAL(STR(E1$(C8),12))-1 : IF D6=0THEN 1450 : IF D6=3THEN D6=1 : ELSE D6=2 : MAT REDIM E3$(MAX(3,3*ABS(INT(-F*8/249))))83 : DATA LOAD DA T#D,(S+6+MAX(1,ABS(INT(-F*9/249))))E3$() : MAT SEARCHE3$(),="@SYSPAGE"TO F9$STEP 8 : E0=INT((VAL(F9$,2)+7)/8) : MAT SEARCHE3$(),="@SYSMNTH"TO F9$STEP 8 : E1=INT((VAL(F9$,2)+7)/8) 1420 MAT SEARCHE3$(),="@SYSDAY "TO F9$STEP 8 : E2=INT((VAL(F9$,2)+7)/8) : MAT SEARCHE3$(),="@SYSYEAR"TO F9$STEP 8 : E3=INT((VAL(F9$,2)+7)/8) 1450 E$=STR(D$(),C4) : J=SGN(D5) : T=VAL(STR(E1$(C8),12)) : F6$(2)="Y" : IF D6=2THEN GOSUB '67(C8,E$,0) : ELSE GOSUB '59(C8,J,E$,0) : IF Q>0AND D5>0THEN F6$(18)="Y" : ELSE F6$(18)="N" : X=5 : GOSUB '79 : E$()=STR(F$(),,E0(2)) 1590 E4=0 : IF E0>0THEN GOSUB '55(E0,E4) : IF E1>0THEN GOSUB '45(E1,STR(R2$,,2)) : IF E2>0THEN GOSUB '45(E2,STR(R2$,3,2)) : IF E3>0THEN GOSUB '45(E3,STR(R2$,5,2)) : J7,J8=12 : GOSUB 1650 : GOTO 1740 1650 DEFFN'71 : FOR I=1TO F0 : CONVERT STR(E$(),INT(VAL(STR(E2$(I),2),2)/16),VAL(E2$(I)))TO F(I) : ERRORF(I)=0 1660 NEXT I : RETURN 1680 ON J7GOTO 1710 : J7,J8=1 : GOSUB 1650 : GOTO 1740 1710 F6$(2)="Y" : E$="IDS2PBX7IDS2PX" : CONVERT R0TO STR(E$,15),(##) : LOAD T#2,<2>E$1000,1994 1720 DEFFN'68 : F(F)=A : RETURN 1730 ON QGOTO 1590,1990 1740 F=0 1990 F=F+1 : IF F>F1THEN 1680 1994 % 3699 ON ERRORE1$,E2$GOTO 3700 3700 DEFFN'31 : E$="IDS2PBX6" : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000, : STOP "ERROR"