Trans 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 = 6 : REM Blue
30 COLOR=C
40 FOR Y = 0 TO 47
50 HLIN 0, 39 at Y
60 NEXT

80 X = 11 : REM Pink
90 COLOR=X
100 FOR Z = 11 TO 35
110 HLIN 0, 39 at Z
120 NEXT Z

140 A = 15 : REM White
150 COLOR=A
160 FOR B = 19 TO 27
170 HLIN 0, 39 at B
180 NEXT B

200 END