home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 9 / 64er_Magazin_Sonderheft_09_86-09_1986_Markt__Technik_de_Side_A.d64 / c64.read_wr.bas (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  331b  |  10 lines
  1. 100 rem *** strings vorbereiten ***
  2. 110 for i=1 to 8:poke 827+i,asc(mid$("test,s,w",i,1)):next
  3. 120 a$="dies ist"+chr$(13)+"ein test"+chr$(13)+chr$(0)
  4. 130 for i=1 to len(a$):poke 827+16+i,asc(mid$(a$,i,1)):next
  5. 140 :
  6. 150 rem *** strings schreiben/lesen ***
  7. 160 sys 49152:rem strings schreiben
  8. 170 for i=1 to 8:poke 827+i,asc(mid$("test,s,r",i,1)):next
  9. 180 sys 49200:rem strings lesen/ausgeben
  10.