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