If OpenConsole()
  PrintN(Str(StartsWith("Rosettacode", "Rosetta")))           ; = 1
  PrintN(Str(StartsWith("Rosettacode", "code")))              ; = 0
  PrintN(Str(StartsWith("eleutherodactylus cruralis", "e")))  ; = 3
  PrintN(Str(EndsWith  ("Rosettacode", "Rosetta")))  ; = 0
  PrintN(Str(EndsWith  ("Rosettacode", "code")))     ; = 1
  PrintN(Str(EndsWith  ("Rosettacode", "e")))        ; = 2

  Print(#CRLF$ + #CRLF$ + "Press ENTER to exit"): Input()
  CloseConsole()
EndIf