Prgm
Local i, xx1, xx2, yy1, yy2, sg
setGraph("axes","off") ® sg
FnOff
PlotsOff
ClrDraw
119 ® xx1
1 ® yy1
119 ® xx2
51 ® yy2
For i, 0, 10
EndFor
169 ® xx1
51 ® yy1
119 ® xx2
51 ® yy2
For i, 0, 10
PxlLine yy1, xx1 - 5 * i, yy2 + 5 * i, xx2
EndFor
119 ® xx1
101 ® yy1
119 ® xx2
51 ® yy2
For i, 0, 10
PxlLine yy1 - 5 * i, xx1, yy2, xx2 - 5 * i
EndFor
69 ® xx1
51 ® yy1
119 ® xx2
51 ® yy2
For i, 0, 10
PxlLine yy1, xx1 + 5 * i, yy2 - 5 * i, xx2
EndFor
Pause
setGraph("axes", sg)
EndPrgm
