home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 17 / 64er_Magazin_Sonderheft_17_19xx_Markt__Technik_de_Side_B.d64 / miniedit (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  540 b   |  22 lines
  1. 100 rem *******************************
  2. 110 rem *   mini-editor fuer grosse   *
  3. 120 rem *                             *
  4. 130 rem *      laufschrift            *
  5. 140 rem *                             *
  6. 150 rem *******************************
  7. 160 rem
  8. 170 rem
  9. 180 rem
  10. 190 adresse=50944
  11. 200 input"text";a$
  12. 210 print"[147]"a$
  13. 220 if adresse>53160 then print"zu viel text!!!!":adresse=adresse-5:goto270
  14. 230 fori=0tolen(a$)
  15. 240 poke adresse+i,peek(1024+i)
  16. 245 if peek(1024+i)=32 then poke adresse+i,27
  17. 247 next
  18. 250 adresse=adresse+len(a$)
  19. 260 input"noch mehr";b$:if b$="j"then 200
  20. 270 fori=0to5:pokeadresse+i,0:next
  21. 280 sys 49152
  22.