home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 May / 64er_Magazin_91-05_1991_Markt__Technik_de.d64 / mini-editor (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  552b  |  14 lines
  1. 0 rem minieditor von michael czychowski
  2. 1 poke53280,14:poke53281,6:print"[147]":poke53272,21:poke214,0:sys58640
  3. 10 poke650,128:poke19,1:poke214,0:sys58640:inputq$:poke19,0
  4. 30 a=49152:fori=1024to2023:pokea,peek(i):a=a+1:pokei,0:next:x=1024:
  5. 40 fori=49152to50151:pokex,peek(i):x=x+1:next:d=10:b=1028:c=1061:e=49152
  6. 50 print"[147]":poke214,0:sys58640
  7. 60 ifd=39thengoto110
  8. 70 printmid$(str$(d),2,5);"?"+chr$(34):fori=btoc:pokei,peek(e):e=e+1:next
  9. 80 pokec+1,34:pokec+2,59
  10. 90 print:print"d=";d;":b=";b;":c=";c;":e=";e;":d=d+1:goto50"
  11. 100 poke631,19:fori=632to636:pokei,13:next:poke198,7:end
  12. 110 print"[147]":poke214,0:sys58640:fori=30to120step10:printi:nexti:print" list"
  13. 120 poke631,19:fori=632to642:pokei,13:next:poke198,11:end
  14.