home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 July / 64er_Magazin_91-07_1991_Markt__Technik_de_Side_A.d64 / texteditor (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  362b  |  17 lines
  1. 10 n$="":input "[147][198]ilename    ";n$
  2. 20 an=49152:input "[211]tartadresse";an
  3. 30 print "[147][164]";
  4. 40 for a=an to 65536
  5. 50 poke 198,0:wait 198,1:get a$
  6. 60 poke a,asc(a$)
  7. 70 ifa$="[177]" or a$="[170]" then en=a:a=65536:goto 100
  8. 80 if a$<>"[175]" then print "[157] [157]"a$"[164]";
  9. 90 if a$=chr$(34) then poke 212,0
  10. 100 next a
  11. 110 if n$="" then end
  12. 120 open 1,8,8,n$+",p,w":print#1,chr$((an-32768)and255),chr$(an/256);
  13. 130 for a=an to en
  14. 140 print#1,chr$(peek(a));
  15. 150 next a
  16. 160 close 1
  17.