10 N$="":INPUT "[147][198]ILENAME    ";N$
20 AN=49152:INPUT "[211]TARTADRESSE";AN
30 PRINT "[147][164]";
40 FOR A=AN TO 65536
50 POKE 198,0:WAIT 198,1:GET A$
60 POKE A,ASC(A$)
70 IFA$="[177]" OR A$="[170]" THEN EN=A:A=65536:GOTO 100
80 IF A$<>"[175]" THEN PRINT "[157] [157]"A$"[164]";
90 IF A$=CHR$(34) THEN POKE 212,0
100 NEXT A
110 IF N$="" THEN END
120 OPEN 1,8,8,N$+",P,W":PRINT#1,CHR$((AN-32768)AND255),CHR$(AN/256);
130 FOR A=AN TO EN
140 PRINT#1,CHR$(PEEK(A));
150 NEXT A
160 CLOSE 1