home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 5
/
Tiger_Disk_005_19xx_Tiger-Crew-Disk_de_Side_B.d64
/
10_1lektion
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
4KB
|
90 lines
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