#6 ascii save wanted

[Csaba Skrabák]

* ascii save

5000 open1,3:open2,8,2,f$+",s,w"
5010 print"{HOME}":for i=0 to 999
5020 poke631,13:poke198,1:rem INJECT 13 INTO KEY BUFFER
5030 get#1,a$:print#2,a$;
5040 next
5050 close1,2