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