Übersicht

ANHANG C Beispielprogramm AmigaBASIC

 

REM -------------------------------------------------
REM Beispielprogramm mit Schleifen, Variablen, Sound
REM und Operationen sowie Bildschirm I/O
REM Berechnet den Benzinverbrauch auf 100 km
REM -------------------------------------------------

FOR s%=100 TO 140
SOUND s%,1,200
NEXT s%
FOR s%=130 TO 160
SOUND s%,1,200
NEXT s%
WHILE s%=145 TO 200
SOUND s%,1,200
s%=s%+1
WEND
laut%=200
FOR s%=165 TO 210
Laut%=laut%-4
SOUND s%,1,laut%
NEXT s%
SOUND s%,22,laut%

LINE INPUT "Bitte Name eingeben: ",name1$
Saya$=TRANSLATE$("Hello.")
Sayn$=TRANSLATE(name1$)
Sayb$=TRANSLATE$("I am the Commodore Amiga five hundred.")
Sayc$=TRANSLATE$("I will calculate something for you.")
Sayd$=Saya$+Sayn$+Sayb$+Sayc$
SAY Sayd$

PRINT "Bitte machen Sie Angaben über die verbrauchten Liter,"
PRINT " die gefahrenen Kilometer, sowie dem Benzinpreis in "
PRINT "ganzen Cent je Liter."
PRINT " "

DIM afrag%(4)

REM ------------------------Auswahl------------------------------
REM -------------------------------------------------------------
Auswahl:
IF afrag%(4)=3 THEN
Goto Rechnen
END IF
PRINT "----------------------------------------------------!"
PRINT "Wählen Sie eine der folgenden Möglichkeiten!"
PRINT "<<0>>: Beenden"
FOR i%=1 TO 3
IF afrag%(i%)=0 THEN
IF i%=1 THEN
PRINT "<<1>>: Gefahrene Kilometer eingeben"
ELSEIF i%=2 THEN
PRINT "<<2>>: Verbrauchte Liter eingeben"
ELSEIF i%=3 THEN
PRINT "<<3>>: Benzinpreis eingeben"
END IF
END IF
PRINT "----------------------------------------------------!"
INPUT "Auswahl: ", opt%
IF opt%=0 GOTO Ende
ELSEIF opt%=1 GOTO Inpkm
ELSEIF opt%=2 GOTO Inplt
ELSEIF opt%=3 GOTO Inpct
ELSE
PRINT "Falsche Eingabe. Bitte wiederholen."
GOTO Auswahl
END IF

REM ------------------------Eingabe Km---------------------------
REM -------------------------------------------------------------
Inpkm:
INPUT "Bitte die gefahrenen Kilometer eingeben: ", km%
IF km%>0 THEN
afrag%(1)=1
afrag%(4)=afrag%(4)+1
GOTO Auswahl
ELSE
GOTO Inpkm
END IF

REM ------------------------Eingabe Liter------------------------
REM -------------------------------------------------------------
Inplt:
INPUT "Bitte die verbrauchten Liter eingeben: ", lt%
IF lt%>0 THEN
afrag%(2)=1
afrag%(4)=afrag%(4)+1
GOTO Auswahl
ELSE
GOTO Inplt
END IF

REM ------------------------Eingabe Cent-------------------------
REM -------------------------------------------------------------
Inpct:
INPUT "Bitte den Benzinpreis in ganzen Cent eingeben: ", ct%
IF ct%>0 THEN
afrag%(3)=1
afrag%(4)=afrag%(4)+1
GOTO Auswahl
ELSE
GOTO Inpct
END IF

REM ------------------------Berechnung---------------------------
REM -------------------------------------------------------------
Rechnen:
verbrauch!=lt%/km%*100
kosten!=lt%*ct%/100
PRINT "Sie hatten einen Verbrauch von ",verbrauch!," Litern auf 100 km."
PRINT "Die Gesamtkosten der Tankfüllung betragen ",kosten!, " Euro."

REM ------------------------Ende---------------------------------
REM -------------------------------------------------------------
Ende:
Saye$=TRANSLATE$("Have a nice day!")
Sayf$=TRANSLATE$("This was your Amiga 500 speaking.")
SAY Saye$
SAY Sayf$

REM -----------------Nov. 2002 by Tobias Zauner------------------