NCR GW-BASIC Betriebsanleitung Seite 246

GW-BASIC-BEFEHLE UND FUNKTIONEN
ON...GOSUBAND ON...GOTO
4-172
auszuführenden einfachen arithmetischen Opera­
tion eine Zahl von 1 bis 4 einzugeben. Mit Zeile 110
wird GW-BASIC aufgefordert, je nach der von
Ihnen getroffenen Wahl in eine von vier Subrouti­
nen zu gehen. Nachdem es die Rechenaufgabe aus­
geführt und Ihnen das Ergebnis mitgeteilt hat,
kehrt GW-BASIC mit RETURN zu dem Befehl
zurück, der auf den ON...GOSUB Befehl folgt. Betä­
tigen Sie eine beliebige Taste, um zu dem Anfang
des Programms zurückzugehen. Wird eine Zahl 0
eingegeben, so wird das Programm beendet
10 CLS:PRINT "Lassen Sie mich Ihre Rechen­
aufgaben erledigen" :PRINT
20 INPUT "Geben Sie die erste von zwei Zahlen
ein";Nl
30 INPUT "Nun geben Sie die zweite Zahl ein":N2
40 IF NI = 0 OR N2 = 0 THEN END
50 CLS:PRINT "Betätigen Sie 1,2,3 oder
4":PRINT
60 PRINT "1) Addieren Sie die Zahlen"
70 PRINT "2) Subtrahieren Sie die zweite Zahl
von der ersten"
80 PRINT "3) Multiplizieren Sie die Zahlen"
90 PRINT "4) Dividieren Sie die erste Zahl
durch die zweite"
100 INPUT CHOICE:PRINT
110 ON CHOICE GOSUB 150,170,190,210
120 IF INKEY$=""THEN 120
130 GOTO 10
140 REM ****** die Subroutinen
150 PRINT NI ;"plus" ;N2;"gleich" ;N1+N2
160 RETURN
170 PRINT NI ;"minus" ;N2 :"gleich" ;N1-N2
180 RETURN
190 PRINT N1 ;"mal" ;N2 ;"gleich" ;N 1 *N2
200 RETURN
210 PRINT NI -/'dividiert durch" ;N2;"gleich";
N1/N2
220 RETURN
GW-BASIC