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 >
Commodore BASIC  |  2023-02-26  |  4KB  |  90 lines
  1. 1 poke45,peek(174):poke46,peek(175):clr:poke788,52:poke657,128
  2. 2 poke53280,1:poke53281,1:goto16
  3. 3 print"[147]":fori=1to39:printc$;:next:fori=1to22:print"[157]"c$;:next:print"[157]";
  4. 4 fori=1to38:print"[157]"c$"[157]";:next:printc$
  5. 5 fori=1to23:print"[145]"c$"[157]";:next:return
  6. 7 geta$:ifa$=""then7
  7. 8 print:return
  8. 16 z$=chr$(34):c$="[214]":gosub3:print""tab(13)"lektion 10"
  9. 17 printtab(10)"1. farbsteuerung":printtab(10)"2. hochaufloesende"
  10. 18 printtab(13)"graphik":gosub7
  11. 20 print"[147]":printtab(12)"farbsteuerung[146]"
  12. 30 print"mit dem cbm 64 koennen sie verschiedene":print"farbkombinationen am";
  13. 40 print" bildschirm aus-":print"waehlen:":print"je [129]16 farben fuer den [129]bildschirmrand,"
  14. 50 print"fuer den [129]hintergrund und fuer die":print"[129]zeichen."
  15. 60 print" 1.print-befehl: [146]":print"die zeichenfarbe koennen sie ganz ein-"
  16. 70 print"fach durch betaetigen der ctrl[146]- bzw.":print"der c=[146]-taste und einer";
  17. 80 print" zifferntaste":print"wechseln."
  18. 90 print"geschieht dies waehrend eines [129]print-":print"befehls, so erscheinen die";
  19. 100 print" farbsteuer-":print"zeichen als graphische zeichen auf dem"
  20. 110 print"bildschirm."
  21. 120 gosub7:print"[147]"
  22. 130 print"beispiel:":print"der befehl":print"10 print"z$" s p e k t r u m"z$
  23. 140 print"         ^ ^ ^ ^ ^ ^ ^ ^":print"   ctrl  1 2 3 4 5 6 7 8"
  24. 150 print"erscheint mit graphik-zeichen auf":print"dem bildschirm:"
  25. 160 print"10 print''[208][146]se[146]p\[146]e[223][146]k[220][146]t^[146]r_[146]u[255][146]m''"
  26. 170 print"und wird folgendermassen ausgefuehrt:":print"[144]spe[159]k[156]tru[158]m"
  27. 180 gosub7:print"[147]"
  28. 190 print"farbe     taste    [221]  farbe     taste"
  29. 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]"
  30. 210 print"schwarz   ctrl[146] 1[146]   [221]  orange    c=[146] 1[146]"
  31. 211 print"weiss     ctrl[146] 2[146]   [221]  braun     c=[146] 2[146]"
  32. 212 print"rot       ctrl[146] 3[146]   [221]  hellrot   c=[146] 3[146]"
  33. 213 print"tuerkis   ctrl[146] 4[146]   [221]  grau 1    c=[146] 4[146]"
  34. 214 print"violett   ctrl[146] 5[146]   [221]  grau 2    c=[146] 5[146]"
  35. 215 print"gruen     ctrl[146] 6[146]   [221]  hellgruen c=[146] 6[146]"
  36. 216 print"blau      ctrl[146] 7[146]   [221]  hellblau  c=[146] 7[146]"
  37. 217 print"gelb      ctrl[146] 8[146]   [221]  grau 3    c=[146] 8[146]"
  38. 220 print" 2.farb-chr$-codes: [146]":print"die [129]farb-chr$-codes koennen im zusam-"
  39. 230 print"menhang mit dem [129]print-befehl direkt":print"benutzt werden."
  40. 240 print"z.b. der befehl: printchr$(30)"z$"gruen"z$
  41. 250 print"schreibt das wort'gruen' auf den":print"bildschirm."
  42. 260 print"die zahlenwerte fuer die [129]farb-chr$-":print"codes entnehmen sie ihrem";
  43. 270 print" handbuch.":gosub7:print"[147]"
  44. 280 print" 3.poke-befehl: [146]":print"mit je einem [129]poke-befehl";
  45. 285 print" koennen sie"
  46. 290 print"beliebige zeichen in jede beliebige":print"[129]bildschirm-speicherstelle";
  47. 300 print" schreiben.":print"oder jede beliebige farbe in jede"
  48. 310 print"beliebige [129]farb-speicheradresse."
  49. 320 print"ausserdem koennen sie die bildschirm-":print"[129]rahmenfarbe und die [129]hinter";
  50. 330 print"grundfarbe":print"durch einen [129]poke-befehl bestimmen."
  51. 335 gosub7:print"[147]"
  52. 340 print"beispiele:"
  53. 350 print"poke 53280,x   [129]speicheradresse fuer die
  54. 360 [153][163]15)"rahmenfarbe"
  55. 370 [153]"poke 53281,x   forspeicheradresse fuer die
  56. 380 printtab(15)"hintergrundfarbe"
  57. 390 print"poke  1024,y   [129]speicheradresse fuer
  58. 400 [153][163]15)"bildschirm for links oben"
  59. 410 [153]"poke  2023,y   forspeicheradresse fuer
  60. 420 printtab(15)"bildschirm [129] rechts unten"
  61. 430 print"poke 55296,z   [129]speicheradresse fuer
  62. 440 [153][163]15)"farbspeicherfor links oben"
  63. 450 [153]"poke 56295,z   forspeicheradresse fuer
  64. 460 printtab(15)"farbspeicher[129] rechts unten"
  65. 470 print"x,z sind farb-codes, y zeichencodes.":gosub7:print"[147]"
  66. 475 print"[156] tabelle fuer farb-chr$-codes: [146]"
  67. 480 print"chr$(  5):weiss     chr$(151):grau 1"
  68. 481 print"chr$( 28):rot       chr$(152):grau 2"
  69. 482 print"chr$( 30):gruen     chr$(153):hellgruen"
  70. 483 print"chr$( 31):blau      chr$(154):hellblau"
  71. 484 print"chr$(129):orange    chr$(155):grau 3"
  72. 485 print"chr$(144):schwarz   chr$(156):purpur"
  73. 486 print"chr$(149):braun     chr$(158):gelb"
  74. 487 print"chr$(150):hellrot   chr$(159):zyan"
  75. 490 gosub7:print"[147]":print"nach druecken einer beliebigen taste"
  76. 500 print"folgt eine  d e m o [146].":print"diese demo poked verschiedene";
  77. 501 print" farben":print"in die bildschirmspeicherstellen."
  78. 502 print"dabei werden die farbcodes durch die":print"zufallsfunktion erzeugt."
  79. 503 print"programm-listing:"
  80. 504 printtab(7)"10 for i=1024 to 1024+999":printtab(7)"20 poke i,160:j=i+54272"
  81. 505 printtab(7)"30 poke j,int(16*rnd(1)+1)":printtab(7)"40 next:goto 10"
  82. 507 gosub7:print"[147]"
  83. 510 fori=1024to1024+999
  84. 515 pokei,160:j=i+54272
  85. 520 pokej,int(16*rnd(1)+1)
  86. 525 next
  87. 530 gosub7:print"[147]":printtab(4)" ende von lektion 10 teil 1 [146]"
  88. 540 print"bitte warten bis teil 2 eingelesen ist!"
  89. 550 load"10/2lektion",8
  90.