proc Main()
byte CHARS, cursorinh=$2F0
graphics(0) cursorinh=1
position(2,2) printe("Action!")
CHARS=Locate(2,2) position(2,2) put(CHARS)
cursorinh=0
position(2,4) printf("Character at column 2 row 2 was %C",CHARS)
return