16 Farben für den VC 20

Welcher VC 20-Besitzer träumt nicht davon, mit seinem Computer 16 Farben darzustellen?

Nun ist auch der VC 20 in der Grundversion imstande, wie sein großer Bruder, der C 64, eine Palette von 16 Farben anzubieten. Das Programm gebraucht den sogenannten »Extend Color Mode«, den viele gar nicht kennen, mit dem aber Einiges getan werden kann. Das Listing schreibt eine kurze Maschinenroutine in einen von Basic nicht benutzten Speicherbereich. Die Syntax des neuen Kommandos lautet: !FARBE BORDER (0 - 7), TEXT (0 - 15). Dabei bedeuten:

0	schwarz	8	orange
1	weiß	9	hellorange
2	rot	10	rosa
3	Cyan	11	hellcyan
4	violett	12	hellviolett
5	grün	13	hellgrün
6	blau	14	hellblau
7	gelb	15	hellgelb

(Marcel Kreeft/dm)

10 print"{clr}moment"
20 ck=0
30 forg=673to754:reada:pokeg,a:ck=ck+a:next
40 ifck<>8662thenprint"data error":end
50 data 169,172,141,008,003,169,002,141,009,003,096,032,115,000,201,033,240
60 data 009,032,121,000,076,231,199,076,008,207,160,000,032,115,000,217,238
70 data 002,208,243,200,192,005,208,243,032,155,215,142,132,003,032,121,000
80 data 201,044,208,225,032,155,215,138,010,010,010,010,109,132,003,141,015
90 data 144,169,005,032,210,255,076,174,199,070,065,082,066,069
100 sys673
110 !farbe 6,14
120 print"{clr}      {rvon}16 farben"
130 print"{down}{down}{down}syntax: !farbe border(0-7), text(0-15)"
140 print"{rvon}                                      "
150 print"{down}                taste
160 print"{down}{rvon}                                      "
170 getz$:ifz$=""then170
180 print"{clr}";:!farbe 3,6
190 print"********!farbe********":new

Listing. »16 Farben« mit dem VC 20