Greyscale bars/Display: Difference between revisions

Content added Content deleted

Inline

@@ Line 165: / Line 165: @@
 RET
 </syntaxhighlight>
-=={{header|ANSI Standard BASIC}}==
-{{trans|BBC BASIC}}
-<syntaxhighlight lang="ansi standard basic">100 SET WINDOW 0,1279,0,1023
-REM (0,0) is the bottom left of the display
-SET AREA COLOR 1 ! Select color one for drawing
-FOR row=1 TO 4
-LET n=IP(2^(row+2))
-LET w=IP(1280/n)
-LET py=IP(256*(4-row))
-FOR b=0 TO n-1
-LET g=b/(n-1)
-IF n=16 OR n=64 THEN LET g=1-g
-SET COLOR MIX(1) g,g,g    !  Reprogram color 1 to the gray we want
-PLOT AREA: w*b,py; w*b+w,py; w*b+w,py+256; w*b,py+256
-NEXT b
-NEXT row
-END</syntaxhighlight>
 =={{header|AutoHotkey}}==
@@ Line 274: / Line 254: @@
 </syntaxhighlight>
-=={{header|BASIC256}}==
+=={{header|BASIC}}==
+==={{header|ANSI Standard BASIC}}===
+{{trans|BBC BASIC}}
+<syntaxhighlight lang="ansi standard basic">100 SET WINDOW 0,1279,0,1023
+REM (0,0) is the bottom left of the display
+SET AREA COLOR 1 ! Select color one for drawing
+FOR row=1 TO 4
+LET n=IP(2^(row+2))
+LET w=IP(1280/n)
+LET py=IP(256*(4-row))
+FOR b=0 TO n-1
+LET g=b/(n-1)
+IF n=16 OR n=64 THEN LET g=1-g
+SET COLOR MIX(1) g,g,g    !  Reprogram color 1 to the gray we want
+PLOT AREA: w*b,py; w*b+w,py; w*b+w,py+256; w*b,py+256
+NEXT b
+NEXT row
+END</syntaxhighlight>
+==={{header|BASIC256}}===
 <syntaxhighlight lang="text">
 h=ceil(graphheight/4)
@@ Line 288: / Line 287: @@
 </syntaxhighlight>
-=={{header|BBC BASIC}}==
+==={{header|BBC BASIC}}===
 <syntaxhighlight lang="bbcbasic">MODE 8:REM 640 x 512 pixel display mode: BBC BASIC gives 2 graphics points per pixel
 REM (0,0) is the bottom left of the display