Avoid (Commodore VIC 20) by Masterware Entertainment

Avoid von Rainer Kappler (Masterware Entertainment)

fuer Commodore VC-20 Grundversion

https://www.facebook.com/rainer.kappler.5

Februar 2026

----------------------------------------------------------------------

Spielbeschreibung:

Du fliegst mit deinem Raumschiff über eine riesige Anlage, die mit Hindernissen gespickt ist. Diesen gilt es auszuweichen um möglichst viele Punkte zu sammeln.

Steuerung:

O -> links

P -> rechts

Listing:

1 print"{clear}{black}wait...":cs=6144:fori=csto7678step2:z=peek(32768+(i-cs)/2):pokei,z:pokei+1,z:next:z=36875
2 poke36879,8:poke36867,(peek(36867))or23:poke36869,254:poke36881,24:poke36878,15:fori=0to47step2:reada
3 poke6144+i,a:poke6144+i+1,a:next:data16,56,56,108,124,254,254,146,108,239,239,,239,239,108,108:f=30720:s=0
4 data,,,8,32,4,,40:print"{clear}":a$(0)="{cyan}aaaaaaaaaaaa":a$(1)="{cyan}         aaaaaaaaaaaa":sh=7948:sc=0:b=0
5 pokesh+f,7:pokesh,0:fort=0to20:next:pokesh,32:pokez,0:ifb<3+sthenprint"{home}{down}{cyan}"tab(9)"aaa":print"{home}{down}{left}"chr$(148):pokez,200
6 ifb=>3+sthena=int(rnd(1)*2):print"{home}{down}"a$(a):print"{home}{down}{left}"chr$(148):b=0:pokez,160+20*a
7 b=b+1:poke218,peek(218)or128:ifpeek(197)=52thensh=7948
8 sc=sc+1:print"{home}{yellow}score"sc:ifpeek(197)=13thensh=7960
9 ifpeek(sh)=1thenpokesh+f,7:pokesh,2:pokez,0:poke36877,200:fort=0to2500:next:poke36877,0:poke198,0:wait198,1:goto4
10 goto5:rem avoid (c) 2026 by rainer kappler

Programmbeschreibung:

1. Bildschirm loeschen und "wait..." anzeigen, Zeichensatz kopieren. Variable fuer Sound

2. Bildschirmfarbe festlegen, Grafikmodus einschalten und Daten fuer neue Zeichen einlesen.

3. Daten fuer neue Zeichen. Farbvariable und Wert fuer Zufallszahl auf null setzen.

4. Daten fuer neue Zeichen. Bildschirm loeschen und Variablen festlegen fuer Raumschiffposition, Score und Counter.

5. Raumschiff zeichnen, Warteschleife, Raumschiff wieder loeschen und Sound aus. Wenn Wert uebereinstimmt, Grafik zeichnen.

6. Wenn Wert uebereinstimmt neue Zufallszahl ermitteln und entsprechendes Hindernis zeichnen. Counter auf null setzen und Sound ausgeben.

7. Counter erhoehen, Scrolling, Taste "O" abfragen und Variable fuer Position setzen.

8. Score um eins erhoehen und anzeigen. Taste "P" abfragen und Variable fuer Position setzen.

9. Bei Kollision erfolgt das Spielende. Zeichen fuer Explosion und Sound ausgeben. Neustart bei Tastendruck.

10. Sprung zu Zeile 5. Credits.