BASIC

Euro-Rechner

Mit BASIC lassen sich schnell zum Beispiel kleinere Rechenaufgaben lösen: Das folgende Beispielprogramm fragt nach einem Betrag in EURO und gibt den entsprechenden Wert in DM aus:

10 print "Wechselkurs"
 20 print "———--"
 30 dmeuro=1.95583
 40 print "Geben Sie den Betrag in Euro ein: ";
 50 input "",euro
 60 if euro=0 then goto 100
 70 dm=euro*dmeuro
 80 print "In DM sind das: ";dm
 90 goto 40
 100 end

Durch die Abfrage, ob ein Betrag von 0 eingegeben wurde, wird eine Abbruchbedingung geprüft: BASIC springt zur Zeile 100, falls der Wert 0 ist; dann wird das Programm beendet. Anderenfalls wird immer wieder ein neuer Wert erfragt, da am Ende der Berechnung über den goto-Befehl wieder zur Befehlszeile zurückgesprungen wird, die die Werteingabe einleitet. Ein Programmlauf sieht dann folgendermaßen aus:

bwBASIC: run
 Wechselkurs
 ———–
 Geben Sie den Betrag in Euro ein: 150
 In DM sind das:  293.3745000
 Geben Sie den Betrag in Euro ein: 20
 In DM sind das:  39.1166000
 Geben Sie den Betrag in Euro ein: 0
 bwBASIC:

Auch Schleifen lassen sich in BASIC leicht programmieren. Wahlweise können Sie mit Befehlen der Form

10 for i=1 to 10
 20   print i, i*3, i*10
 30 next

eine Variable (hier i) der Reihe nach alle Werte vom Start- zum Endwert durchlaufen lassen, oder Sie verwenden Schleifen, deren Abbruch von einer Bedingung abhängt: Dies sind while-Schleifen der Form

10 wert=-1
 20 while wert<>0
 30   print "Wert eingeben, 0 fuer Ende: ";
 40   input "",wert
 50   print "Wert ist: ";wert
 60 wend

In unserem Euro-DM-Rechner hätten wir statt des GOTO-Sprungs also auch eine WHILE-Schleife verwenden können: Dank WHILE-Schleifen kann auf die explizite Angabe eines Sprungziels verzichtet werden. Wenn Sie Ihr BASIC-Programm in einer Datei ablegen, können Sie übrigens ganz auf die Vergabe von Zeilennummern verzichten: BASIC interpretiert die Befehle dann in der Reihenfolge, wie sie in der Datei auftauchen. Das obige Programm wird dann zur folgenden Version, die fast schon wie ein Shell-Skript aussieht:

wert=-1
 while wert<>0
 print "Wert eingeben, 0 fuer Ende: ";
   input "",wert
   print "Wert ist: ";wert
 wend

Kurzreferenz

Eine etwas magere Kurzreferenz zu den Befehlen von bwBASIC bietet der Hersteller unter http://www.bwbasic.com/extended.html; für einen ausführlicheren Einstieg in BASIC sind zum Beispiel die folgenden Seiten interessant:

• http://www.antonis.purespace.de/adok/start.htm: QBasic Tutorial
• http://www.antonis.de/qbkoch10.htm: QBasic "Kochbuch" Diese Seiten beziehen sich auf QBasic, einen BASIC-Dialekt von Microsoft, deren erstes Produkt überhaupt ein BASIC-Interpreter gewesen ist; QBasic wurde erstmals mit MS-DOS 5.0 ausgeliefert. (Informationen zur Geschichte der MS-BASIC-Dialekte finden Sie unter http://www.emsps.com/oldtools/msbasv.htm.) QBasic und bwBASIC sind sich recht ähnlich, allerdings werden nicht alle Programme auch mit bwBASIC funktionieren. Nun Viel Spaß bei ersten Schritten in BASIC.