Kleincomputer KC 85/5 Systemhandbuch Seite 164

SOFTWARE
Im Beispiel 1 wird die Umschaltung zwischen den Bildern 0 und 1 demonstriert.
Beispiel 1:
10 COLOR6,1:CLS
20 PRINTAT(15,11);CHR$(27);"1";"HIER IST BILD 0!"
30 PAUSE20
40 PRINTCHR$(27);"2";:COLOR4,0:CLS
50 PRINTAT(15,11);"HIER IST BILD 1!";CHR$(27);"2";
60 PAUSE20
70 PRINTAT(20,4);"ICH SCHREIBE JETZT AUF BILD 0!";CHR$(27);"4";
80 COLOR1,5:CLS:FORI=0TO100STEP5:CIRCLE159,127,I,0:NEXT
90 PRINTAT(1,9);"HIER IST WIEDER BILD 0!";CHR$(27);"1";:PAUSE20
100 PRINTCHR$(27);"2";:COLOR6,1:CLS
110 FORI=0TO2*PISTEP0.03
120 X=159+65*SIN(I*3)
130 Y=127+50*SIN(I*4)
140 PSETX,Y,7:NEXT:PRINTAT(1,9);"HIER IST WIEDER BILD 1!"
150 PRINTCHR$(27);"2";:PAUSE20
160 PRINTCHR$(27);"1";:PAUSE20
170 GOTO150
Das Beispiel 2 zeigt verschiedene Möglichkeiten, bei der hohen Farbauflösung
(pixelweise), den Bildschirm mit einer der vier Farben, quasi als Hintergrundfarbe,
einzufärben.
Beispiel 2:
10 PRINTCHR$(27);"A";
20 !HINTERGRUND SCHWARZ
30 COLOR0,0:CLS:GOSUB130:PAUSE20
40 !HINTERGRUND TUERKIS
50 COLOR31,7:CLS:GOSUB130:PAUSE20
60 !HINTERGRUND ROT
70 COLOR31,7:PRINTCHR$(27);"9";CHR$(12);CHR$(27);"9";:GOSUB130
80 PAUSE20
90 !HINTERGRUND WEISZ
100 COLOR 31,7:CLS:PRINT CHR$ (27);"9";:VPOKE14242,
VPEEK(14242) OR1:CLS
110 VPOKE14242,VPEEK(14242) AND 254:PRINT CHR$(27);"9";:
GOSUB130:PAUSE20
120 GOTO20
130 CIRCLE129,97,50,0:CIRCLE189,97,50,1
140 CIRCLE129,157,50,2:CIRCLE189,157,50,3:RETURN
164
9