Graphics 640,480,16,2 ; Wir initialisieren den Grafikmodus
SetBuffer BackBuffer() ; Doublebuffering siehe Hilfe

Repeat ; Eine Schleife beginnen
Cls ; Den Bildschirm von unnützem Geschmiere befreien
Oval x,y,35,35,0 ; Kreis, 35x35, nicht ausgefüllt
If KeyDown(200) Then y=y-2 ; Eingabe prüfen und pos verändern
; Scancodes siehe Hilfe
If KeyDown(208) Then y=y+2
If KeyDown(203) Then x=x-2
If KeyDown(205) Then x=x+2

; Damit der Kreis nicht aus dem Fenster fällt:

If x<0 Then x=0 ; Wenn x kleiner 0 dann x gleich 0
If x>605 Then x=605 ; Wenn x größer 605 ( 640 - 35 = 605)
; dann x gleich 605
If y<0 Then y=0
If y>445 Then y=445 ; ( 480 - 35 = 445)

Flip ; Tauschen der Buffer (siehe Hilfe)
Until KeyHit(1) ; zurückspringen zu Repeat
; bis Esc gedrückt

Graphics 640, 480
ClsColor 200,0,200
Repeat
 Print "Willst du deine Zahl verdoppeln dann drücke 1!"
 Print "Willst du deine Zahl verdreifachen dann drücke 2!"
 Print "Willst du deine Zahl durch 100 teilen dann drücke 3!"
 Auswahl = Input("Für was hast du dich nun entschieden?")

If Auswahl = 1 Then 
 Print "Du hast Modus 1 gewählt"
 X# = Input("Welche Zahl willst du den verdoppeln?")
 Print Doppelt(X)
End If

If Auswahl = 2 Then
 Print "Du hast Modus 2 gewählt"
 A = Input("Welche Zahl willst du denn verdraeifachen?")
 Print Dreifach(A)
End If

If Auswahl = 3 Then
 Print "Du hast Modus 3 gewählt"
 B = Input("Welche Zahl willst du denn durch 100 teilen?")
 Print Hundertstel(B)
End If

 WaitKey
 Until KeyHit(1)
End
Function Doppelt(X#)
 Return X# * 2
End Function

Function Dreifach(A)
 Return A * 3
End Function

Function Hundertstel(B)
 Return B / 100
End Function

Function Doppelt#(x#)
  Return x#*2
End Function

ergebniss$ = Float Str$(5.1) + Float Str$(3.2)
Print ergebniss$