Der MEGA65-Laber-Stammtisch

Wirsing · 20. Mai 2022

Zitat von Snoopy

Zitat von Wirsing

Kann ich eigentlich "ohne peek" rausfinden welches zeichen an z.B. Pos (1,1) steht?

Da fällt mir im Moment nichts ein. Zum Beispiel vom ZX Spectrum kenne ich dafür SCREEN$(x,y,).

Ich schreibe einfach schon mal die Beschreibung:

RCHAR(x,y,flag)

Liefert den PETSCII-Wert (flag=0) oder den Farbwert (flag=1) des Charakters, der auf dem Textbildschirm an Position (x,y) dargestellt ist, zurück.

Beispiel:

Code

PRINT RCHAR(0,0,0) : REM GIBT DEN PETSCII-WERT DES CHARAKTERS AN POSITION (0,0) AUS

PRINT RCHAR(0,0,1) : REM GIBT DEN FARBWERT DES CHARAKTERS AN POSITION (0,0) AUS

Alles anzeigen

Suppi. Nur sorum wird ein Schuh draus

Dann muss ich das PDF nur noch ausdrucken und schon müsste es funktionieren. Herrrrlich

der_funker · 20. Mai 2022

Zitat von SkulleateR

Zitat von der_funker

Beim "DevKit" gab es angeblich eine GEOS.D81 speziell für den Mega65. Wo bekommt man das denn für den Mega65-r3 her?

ist auf der mitgelieferten SD Karte

Echt? Oh man muss ich blind gewesen sein - gleich mal schauen...

Snoopy · 20. Mai 2022

Zitat von MC64

Macht aber auch nix, ich mach sowieso alles mit FGOSUB. Geilster Befehl ever.

Dazu habe ich hier sogar heute erst was in den Tipps geschrieben.

Snoopy · 20. Mai 2022

Zitat von SkulleateR

ist auf der mitgelieferten SD Karte

Vielleicht hat er nur Schulhofkopien zu Hause?

clarkkent · 20. Mai 2022

Im BIOS kann man ja die experimentelle Funktion für die langen Dateinamen einschalten - nur bootet dann der Mega65 nicht mehr. Mir wären die langen Dateinamen schon wichtig, mit 8 Zeichen kann man doch bei hunderten Files auf der SD-Karte nicht mehr sagen, was was ist.

Gott sei Dank werden Diskimages mit langen Dateinamen am C64 Core tadellos gemountet. 😀

MiCv2 · 20. Mai 2022

Habe nach der De- Version gefragt, da ich gerne für mich in Basic paar Programme mit De- Umlauten schreiben würde. Es gab, wie hier erwähnt, ja den c128 mit De- Tastatur, den Amiga und auch mal einen Philips VG-8235.

Wenn ich aktuell einen MSXVR Computer bestelle, kann ich gegen Aufpreis frei wählen welche Tastatur & Handbuch ich möchte. Verstehe aber auch den anderen Argument aus Kostengründen.. Englisch für Alle also..

SkulleateR · 20. Mai 2022

Zitat von MiCv2

Ich habe nach der De- Version gefragt, da ich gerne für mich in Basic paar Programme mit De- Umlauten schreiben würde. Es gab, wie hier erwähnt, ja den c128 mit De- Tastatur, den Amiga und auch mal einen Philips VG-8235.
Wenn ich aktuell einen MSXVR Computer bestelle, kann ich frei wählen welche Tastatur & Handbuch. Ich verstehe aber auch den anderen Argument aus Kostengründen.. Englisch für Alle also..

Naja, wenn es nur um die Darstellung innerhalb des Programms geht kann man ja einfach CHARDEF nehmen und sich das ÄÖÜ dazubasteln

MiCv2 · 20. Mai 2022

Ja, und auf die Tastatur knalle ich Aufkleber mit De- Umlauten drauf, wie die ersten Amiga 1000 Tastaturen damals..

SkulleateR · 20. Mai 2022

Zitat von MiCv2

Ja, und auf die Tastatur knalle ich Aufkleber mit De- Umlauten, wie die ersten Amiga 1000 Tastaturen damals..

Pfffff, geht doch nur um drei Tasten, kannst du dir ja wohl merken ....

MiCv2 · 20. Mai 2022

Zitat von SkulleateR

Zitat von MiCv2

Ja, und auf die Tastatur knalle ich Aufkleber mit De- Umlauten, wie die ersten Amiga 1000 Tastaturen damals..

Pfffff, geht doch nur um drei Tasten, kannst du dir ja wohl merken ....

Man wird alt..

Senfsosse · 20. Mai 2022

Zitat von Snoopy

Zitat von MC64

Zitat von Snoopy

RCHAR(x,y,flag)

Ich würde das RCURSOR nennen, da CHAR sich auf den Grafikschirm bezieht.

RCURSOR ist schon belegt.

Aber ich kann die Beschreibung ja recht schnell an den tatsächlichen Befehl dann anpassen. Da bin ich flexibel.

Alles anzeigen

Einfach einen zusätzlichen Parameter einbauen und RCURSOR liest halt den Inhalt an der Position. Wo ist das Problem??

Targas · 20. Mai 2022

Da geht doch bestimmt auch ein Peek Befehl

Snoopy · 20. Mai 2022

Zitat von Senfsosse

Einfach einen zusätzlichen Parameter einbauen und RCURSOR liest halt den Inhalt an der Position. Wo ist das Problem??

In dem Fall muss ich leider Haare spalten.

RCURSOR ist ein Befehl, der zwei Werte in die angegebenen Parameter speichert.

RCHAR (oder wie auch immer) wäre eine Funktion, die einen Wert zurückgibt.

Das lässt sich nicht mischen, zumindest wenn man nicht "komplett kreuz und quer" machen will.

Aber ich habe verstanden, was du meintest. Da wird sich schon was finden lassen, am Funktionsnamen soll es sicherlich nicht scheitern. RWASISTDASFUEREINZEICHENBEI(x,y,flag) ginge ja auch.

MC64 · 20. Mai 2022

Zitat von Snoopy

Zitat von MC64

Macht aber auch nix, ich mach sowieso alles mit FGOSUB. Geilster Befehl ever.

Dazu habe ich hier sogar heute erst was in den Tipps geschrieben.

Hab ich doch schon gesehen.

Ich kenn FGOSUB mittlerweile in- und auswendig. War Liebe auf den ersten Blick.

Snoopy · 20. Mai 2022

Zitat von MiCv2

Zitat von SkulleateR

Zitat von MiCv2

Ja, und auf die Tastatur knalle ich Aufkleber mit De- Umlauten, wie die ersten Amiga 1000 Tastaturen damals..

Pfffff, geht doch nur um drei Tasten, kannst du dir ja wohl merken ....

Man wird alt..

Man muss sich nur zu helfen wissen!

Snoopy · 20. Mai 2022

Zitat von Targas

Da geht doch bestimmt auch ein Peek Befehl

"Wer in BASIC 65 ein PEEK oder POKE verwendet, oder sich unerlaubt durch PEEK oder POKE einen Vorteil verschafft und in seinem Programm in Verkehr bringt, wird mit Hexcode-Abtippen nicht unter zwanzig Seiten bestraft“.

Drachen · 20. Mai 2022

Zitat von Snoopy

Zitat von Targas

Da geht doch bestimmt auch ein Peek Befehl

"Wer in BASIC 65 ein PEEK oder POKE verwendet, oder sich unerlaubt durch PEEK oder POKE einen Vorteil verschafft und in seinem Programm in Verkehr bringt, wird mit Hexcode-Abtippen nicht unter zwanzig Seiten bestraft“.

Was mach da mit dem Listing von Boulder Dash. Da habe ich zick Peek und Pokes eingearbeitet.

Code

1410 IF J%=1 THEN BEGIN
1411 Y=Y-1:RO=176:XX=$0800+(4+Y)*40+X
1412 IF PEEK(XX)=181 OR PEEK(XX)=179 OR PEEK(XX)=178 THEN Y=Y+1
1414 BEND
1450 :
1460 IF J%=5 THEN BEGIN
1461 Y=Y+1:RO=176:XX=$0800+(4+Y)*40+X
1462 IF PEEK(XX)=181 OR PEEK(XX)=179 OR PEEK(XX)=178 THEN Y=Y-1
1464 BEND
1470 :
1510 IF J%=7 THEN BEGIN
1511 X=X-1:RO=128:XX=$0800+(4+Y)*40+X
1512 IF PEEK(XX)=181 OR PEEK(XX)=179 OR PEEK(XX)=178 THEN GOSUB6260:REM X=X+1
1514 BEND
1515 :
1560 IF J%=3 THEN BEGIN
1561 X=X+1:RO=136:XX=$0800+(4+Y)*40+X
1562 IF PEEK(XX)=181 OR PEEK(XX)=179 OR PEEK(XX)=178 THEN GOSUB6410:REM X=X-1
1564 BEND
1565 :
1610 IF PEEK($0800+(4+Y)*40+X)=144 THEN SC=SC+1:PU=PU+D%(P):GOSUB3965
1660 IF PEEK($0800+(4+Y)*40+X)=152 THEN POKE $0800+(4+Y)*40+X,32:GOTO7610
1710 IF PEEK($0800+(4+Y)*40+X)=182 THEN BEGIN
1712 POKE $0800+(4+Y)*40+X,B7
1713 POKE $D800+(4+Y)*40+X,F%(0):GOTO4410
1718 BEND

Alles anzeigen

Snoopy · 20. Mai 2022

Zitat von Drachen

Was mach da mit dem Listing von Boulder Dash. Da habe ich zick Peek und Pokes eingearbeitet.

Bei Boulder Dash und darf man das!

Und wenn erst mal RCHAR im ROM drin ist, dann fallen eh fast alle PEEKs bei dir raus.

bubbob42 · 21. Mai 2022

Zitat von SkulleateR

Thema Disklaufwerk :

Beste Sache ever, ich arbeite fast NUR mit dem internen LW, mach nur ab und zu mal ein Backup, denn man weiss ja nie

Ich nutze auch nur das interne Laufwerk. Dazu dann regelmäßig Backups auf die zusätzlich angeschlossene Oceanic-Floppy.

Es macht richtig Spaß, sich wie früher nur mit einem Handbuch, etwas Zusatzliteratur und völlig ohne PC oder gar Internet durchzufuchsen.

zetagi · 21. Mai 2022

Zitat von Mad Fritz

Zitat von dr.nolle

Nabend,
weiß jemand wie viele Mega65 nach Deutschland, Österreich und die Schweiz verkauft wurden?
LG Thorsten

Ja, Trenz.
Und ich weiß, daß mindestens einer in die Schweiz ging.

mindestens zwei gingen in die Schweiz