mirror of
https://github.com/inexorabletash/jsbasic.git
synced 2024-10-11 01:23:38 +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
|