Listing of file='IDS2PBX7' on disk='vmedia/701-2717B.wvd.zip'
# Sector 321, program filename = 'IDS2PBX7'
1000 REM "IDS2PBX7"
1030 DIM D1$3
: D1$="X"
: IF C2=0THEN PRINT HEX(03)
: F6=0
: IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: E4=E4+1
: J8=1
: J9=99
1130 J8,J9=1
: MAT REDIM E3$(24)83
1170 DATA LOAD DA T#D0,(STR(D$(),C6))E3$()
: B=VAL(STR(D$(),C6+2),2)
: IF B+C6<1993THEN 1190
: IF VAL(STR(E3$(),1992))=0THEN 1188
: STR(D$(),C6,4)=BIN(VAL(STR(D$(),C6),2)+8,2)&HEX(0001)
: GOTO 1170
1188 E4$()=ALL(FF)
: GOTO 1200
1190 E4$()=STR(E3$(),B,C6-1)&STR(D$(),C6,2)&BIN(B+C6-1,2)
1200 D$()=STR(D$(),C7+1)&ALL(FF)
: MAT SEARCHD$(),>=STR(E4$(),,C7)TO F9$STEP C7
: Q=VAL(F9$,2)
: MAT COPY -D$()<Q,C9-Q>TO -D$()<Q+C7,C9-Q>
: STR(D$(),Q,C7)=E4$()
: MAT REDIM F$(E9)1
: E$=ALL(FF)
: IF STR(D$(),,C6-1)<STR(E$,,C6-1)THEN 1320
: F6$(2)="N"
: J8=12
: GOTO 1540
1320 E$=STR(D$(),C4)
: J=SGN(D5)
: T=VAL(STR(E1$(C8),12))
: 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
: STR(E$(),,E0(2))=STR(F$(),,E0(2))
1520 GOSUB 1600
: J9=J8
: IF J8=1AND STR(C$,,1)<HEX(FF)THEN 1985
: ON J8GOTO 1130
1540 J7=J7+1
: IF J7>J8THEN 1570
: IF STR(C$,J7,1)<HEX(FF)THEN 1985
1550 GOTO 1540
1570 IF F6$(2)="N"THEN 1585
: J7=1
: IF STR(C$,,1)<HEX(FF)THEN 1985
1575 J7=1
: GOTO 1130
1585 IF STR(C2$,13)>" "THEN GOSUB '76("FP")
: COM CLEAR F()
: $CLOSE#1
: SELECT #1<STR(F4$,,3)>
: HEXPACKE8$(7)FROMSTR(F4$,2,2)
: MAT REDIM E4$(16)16
: GOSUB '40(R3$(1))
: GOSUB 1600
: GOTO 1130
1600 DEFFN'71
: FOR I=1TO F0
: CONVERT STR(E$(),VAL(STR(E2$(I),2),2)/16,VAL(E2$(I)))TO F(I)
: ERRORF(I)=0
1605 NEXT I
: RETURN
1620 MAT REDIM E4$(128)2
: E6$=BIN((J7-1)*16+1)
: MAT SEARCHE2$()<7,>,=E6$TO E4$()STEP 9
: L=0
1640 L=L+1
: IF L=129OR E4$(L)=HEX(0000)THEN RETURN
: Y=VAL(E4$(L),2)/9+1
: STR(E$(),VAL(STR(E2$(Y),2),2)/16,VAL(E2$(Y)))=" "
: IF Y<F0THEN F(Y)=0
: GOTO 1640
1960 DEFFN'68
: F(F)=A
: RETURN
1985 F=0
1990 F=F+1
: IF F<=F1THEN 1994
: ON J8GOTO 1130
: GOSUB 1620
: ON J7GOTO 1575
: GOTO 1550
: GOTO 1990
: GOTO 1520
1993 %
1994 %
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PBX7"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"