Screen(320,200,-1)Print "hi"WaitKey()EndFunction Screen(x,y,full=0);fill <0 = Fulldesktop, borderless window;full =0 = Fulldesktop ;full =1 = original x,y;full >1-5 = x*full,y*full size;full >5 = 0 DeskX=api_GetSystemMetrics(0) DeskY=api_GetSystemMetrics(1) If x>DeskX Then x=DeskX If x<64 Then x=64 If y>DeskY Then y=DeskY If y<64 Then y=64 bits=api_GetDeviceCaps(api_GetDC( api_GetDesktopWindow()),12) Graphics x,y,bits,6 Graphics x,y,bits,7 If full<=0 Or full>5 If full<0 Then api_SetWindowLong(api_GetActiveWindow(), -16, $10000000) api_MoveWindow(api_GetActiveWindow(),0,0,DeskX,DeskY,True) EndIf If full>1 And full<=5 Then api_MoveWindow(api_GetActiveWindow(),0,0,x*full,y*full,True)End Function
.lib "user32.dll"api_GetSystemMetrics% (nIndex%) : "GetSystemMetrics"api_GetActiveWindow%():"GetActiveWindow"api_GetDC% (hwnd%) : "GetDC"api_GetDesktopWindow% () : "GetDesktopWindow"api_MoveWindow% (hwnd%, x%, y%, nWidth%, nHeight%, bRepaint%) : "MoveWindow"api_SetWindowLong% (hwnd%, nIndex%, dwNewLong%) : "SetWindowLongA"
.lib "gdi32.dll"api_GetDeviceCaps% (hdc%, nIndex%) : "GetDeviceCaps"
Api_setwindowslong not found
api_SetWindowLong% (hwnd%, nIndex%, dwNewLong%) : "SetWindowLongA"