image of READY prompt

Wang2200.org

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"