# Lots of tests of string functions.  Might be best to run with
# the trace flag to see what's going on.  E.g.,
#    irt.pl -t string.irt
BUILTIN stringEqual L(Hello) L(Hello)
BUILTIN printlnInt RV
BUILTIN ord L(Hello)
BUILTIN printlnInt RV
BUILTIN chr 120
BUILTIN print RV
BUILTIN size RV
BUILTIN printlnInt RV
BUILTIN size L(Hello)
BUILTIN printlnInt RV
BUILTIN substring L(Goodbye) 0 4
BUILTIN print RV
BUILTIN concat RV L(Goodbye)
MOVE R(100) RV
BUILTIN print R(100)
BUILTIN size R(100)
BUILTIN printlnInt RV
BUILTIN getchar
BUILTIN println RV
BUILTIN getchar
BUILTIN println RV
END
LABEL Hello
STRING Hello
LABEL hello
STRING hello
LABEL Goodbye
STRING Goodbye
LABEL CR
String \n