image of READY prompt

Wang2200.org

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

# Sector 37, program filename = 'IDS2PRX1'
1000 REM "IDS2PRX1"
1017 COM C$13,C1$13,C2$13,D$2
   : C$=ALL(FF)
   : IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
   : MAT REDIM E3$(100)12,E2$(100)9,E0$(100)2,F$(100)2
   : E3$()=ALL(FF)
   : CONVERT STR(E$(),152,3)TO F
   : CONVERT STR(E$(),157,3)TO O
   : CONVERT STR(E$(),155,2)TO L
   : D=VAL(E$(860))
   : S=VAL(STR(E$(),861),2)
   : CONVERT STR(E$(),845,3)TO M
1032 T=S+6+MAX(1,ABS(INT(-F*9/249)))+MAX(1,ABS(INT(-F*8/249)))+MAX(1,ABS(INT(-
     O*9/249)))
   : C=0
   : N=INT(256/(M+5))
   : F$()=ALL(FF)
   : FOR I=TTO T+ABS(INT(L/N))
   : DATA LOAD BA T#D,(I)E4$()
   : FOR J=1TO (N-1)*(M+5)+1STEP M+5
   : C=C+1
   : IF C>LTHEN 1500
   : E0$()=STR(E4$(),J,M+5)
   : E$=STR(E0$(),3,3)&ALL(00)
   : FOR K=1TO 4
   : ROTATEC(STR(E$,K),-2)
   : NEXT K
   : ADD(E$,20)
1070 $TRAN(E$<,2>,"XBYTZN")R
   : UNPACK(##)E0$()TO A
   : STR(E$,5)=BIN(A)&STR(E0$(),2,1)&BIN(J+5)&BIN(I,2)
   : E3$(C)=STR(E$,,2)&BIN(C)&E$
1500 NEXT J,I
   : MAT SORTE3$()TO E0$(),F$()
   : MAT MOVE E3$()(4,9),F$()TO E2$()
   : IF O=0THEN 1510
   : 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
   : 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)
1508 STR(C$,POS(" 0123456789RP"=STR(E$,9)),1)=BIN(I/9)
   : NEXT I
1510 MAT REDIM E3$(100)9
   : E3$()=E2$()
   : FOR I=1TO L
   : IF STR(E3$(I),,1)="H"THEN STR(C1$,POS(" 0123456789RP"=STR(E3$(I),2)),1)="
     Y"
   : IF STR(E3$(I),,1)="F"THEN STR(C2$,POS(" 0123456789RP"=STR(E3$(I),2)),1)="
     Y"
   : IF STR(E3$(I),,1)="D"THEN STR(C2$,,1)="Y"
   : NEXT I
   : FOR I=0TO 9
   : IF E$(I*10+682)="Y"THEN STR(C2$,I+2,1)="T"
   : NEXT I
1540 MAT REDIM E2$(250)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
   : MAT SEARCHE3$(),>"D"TO F9$STEP 9
   : X=INT(VAL(F9$,2)/9)
   : Y=X+1
   : MAT SEARCHE3$(),>"F"TO F9$STEP 9
   : Z=INT(VAL(F9$,2)/9)+1
   : MAT SEARCHE3$(),>"H"TO F9$STEP 9
   : W=INT(VAL(F9$,2)/9)+1
   : Q=INT((2250-F*9)/M)
   : P=F*9+1
   : IF Q=0THEN 1800
   : IF X=0THEN 1600
1577 FOR J=1TO MIN(X,Q)
   : GOSUB '77(J)
   : NEXT J
1600 IF W=YOR Q=0THEN 1620
   : FOR J=0TO MIN(Q,(W-Y)/2)-1
   : V=J+Y
   : IF STR(E3$(V),7,1)<>HEX(FF)AND Q>0THEN GOSUB '77(V)
   : V=J+Z
   : IF STR(E3$(V),7,1)<>HEX(FF)AND Q>0THEN GOSUB '77(V)
   : NEXT J
1620 IF W>LOR Q=0THEN 1800
   : FOR J=0TO MIN(Q-1,L-W)
   : IF STR(E3$(W+J),7,1)<>HEX(FF)THEN GOSUB '77(W+J)
   : NEXT J
1800 LOAD T#2,"IDS2PRX2"1000,1994
1850 DEFFN'77(V)
   : U=I
   : I=VAL(STR(E3$(V),8),2)
   : IF U<>ITHEN DATA LOAD BA T#D,(I)E4$()
   : STR(E2$(),P)=STR(E4$(),VAL(STR(E3$(V),7)),M)AND ALL(7F)
   : STR(E3$(V),7)=HEX(FF)&BIN(P,2)
   : P=P+M
   : Q=Q-1
   : RETURN
1980 STOP #
1990 LOAD T#2,"IDS2PRX2"1000,1994
   : GOTO 1990
1994 %
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
   : E$="IDS2PRX1"
   : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
   : STOP "ERROR"