image of READY prompt

Wang2200.org

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

# Sector 545, program filename = 'DDA.HSUB'
7889 DEFFN'159
7890 J=1
7891 IF STR(K7$(J),1,2)=" "THEN 7900
   : IF STR(K7$(J),1,1)<>STR(K7$(M1),1,1)OR STR(K7$(J),2,1)=" "THEN 7898
   : J1=VAL(STR(K7$(J),7,1))
   : J2=VAL(STR(K7$(M1),7,1))
   : STR(K7$(J),10,J1)=" "
   : STR(K7$(J),10,2)=STR(K7$(J),1,2)
   : STR(K7$(J),12,J2-2)=STR(N0$,3,J2-2)
7898 J=J+1
   : IF J<17THEN 7891
7900 RETURN
7904 DEFFN'157(M9$)
   : M=0
   : M1=1
7907 IF STR(K7$(M1),1,2)="  "THEN 7922
   : IF STR(K7$(M1),1,2)<>M9$THEN 7917
   : K7(1)=VAL(STR(K7$(M1),3,1))
   : K7(2)=VAL(STR(K7$(M1),4,1))
   : K7(3)=VAL(STR(K7$(M1),5,1))
   : K7(4)=VAL(STR(K7$(M1),6,1))
   : K7(5)=VAL(STR(K7$(M1),7,1))
   : K7(6)=VAL(STR(K7$(M1),8,2),2)
   : IF STR(M9$,2,1)=" "THEN K7(7)=1
   : ELSE K7(7)=2
   : GOTO 7923
7917 M1=M1+1
   : IF M1<17THEN 7907
   : M1=0
7922 M=99
7923 RETURN
7927 DEFFN'158
   : N0$=" "
   : STR(N0$,1,1)=M1$
   : STR(N0$,2,1)=M4$
   : STR(N0$,3,K7(1))=M2$
   : IF K7(2)>0THEN STR(N0$,3+K7(1),K7(2))=M3$
   : IF M4$=" "THEN 7936
   : STR(N0$,3+K7(1)+K7(2),K7(3))=M5$
   : IF K7(4)>0THEN STR(N0$,3+K7(1)+K7(2)+K7(3),K7(4))=M6$
7936 RETURN