100 REM *** STRINGS VORBEREITEN ***
110 FOR I=1 TO 8:POKE 827+I,ASC(MID$("TEST,S,W",I,1)):NEXT
120 A$="DIES IST"+CHR$(13)+"EIN TEST"+CHR$(13)+CHR$(0)
130 FOR I=1 TO LEN(A$):POKE 827+16+I,ASC(MID$(A$,I,1)):NEXT
140 :
150 REM *** STRINGS SCHREIBEN/LESEN ***
160 SYS 49152:REM STRINGS SCHREIBEN
170 FOR I=1 TO 8:POKE 827+I,ASC(MID$("TEST,S,R",I,1)):NEXT
180 SYS 49200:REM STRINGS LESEN/AUSGEBEN