Commodore Basic V2

aus Wikipedia, der freien Enzyklopädie

Du hast neue Nachrichten (Unterschied zur vorletzten Version).

Commodore BASIC V2 ist der auf dem C64 primär eingesetzte Basicdialekt. Beim C64 ist ein Basic V2-Interpreter fest im ROM enthalten und dient gleichzeitig als Benutzerschnittstelle. Diese Benutzerschnittstelle wird durch einen ebenfalls im ROM enthaltenen zeilenorientierten Editor bereitgestellt. Als Eingabe akzeptiert der Editor die Angabe einer Programmzeile mit vorangestellter Zeilennummer (die er kommentarlos übernimmt) oder die Angabe eines Befehls, der direkt ausgeführt wird (z. B. run, load, sys, print, ? etc.).

Basic V2 basiert auf MBASIC von Microsoft und wurde für den C64 angepasst.

Basic V2 arbeitet zeilennummernorientiert, d.h. jeder Zeile muss eine Nummer vorangestellt werden, die auch als Parameter für Sprunganweisungen dient. Einmal vergebene Zeilennummern können nicht mehr verändert werden. Das Löschen einer Zeile erfolgt ohne Rückfrage durch Eingabe der entsprechenden Zeilennummer und Drücken der Return-Taste. Es gibt keinen Befehl zur automatischen Renummerierung der Zeilen, daher ist es üblich, Zeilennummern im Abstand von 10 (oder höher) zu vergeben. Sollen dann später Zeilen eingefügt werden, können hierzu die verbleiben Zahlen zwischen zwei Zeilennummern verwendet werden. Kurioserweise benötigt der Interpreter keinerlei Leer- oder sonstige Formatierungszeichen, was zu sehr schlecht lesbarem Code führt. Zur Verzweigung innerhalb eines Programms unterstützt Basic V2 lediglich die Sprunganweisungen goto, gosub und return. Weitergehende Sprachelemente zur strukturierten Programmierung fehlen. Ebenfalls nicht enthalten sind Befehle zur Erstellung von Grafiken und Sprites. Zum direkten Zugriff auf die Hardware werden die Befehle POKE und PEEK bereitgestellt. Variablen müssen vor ihrer Verwendung nicht deklariert werden.

[Bearbeiten] Codebeispiel

10 input "Geben Sie bitte Ihren Namen ein"; a$
20 print "Guten Tag "; a$
30 input "Wieviele Sterne möchten Sie?"; s
40 for i = 1 to s
50 s$ = s$ + "*"
55 next i
60 print s$
70 input "Möchten Sie noch mehr Sterne?"; q$
80 if len(q$) = 0 goto 70
90 l$ = left$(q$, 1)
100 if (l$ = "J") or (l$ = "j") then goto 30
110 print "Auf Wiedersehen";
120 for i = 1 to 200
130 print a$; " ";
140 next i
150 print