10 FORI=828TO842:READA:POKEI,A:NEXT:SYS828
20 POKE1,53:POKE64982,53:A=828
30 INPUT"MELDUNG";M$
40 FORI=1TOLEN(M$):POKEA+I,ASC(MID$(M$,I)):NEXT
50 POKEA,13:POKEA+I,13:POKEA+1+I,0
60 POKE42101,60:POKE42103,3
70 DATA 120,177,216,145,216,200,208,249,230,217,208,245,76,221,253