12 lines
480 B
Plaintext
12 lines
480 B
Plaintext
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
|