13 lines
233 B
Text
13 lines
233 B
Text
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
|