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