Lösung: ad Beispiel 16


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


zurück