HWND&=GETHWND
'RET&=DTINIT(DT_MODE640 or DT_BPP32 or DT_WINDOWMODE,HWND&)
RET&=DTINIT(DT_MODE640 or DT_BPP32 or DT_FULLSCREEN,HWND&)
RET&=DTCLEAR(0,0,0)
RET&=DTUPDATE(0)
*LOOP
K$=inkey$
select case K$
case "r"
'COL&=HGCOLOR(5)
COL&=RGB(0,0,255)
RET&=DTCLEAR(0,COL&,0)
RET&=DTUPDATE(0)
case "g"
'COL&=HGCOLOR(9)
COL&=RGB(0,255,0)
RET&=DTCLEAR(0,COL&,0)
RET&=DTUPDATE(0)
case "b"
'COL&=HGCOLOR(3)
COL&=RGB(255,0,0)
RET&=DTCLEAR(0,COL&,0)
RET&=DTUPDATE(0)
case chr$(27)
goto *FIN
case else
wait 1
end select
goto *LOOP