Benutzer:Jodigi/BASIC-Programme
Aus C64-Wiki
Zur Navigation springenZur Suche springenMeine 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.
- Aus dem Artikel Zeilennummer:
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