image of READY prompt

Wang2200.org

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"