Benutzer:Jodigi/BASIC-Programme

Aus C64-Wiki
Zur Navigation springenZur Suche springen

Meine BASIC-Programme[Bearbeiten | Quelltext bearbeiten]

Auf dieser Seite finden Sie meine BASIC-Programme aus Screenshots (erstellt in dem Emulator VICE), die ich speziell für einige Artikel im Projekt C64-Wiki.de/.com in BASIC geschrieben habe.

Diese können per Copy & Paste in den Emulator VICE zurückkopiert werden und direkt mit RUN ausgeführt werden.

10 rem *** ein basic-programm **
11 rem *** mit bunten sterne ***
20 poke 53281,0   :rem hintergrund
30 printchr$(147) :rem bild loeschen
40 gosub 200: gosub 300
50 poke 1024+x,42 :rem stern setzen
60 poke 55296+x,f :rem farbe setzen
70 poke 53280,f   :rem rahmenfarbe
80 gosub 100: poke 1024+x,32: rem * clr
90 a$=""   :rem abbruch mit taste
95 get a$: if a$="" then goto 40
99 end
100 rem unterroutinen
200 rem zufaellige position
210 x=int(rnd(ti)*40)+40*int(rnd(ti)*25)
: return
300 rem zufaellige farbe (1-15)
310 f=int(rnd(ti)*15)+1:return