Computermuseum in Ebenthal

Peek und Poke ? Daran kann ich mich noch dunkel erinnern. Mit Peek und Poke konnte man in den 80er Jahren so einiges anstellen. So waren sie oft die einzige Möglichkeit etwas mit Funfaktor zu programmieren - bei den Commodore VC-20 und C64 Computern zumindest. Beim Commodore 16 gab es mit dem BASIC 3.5 schon Grafik und Soundbefehle. Die anderen Homecomputerhersteller, etwa Atari, Sinclair und Schneider hatten ein sehr Gutes BASIC. Um beim VC-20 ein A in die linke obere Ecke des Bildschirmspeichers zu schreiben, musste man folgenden Befehl eingeben: POKE 7680,1, um den selben Effekt auch auf einem C64 zu erreichen, gab man POKE 1024,1 ein. Beim Commodore 16 konnte man POKE 3072,1 oder CHAR,0,0,“A“ eingeben. Um einen VC-20 einen Ton zu entlocken, gab und gebe ich folgendes ein: POKE 36878,3 und POKE 36875,200 danach sollte man POKE 36875,0 eingeben. Der C16 konnte mit VOL 8, und SOUND 2,810,50 zum Musizieren gebracht werden.

Farbkombinationen C64

10 for as=0 to 15
20 for ad=15 to 1 step -1
30 poke 53280,as
40 poke 53281,ad
50 for x=1to2000: nextx
60 next ad: next as

Mit for next Schleifen Farbwerte in den Farbspeicher poken.

Grafikprogramme für den Commodore 16

10 color 0,1
20 color 1,2
30 graphic 1,1
40 locate 0,100
50 for x=1 to 319
60 y= int(100+99*sin(x/20))
70 draw , 160,100 to x,y
80 next x
90 for l=1 to 5000
100 next l

10 color 0,1
20 color 1,2
30 graphic 1,1
40 a=rnd(1)*20+10
50 for l=0 to 359 step a
60 box 1,100,50,220,150,l
65 box 0,100,50,220,150,l
70 next l
80 for l=1 to 2000:nextl
90 graphic 0,1

Grafik Beispiel Schneider CPC

10 mode 1
15 ink 2,0
16 ink 3,6
17 border 1
20 clg
30 b%=rnd*5+1
40 c%=rnd*5+1
50 origin 320,200
60 for a=0 to 1000 step pi/30
70 x%=100*cos(a)
80 move x%,x%
90 draw 200*cos(a/b%),200*sin(a/c%),3
95 if inkey$<>""then 20
100 next
110 goto 20