Funktioniert das auch in R-Basic?
Cooler Code
-
-
Bei mir funktioniert der Link leider nicht, Slate.com kann die Seite nicht finden.
Bernd
-
-
Hi,
Bei der Fehlerseite auf Slate auf as C64-Bildchen klicken.
Der wirkklich geniale Code lautet:
10 print char$(205.5 + rnd(1)); : goto 10Eigentlich lautet meine Antwort: Probiert es doch aus.
Prinzipiell geht das bei R-BASIC nämlcih auch genau so, aber
1. Wegen eines noch nicht gefixten Bugs in den Zeilennummern lässt sich der Code nicht compileren.
2. Beim C64 liegt auf Code 205 und 206 irgendwelche diagonalen Grafikzeichen "\" und "/". Das ist bei GEOS aber nicht so.
Deswegen gibts auch kein Labyrinth.Gruß
Rainer -
Richtig klasse
Nachtrag: Ein englischsprachiges PDF mit vielen Hintergrundinfos und Variationen des Programms. http://trope-tank.mit.edu/10_PRINT_121114.pdf
-
-
Zitat
Original von Rainer: Ich konnts nicht lassen...
Richtig schönes Beispiel für die Verwendung der Blockgrafik-Fonts, Rainer.
-
Das Problem bei der Umsetzung des originalen Codes ist, dass die Schrägstriche des dort verwendeten C64-Zeichensatzes die gesamte zur Verfügung stehende Fläche nutzen, sie also direkt aneinander stoßen. Normalerweise lassen Fonts ja immer etwas Luft zwischen den Zeichen. Ausserdem liegen die beiden Zeichen im C64-Font direkt nebeneinander, in anderen Fonts eher nicht.
Bei meinen Versuchen mit dem normalen GEOS-Zeichensatz kam vorhin nix ansehnliches zustande. Daher habe ich Rainers Beispiel mit den Blockgrafik-Zeichen etwas variiert.
[Blockierte Grafik: http://www.geopixel.de/forum_infobase/ibm_blau_gelb1.gif]
[Blockierte Grafik: http://www.geopixel.de/forum_infobase/ibm_blau_gelb2.gif]
Bernd
-
Hallo Bernd,
die Variante mit repeat until ist definitv besser als meine mit label und goto
Sehr schön.
Rainer -
Zitat
Original von Rainer: die Variante mit repeat until ist definitv besser als meine mit label und goto
Dafür ist deine eindeutig näher am OriginalWeil ich das Thema so interessant finde, habe ich ne Seite dazu angelegt: http://www.geopixel.de/RBPROGS/BLAUGELB.HTM
Bernd
-
Echt cool, wie ihr das aufgegriffen habt! Früher hätte es bei GeoWorks oder NewDeal zwei Jahre gedauert, bis so etwas vielleicht überhaupt aufgegriffen worden wäre...
-
Wenn nicht in diesem Leben, wann dann
Übrigens ist Franks Nachricht "GEOS unter Android" auch schon wieder über sechs Monate alt, ohne das weitere Infos zu hören sind...
Bernd
-
Die Seite "Make" hat das Thema auch wieder einmal aufgegriffen: https://www.heise.de/make/meldung/L…er-3944822.html
-
Macht wirklich Spass. Musste gleich Rainers Beispiel umbauen, da es bei mir zu schnell lief...
DIM & DATA
BASIC-CODE
Code
Alles anzeigenclassiccode fontsetBlock(16, 16) blockload("Alien16.rbf", 0, 256) color blue, light_blue cls th = TimerStart (TimerHandler, 0, 1) TIMERACTION TimerHandler FOR i = 0 TO 2 print chr$(205.5+rnd()); NEXT END ACTION
Gruss
Andreas -
Musste gleich Rainers Beispiel umbauen, da es bei mir zu schnell lief...
Auch ne schöne Variante, Andreas.
Ich habe unsere älteren Beispiele an die aktuelle R-BASIC-Version angepasst und Andreas' Variante hinzugefügt.