home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9107a.d64 / texteditor (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.