CLRDRAW
FNOFF
-62 -> YMIN
0 -> YMAX
0 -> XMIN
94 -> XMAX
-62 -> X
0 -> Y
LBL A
FOR(A,Y,94-Y
PT-ON(X,A
END
X+1 -> X
Y+2 -> Y
If X<0:GOTO B
GOTO A
LBL B
PAUSE 
CLRDRAW