DRAW Example10 CLEAR SCREEN
20 GINIT
30 PRINT "Program pauses a lot, press CONT."
40 PEN 6
50 FOR Loop=1 TO 10
60 MOVE 10+(Loop*10),40
70 DRAW 10+(Loop*10),80
80 DISP "Line type: ";Loop
90 PAUSE
100 LINE TYPE Loop
110 NEXT Loop
120 END
|