[LINE] SAMPLE
100 CLS 3
110 FOR I=0 TO 639 STEP 10
120 LINE (I,0)-(639-I,399),7
130 NEXT I
210 FOR I=0 TO 638 STEP 4
220 LINE (I,0)-(639-I,399),7
230 NEXT I
310 FOR I=0 TO 638 STEP 2
320 LINE (I,0)-(639-I,399),7
330 NEXT I
400 GOTO 100
LINEコマンドで直線束を描いています。
3段階の間隔で描いています。