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