PEN
Outputs a list containing the pen's position, mode, and hardware-specific characteristics, for use by SETPEN. The output is a list with the following members: [PENDOWNP PENMODE PENSIZE PENCOLOR PENPAINT].
The format of this list may change in future version of FMSLogo, as additional pen characteristics are added.
CLEARSCREEN
REPEAT 4 [FORWARD 100 RIGHT 90]
MAKE "savepen PEN
CLEARSCREEN
SETPENSIZE [20 20]
REPEAT 4 [FORWARD 100 RIGHT 90]
SETPEN :savepen
CLEARSCREEN
REPEAT 4 [FORWARD 100 RIGHT 90]