Global SchriftArt = LoadFont("gfx\Final Frontier.ttf", 20) ;Hier wird eine beigefügte Schriftart geladen, damit das Programm schöner aussieht.
SetFont SchriftArt ;Die Schriftart wird hier ausgewählt, damit sie auch benutzt wird.

AppTitle "Zahlendreher 1.0" ;Der Fenstername des Programmes
Graphics 800, 600, 16, 2 ;Graphikmodus initalisieren, damit der Text auch ganz angezeigt wird. Auflösung: 800*600 Pixel

Global FTimer = CreateTimer(40) ;Der Framtimer wird hier erstellt damit das Programm nicht zu schnell arbeitet (hohe CPU Auslastung)

Global Eingabe$ ;Der String in dem die eingegebene Zimmernummer gespeichert wird.
Global Eins ;Rückgabe Variable ob eine Eins vorhanden ist.
Global Drei ;Rückgabe Variable ob eine Drei vorhanden ist.
Global Vier ;Rückgabe Variable ob eine Vier vorhanden ist.
Global Sieben ;Rückgabe Variable ob eine Sieben vorhanden ist.
Global klein$ ;WEnn das eingegebene ein Wort ist, werden alle Buchstaben auf Kleinbuchstaben gestellt und in dieser Variable gespeichert.
Global Laenge ;In dieser Variable wird die Länge des Strings gespeichert.
Global Ende = 0 ;Variable zum beenden des Programmes.
Dim Einsen(20)
Global NichtEins = 0

Global SchriftArt = LoadFont("gfx\Final Frontier.ttf", 20) ;Hier wird eine beigefügte Schriftart geladen, damit das Programm schöner aussieht.
SetFont SchriftArt ;Die Schriftart wird hier ausgewählt, damit sie auch benutzt wird.





;############~Hauptschleife~############


Repeat
WaitTimer FTimer
Cls
   Locate 0,0
   Print ""
   Print ""
   Print "Bitte geben Sie die Zimmernummer ein. 'exit' eingeben um das Programm zu beenden:"
   
   Eingabe$ = Input$()
   
   Print ""
   Print "Sie haben " + Eingabe + " eingegeben."
   Print ""
   
   klein$ = Lower(Eingabe$)
   
   Laenge = Len(Eingabe$)
   Print Laenge
   
   For i = 1 To Laenge
   
      Eins = Instr(Eingabe$, "1", i)
      If Eins <> 0 Then
         Einsen(i) = 1
      EndIf   
      Drei = Instr(Eingabe$, "3")
      Vier = Instr(Eingabe$, "4")
      Sieben = Instr(Eingabe$, "7")
   
   Next
   
   For i = 0 To Laenge   
         If Einsen(i) <> 1 Then
            NichtEins = 1
         EndIf
   Next
   
   If Drei <> 0 Or Vier <> 0 Or Sieben <> 0 Then
      Print ""
      Print ""
      Print "Bei diesem Schluessel besteht keine Verwechslungsgefahr, da er eine 3, 4 oder 7 enthaelt."
      If Drei <> 0 Then
         Print "Der Schluessel enthaelt eine Drei"
      EndIf
      
      If Vier <> 0 Then
         Print "Der Schluessel enthaelt eine Vier"
      EndIf
      
      If Sieben <> 0 Then
         Print "Der Schluessel enthaelt eine Sieben"
      EndIf
      
   If NichtEins = 0 Then
      Print ""
      Print ""
      Print "Bei diesem Schluessel besteht keine Verwchslungsgefahr, da er nur aus Einsen besteht."
   EndIf
   
   Else Print "Bei diesem Schluessel besteht Verwechslungsgefahr, da er keine 3, 4 oder 7 enthaelt."
      
   EndIf
   
      
   
   
   If klein$ = "exit" Then
      
      Print "Sicher, dass die beenden moechten? J/N"
      Eingabe$ = Input$()
      klein$ = Upper(Eingabe$)
      
      If klein$ = "J" Then
         Ende = 1   
      EndIf
      
   EndIf

   If Ende <> 1 Then
      Print ""
      Print "Beliebige Taste zum Fortfahren druecken."
      WaitKey
   EndIf
   
   NichtEins = 0
Flip 0
Until Ende = 1







End