PureBoard

Code: Alles auswählen

Procedure help()
  PrintN("--------------Help-------------")
  PrintN("Der Befehle Help zeigt eine Liste aller Befehle an.")
  PrintN("Mit Help [Befehl] werden vll weitere Informationen über den Befehl angezeigt.")
  PrintN("-------------------------------")
  PrintN("Befehle:")
  PrintN("Clear   - Löscht den gesamten Inhalt der Consolen")
  PrintN("Echo    - Zeigt einen Text an")
  PrintN("Exit    - Beendet das Programm")
  PrintN("Help    - Zeigt eine Liste aller Befehle")
  PrintN("Test    - Zeigt euch was ich meine mit AeUe etc")
EndProcedure
Procedure echo(echo.s)
  echoTrim.l = 1
  echoFindTrim.b = 0
  Repeat
    If FindString(echo, " ", echoTrim) = echoTrim
      echoTrim = echoTrim+1
    Else
      echoTrim = echoTrim-1
      echoFindTrim = 1
    EndIf
  Until echoFindTrim = 1
  echo = PeekS(@echo+echoTrim)
  If echo = ""
    PrintN("Bitte geben sie als Parameter den text an der angezeigt werden soll.")
    PrintN("Syntax:")
    PrintN("  echo [Text]")
  Else
    PrintN(echo)
  EndIf
EndProcedure
Procedure AeUeETC()
  Print("ÄÜÖß@?[{}]")
EndProcedure

  OpenConsole()
  ConsoleTitle("MEINE ERSTE CONSOLE v.0.02b")
  PrintN("||||| MEINE ERSTE CONSOLE |||||")
  PrintN("-------------------------------")
  PrintN("Version: 0.02b")
  PrintN("Copyright by IcedCoffee")
  PrintN("-------------------------------")
  PrintN("")
  
  Input.s
  InputTrim.l
  InputFindTrim.b
  InputLength.l
  ProgramEnde.l
  ProgramLength.l
  Program.s
  Parameter.s
  
  Sprungmarke01:
  Print("->")
  Input = ""
  Input = Input()
  Input = Input+" "
  InputTrim = 1
  InputFindTrim = 0
  InputLength = Len(Input)
  Repeat
    If FindString(Input, " ", InputTrim) = InputTrim
      InputTrim = InputTrim+1
    Else
      InputTrim = InputTrim-1
      InputFindTrim = 1
    EndIf
  Until InputFindTrim = 1
  ProgramEnde = FindString(Input, " ", InputTrim+1)-1
  ProgramLength = ProgramEnde-InputTrim
  If ProgramLength >= 3
    Program = ""
    Program = PeekS(@Input+InputTrim, ProgramLength)
    Parameter = ""
    Parameter = PeekS(@Input+ProgramEnde, InputLength-ProgarmEnde)
  Else
    PrintN("")
    Goto Sprungmarke01
  EndIf
  Select LCase(Program)
    Case "help" : PrintN("") : help() : PrintN("") : Goto Sprungmarke01:
    Case "test" : PrintN("") : AeUeETC() : PrintN("") : Goto Sprungmarke01:
    Case "echo" : PrintN("") : echo(Parameter) : PrintN("") : Goto Sprungmarke01:
    Case "clear" : PrintN("") : ClearConsole() : Goto Sprungmarke01:
    Case "exit" : CloseConsole() : End
    Default : PrintN("") : PrintN("Unbekannter Befehl") : PrintN("") : Goto Sprungmarke01:
  EndSelect