1 X$="123456789,"
2 FOR I=1 TO 25:Y$=Y$+X$:NEXT
3 Y$=Y$+"12345"
4 :
5 REM *** STRING SCHREIBEN ***
10 OPEN 1,8,2,"TEST,S,W"
20 PRINT#1,Y$
30 CLOSE1
40 :
45 REM *** STRING LESEN ***
50 OPEN 1,8,2,"TEST,S,R"
60 SYS 49152,1,A$
70 CLOSE 1
80 PRINT A$