image of READY prompt

Wang2200.org

Listing of file='DDA.READ' on disk='vmedia/701-2720C.wvd.zip'

# Sector 590, program filename = 'DDA.READ'
7713 DEFFN'152(M$,M1$,M4$,M2$,M3$,M5$,M6$)
7714 M=0
   : MAT SEARCH"CRKYNXPV",=STR(M$,,2)TO J1$STEP 2
   : IF VAL(J1$,2)=0THEN 7758
   : M9$=M1$&M4$
   : GOSUB '157(M9$)
   : IF M<>0THEN 7761
   : IF M$<>"KY"THEN 7728
   : IF M2$=" "AND M4$=" "THEN 7767
   : IF M2$=" "AND M4$<>" "THEN 7764
   : IF M4$<>" "AND M5$=" "THEN 7767
   : GOSUB '158
   : GOSUB '143(N0$,"EQ",K7(7))
   : IF M<>0THEN 7775
   : GOTO 7748
7728 N0$=" "
   : N0$=STR(K7$(M1),10,K7(5))
   : IF M4$<>" "THEN 7734
   : IF STR(N0$,3,K7(1))=" "AND M$<>"NX"THEN 7767
   : IF N0$=" "THEN N0$=M1$
   : GOTO 7736
7734 IF STR(N0$,3,K7(1))=" "THEN 7770
   : IF STR(N0$,3+K7(1)+K7(2),K7(3))=" "AND M$<>"NX"THEN 7767
7736 IF M$="NX"THEN M$="GT"
   : ELSE IF M$="PV"THEN M$="LT"
   : ELSE M$="EQ"
   : GOSUB '143(N0$,M$,K7(7))
   : IF M=75THEN 7773
   : IF M<>0THEN 7775
   : IF STR(N0$,1,2)<>M9$THEN 7773
   : IF STR(N0$,3,K7(5)-2)=" "THEN 7773
   : IF M4$<>" "AND STR(N0$,3,K7(1)+K7(2))<>STR(K7$(M1),12,K7(1)+K7(2))THEN 77
     73
   : M2$=STR(N0$,3,K7(1))
   : IF K7(2)>0THEN M3$=STR(N0$,3+K7(1),K7(2))
   : ELSE M3$=" "
7745 IF M4$=" "THEN 7748
   : M5$=STR(N0$,3+K7(1)+K7(2),K7(3))
   : IF K7(4)>0THEN M6$=STR(N0$,3+K7(1)+K7(2)+K7(3),K7(4))
   : ELSE M6$=" "
7748 STR(K7$(M1),10,K7(5))=N0$
   : IF M4$=" "THEN GOSUB '159
   : K8$()=" "
   : GOSUB '144(K7(7))
   : IF M<>0THEN 7775
   : IF K7(6)-K7(5)<=0THEN 7775
   : STR(K8$(),1,K7(6)-K7(5))=STR(K8$(),K7(5)+1,K7(6)-K7(5))
   : STR(K8$(),K7(6)-K7(5)+1,K7(5))=" "
   : GOTO 7775
7758 M=54
   : GOTO 7775
7761 M=56
   : GOTO 7775
7764 M=57
   : GOTO 7775
7767 M=55
   : GOTO 7775
7770 M=63
   : GOTO 7775
7773 M=64
   : GOTO 7775
7775 RETURN