image of READY prompt

Wang2200.org

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"