Fragen zu Commodore BASIC 4.0 / Commodore 8096-SK

Telespielator · 23. März 2017

FRAGEN ZU COMMODORE BASIC 4.0 / CBM 8096-SK

Ich beschäftige mich derzeit viel mit meinem wunderbaren CBM 8096-SK und programmiere diesen in BASIC 4.0.
Dazu tauchen immer wieder Fragen auf, die ich hier stellen möchte mit der Bitte um sachorientierte Beantwortung.
Vielen Dank im Voraus für Eure Hilfe!

Immer Willkommen sind Literaturhinweise (gerne auch konkrete Verkaufsangebote per PN) zu BASIC / CBM und Software auf Kassette.

Ich stütze mich momentan vor allem auf Osborne, Adam und Donahue, Carol S.: CBM Computer Handbuch, 4. Aufl., te-wi-Verlag München 1981
und bin ziemlich zufrieden damit.

Zum ersten Problem: GOTO X

Ich habe mich gefragt, ob der Befehl GOTO wohl auch Variablen verarbeiten kann.
Dazu habe ich folgendes Programm geschrieben, um das mal auszuprobieren:

0 INPUT X : GOTO X
1 ? 1 : GOTO 0

2 ? 2[b] : GOTO 0
3 ? 3[b] : GOTO 0
.
.
.
9 ? 9[b] : GOTO 0
10 GOTO 0

Ich dachte, es gibt entweder eine Fehlermeldung aus (weil GOTO eben keine Variablen verarbeiten kann)
oder es springt brav die Zeilen an, die man per INPUT vorgibt und gibt die jeweilige Zeilennummer auf dem
Bildschirm aus. ABER: Es springt nach jeder Eingabe direkt wieder auf Zeile 0, d.h. X hat offenbar IMMER den
Wert 0. Wie kommt das und kann man da irgendwas machen oder kann GOTO einfach keine Variablen
verarbeiten?

Mac Bacon · 23. März 2017

GOTO kann schlicht und einfach keine Variablen verarbeiten; der Inhalt von X ist dabei total Wurscht. Du kannst auch GOTO$, GOTO% oder GOTOPRINT schreiben, das hat alles den gleichen Effekt: Beim Parsing der erwarteten (aber nicht vorhandenen) Ziffern hört der Interpreter sofort wieder auf, und dann steht halt Null im Rechenregister.

Telespielator · 23. März 2017

Okay, schade! Danke für die Info!
Habe gerade mal einfach das X entfernt und ich hätte geschworen, dass ein GOTO ohne Adresse
eine Fehlermeldung bringt. Tut es aber nicht! Doof...

Was ich auch immer noch nicht verstanden habe:

Warum fällt der Speaker aus, wenn man eine Datassette an den hinteren Port anschließt?
Und welcher der beiden Ports ist überhaupt Nr. 1 und Nr. 2 (oder heißen die 0 / 1 ?).

Mac Bacon · 23. März 2017

Zitat von Telespielator

ich hätte geschworen, dass ein GOTO ohne Adresse
eine Fehlermeldung bringt. Tut es aber nicht!

Das hängt allein davon ab, ob das aktuelle Programm eine Zeile Null enthält oder nicht. Gibt es keine Zeile Null, kommt ein "?undef'd statement error".

Telespielator · 23. März 2017

Klar, aber das liegt ja dann nicht daran, dass der GOTO-Befehl falsch eingegeben wurde, sondern dass es die Zeile 0 nicht gibt, die er anzuspringen versucht, wenn nach GOTO nichts anderes gescheites kommt.

Toast_r · 23. März 2017

Der Piepser funzt nicht mit angeschlossenen Datassette, das ist völlig normal.
Beim SK ist das Mainboard um 90° gedreht eingebaut, daher ist Port 1 an der Seite und Port 2 hinten.
Es besteht aber die Möglichkeit, das auf dem Mainboard umzujumpern, dann ist es umgekehrt.

Zaadii · 23. März 2017

Vielleicht kannst Du den Effekt ja mit dem "on... goto..." Konstrukt erreichen.

detlef · 23. März 2017

Zitat von Telespielator

Okay, schade! Danke für die Info!
Habe gerade mal einfach das X entfernt und ich hätte geschworen, dass ein GOTO ohne Adresse
eine Fehlermeldung bringt. Tut es aber nicht! Doof...

Der BASIC-Interpreter passte in seiner ursprünglichen Form (PET 2001) in 8 KB ROM (KB!!! ). Da war einfach kein Platz für eine ordentliche Fehlerbehandlung.

Eine GOTO x hätte ich mir damals auch immer gewünscht. Ich kenne aber keinen BASIC-Interpreter, der das kann. Dafür gibt es ON x GOTO.

VG, Detlef

Telespielator · 24. März 2017

ON...GOTO ist ein weiteres schönes Stichwort, danke. Ich habe da lange meine Probleme mit gehabt
und müsste das auch nochmal nachlesen.
Um diese Funktion verwenden zu können, muss man (und muss der Computer) ja sehr genau wissen,
welche möglichen Werte die Variable annehmen kann. Letztlich funktioniert das doch nur bei Werten
von 1 bis X in ganzzahligen Schritten, oder? Kann das vielleicht jemand nochmal erklären? Wofür braucht man das überhaupt?

Zitat von Toast_r

Der Piepser funzt nicht mit angeschlossenen Datassette, das ist völlig normal.

Das stimmt so nicht ganz! Ich habe am seitlichen Port eine Datassette angeschlossen und er meldet sich mit
einem fröhlichen "Tüddelüddelütt!". Nur, wenn ich an den hinteren Port eine Datassette anschließe, ist's
damit vorbei. Wie kommt das?

Toast_r · 24. März 2017

Ganz einfach: Die Variable gibt an, zu welcher der angegebenen Zeilen gesprungen werden soll.

Beispiel:
x=3
on x goto 40,230,50,100
springt zur an der 3. Stelle angegebenen Zeile, also 50.

Kann man gut verwenden für Menüs mit nummerierten Auswahlen.

Telespielator · 24. März 2017

Menüs wären aber auch das einzige, was mir dazu einfiele (naja, immerhin)...

Claus · 24. März 2017

Das ist total nützlich, um eine Art Skriptsprache in Basic zu realisieren. Vorstellbar ist z.B. ein Adventure, das für jeden Raum eine Data-Zeile hat, die bestimmt welche Unterroutinen beim Betreten des Raumes aufgerufen werden.

Telespielator · 24. März 2017

Okay, jetzt wird's interessant... Bitte mal genauer erklären!

Claus · 24. März 2017

Naja, ich versuche mal ein Beispiel. Ich habe aber keine Ahnung von Basic 4.0 und kann nur vermuten wie der restore Befehl funktioniert. Hab auch keinen Emulator hier, ums zu testen. Außerdem macht es für zwei mögliche Skriptbefehle wohl noch nicht so viel Sinn, aber das Prinzip wird vielleicht klar

Code

10 print "In welchen Raum willst Du?": input a$
11 if a$="1" then r=1: goto 20
12 if a$="2" then r=2: goto 20
13 goto 10
20 restore r*100
30 read a$: print a$
40 read c: on c goto 50, 60: rem total clevere script auswertung
50 print "Das Spiel ist beendet": end
60 print "Versuchs nochmal": goto 10
100 data "du lebst noch", 1: rem raum 1
200 data "du bist leider gestorben", 2: rem raum 2

Alles anzeigen

Toast_r · 24. März 2017

Ein restore x gibt es auch in Basic 4 nicht.

Basic 4 unterscheidet sich von Basic 2 nur durch die Diskettenbefehle und die an den Floppystatus gebundenen Variablen.
Der Rest ist gleich.

Zusätzliche Befehle:
dload, dsave, dopen, dclose, header, backup, copy, collect, concat, directory, catalog, scratch, rename, append
Zusätzliche Variablen:
ds, ds$

detlef · 24. März 2017

Zitat von Claus

Naja, ich versuche mal ein Beispiel. Ich habe aber keine Ahnung von Basic 4.0 und kann nur vermuten wie der restore Befehl funktioniert.

Wieso RESTORE? Es ging doch um GOTO x ???

Claus · 24. März 2017

Ich benutze im Bespielprogramm den restore-Befehl, um den data-Pointer für die Daten eines Raums zu setzen. In Basic 2.0 hat der kein Argument, ~~in Basic 4.0 aber schon.~~ Da ich noch nie ein Basic 4.0 Programm geschrieben habe, kann es also sein, dass das Programm nicht funktioniert, weil die Syntax an dieser Stelle nicht stimmt. Das hat in der Tat nichts mit dem on-goto Befehl, um den es in den letzten Posts ging zu tun.

EDIT: ach Mist, ich dachte Basic 4.0 könnte alles was Basic 3.5 kann auch. Danke, Toast_r!

Tom-Cat · 24. März 2017

Zitat von detlef

Eine GOTO x hätte ich mir damals auch immer gewünscht. Ich kenne aber keinen BASIC-Interpreter, der das kann.

ZX Spectrum BASIC kann es...

Paradroid · 24. März 2017

goto x restore x kann man auch mit kurzen assemblerroutine nachbilden. kenn mich mit den cbm's aber nicht so genau aus. Wenns nicht sehr eilt,
hab ich bis Sonntag ne Lösung.

Telespielator · 25. März 2017

Nein, es eilt gar nicht. Brauche das ja nicht, sondern will es nur verstehen. Assembler möchte ich lieber außen vor lassen...

Tags