image of READY prompt

Wang2200.org

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"