90 FORI=0TO3:READA(I):NEXT
100 POKE53280,12:REM RAHMENFARBE
110 POKE53281,12:REM FARBE 0-63
120 POKE53282,2:REM FARBE 64-127
130 POKE53283,7:REM FARBE 128-191
140 POKE53284,5:REM FARBE 192-255
200 POKE53265,91:REM  EXTENDED ON
210 PRINT"[155]":REM ZEICHENFARBE WEISS
220 PRINT"[147]":REM BSCH LOESCHEN
300 FORI=0TO255
320 POKE1024+I,I
330 POKE55296+I,A(A):L=L+1:IFL=64THENL=0:A=A+1
340 NEXT
400 POKE198,0:WAIT 198,1
410 POKE 53265,27
420 POKE198,0:WAIT 198,1
430 POKE 53265,91
440 GOTO400
450 DATA1,7,2,0