Inhaltsverzeichnis
Werbung
SOFTWARE
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 Hintergrund-
farbe, 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:PRINTCHR$(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
3.10. Bildschirmausgaben, Zeichen, Pseudozeichen, Grafik
3.10.1. Zeichenbildtabellen und deren Verwaltung
Zur Ergänzung des internen Zeichenbildvorrates und der Groß- und Klein-
buchstaben, Ziffern, Sonderzeichen (Codes 00 - 7FH) können eigene Zeichen-
bildtabellen erstellt werden. Pro Zeichen werden 8 Bytes benötigt.
110
10
Werbung
Inhaltsverzeichnis
