GFA-BASIC WIN300NAx1y1x2NB0xltaparamdstyleface3dx3NC @foptsoverooptsnozoomregetexmmtblrcol didntdrawf?NDcpxyalhrepxx1y1x2y2x3y3hx1hx12offtopw SWP_SOWWINDOWwxwysyydhmagbshift WS_CLOSEBOX WS_MINIMISE ws_MINIMIZEscxscysxfnt SW_MINIMIZED WM_ADDSTRINGsw_hidetitlescrollxoptwopthovermemscreenoldscpaloldpaldc oldpalmem oldmempalbmpnmWS_CLOSESM_FRAMEsbxCX_FRAMEsbymbxmbystaticxstaticyWS_HIDEststicxststicymposfnt2regetcountshift7oxoyox1oy1optxoptyscryszsz_edx1_edy1_edpos_edfol_cbpos_cbmag_cbSTRETCH_DELETESCANSCOLOR_BTNHILIGHTCOLOR_BTNHIGHLIGHTCOLOR_BTNHIGHLITEmxmyhWndMainoffsideoffleft WS_ENABLE WS_ENABLEDCAREToptsbkbrushmibxbord_cbscrxlavNE0mkfollowmposalignalinempswposregetNFbufioldpoendMNGNHccposNINJkeysZiconicobjectpalettewposwopscpos getnarestCreatecompatibleBMPcreatecompatibeldc Realeasedc RealasedcRelesedc ShowwindoeCursorNKkeysNLgettextrosoft WNM*psetactivewindowffin sendmessa SENDMESSAGE showwindowmousecreatedcsetsc updatecolors setoptboxcboptmsg WM_VSCROLLsethx1ca pushbuttonsetsizefreefntloadbmpbitbltgetdcxClientToScreen deletemenukillev stoppaintCheckDlgButton SetWindowLongpaintrebcsetalign setaligntextsvTextoptreadTHENeIFHORZRES ExtTextOutsetupshellexecaboutNNpointpNOxyNPNQNRpointNSNTNUGetText >PNVNW ShellExecuteREOPEN"O",#1,DTMKrr9*PR^!#\r@ MS Sans Serifd l Y Ym <Fixedsysd Y |loDoF odf!odjlnp: $d 2 *:e *CeBp$e *CeBrdd  magnify.ini.IZ MAGNIFY.INI+Z3 Z3 Z4*Z4Z4Z3pZ3rZ3Z3Z.Z4Z.Z4Z4.Z4 ZV.Z4lZ4nZ)p:.: *CBpr$.$ *CBr'HJ *C * .@"P/f jDAO"|/l n"P:8Yd$6HJDAMagnifier Options  MS Sans SerifY Area to Magnify<hbutton  na+Widthgstatic 2+EDITd dYLL L<YY YSpinj scrollbar.W+Heightkstatic 42+EDITd dYLL L<1YY YSpinm scrollbar.W2+ Visually SetnbuttonJd+Position of Magnified Areaebutton <+COMBOBOXddYL`i@R@FeR@FZYY YLeftfbutton /#+Centreibutton /2+Righthlbutton /++ Border Sizeostatic R7+COMBOBOXddYLN.@FYY Y Magnify byostatic H`F3+COMBOBOXddYLH`F6BT>@FYY Y Mouse MarktbuttonP2nK+Show Pixel ColubuttonPnW+Okqbutton <+CancelrbuttonO<+Abouttvbutton<+Quitsbutton<+2YYnY0Y0<Y\0<Y\0<Y\0<Y\0<Y\YStaticd3YSided3Y Above/Belowd3Y Top/Bottomd3Y Left/Rightd3[ f7Yxd3Yd37:(:YWYYYYHJDAYzYn7Ym7YYP8Z Y "YZYxZ ">8Zpr *C *DpZ]YYYY\zZMagnifying GlassIZtZtZ\eYT|BYY]0Y#Y Z6$YO 9:(9YYZpr=ZpK@  KZK= e A?;; A"A$:"B;P;"BJ; A;$e|;"B$e; A^="eBH< eO P eABB< e <B eZ=< e <B eB A:< eO P eAZ=:e= e <B e:eV= eO P eAZB==ZpDHAZ \?ZY{@Yp@pZp@r[p@Yp@ A\p@Zp@"A V?[p@Yp@BfB*D:g4@ \p@Zp@BDjAOB .@*D:g4@  *C *C .@":?f jDAO":8:(h??ZpZY{@Z]Yp@Zp@ "YzYp@feA[p@fePB z@Zp@DOAjeA\p@jePB h@Z@t@@BA e A$A$ B:B <AD@A" $"B AP.B@.B  : B *BP e A$B$ B:B <ADnCZ:g:eOC eC@ <C2$"B=CZ2: B$g$eOC"eC@ <C=ZpJY)JBzDD D A:OABP$OABP(2le,$E,(*C,A *CO,A *CO,AE, *CO,A*CO,A A:PF *C A:B*CB,A, *CO,A *CO,AF,*CO,A *CO,AZ*C,A*C,A*C(*CAA( Ho'*B*C,AB*C,ABO*AAOOBO*AAB*A*AA*A*AB*A*AA Y J, * ,B",B'Z$ R:Y e G:Y 9 B:5Y Z, BgZxse, *PYYYYY ,JY,OJ"PB PB"PB PBLJ K F  F ZKYY56-Z&ZGRight Click For OptionsK@Z KKKYZK6MZYZY$P=0LKKK62$ Y "L L2M:ZF.MnFxL(MnL:D(MqL::Yn(MrM@LZpr=Yn(MvM:(Ms(MM..ZF  b9::DEFWRD"a-z"DIM@(3)ONBREAKGOSUBONERRORGOSUBFONT"MSSansSerif",WEIGHTFW_NORMAL,HEIGHT15,ITALIC0TO<FONT"Fixedsys",HEIGHT15TO|D=GetSystemMetrics(SM_CYCAPTION)F=GetSystemMetrics(SM_CXHSCROLL)f=GetSystemMetrics(SM_CXFRAME)*2j=GetSystemMetrics(SM_CYFRAME)*2l=4,n=4:=GETDEVCAPS(HORZRES),$=GETDEVCAPS(VERTRES) =100, =50,*=3=4p=DIV(:,2)-DIV( **,2)r=DIV($,2)-DIV( **,2)=100,=100=-1,=2, =0IFEXIST("magnify.ini")OPEN"I",#1,"MAGNIFY.INI" =INP&(#1), =INP&(#1),*=INP(#1),=INP(#1)~INP(#1)p=INP&(#1),r=INP&(#1),=INP&(#1),=INP&(#1)IFEOF(#1)=0THEN=INP(#1)IFEOF(#1)=0THEN=INP(#1)IFEOF(#1)=0THEN =INP(#1)IFEOF(#1)=0THENl=INP(#1),n=INP(#1)CLOSE#1IFp>:THENp=:-MUL( ,*)IFr>$THENr=$-MUL( ,*)ENDIFH=295,J=165 = **,"= **-( *15)IF=4THEN +=f,"+=j+D-1IF<>4THEN +=l,"+=n=WS_VISIBLE|WS_CHILDWINDOW|WS_BORDER|WS_TABSTOP=CreateSolidBrush(SYSCOL(COLOR_BTNFACE))8DIALOG#0,100,$+2,H,J+D,"MagnifierOptions",DS_MODALFRAME|WS_SYSMENU|WS_MINIMIZEBOX,15,"MSSansSerif"DLGFILL0,SYSCOL(COLOR_BTNFACE)CONTROL"AreatoMagnify",104,"button",$10000007,10,9,110,97CONTROL"Width",103,"static",$1000000b,25,30,50,20=CreateWindowEx(512,"EDIT",STR$( ),|ES_LEFT|ES_UPPERCASE|8192|$10810000,60,27,28,20,DLG(0),0,_INSTANCE,0)CONTROL"Spin",106,"scrollbar",$10000001,87,28,15,18CONTROL"Height",107,"static",$1000000b,25,52,50,20=CreateWindowEx(512,"EDIT",STR$( ),|ES_LEFT|ES_UPPERCASE|8192|$10810000,60,49,28,20,DLG(0),0,_INSTANCE,0)CONTROL"Spin",109,"scrollbar",$10000001,87,50,15,18CONTROL"VisuallySet",110,"button",$10010000,15,74,100,25CONTROL"PositionofMagnifiedArea",101,"button",$10000007,130,9,148,60=CreateWindowEx(512,"COMBOBOX","",|$10203,203-DIV(75+F,2),25,75+F,90,DLG(0),0,_INSTANCE,0)CONTROL"Left",102,"button",$10020009,138,47,35,20CONTROL"Centre",105,"button",$10000009,176,47,50,20CONTROL"Right",108,"button",$10000009,226,47,43,20CONTROL"BorderSize",111,"static",$1000000b,130,82,55,15=CreateWindowEx(512,"COMBOBOX","",|$10203,190,78,15+F,220,DLG(0),0,_INSTANCE,0)CONTROL"Magnifyby",111,"static",$1000000b,(H-17)-51,70,51,15=CreateWindowEx(512,"COMBOBOX","",|$10203,SUB(H-17,F+30),84,30+F,220,DLG(0),0,_INSTANCE,0)CONTROL"MouseMark",116,"button",$50010003,50,110,75,15CONTROL"ShowPixelCol",117,"button",$50010003,150,110,87,15CONTROL"Ok",113,"button",$10010000,10,128,60,25CONTROL"Cancel",114,"button",$10010000,79,128,60,25CONTROL"About",118,"button",$10010000,149,128,60,25CONTROL"Quit",115,"button",$10010000,218,128,60,25ENDDIALOG=GetSystemMenu(DLG(0),0)~DeleteMenu(,SC_SIZE,MF_BYCOMMAND)~DeleteMenu(,SC_MAXIMIZE,MF_BYCOMMAND)SENDMESSAGE,WM_SETFONT,<,0SENDMESSAGE,WM_SETFONT,<,0SENDMESSAGE,WM_SETFONT,<,0SENDMESSAGE,WM_SETFONT,<,0SENDMESSAGE,WM_SETFONT,<,0~SendMessage(,CB_ADDSTRING,0,"Static")~SendMessage(,CB_ADDSTRING,0,"Side")~SendMessage(,CB_ADDSTRING,0,"Above/Below")~SendMessage(,CB_ADDSTRING,0,"Top/Bottom")~SendMessage(,CB_ADDSTRING,0,"Left/Right")FOR=2TO10~SendMessage(,CB_ADDSTRING,0,STR$()+"x")~SendMessage(,CB_ADDSTRING,0,STR$(-2))NEXT(SHOWDIALOG#0~ShowWindow(DLG(0),SW_HIDE)~SetWindowPos(DLG(0),0,,,H,J+D,0)~ShowWindow(DLG(0),SW_MINIMIZE)IF<>4~ShowWindow(DLG(0),SW_SHOW)ELSE~ShowWindow(DLG(0),SW_HIDE)ENDIFIF<>4PARENTW#1,- ,0, ,",0'WS_BORDER~SetWindowLong(WIN(1),GWL_STYLE,0)'WS_BORDER)SIZEW#1, ,"ELSEOPENW#1,p,r, **, **+D,16|32|64|512ENDIFPEEKEVENTPEEKEVENT~SetWindowPos(WIN(1),-1,0,0,0,0,SWP_NOMOVE|SWP_NOSIZE)TITLEW#1,"MagnifyingGlass"CBWIN(1),WM_PAINT,tCBWIN(1),WM_NCPAINT,t~SetStretchBltMode(_DC(1),3)DEFMOUSE0SETFONT|CBDLG(0),0TO-1,0DEFFILL0COLOR0GRAPHMODER2_COPYPEN,TRANSPARENT=0,=0=0=TIMER+1000REPEAT==IsIconic(DLG(0))-1'opts!=opts!+1IF=0AND=-1(IF=4~ShowWindow(DLG(0),SW_HIDE)MOVEW#1,p,rENDIF~ShowWindow(WIN(1),SW_SHOWNA)=0ENDIFIFOR(MOUSEK=0,==4)AND=0IFICONIC?(1)=0PEEKEVENT=MOUSESX,=MOUSESY=,=IF<4'Moving=0'y1=vertpixelstomag-=DIV( ,2)'y=topofmagnifiedarea=+ 'bottomofmagnifiedareaIF(==1)'Above/BelowIF=2=+ 'topofwindowIF+">$THEN=-"'topofwindow(takeoffwindowheight)ELSEIF=0=-"'topofwindow(takeoffwindowheight)IF<0THEN=+ 'topofwindowELSEIF>DIV($,2)THEN=-"IF<=DIV($,2)THEN=+ ENDIFELSE'Side=-DIV(",2)'topofwindow(takeoffhalfwindowheight)IF=0=PRED(DIV( ,2)),=SUCC( )+DIV( ,2)IF(-<0)THEN=DIV( ,2)-ODD( ),=-DIV( ,2)ELSEIF=2=DIV( ,2)-ODD( ),=-DIV( ,2)IF(-)+ >:THEN=PRED(DIV( ,2)),=SUCC( )+DIV( ,2)ELSEIFDIV(:,2)THEN=PRED(DIV( ,2)),=SUCC( )+DIV( ,2)ENDIFENDIFMOVEW#1,-,IF=0//~SetWindowPos(WIN(1),-1,x-hx12,y2,wx+mbx,wy+mby,0)~ShowWindow(WIN(1),SW_SHOWNA)=-1ENDIFELSEIF=4'StaticIFANDIsIconic(WIN(1))=0~GetWindowRect(WIN(1),V:@(0))p=@(0),r=@(1)IF@(2)<>@(0)+ OR@(3)<>@(1)+" =MAX(MIN(DIV(SUB(@(2)-@(0),f),*),:/2),20) =MAX(MIN(DIV(SUB(@(3)-@(1),D+j-1)+( *15),*),:/2),20) =MUL( ,*),"=MUL( ,*)-( *15)IF=4THEN +=f,"+=j+D-18(=0ENDIFELSE=-1ENDIFIF=0~ShowWindow(WIN(1),SW_SHOWNA)~GetWindowRect(WIN(1),V:@(0))~SetWindowPos(WIN(1),-1,@(0),@(1), ,",0)=-1ENDIFIF=>@(0)+DIV(f,2)AND<=@(2)-SUCC(DIV(f,2))IF=>@(1)+PRED(D)+DIV(j,2)AND<=@(3)-SUCC(DIV(j,2))IF=0THEN=-999=-1ELSE=0ENDIFELSE=0ENDIFIF=0SUB,DIV( ,2)=MAX(,0)=+ IF>$THEN=$,=- =MIN(MAX(,),(:-)+ODD( ))ENDIFELSE'Top/BottomLeft/Right=0IF(==5)IF(AND(<",=0)ORAND(>$-",))THEN=+1,=0ELSEIF(==6)IF(AND(< ,=0)ORAND(>:- ,))THEN=+1,=0ENDIFSUB,DIV( ,2)=MAX(,0)=+ 'bottomofmagnifiedareaIF>$THEN=$,=- =MIN(MAX(,),(:-)+ODD( ))IF=0IF=5THENMOVEW#1,(:/2)+MUL(:/2,-1)-(MUL( /2,)+MUL(==2,ODD( ))),(-)*($-")IF=6THENMOVEW#1,(-)*(:- ),($/2)+MUL($/2,-1)-(MUL("/2,)+MUL(==2,ODD( )))~ShowWindow(WIN(1),SW_SHOWNA)=-1ENDIFENDIFIF=0=GetDC(0)IF=-'sox=leftofareatobemagedandy=top=0,=0IF<0THEN=-IF<0THEN=-= IF<4THEN=SUCC(PRED(MIN(+ ,:))-(+))(=SUCC(PRED(MIN(,$))-(+)),=-(<>4)*DIV(l,2)IF=>$THENPBOX,,MUL((,*)+,,PRED( **)+,,PRED( **)+,IF<0THENPBOX,,,,PRED( **)+,,PRED(MUL(,*))+,IF+ >:+1THENPBOXSUB( **,MUL((+ )-:,*))+,,,,PRED( **)+,,PRED( **)+,IF<0THENPBOX,,,,PRED(MUL(,*))+,,PRED( **)+,~StretchBlt(_DC(1),MUL(,*)+,,MUL(,*)+,,MUL(,*),MUL((,*),,+,+,,(,SRCCOPY)IFGRAPHMODER2_XORPENRGBCOLORRGB(255,255,255)=*,=MUL(-,*)+,,=MUL(-,*)+,LINE-,-1,+*+,-1LINE-1,-,-1,+*+LINE-,+*,+*+,+*LINE+*,-,+*,+*+GRAPHMODER2_COPYPENRGBCOLOR0ENDIFIF PBOX,,,+( **), -,,"-,RGBCOLORRGB(255,255,255) =GetPixel(,,)="R:"+STR$(GetRValue( ))+"G:"+STR$(GetGValue( ))+"B:"+STR$(GetBValue( ))~ExtTextOut(_DC(1),,+(( -)/2)-DIV(LOWORD(GetTextExtent(_DC(1),V:,LEN())),2),,+( **)+1,0,0,V:,LEN(),0)RGBCOLOR0ENDIF~ReleaseDC(0,)IF,FOR=0TO,-1DRAW,TO,"-(+1)TO -(+1),"-(+1)TO -(+1),TO,NEXTENDIF =0ENDIFELSEIF_Mess=WM_PAINTOR=-999||_Mess=WM_NCPAINT//CLSGETNEAREST(192,192,192)RGBCOLORSYSCOL(COLOR_BTNFACE)PBOX0,0,_X,_YRGBCOLORSYSCOL(COLOR_BTNTEXT),SYSCOL(COLOR_BTNFACE)?AT(1,1);"RightClickForOptions";ENDIFIFMOUSEK==2&&GetActiveWindow()==WIN(1)REPEATPEEKEVENTUNTILMOUSEK=0KILLEVENT~ShowWindow(DLG(0),SW_NORMAL)ENDIFENDIFELSESLEEPENDIFELSE~ShowWindow(WIN(1),SW_HIDE)MOVEW#1,0,$+1IF=0WHILEMOUSEKPEEKEVENTWEND =TIMER+50WHILE >TIMERPEEKEVENTWEND'AllowWindowstounminimzeoptions=0ELSESLEEP=MENU(1)IF=30=MENU(6)SWITCHCASE110DCASE113~ShowWindow(DLG(0),SW_MINIMIZE)CASE114IF(==4)THENMOVEW#1,p,r=0~ShowWindow(DLG(0),SW_MINIMIZE)CASE118CASE115=-1ENDSWITCHENDIFENDIFENDIFMOUSE,,,.UNTIL.=7ORMENU(1)=4OR (:Rzx".^tz"DVl @H~0Jlr .RXh0f 6: \\:J  RL2dLdL.      4 . f b        @  @  ` 0 F \ r r   2  `    $ J r & | . | .  2  6  6  D  `          < *N X` hf l       " : V `( l8 > D P ^ f t x       ( D T Z x~ .:>Pfx:`x&<$`LfPrXXnf,l`pftl< R>~z&PLXP`ThZl`rdzj~px,Xppx~T,X2X2^NfTz`@DTl"Hl h $((6BNdr   (`4ZZ00fRrXxlN 2Znx~4Fb2*04BNbB J P V \ `   $ 0 B!l4!p:!d!j!t!!!!!!!!!!!!! " " " $". 4"2 >"8 B"8 f"@ l"F p"J v"R z"^ "p "| " " " " " " " " " #!#!2#!:#&!>#4!F#8D<JFPJVJVPR0^<YYZ:e`j$e`e@DeB2`e@DAbout MagnifierYYZ  MAGNIFIERnfYm*YWritten By Russell HaywardgY*Y In GFA-BasichY/*Y"http://www.baphead.freeserve.co.ukiYC*YE-Mail bugs, comments etc. toejYW*Ytarquin@baphead.freeserve.co.ukekYk*YOkebutton <+ Open Web-SiteulbuttonPd+ E-Mail Mebmbuttond+2Z]YYYY\zArialad Y l |fk,p Z,0|Y\,L Ze0<Y\Zl0<Y\Zm0<Y\ZW,:, nFlj Yopend#http://www.baphead.freeserve.co.uk/dddmnFlP  nFm YopendJmailto:Russell Hayward ?subject=MagnifierdddmnFm nFe ZZ,|5Ym=PROCEDURE~ShowWindow(DLG(0),SW_HIDE)DIALOG#1,DIV(:,2)-150,DIV($,2)-DIV(171+D,2),306,171+D,"AboutMagnifier",DS_MODALFRAMEDLGFILL1,SYSCOL(COLOR_BTNFACE)CTEXT"MAGNIFIER",102,0,5,298,20CTEXT"WrittenByRussellHayward",103,0,27,298,20CTEXT"InGFA-Basic",104,0,47,298,20CTEXT"http://www.baphead.freeserve.co.uk",105,0,67,298,20CTEXT"E-Mailbugs,commentsetc.to",106,0,87,298,20CTEXT"tarquin@baphead.freeserve.co.uk",107,0,107,298,20CONTROL"Ok",101,"button",$10010000|BS_DEFPUSHBUTTON,10,134,60,25CONTROL"OpenWeb-Site",108,"button",$10010000,80,134,100,25CONTROL"E-MailMe",109,"button",$10010000,190,134,100,25ENDDIALOG~SetWindowPos(DLG(1),-1,0,0,0,0,SWP_NOMOVE|SWP_NOSIZE)FONT"Arial",HEIGHT20,WEIGHTFW_NORMALTO|FOR,=102TO107SENDMESSAGEDLG(1,,),WM_SETFONT,|,0NEXT,SENDMESSAGEDLG(1,101),WM_SETFONT,<,0SENDMESSAGEDLG(1,108),WM_SETFONT,<,0SENDMESSAGEDLG(1,109),WM_SETFONT,<,0SHOWDIALOG#1,=0=0REPEATSLEEPIF,=0IFMENU(6)=108~^(DLG(0),"open","http://www.baphead.freeserve.co.uk/","","",SW_SHOW)REPEATPEEKEVENTUNTILMENU(6)<>108ELSEIFMENU(6)=109~^(DLG(0),"open","mailto:RussellHayward?subject=Magnifier","","",SW_SHOW)REPEATPEEKEVENTUNTILMENU(6)<>109ENDIFENDIFUNTILMENU(6)=101FREEDLL1CLOSEDIALOG#1FREEFONT|~ShowWindow(DLG(0),SW_SHOW)RETURN *RX 0Ffj*2Z*08@HLP^n28BTh`dhx|"0<X^^PR*<\$\$ \%:g4@ \%$g4@ \\O%*\%flln\Static 6ZYx Above/BelowdRSideRStaticZxZYZpr=R Top/Bottom(R Left/RightRYu  *C * .@"f jDAO" l n":88Z ">lZ *C *C>YtYfYiYl=PROCEDUREIFVAL?(@$())ANDVAL?(@$()) =MAX(MIN(VAL(@$()),:/2),20) =MAX(MIN(VAL(@$()),$/2),20)ENDIF*=VAL(LEFT$(@$(),LEN(@$())-1))l=VAL(@$())*2n=l=@$()IF=4AND<>"Static"~SetWindowLong(WIN(1),GWL_STYLE,0)'WS_BORDER)ENDIFIF="Above/Below"=1ELSEIF="Side"=2ELSEIF="Static"IF<>4~SetWindowLong(WIN(1),GWL_STYLE,WS_CAPTION|WS_SYSMENU|WS_THICKFRAME|WS_MINIMIZEBOX)=4ENDIF~ShowWindow(WIN(1),SW_HIDE)MOVEW#1,p,rELSEIF="Top/Bottom"=5ELSEIF="Left/Right"=6ENDIF =IsDlgButtonChecked(DLG(0),117) = **,"=( **)-( *15)IF=4THEN +=f,"+=j+D-1IF<>4THEN +=l,"+=n//CLSGETNEAREST(192,192,192)8IF<>4THENSIZEW#1, ,"IF=4THENSIZEW#1, **, **=IsDlgButtonChecked(DLG(0),116)IFIsDlgButtonChecked(DLG(0),102)THEN=0IFIsDlgButtonChecked(DLG(0),105)THEN=1IFIsDlgButtonChecked(DLG(0),108)THEN=2RETURN 26^\ 2(6.TB^HzZ`t~(".DFNLRRft  8"lHjPR <OZ MAGNIFY.INI+Z,  Z,*YZ,prZ, Z,lnZ)=PROCEDUREOPEN"O",#1,"MAGNIFY.INI"OUT&#1, , OUT#1,*,,0OUT&#1,p,r,,OUT#1,,, OUT#1,l,nCLOSE#1RETURN ((>8XH~`rPR <tP RRR ZY{@YY[p@Yp@B\p@Zp@BY  =PROCEDUREt(,,, )IF=4&& RGBCOLORSYSCOL(COLOR_BTNFACE)~GetWindowRect(WIN(1),V:@(0))PBOX0,0,@(2)-@(0),@(3)-@(1)RGBCOLOR0ENDIF =-1KILLEVENTRETVALDefWindowProc(,,, )RETURN">.HLXl|PRBX<8 e e*e =CB=PROCEDURE8'windowcentre=DIV( ,2)=DIV( ,2)-MUL(DIV(*,2),EVEN( ))RETURN  *>RBXBXPR@(<0PRR`R(00,00`(,psYjf,,\%:g4@,d|=PROCEDURE0((,`,,)LOCAL,,,,IF`=WM_VSCROLL=0IF=SB_LINEDOWNTHEN=-1IF=SB_LINEUPTHEN=1IF,=IFHIWORD()=DLG(0,106)THEN,==VAL(@$(,))+==MAX(MIN(,:/2),20)~SetWindowText(,,STR$()+CHR$(0))ENDIFENDIFRETURN"<4NFVLrj48<"@(@(PR4<( Y*xd3 Ylgd3*ZZ Y Above/Belowd3[ YSided3l YStaticd3m Y Top/Bottomd3n Y Left/Rightd3 d| d|YtYu YY@8Z=PROCEDURE(~SendMessage(,CB_SELECTSTRING,0,STR$(*)+"x")~SendMessage(,CB_SELECTSTRING,0,STR$(l/2))SELECTCASE1~SendMessage(,CB_SELECTSTRING,0,"Above/Below")CASE2~SendMessage(,CB_SELECTSTRING,0,"Side")CASE4~SendMessage(,CB_SELECTSTRING,0,"Static")CASE5~SendMessage(,CB_SELECTSTRING,0,"Top/Bottom")CASE6~SendMessage(,CB_SELECTSTRING,0,"Left/Right")ENDSELECT~SetWindowText(,STR$( ))~SetWindowText(,STR$( ))~CheckDlgButton(DLG(0),116,-)~CheckDlgButton(DLG(0),117,- )~CheckDlgButton(DLG(0),102+MUL(,3),1)RETURN 0@Pp\zh JP:>Vn.44PR2<\StaticYfYf0 xYiYi0 xYlYl0 x Above/Below[ Left/Right vYfTop@YlBottom@Yi//ZYl/2ZSide Top/Bottom YfLeft@YlRight@Yi//ZYl/*ZStaticYfYfLxYiYiLxYlYlLxYfpYipYlp=PROCEDURE=@$()IF<>IF="Static"~SetWindowLong(DLG(0,102),GWL_STYLE,GetWindowLong(DLG(0,102),GWL_STYLE)&NOT(WS_DISABLED))~SetWindowLong(DLG(0,105),GWL_STYLE,GetWindowLong(DLG(0,105),GWL_STYLE)&NOT(WS_DISABLED))~SetWindowLong(DLG(0,108),GWL_STYLE,GetWindowLong(DLG(0,108),GWL_STYLE)&NOT(WS_DISABLED))ENDIFIF="Above/Below"OR="Left/Right"_WIN$(DLG(0,102))="Top"_WIN$(DLG(0,108))="Bottom"~MoveWindow(DLG(0,105),173,47,47,20,1)~MoveWindow(DLG(0,108),220,47,50,20,1)ELSEIF="Side"OR="Top/Bottom"_WIN$(DLG(0,102))="Left"_WIN$(DLG(0,108))="Right"~MoveWindow(DLG(0,105),176,47,47,20,1)~MoveWindow(DLG(0,108),226,47,42,20,1)ELSEIF="Static"~SetWindowLong(DLG(0,102),GWL_STYLE,GetWindowLong(DLG(0,102),GWL_STYLE)|WS_DISABLED)~SetWindowLong(DLG(0,105),GWL_STYLE,GetWindowLong(DLG(0,105),GWL_STYLE)|WS_DISABLED)~SetWindowLong(DLG(0,108),GWL_STYLE,GetWindowLong(DLG(0,108),GWL_STYLE)|WS_DISABLED)~ShowWindow(DLG(0,102),SW_SHOWNA)ENDIF~ShowWindow(DLG(0,105),SW_SHOWNA)~ShowWindow(DLG(0,108),SW_SHOWNA)=ENDIFRETURN  4(L8zLRz$:Zz6Pv6`\&,22PRRh<hP RR,RYY:e$eY=PROCEDUREh(,,,, )RGBCOLORSYSCOL(COLOR_BTNFACE)PBOX0,0,:/2,$/2KILLEVENTRETVAL0RETURN",<DPHZNbRhRhPR~HD<DYn\%:g4@\%$g4@[:eeB$eeBY[YT[>[]:eeB$eeBYz[hM. 5  66  6  ` 55  [.  Y YT Z[  T \l  T5  6  Yp@Zp@[p@\p@[Y{@bV 6OBV.VV5OBt ZZ{@B [\{@6OBB \Y{@B l [{@5OBB[p@Yp@B[p@Yp@B:g dYq@[q@\p@Zp@B\p@Zp@B$g Zq@\q@[]Yp@Zp@[p@Yp@B\p@Zp@BYz0Y{@B[{@BZ{@B\{@B[]Yp@Zp@[p@Yp@B\p@Zp@BYz F Y6OYY5OYZ6`ZZ5`ZYY6O5O6O5O]Z6`5`6`5`YY. r K[Cn[Y{@[p@Yp@B \p@Zp@B  d| d|[<YZYYT=PROCEDURED~ShowWindow(DLG(0),SW_MINIMIZE)=MAX(MIN(VAL(@$()),:/2),20)=MAX(MIN(VAL(@$()),$/2),20)OPENW#2,DIV(:,2)-DIV(,2),DIV($,2)-DIV(,2),,,0SETWINDOWSTYLE2,0~SetClassWord(WIN(2),GCW_HBRBACKGROUND,)=-1~SetWindowPos(WIN(2),-1,DIV(:,2)-DIV(,2),DIV($,2)-DIV(,2),,,0)CBWIN(2),WM_PAINT,h=0REPEATPEEKEVENTMOUSE,,,.IF=0=0IF>=0AND<=_XIF>=0AND=<5THEN=1IF=>_Y-5AND=<_YTHEN=2ENDIFIF>=0AND<=_YIF>=0AND=<5THEN=3IF=>_X-5AND=<_XTHEN=4ENDIFELSE'~SetActiveWindow(WIN(2))WIN#2ENDIFSELECTCASE0DEFMOUSE0CASE1,2DEFMOUSE10CASE3,4DEFMOUSE9ENDSELECTIFIF>=0AND<_XORIF>=0AND<_YOREXITIF=2=@(0)=@(1)=@(2)=@(3)~GetWindowRect(WIN(2),V:@(0))IF'RESIZEIF=0IF=1=ELSEIF=2=-PRED(_Y)ELSEIF=3=ELSEIF=4=-PRED(_X)ENDIF=-1ENDIF'ENDIFSELECTCASE1ADD@(1),-CASE2ADD@(3),(-PRED(_Y))-CASE3ADD@(0),-CASE4ADD@(2),SUB(-PRED(_X),)ENDSELECTIF@(2)-@(0)<20OR@(2)-@(0)>:/2@(0)=,@(2)=ENDIFIF@(3)-@(1)<20OR@(3)-@(1)>$/2@(1)=,@(3)=ENDIF~SetWindowPos(WIN(2),-1,@(0),@(1),@(2)-@(0),@(3)-@(1),0)PEEKEVENT=-1ELSE'MOVEIF=0=,=,=-1ENDIFADD@(0),-ADD@(2),-ADD@(1),-ADD@(3),-~SetWindowPos(WIN(2),-1,@(0),@(1),@(2)-@(0),@(3)-@(1),0)PEEKEVENT=-1ENDIFENDIFENDIFELSE=0ENDIFIFOR_Mess=WM_PAINTRGBCOLORSYSCOL(22)DRAW0,_Y-1TO0,0TO_X-1,0RGBCOLORSYSCOL(20)DRAW1,_Y-2TO1,1TO_X-2,1RGBCOLOR0DRAW0,_Y-1TO_X-1,_Y-1TO_X-1,-1RGBCOLORSYSCOL(16)DRAW1,_Y-2TO_X-2,_Y-2TO_X-2,0=0ENDIFUNTILIsIconic(DLG(0))=0OR.=7REPEATUNTILMOUSEK=0PAUSE2IF=2~GetWindowRect(WIN(2),V:@(0)) =@(2)-@(0) =@(3)-@(1)~SetWindowText(,STR$( ))~SetWindowText(,STR$( ))ENDIFCLOSEW#2~ShowWindow(DLG(0),SW_NORMAL)COLOR0DEFMOUSE0RETURN .BTnz J`&f*l.vJX`z0LTPZV^Vx\~`lx~ "$0.>8LB\bhhhpvx &2JVt:@RXxTnrR\bflt0H~(.4:@DJPPh|0: f,n2r8Z`nv~ "&,8,>4D>HDHDPRVpR^d^OFUNCTION$(^)=SPACE$(100)~GetWindowText(^,V:,LEN())RETURNLEFT$(,LEN(TRIM$())-1)ENDFUNC":DRhVpVpPR>Z<Z<Y,<5|5=PROCEDURECLOSEW#1CLOSEDIALOG#0~DeleteObject()FREEFONT<FREEFONT|EDITRETURN &"8,D6P:T>ZEP