Graphics 640,480



;Start Teil ohne Functions:
;----------------------------
Print "Dies ist ein Programm zum Testen des Kapitels 1-5."


;Programm:
;---------------------------
textanzeigen("Dieser Text sollte 5 mal erscheinen.",5)
Print "Das Volumen beträgt " + returnfunktion(46, 48, 21) + "."
loeschen
WaitKey
End


;Functions:
;--------------------------
Function textanzeigen(Texts$, anzahl)
For i=1 To anzahl
Print texts$
Next
End Function


Function returnfunktion(x,y,z)
volumen=x*y*z
Return volumen
End Function

Function loeschen()
Print "Der Bildschirm wird mit der Enter Taste gelöscht,"
Print "mit der Leertaste geht es ohne löschen weiter."
WaitKey
If KeyHit(28) Then
Print "Wähle eine Hintergrundfarbe aus:
Print "R=Rot, G=Grün, B=Blau"
If KeyHit(19) Then
A= 255 And b= 0 And c= 0
ElseIf KeyHit(34) Then
A=0 And B= 255 And c= 0
ElseIf KeyHit(48) Then
A=0 And b= 0 And c= 255
EndIf
WaitKey
Print "Der Bildschirm wird nun gelöscht."
WaitKey
ClsColor a, b, c
Cls
ElseIf KeyHit(57) Then
Print "Der Text bleibt weiter stehen."
EndIf
WaitKey
End Function