image of READY prompt

Wang2200.org

Listing of file='IDS2PRX3' on disk='vmedia/701-2725B.wvd.zip'

# Sector 71, program filename = 'IDS2PRX3'
1000 REM "IDS2PRX3"
1090 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
   : COM C$(C0)1,C1$(C1)9
   : COM C2,C3,C4,C5,C6,C7,C8,C9,D0,D1,D2,D3,D4,D5,D6,E0,E1,E2,E3,F1,F2,F3,F4,
     F5,J7,J8
   : FOR I=1TO F
   : STR(E2$(I),4,1)=OR HEX(40)
   : NEXT I
   : F3=F*9-8
   : F4=D
   : F5=M
   : C1$()=E3$()
   : IF F3$="005"THEN C2=0
   : ELSE C2=1
   : CONVERT STR(E$(),842,3)TO F0
   : ERRORF0=1
1190 CONVERT STR(E$(),157,3)TO F1
   : ERRORF1=0
1200 CONVERT STR(E$(),170,2)TO F2
   : ERRORF2=0
1205 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
   : FOR I=1TO C1
   : IF STR(C1$(I),,1)="D"THEN D2=D2+1
1340 IF STR(C1$(I),,1)="F"THEN D3=D3+1
   : IF STR(C1$(I),,1)="H"THEN D4=D4+1
   : NEXT I
   : D5=-1
   : IF E$(865)="U"THEN D5=1
   : D6=VAL(STR(E1$(C8),12))-1
   : IF D6=0THEN 1460
   : 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)
1430 MAT SEARCHE3$(),="@SYSMNTH"TO F9$STEP 8
   : E1=INT((VAL(F9$,2)+7)/8)
   : 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)
1460 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))
1530 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
1580 GOSUB '71
   : GOTO 1680
1592 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
1610 NEXT I
   : RETURN
1620 ON J7GOTO 1650
   : J7,J8=1
   : GOTO 1580
1650 F6$(2)="Y"
   : E$="IDS2PRX4IDS2PX"
   : CONVERT R0TO STR(E$,15),(##)
   : LOAD T#2,<2>E$1000,1994
1660 DEFFN'68
   : F(F)=A
   : RETURN
1661 GOTO 1530
   : GOTO 1990
1670 %
1680 F=0
1990 F=F+1
   : IF F>F1THEN 1620
   : ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
   : E$="IDS2PRX3"
   : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
   : STOP "ERROR"