File begins with the blank line below.  Erase this line.

TO SQUARE
REPEAT 4 [FD 20 RT 90] RT 30
END

TO RADIUS
REPEAT 9 [FD 3 RT 10]
END
File must end with the "D" of END above.  (Erase the return symbol also.