1 REM    ***************************
2 REM    *                         *
3 REM    *   EDITOR FUER LAUF-     *
4 REM    *                         *
5 REM    *    SCHRIFT IM RAND      *
6 REM    *                         *
7 REM    *                         *
8 REM    ***************************
9 REM
10 POKE 56,62:CLR:ZA=53248
20 PRINT"[147]BITTE TEXT EINGEBEN"
25 A$="AUF WIEDERSEHEN!":B$=A$
30 INPUT"1.";A$:INPUT"2.";B$
35 IF LEN(A$)>24 OR LEN(B$)>24 THEN 20
40 PRINT"[147]"A$:PRINT""B$
50 FORI=15872TO16382:POKEI,0:NEXT
60 POKE56334,0:POKE1,51
70 FORA=0TO7:FORB=0TO2
80 AD=ZA+8*PEEK(1024+A*3+B)
90 A2=ZA+8*PEEK(1104+A*3+B)
100 FORI=0TO7:POKE15911+A*64+B+I*3,PEEK(AD+I)
120 POKE15872+A*64+B+I*3,PEEK(A2+I):NEXT:NEXT:NEXT
130 POKE1,55:POKE56334,1
140 POKE53280,0:POKE16383,255:SYS 49152