mirror of
https://github.com/inexorabletash/jsbasic.git
synced 2024-12-21 16:30:19 +00:00
12 lines
157 B
Plaintext
12 lines
157 B
Plaintext
|
10 HGR
|
||
|
20 hcolor=1
|
||
|
30 y=191
|
||
|
40 for x=1 to 191 step 5
|
||
|
50 c=c+1
|
||
|
60 if c=>6 then c=1
|
||
|
70 hcolor=c
|
||
|
80 hplot x,1 to 1,y
|
||
|
90 y=y-5
|
||
|
100 next x
|
||
|
110 goto 30
|