BASIC-Programme - "wirbleibenzuhause"

Snoopy · 26. März 2020

Für alle, die nicht unbedingt an einem Wettbewerb teilnehmen wollen, sondern in diesen Zeiten "Zuhause" einfach "nur mal so" was in BASIC programmiert haben, ist dieser Thread gedacht.

Einfach die BASIC-Programme hier einstellen und mehr nicht.

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

ich mache mal den Anfang mit einem BASIC-Zehnzeiler, der veranschaulichen soll, wie schnell exponentielles Wachstum ist.

Es wird von einer infizierten Person ausgegangen.

Gefragt wird nach dem Verbreitungsfaktor.

Dieser bedeutet hier im Programm: 2 bedeutet, dass jeder Infizierte jeden Tag 2 neue Personen infiziert. Und diese am nächsten Tag wiederum jeder 2 usw. Es sind auch nicht ganze Zahlen wie z.B 1.5 oder 0.5 möglich.

Angezeigt wird das Wachstum an Infizierten innerhalb 21 Tagen.

Ich habe das Programm am Mega65 (genauer: Nexys-Board) in BASIC geschrieben, es läuft aber ohne Veränderung auch auf dem C64, C128, Plus 4 und mit Einschränkungen am VC20 (alle in VICE probiert).

Angehängt habe ich das BASIC-Programm als gepacktes D64-Image und D81-Image (für Mega65).

Viel Vergnügen beim Ausprobieren!

Code

10 rem exponentielles wachstum
20 print "S=== exponentielles wachstum ==="
30 let an=1 : rem anzahl gleich 1
40 print " eingabe verbreitungsfaktor ";
50 input fa
60 for k=2 to 21
70 ve=an*fa
80 an=an+ve
90 print k,an
100 next k

Anmerkung: Das "S" in Zeile 20 ist das Steuerzeichen (in VICE mit SHIFT+POS1) zum Löschen des Bildschirms (siehe das "inverse Herz" im Screenshotlisting).

GoDot · 26. März 2020

Wer die Ästhetik von Mathematik liebt, hier eins der vielen kleinen Beispiele aus dem Buch "Spiele mit Computergrafik" von Norbert Treitz. Dazu braucht man Simons' Basic (und viel Zeit!) Das Programm malt um 11 zufällig gesetzte Punkte konzentrische Kreise (bei der Hälfte des Abstandes zum nächsten Punkt um diesen dann). Man kann die Anzahl der Punkte ändern (in 120, hier sind es 11 Punkte: 0 bis 10, wenn es mehr sein sollen, beachten, dass dann x() und y() geDIMt werden müssen) und die Dicke der Kreise auch (in 200: der Teiler 3 legt die Dicke fest, je größer desto dicker).

Code

120 hires1,0:fori=0to10
130 y(i)=200*rnd(1):x(i)=320*rnd(1)
140 next
150 forx=0to319:fory=0to199:r=1e6:fori=0to10
180 r1=sqr((x-x(i))*(x-x(i))+(y-y(i))*(y-y(i)))
190 ifr1<rthenr=r1
200 next:plotx,y,r/3and1:next:next
210 do null

Das DO NULL in der letzten Zeile ist TSB-Syntax, einfach durch WAIT198,1 ersetzen, wenn man TSB nicht hat. Ansonsten sind nur zwei Befehle anzupassen für andere Basic-Versionen: HIRES in Zeile 120 (schaltet die Grafik ein) und PLOT in Zeile 200 (setzt einen Punkt an x,y in der Farbe, die der dritte Parameter angibt, hier 0-aus oder 1-an)

Hier ein Beispiel-Ergebnis:

Arndt

ssdsa · 26. März 2020

Zitat von GoDot

Wer die Ästhetik von Mathematik liebt, hier eins der vielen kleinen Beispiele aus dem Buch "Spiele mit Computergrafik" von Norbert Treitz. [...] Hier ein Beispiel-Ergebnis:

Das sieht klasse aus! Falls jemand nicht genug von den konzentrischen Kreisen bekommt und die Wartezeit beim Berechnen des nächsten HiRes-Bildes zu lang wird, der kann sich dieselbe Ästhetik in Bewegung auch mal hier anschauen: https://www.shadertoy.com/view/WsscRX

Der Algorithmus ist derselbe wie im BASIC-Programm.

GenerationCBM · 26. März 2020

Hui, da wird einem ja ganz wuschig.

Eine von den 13 bunten Pillen war wohl schlecht...

GoDot · 26. März 2020

Zitat von ssdsa

der kann sich dieselbe Ästhetik in Bewegung auch mal hier anschauen

Das ist ja cool! Wow! $8\|$

Ich könnte aus dem Buch noch mehr dieser kleinen Proggies hochladen. Soll ich? (Ein paar sind auch schon im C64-Wiki, z.B. unter dem Stichwort TEST ein schönes!)

Arndt

GenerationCBM · 26. März 2020

Zitat von GoDot

Soll ich?

Nicht fragen. Einfach machen.

GoDot · 26. März 2020

Hehe…, ok.

Hier das Programm zum Erzeugen einer Milchstraße:

Code

100 hires1,0
110 forx=1to160:fory=-100to99
120 w=atn(y/x):r=sqr(x*x+y*y)
130 h=.5+.5*(sin(2*w+log(r)*10))
140 ifh<rnd(1)then160
150 plot160-x,100+y,1:plot159+x,99-y,1
160 next:next
170 do null

Und der Screenshot dazu:

Arndt

GoDot · 27. März 2020

Heute mal was anderes. Ich hab mal vor ewigen Zeiten in der 64'er ein paar Tricks veröffentlicht, das Programm hier basiert auf einem Kernel-SYS zum Verschieben von Speicher ($b688, gehört zur Stringverwaltung) und speichert den aktuellen Textbildschirm ab, in diesem Falle viermal, inklusive der Farben. Man braucht also 8 KB freien Speicher dafür (hier ab $5000). Wenn man sich auf zwei Screens beschränkt, reicht natürlich auch der $C000-Bereich aus.

Erstmal das Programm:

Code

10 print"{clr}{ctrl-h}{ctrl-n}Screens"
15 z0=5*4096:q0=1024:an=254
16 z2=z0+4096:q2=55296
20 fori=49to52
21 z1=z0+(i-49)*1024:q1=q0
22 forj=40to998:printchr$(i);:next
25 pokeq1+999,i:poke646,i:gosub1900
26 z1=z2+(i-49)*1024:q1=q2:gosub1900
30 print"{home}":next:poke646,0
35 i=z0:z0=q0:q0=i
36 i=z2:z2=q2:q2=i
50 print"{home}Welchen Screen sehen (1..4, 0=Ende) ";:inputx$:x=val(x$)-1
60 ifx<0orx>3thenprint"{clr}Ende":end
70 z1=z0:q1=q0+x*1024:gosub1900
71 z1=z2:q1=q2+x*1024:gosub1900
80 goto50
999 end
1900 fork=0to3:z=z1+k*254:q=q1+k*254:gosub2100:next:return
2100 h=int(z/256):l=z-h*256:poke53,l:poke54,h
2110 h=int(q/256):l=q-h*256:poke781,l:poke782,h:poke780,an+1:sys46728:return

Alles anzeigen

Der SYS ist in der letzten Zeile und braucht als Parameter das Ziel der Verschiebung (Variable Z in 2100), die Quelle (Variable Q in 2110) und die Länge des Verschiebe-Chunks. Da der SYS aus der Stringverwaltung kommt, kann er nur maximal 255 Bytes bearbeiten (Variable AN) und die Routine muss deshalb mehrfach aufgerufen werden (aus Zeile 1900 heraus), je Screen und Farbe viermal. Braucht man die Farbe gar nicht (weil eh alles in einer Farbe auf dem Bildschirm steht), kann man sich die Zeilen 26 und 71 sparen, ebenso die Variablen Z2 und Q2 (Zeile 16). Das spart natürlich auch Speicher. Ach so, die Zeilen 35 und 36 tauschen Quell- und Zieladresse aus für die "Rückgewinnung".

Das Programm schreibt jeweils einen ganzen Screen mit einer Zahl voll (1..4) und wartet dann auf eine Eingabe, mit der man einen der Screens wieder anzeigen kann.

Arndt

GoDot · 28. März 2020

Irgendwie kommen Programme mit Grafik besser an?

Hier also wieder was mit Grafik (und daher auch für Simons' Basic, lässt sich aber leicht anpassen): Eine Kugel, um die sich ein Schriftzug windet.

Code

100 hires15,11:bb=-1:vv=.8
105 a$="forum64.ist.super!":s=len(a$):print"S"a$:sc=1024
110 circle160,100,100,100,1
113 loop:loop
115 bb=bb+.008/cos(bb):ll=ll+.2/cos(bb)
116 block0,0,8,8,0
120 ch=peek(sc+a):a=a+1:ifa=sthena=0
130 char0,0,ch,1,1
140 fori=0to8step.5:forj=0to8step.5
145 iftest(i,8-j)=0then220
150 b=bb+.02*j:l=ll+.02/cos(bb)*i
160 x=sin(l)*cos(b)
170 y=cos(l)*cos(b)
180 z=sin(b)
190 u=y*cos(vv)+z*sin(vv)
200 v=-y*sin(vv)+z*cos(vv)
205 exitifu<0orbb>1.4
210 plot160+100*x,100-100*v,1
220 next:next
225 end loop:exitifbb>1.35
226 end loop
230 block0,0,8,8,0
235 circle160,100,100,100,1
250 do null

Alles anzeigen

Die Neigung der Kugel steuert man mit dem Wert bei VV in Zeile 100. Wenn der negativ wird, sieht man die Kugel von unten, bei PI/2 sieht man genau von oben auf den Nordpol. Wie üblich dauert das Programm seine Zeit, selbst unter Warp im Emulator...

Einen Screenshot mit dem VV-Wert oben haben wir auch parat:

Der Bannertext muss für den Befehl CHAR im Bildschirmcode vorliegen, daher wird er in Zeile 105 einfach auf den Textscreen gePRINTet und später dort per PEEK ausgelesen (Zeile 120). Die beiden CIRCLEs kommen im Originalprogramm (siehe Post #2) nicht vor, auch die Strukturierung mit LOOP nicht, da war mehr Spaghetti... "DO null" ist TSB, einfach mit wait198,1 ersetzen.

Arndt

SammyLightfood · 4. April 2020

Zitat von GoDot

Hier das Programm zum Erzeugen einer Milchstraße...

Wie bereits per PM besprochen find ich diese 2D Algorithmen auch extrem nett zum rumspielen. Genaugenommen seit dem Zeitpunkt (meiner Teenagerjahre) wenn man in Simons Basic mal was mit Grafik (aber kein Spiel und ohne Sprites) machen wollte. Da ich mich grad mit Amiblitz (hiess früher Blitzbasic) am Amiga beschäftige hab ich die "Milchstrasse" mal auf die Schnelle in dieser Sprache umgesetzt.

Details: Hab das Programm flexibel gemacht und kann wahlweise in 2 oder 4 Farben und in Lores (320x256) oder Hires (640x256) rendern. Wobei ich nicht die volle Höhe verwende sondern meist nur bis 200 oder 240 oder so. Der Anhang ist 640x240 mit 4 Farben.

adtbm · 4. April 2020

Gefällt mir richtig gut !

Ist zwar Simon's Basic und nicht Basic 10 aber beim Durchlesen der Posts habe ich gesehen, dass dies wohl relativ einfach auch auf dem MEGA65 zu realisieren wäre.

Wie Snoopy sagte, wenn ihr interresante Basic Listings habt, zeigt sie !

Retrofan · 4. April 2020

Fand ich auf YouTube (BASIC V2):

Code

10 print chr$(147)
20 ca=1024:cp=54272:r=25:co=40
30 poke 53280,0:poke 53281,0
40 forw=3to50:fori=1to12:forj=0to12:k=i+j
50 c=j+j+j/(i+3)+i*w/12
60 k1=ca+i+(co*k):i1=ca+k+(co*i):c1=cp+k1:c2=cp+i1
70 k2=ca+(co-i)+(co*(r-k)):i2=ca+(co-k)+(co*(r-i)):c3=cp+k2:c4=cp+i2
80 k3=ca+(co-i)+(co*k):c5=cp+k3:i3=ca+k+(co*(r-i)):c6=cp+i3
90 k4=ca+(co-k)+(co*i):c7=cp+k4:i4=ca+i+(co*(r-k)):c8=cp+i4
100 poke k1,81:poke c1,c:poke i1,81:poke c2,c
110 poke k2,81:poke c3,c:poke i2,81:poke c4,c
120 poke k3,81:poke c5,c:poke i3,81:poke c6,c
130 poke k4,81:poke c7,c:poke i4,81:poke c8,c
140 nextj,i,w
150 goto 10

Alles anzeigen

Retrofan · 4. April 2020

Und noch was für Tipp-Faule:

10 PRINT CHR$(RND(1)*255); : GOTO 10

hutti06 · 4. April 2020

Zitat von Retrofan

Fand ich auf YouTube (BASIC V2):

Was macht dieses Programm?

flyppo · 4. April 2020

Es malt den Bildschirm mit bunten Kreisflächen zu.

hutti06 · 4. April 2020

Ich habs abgetippt, aber ich hab einen Tippfehler eingebaut

flyppo · 4. April 2020

Wenn du Vice hast, geht copy & paste.

hutti06 · 4. April 2020

~~Hab ich aber nicht.~~

Doch, hab es gerade heruntergeladen - sieht echt cool aus!

Neptun · 10. April 2020

Hallo,

habe das Programm von Arndt mit den konzentrischen Kreisen mal

für C64-Basic angepasst:

Code

10 dimc(2828):clr:v=53248:pokev+33,.:pokev+32,11:z=rnd(-ti):a=8192:c=39
20 n=11:d=504:e=1e6:f=16:l=199:m=.5:s=1:p=n-1:dimye(l),x(p),y(p),h(7)
30 fori=.tol:ye(i)=a+c*(iandd)+i:next:fori=.to7:h(7-i)=s:s=s+s:next
40 printchr$(5)chr$(147);:fori=.to110:print"ppppppppp";:next:poke2023,16
50 pokev+17,59:pokev+24,24
60 fori=.top:x(i)=int(320*rnd(1)):y(i)=int(2e2*rnd(1)):next
70 forx=.to319:g=xandd:k=h(xand7)
80 fory=.tol:r=e:fori=.top:dx=x-x(i):dy=y-y(i):r1=dx*dx+dy*dy:ifr1<rthenr=r1
90 next:ifm+sqr(r)/3and1thenb=g+ye(y):pokeb,peek(b)ork
100 next:next
110 fori=.to96:pokev+32,i:next:poke198,.:wait198,1:pokev+32,11
120 pokev+17,27:pokev+24,20:printchr$(147);:poke198,.
130 rem 2020 by neptun

Alles anzeigen

Die Zahl der Kreise wird in Zeile 20 bei n=.. eingetragen. Das Programm dürfte schneller

sein, als das Original.

Hier noch eine erweiterte Version von mir, ebenfalls in C64-Basic.

Das Programm nutzt vier Farben und erzeugt eine Animation. Die Zahl der

Kreise kann in Zeile 80 geändert werden (n=..) . Die Farben der Kreise

stehen in Zeile 90.

KreiseMC.jpg

Code

10 poke56,160:clr:dimc(28e2):clr:poke56,32:clr
20 sys58784:v=53248:pokev+33,.:pokev+32,11:z=rnd(-ti):c$=chr$(147)
30 p=832:w$="wait..":fori=pto958:pokei,.:next:poke56334,.:poke1,51
40 fori=.tolen(w$)-1:b=v+8*(asc(mid$(w$,i+1))and63)
50 forj=p+i+61*int(i/3)toj+21step3:pokej,peek(b):b=b+1:next:next
60 poke1,55:poke56334,1:fori=.to1:z=v+i+i:pokez,136+48*i:pokez+1,140
70 poke2040+i,13+i:pokev+39+i,3:next:pokev+23,3:pokev+29,3:pokev+21,3
80 n=11:printc$:a=8192:c=39:p=n-1
90 c1=02:c2=00:c3=14:c4=07:rem farben
100 d=504:e=1e6:u=16*c1+c4:l=199:m=.5:q=56576:t=198:dimye(255),x(p),y(p),h(7)
110 fori=.tol:ye(i)=a+c*(iandd)+i:next:fori=.to3:h(i+i)=4^(3-i):next:poke646,c3
120 pokev+33,c3:printc$chr$(5):pokev+33,c2:fori=1024to2023:pokei,u:next
130 pokev+17,59:pokev+24,24:pokev+22,24
140 fori=.top:x(i)=int(320*rnd(1)):y(i)=int(2e2*rnd(1)):next
150 forx=.to319step2:g=xandd:k=h(xand7)
160 fory=.tol:r=e:fori=.top:dx=x-x(i):dy=y-y(i):r1=dx*dx+dy*dy:ifr1<rthenr=r1
170 next:f=int(m+sqr(r)/4)and3:iffthenb=g+ye(y):pokeb,peek(b)or(f*k)
180 next:next
190 z=0:fori=1to4:b=64*(iand3):forj=1to4:c=16*(jand3):fork=1to4:d=4*(kand3)
200 forl=1to4:ye(z)=b+c+d+(land3):z=z+1:next:next:next:next:pokev+32,.
210 forj=3to1step-1:b=2*a*j:fori=b+1024toi+999:pokei,u:next
220 fori=ato16191:k=peek(i):pokeb+i,k:pokei,ye(k):next:next
230 n=.:s=-1:pokev+21,.:poket,.
240 fori=.to3e2:n=n+sand3:k=196orn:waitv+17,128:pokeq,k:ifpeek(t)then260
250 forw=.to90:next:next:s=-s:goto240
260 poket,.:waitt,1:pokeq,199:sys58784
270 pokev+33,.:pokev+32,11:printc$:poket,.:poke56,160:clr:list
280 rem 2020 by neptun

Alles anzeigen

Gruss,

Neptun

GoDot · 10. April 2020

Zitat von Neptun

Das Programm nutzt vier Farben und erzeugt eine Animation.

Das ist ja ober-cool!!!

Arndt