a
ab
abc
abcd
abcde
abcdef
every write("abcdef" ? tab(1 to 10)) ----> none
every write("abcde" ? while move(2) ? move(1)) ----> none
s := "abcdef" ----> "abcdef"
s ?:= move(3) ----> "abc"
s := "abcdef" ----> "abcdef"
1
2
3
4
5
6
every write(s ?:= upto(&lcase)) ----> none
s := "this is the time to work it all out" ----> "this is the time to work it all out"
this
this is
this is the
this is the time
this is the time to
this is the time to work
this is the time to work it
this is the time to work it all
every write(s ? tab(find(" "))) ----> none
s := "xxxxxx" ----> "xxxxxx"
x
every s ? write(=("a" | "x")) ----> none
f
e
d
c
b
a
"abcdef" ? (tab(0) & (while write(move(-1)))) ----> none
Run-time error 101 at line 20 in expr68.icn
integer expected
offending value: "a"