Gay Flag Basic

05 REM colors and pixels in low-res mode
10 GR : POKE 49234,0 : REM low-res mode, full screen mode 40x48

20 C = 1 : REM Red
30 COLOR=C
40 FOR Y = 0 TO 7
50 HLIN 0, 39 at Y
60 NEXT

80 X = 9 : REM Orange
90 COLOR=X
100 FOR Z = 8 TO 15
110 HLIN 0, 39 at Z
120 NEXT Z

140 A = 13 : REM Yellow
150 COLOR=A
160 FOR B = 16 TO 23
170 HLIN 0, 39 at B
180 NEXT B

200 D = 4 : REM Green
210 COLOR=D
220 FOR E = 24 TO 31
230 HLIN 0, 39 at E
240 NEXT E

260 D = 2 : REM Blue
270 COLOR=D
280 FOR E = 31 TO 38
290 HLIN 0, 39 at E
300 NEXT E

320 D = 3 : REM Purple
340 COLOR=D
360 FOR E = 39 TO 47
380 HLIN 0, 39 at E
400 NEXT E

500 END