Code:
[FONT=Calibri][SIZE=3][/SIZE][/FONT] [FONT=Calibri][SIZE=3]#COMPILE EXE[/SIZE][/FONT] [FONT=Calibri][SIZE=3]#CONSOLE OFF 'comment to compile in PB9[/SIZE][/FONT] [FONT=Calibri][SIZE=3]DEFLNG a-z[/SIZE][/FONT] [FONT=Calibri][SIZE=3] [/SIZE][/FONT] [FONT=Calibri][SIZE=3]GLOBAL O$, clk&, xm!, ym![/SIZE][/FONT] [FONT=Calibri][SIZE=3]GLOBAL hwin, hven, PL AS LONG[/SIZE][/FONT] [FONT=Calibri][SIZE=3] [/SIZE][/FONT] [FONT=Calibri][SIZE=3]FUNCTION PBMAIN () AS LONG[/SIZE][/FONT] [SIZE=3][FONT=Calibri] DESKTOP GET CLIENT TO PixW,PixH[/FONT][/SIZE] [SIZE=3][FONT=Calibri] x1=0[/FONT][/SIZE] [SIZE=3][FONT=Calibri] y1=0[/FONT][/SIZE] [SIZE=3][FONT=Calibri] x2=PixW[/FONT][/SIZE] [SIZE=3][FONT=Calibri] y2=PixH[/FONT][/SIZE] [SIZE=3][FONT=Calibri] GRAPHIC WINDOW caption$, x1, y1, x2, y2 TO hwin[/FONT][/SIZE] [SIZE=3][FONT=Calibri] GRAPHIC ATTACH hwin, 0, REDRAW[/FONT][/SIZE] [SIZE=3][FONT=Calibri] GRAPHIC SET LOC -3, 0[/FONT][/SIZE] [SIZE=3][FONT=Calibri] CLIPBOARD GET BITMAP hven[/FONT][/SIZE] [SIZE=3][FONT=Calibri] GRAPHIC COPY hven, 0[/FONT][/SIZE] [SIZE=3][FONT=Calibri] GRAPHIC REDRAW[/FONT][/SIZE] [SIZE=3][FONT=Calibri] FONT NEW "Courier New",10,0,0,0,0 TO fnt1[/FONT][/SIZE] [SIZE=3][FONT=Calibri] GRAPHIC SET FONT fnt1[/FONT][/SIZE] [SIZE=3][FONT=Calibri] DO[/FONT][/SIZE] [SIZE=3][FONT=Calibri] GRAPHIC INKEY$ TO O$[/FONT][/SIZE] [SIZE=3][FONT=Calibri] GRAPHIC WINDOW CLICK TO clk&, xm!, ym![/FONT][/SIZE] [SIZE=3][FONT=Calibri] IF clk& THEN[/FONT][/SIZE] [SIZE=3][FONT=Calibri] GRAPHIC GET PIXEL(xm!, ym!)TO PL[/FONT][/SIZE] [SIZE=3][FONT=Calibri] HC$=RIGHT$(STRING$(6,48)+HEX$(PL),6)[/FONT][/SIZE] [SIZE=3][FONT=Calibri] BC%=16*VAL("&H"+MID$(HC$,1,1))+VAL("&H"+MID$(HC$,2,1))[/FONT][/SIZE] [SIZE=3][FONT=Calibri] GC%=16*VAL("&H"+MID$(HC$,3,1))+VAL("&H"+MID$(HC$,4,1))[/FONT][/SIZE] [SIZE=3][FONT=Calibri] RC%=16*VAL("&H"+MID$(HC$,5,1))+VAL("&H"+MID$(HC$,6,1))[/FONT][/SIZE] [SIZE=3][FONT=Calibri] WAV%=(2*BC%+3*GC%+RC%)/6[/FONT][/SIZE] [SIZE=3][FONT=Calibri] IF WAV%<138 THEN[/FONT][/SIZE] [SIZE=3][FONT=Calibri] GRAPHIC COLOR %WHITE,PL[/FONT][/SIZE] [SIZE=3][FONT=Calibri] ELSE[/FONT][/SIZE] [SIZE=3][FONT=Calibri] GRAPHIC COLOR %BLACK,PL[/FONT][/SIZE] [SIZE=3][FONT=Calibri] END IF[/FONT][/SIZE] [SIZE=3][FONT=Calibri] IF xm!>x2-128 THEN xm!=x2-128[/FONT][/SIZE] [SIZE=3][FONT=Calibri] IF ym!>y2-50 THEN ym!=y2-50[/FONT][/SIZE] [SIZE=3][FONT=Calibri] GRAPHIC SET POS(xm!,ym!)[/FONT][/SIZE] [SIZE=3][FONT=Calibri] GRAPHIC PRINT "DEC: "+USING$("########",PL)+STRING$(3,32)[/FONT][/SIZE] [SIZE=3][FONT=Calibri] GRAPHIC SET POS(xm!,ym!+16)[/FONT][/SIZE] [SIZE=3][FONT=Calibri] GRAPHIC PRINT "HEX: &H"+HC$+STRING$(3,32)[/FONT][/SIZE] [SIZE=3][FONT=Calibri] GRAPHIC SET POS(xm!,ym!+32)[/FONT][/SIZE] [SIZE=3][FONT=Calibri] GRAPHIC PRINT "RGB("+USING$("###",RC%)+CHR$(44)+USING$("###",GC%)+CHR$(44)+USING$("###",BC%)+")"[/FONT][/SIZE] [SIZE=3][FONT=Calibri] END IF[/FONT][/SIZE] [SIZE=3][FONT=Calibri] IF O$ = CHR$(27) THEN EXIT LOOP[/FONT][/SIZE] [SIZE=3][FONT=Calibri] GRAPHIC REDRAW[/FONT][/SIZE] [SIZE=3][FONT=Calibri] LOOP[/FONT][/SIZE] [SIZE=3][FONT=Calibri] GRAPHIC WINDOW END[/FONT][/SIZE] [FONT=Calibri][SIZE=3]END FUNCTION[/SIZE][/FONT]