1 POKE45,PEEK(174):POKE46,PEEK(175):CLR:POKE788,52:POKE657,128
2 POKE53280,1:POKE53281,1:GOTO16
3 PRINT"[147]":FORI=1TO39:PRINTC$;:NEXT:FORI=1TO22:PRINT"[157]"C$;:NEXT:PRINT"[157]";
4 FORI=1TO38:PRINT"[157]"C$"[157]";:NEXT:PRINTC$
5 FORI=1TO23:PRINT"[145]"C$"[157]";:NEXT:RETURN
7 GETA$:IFA$=""THEN7
8 PRINT:RETURN
16 Z$=CHR$(34):C$="[214]":GOSUB3:PRINT""TAB(13)"LEKTION 10"
17 PRINTTAB(10)"1. FARBSTEUERUNG":PRINTTAB(10)"2. HOCHAUFLOESENDE"
18 PRINTTAB(13)"GRAPHIK":GOSUB7
20 PRINT"[147]":PRINTTAB(12)"FARBSTEUERUNG[146]"
30 PRINT"MIT DEM CBM 64 KOENNEN SIE VERSCHIEDENE":PRINT"FARBKOMBINATIONEN AM";
40 PRINT" BILDSCHIRM AUS-":PRINT"WAEHLEN:":PRINT"JE [129]16 FARBEN FUER DEN [129]BILDSCHIRMRAND,"
50 PRINT"FUER DEN [129]HINTERGRUND UND FUER DIE":PRINT"[129]ZEICHEN."
60 PRINT" 1.PRINT-BEFEHL: [146]":PRINT"DIE ZEICHENFARBE KOENNEN SIE GANZ EIN-"
70 PRINT"FACH DURCH BETAETIGEN DER CTRL[146]- BZW.":PRINT"DER C=[146]-TASTE UND EINER";
80 PRINT" ZIFFERNTASTE":PRINT"WECHSELN."
90 PRINT"GESCHIEHT DIES WAEHREND EINES [129]PRINT-":PRINT"BEFEHLS, SO ERSCHEINEN DIE";
100 PRINT" FARBSTEUER-":PRINT"ZEICHEN ALS GRAPHISCHE ZEICHEN AUF DEM"
110 PRINT"BILDSCHIRM."
120 GOSUB7:PRINT"[147]"
130 PRINT"BEISPIEL:":PRINT"DER BEFEHL":PRINT"10 PRINT"Z$" S P E K T R U M"Z$
140 PRINT"         ^ ^ ^ ^ ^ ^ ^ ^":PRINT"   CTRL  1 2 3 4 5 6 7 8"
150 PRINT"ERSCHEINT MIT GRAPHIK-ZEICHEN AUF":PRINT"DEM BILDSCHIRM:"
160 PRINT"10 PRINT''[208][146]SE[146]P\[146]E[223][146]K[220][146]T^[146]R_[146]U[255][146]M''"
170 PRINT"UND WIRD FOLGENDERMASSEN AUSGEFUEHRT:":PRINT"[144]SPE[159]K[156]TRU[158]M"
180 GOSUB7:PRINT"[147]"
190 PRINT"FARBE     TASTE    [221]  FARBE     TASTE"
200 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][221][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
210 PRINT"SCHWARZ   CTRL[146] 1[146]   [221]  ORANGE    C=[146] 1[146]"
211 PRINT"WEISS     CTRL[146] 2[146]   [221]  BRAUN     C=[146] 2[146]"
212 PRINT"ROT       CTRL[146] 3[146]   [221]  HELLROT   C=[146] 3[146]"
213 PRINT"TUERKIS   CTRL[146] 4[146]   [221]  GRAU 1    C=[146] 4[146]"
214 PRINT"VIOLETT   CTRL[146] 5[146]   [221]  GRAU 2    C=[146] 5[146]"
215 PRINT"GRUEN     CTRL[146] 6[146]   [221]  HELLGRUEN C=[146] 6[146]"
216 PRINT"BLAU      CTRL[146] 7[146]   [221]  HELLBLAU  C=[146] 7[146]"
217 PRINT"GELB      CTRL[146] 8[146]   [221]  GRAU 3    C=[146] 8[146]"
220 PRINT" 2.FARB-CHR$-CODES: [146]":PRINT"DIE [129]FARB-CHR$-CODES KOENNEN IM ZUSAM-"
230 PRINT"MENHANG MIT DEM [129]PRINT-BEFEHL DIREKT":PRINT"BENUTZT WERDEN."
240 PRINT"Z.B. DER BEFEHL: PRINTCHR$(30)"Z$"GRUEN"Z$
250 PRINT"SCHREIBT DAS WORT'GRUEN' AUF DEN":PRINT"BILDSCHIRM."
260 PRINT"DIE ZAHLENWERTE FUER DIE [129]FARB-CHR$-":PRINT"CODES ENTNEHMEN SIE IHREM";
270 PRINT" HANDBUCH.":GOSUB7:PRINT"[147]"
280 PRINT" 3.POKE-BEFEHL: [146]":PRINT"MIT JE EINEM [129]POKE-BEFEHL";
285 PRINT" KOENNEN SIE"
290 PRINT"BELIEBIGE ZEICHEN IN JEDE BELIEBIGE":PRINT"[129]BILDSCHIRM-SPEICHERSTELLE";
300 PRINT" SCHREIBEN.":PRINT"ODER JEDE BELIEBIGE FARBE IN JEDE"
310 PRINT"BELIEBIGE [129]FARB-SPEICHERADRESSE."
320 PRINT"AUSSERDEM KOENNEN SIE DIE BILDSCHIRM-":PRINT"[129]RAHMENFARBE UND DIE [129]HINTER";
330 PRINT"GRUNDFARBE":PRINT"DURCH EINEN [129]POKE-BEFEHL BESTIMMEN."
335 GOSUB7:PRINT"[147]"
340 PRINT"BEISPIELE:"
350 PRINT"POKE 53280,X   [129]SPEICHERADRESSE FUER DIE
360 [153][163]15)"RAHMENFARBE"
370 [153]"POKE 53281,X   FORSPEICHERADRESSE FUER DIE
380 PRINTTAB(15)"HINTERGRUNDFARBE"
390 PRINT"POKE  1024,Y   [129]SPEICHERADRESSE FUER
400 [153][163]15)"BILDSCHIRM FOR LINKS OBEN"
410 [153]"POKE  2023,Y   FORSPEICHERADRESSE FUER
420 PRINTTAB(15)"BILDSCHIRM [129] RECHTS UNTEN"
430 PRINT"POKE 55296,Z   [129]SPEICHERADRESSE FUER
440 [153][163]15)"FARBSPEICHERFOR LINKS OBEN"
450 [153]"POKE 56295,Z   FORSPEICHERADRESSE FUER
460 PRINTTAB(15)"FARBSPEICHER[129] RECHTS UNTEN"
470 PRINT"X,Z SIND FARB-CODES, Y ZEICHENCODES.":GOSUB7:PRINT"[147]"
475 PRINT"[156] TABELLE FUER FARB-CHR$-CODES: [146]"
480 PRINT"CHR$(  5):WEISS     CHR$(151):GRAU 1"
481 PRINT"CHR$( 28):ROT       CHR$(152):GRAU 2"
482 PRINT"CHR$( 30):GRUEN     CHR$(153):HELLGRUEN"
483 PRINT"CHR$( 31):BLAU      CHR$(154):HELLBLAU"
484 PRINT"CHR$(129):ORANGE    CHR$(155):GRAU 3"
485 PRINT"CHR$(144):SCHWARZ   CHR$(156):PURPUR"
486 PRINT"CHR$(149):BRAUN     CHR$(158):GELB"
487 PRINT"CHR$(150):HELLROT   CHR$(159):ZYAN"
490 GOSUB7:PRINT"[147]":PRINT"NACH DRUECKEN EINER BELIEBIGEN TASTE"
500 PRINT"FOLGT EINE  D E M O [146].":PRINT"DIESE DEMO POKED VERSCHIEDENE";
501 PRINT" FARBEN":PRINT"IN DIE BILDSCHIRMSPEICHERSTELLEN."
502 PRINT"DABEI WERDEN DIE FARBCODES DURCH DIE":PRINT"ZUFALLSFUNKTION ERZEUGT."
503 PRINT"PROGRAMM-LISTING:"
504 PRINTTAB(7)"10 FOR I=1024 TO 1024+999":PRINTTAB(7)"20 POKE I,160:J=I+54272"
505 PRINTTAB(7)"30 POKE J,INT(16*RND(1)+1)":PRINTTAB(7)"40 NEXT:GOTO 10"
507 GOSUB7:PRINT"[147]"
510 FORI=1024TO1024+999
515 POKEI,160:J=I+54272
520 POKEJ,INT(16*RND(1)+1)
525 NEXT
530 GOSUB7:PRINT"[147]":PRINTTAB(4)" ENDE VON LEKTION 10 TEIL 1 [146]"
540 PRINT"BITTE WARTEN BIS TEIL 2 EINGELESEN IST!"
550 LOAD"10/2LEKTION",8