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.open.bas (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  327b  |  16 lines
  1. 100 rem *** daten schreiben ***
  2. 110 dn$="test,s,w":rem dateiname + zusatz
  3. 120 for i=1 to len(dn$)
  4. 130 : poke 827+i,asc(mid$(dn$,i,1))
  5. 140 next
  6. 150 sys 49152:rem maschinenrout. ($c000)  aufrufen
  7. 160 print#1,"dies ist"
  8. 170 print#1,"ein test"
  9. 180 close 1
  10. 190 :
  11. 200 rem *** daten lesen ***
  12. 210 open 1,8,2,"test,s,r":rem datei oeffnen
  13. 220 input#1,a$:print a$
  14. 230 input#1,b$:print b$
  15. 240 close 1
  16.