Listing of file='PSUB1960' on disk='vmedia/731-0071G.wvd.zip'
# Sector 1256, program filename = 'PSUB1960' 5612 Q9(1)=Q9(4)+INT(Q1/Q9(5)) : GOSUB 5786 : IF Q3<>0THEN 5780 5614 Q3=Q9(3)*MOD(Q1,Q9(5)) : STR(Q$(),Q3+1,Q9(3))=Q1$() : DBACKSPACE #Q9(2),1S : GOSUB 5796 : IF Q3<>0THEN 5780 : Q9(1)=0 : GOSUB 5786 : IF Q3<>0THEN 5780 : MAT REDIM Q$(25)10 : STR(Q$(1),9,2)=STR(Q$(1),9,2)ADDCSTR(Q2$,1,2) : Q2$="0"