10 V=53248:PRINTCHR$(153)CHR$(147)CHR$(8)CHR$(142);:POKEV+32,0:POKEV+33,0
20 FORY=0TO20:PRINT"[186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186]":NEXTY : REM 24 MAL CHR$(186)
30 PRINTCHR$(17)"GOTO 50"CHR$(145)CHR$(145);
40 END
50 FORY=0TO20
60 FORBY=0TO2:D=0
70 FORBI=0TO7
80 IFPEEK(1024+Y*40+BY*8+BI)=42THEND=D+2^(7-BI) : REM TEST AUF *
90 NEXTBI:POKE11*64+Y*3+BY,D
100 NEXTBY,Y
110 POKE2040,11:POKEV,250:POKEV+1,100:POKEV+39,7:POKEV+21,1