Rosetta Code

Colour bars/Display: Difference between revisions

Page Discussion

Colour bars/Display (view source)

Revision as of 05:24, 24 September 2020

12 bytes removed ,  3 years ago
m
→‎{{header|Locomotive Basic}}
(Added Wren)
Line 316:
20 FOR x=0 TO 15
30 ORIGIN x*40,0
5040 FOR z=0 TO 39 STEP 4:MOVE z,0,x:DRAW z,400:NEXT z▼
40 GRAPHICS PEN x
6050 NEXT x▼
▲50 FOR z=0 TO 39 STEP 4:MOVE z,0:DRAW z,400:NEXT
7060 CALL &bb06 ' wait for key press</lang>▼
▲60 NEXT
▲70 CALL &bb06 ' wait for key press</lang>
 
==={{header|PureBasic}}===
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/182414"