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