include "window.inc"
Def space 32

Window "HLSColor",720,240,2

sys x,y,z

For y=1 To 240
  For x=1 To 240
    Pixel x,y,colorHLStoRGB(x,y,240)
  Next
Next

For y=1 To 240
  For x=1 To 240
    Pixel x+240,y,colorHLStoRGB(x,y,120)
  Next
Next

For y=1 To 240
  For x=1 To 240
    Pixel x+480,y,colorHLStoRGB(x,180,240)
  Next
Next

Pause
WinEnd