10 PRINT"[153][147]";:FORI=0TO255:POKE1024+I,I:NEXT
20 PRINT""
30 PRINT"DER NORMALE ZEICHENSATZ"
40 GOSUB1000:POKE53272,25
50 PRINT"EIN NEUER ZEICHENSATZ  ":GOSUB1000
60 POKE53265,PEEK(53265)OR2^6
70 PRINT"VIER HINTERGRUNDFARBEN  ":GOSUB1000
80 POKE53265,27:POKE53270,8+16
90 PRINT"UND NUN EIN ECHTER VIERFARBIGER ZEICHEN-SATZ              ";
95 PRINT"        "
100 GOSUB1000
110 POKE53270,8:END
1000 PRINT"BITTE <<RETURN>> DRUECKEN"
1010 GETA$:IFA$<>CHR$(13)THEN1010
1020 RETURN