Werbung
Systemhandbuch
110
3. Software
40 PRINTCHR$(27);"2";:COLOR4,0:CLS
50 PRINTAT(15,11);"HIER IST BILD 1!";CHR$(27);"7";
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 COLOR31,7:CLS:PRINTCHR$(27);"9";:VPOKE14242,VPEEK(14242)+1:CLS
110 VPOKE14242,VPEEK(14242)-1: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
Kleinbuchstaben, Ziffern, Sonderzeichen (Codes 00-7FH) können eigene
Zeichenbildtabellen erstellt werden. Pro Zeichen werden 8 Bytes
benötigt.
Werbung
