Sorry your browser is not supported!

APIGlobals:
Global kernel32 as byte
Global user32 as byte
Global comdlg32 as byte
return

`This loads the standard windows Dlls
function LoadWinAPI()
	gosub APIglobals
	kernel32 = GetFree(dllNum)
	load dll "kernel32.dll", kernel32
	user32 = GetFree(dllNum)
	load dll "user32.dll", user32
	comdlg32 = GetFree(dllNum)
	load dll "comdlg32.dll", comdlg32
endfunction

function UnloadWinAPI()
	delete dll kernel32
	delete dll user32
	delete dll comdlg32
endfunction

`The GetFree function is useful for mor than just API reasons and more will be added as needed
#constant dllNum      0
#constant memblockNum 1
#constant imageNum    2
#constant bitmapNum   3
#constant fileNum     4

function GetFree(FreeType as byte)
	select FreeType
		case 0 :`DLL
			num as byte
			num = 255
			while num>0 and dll exist(num)
				dec num
			endwhile
		endcase
		case 1 :`Memblock
			num as byte
			num = 255
			while num>0 and memblock exist(num)
				dec num
			endwhile
		endcase
		case 2 :`Image
			num as word
			num = 65535
			while num>0 and image exist(num)
				dec num
			endwhile
		endcase
		case 3
			num as byte
			num = 32
			while num>0 and bitmap exist(num)
				dec num
			endwhile
		endcase
		case 4
			num as byte
			num = 32
			while num>0 and file open(num)
				dec num
			endwhile
		endcase
	endselect
endfunction num

`Suspends the application
`Note: Application will recieve no input during this time and will not respond
function Sleep32(dwMilliseconds as dword)
	call dll kernel32, "Sleep", dwMilliseconds
endfunction

`Extened application suspention functionality
`Note:Application will recieve and wake up on input. 
function SleepEx(dwMilliseconds as dword, bAlertable as boolean)
	call dll kernel32, "Sleep", dwMilliseconds, bAlertable
endfunction

`This plays a beep for the desired frequency(dwFreq) and length(dwDuration) in MS
`It will use the system speaker if no sound cards is present
function Beep(dwFreq as dword, dwDuration as dword)
	call dll kernel32, "Beep", dwFreq, dwDuration
endfunction

function loadWinAPI()
	gosub internal_set_global_dlls
	enableWinAPI()
endfunction

internal_set_global_dlls:
Global kernel32 as byte
Global user32 as byte
Global comdlg32 as byte
return

function enableWinAPI()
	kernel32 = GetFree(dllNum)
	load dll "kernel32.dll", kernel32
	user32 = GetFree(dllNum)
	load dll "user32.dll", user32
	comdlg32 = GetFree(dllNum)
	load dll "comdlg32.dll", comdlg32
endfunction

global dim internal_core_mem_data(32) as dword

make_core_mem(1,32*4)
for i = 1 to 32
write_core_mem_dword(1,4*i-3,1000000+i) `4*i-3 is because a dword is 4 bytes
next i
for i = 1 to 32
print read_core_mem_dword(1,4*i-3)
next i

suspend for key
end


function make_core_mem(core_memblock_num as dword,size as dword)
internal_core_mem_data(core_memblock_num) = make memory(size)
endfunction

function write_core_mem_byte(core_memblock_num as dword,position as dword,value as byte)
pointer = internal_core_mem_data(core_memblock_num)+position-1
*pointer = value
endfunction

function read_core_mem_byte(core_memblock_num as dword,position as dword)
value as byte
pointer = internal_core_mem_data(core_memblock_num)+position-1
value = *pointer
endfunction value

function write_core_mem_dword(core_memblock_num as dword,position as dword,value as dword)
write_core_mem_byte(core_memblock_num,position,get_byte_from_dword(value,1))
write_core_mem_byte(core_memblock_num,position+1,get_byte_from_dword(value,2))
write_core_mem_byte(core_memblock_num,position+2,get_byte_from_dword(value,3))
write_core_mem_byte(core_memblock_num,position+3,get_byte_from_dword(value,4))
endfunction

function read_core_mem_dword(core_memblock_num as dword,position as dword)
value as dword
value = make_dword_from_bytes(read_core_mem_byte(core_memblock_num,position),read_core_mem_byte(core_memblock_num,position+1),read_core_mem_byte(core_memblock_num,position+2),read_core_mem_byte(core_memblock_num,position+3))
endfunction value


function make_dword_from_bytes(byteA as byte,byteB as byte,byteC as byte,byteD as byte)
returnval as dword
returnval = (byteA*16777216)+(byteB*65536)+(byteC*256)+byteD
endfunction returnval

function get_byte_from_dword(dwordValue as dword,byteIndex as byte)
returnval as dword
byteA as byte
byteB as byte
byteC as byte
byteD as byte
byteA = int(dwordValue/16777216)
byteB = int((dwordValue-16777216*byteA)/65536)
byteC = int((dwordValue-16777216*byteA-65536*byteB)/256)
byteD = int(dwordValue-16777216*byteA-65536*byteB-256*byteC)
select byteIndex
case 1
returnval = byteA
endcase
case 2
returnval = byteB
endcase
case 3
returnval = byteC
endcase
case 4
returnval = byteD
endcase
case default
returnval = 2
endcase
endselect
endfunction returnval

Buttons 		Button controls typically notify the parent window when the user chooses the control.
Image Lists 		An image list is a collection of images of the same size, each of which can be referred to by its index.
Combo Box		Combo box controls are a combination of list boxes and edit controls, letting the user choose and edit items.
ComboBoxEx		ComboBoxEx Controls are an extension of the combo box control that provides native support for item images.
Date and Time Picker	A date and time picker (DTP) control provides a simple and intuitive interface through which to exchange date and time information with a user.
List Box		List box controls display a list from which the user can select one or more items.
Edit			Edit controls let the user view and edit text.
ReBar			Rebar controls act as containers for child windows. An application assigns child windows, which are often other controls, to a rebar control band.
Scroll Bars		Scroll bars let the user choose the direction and distance to scroll information in a related window.
Static			Static controls often act as labels for other controls.
Rich Edit v1.0-4.1+	Rich Edit controls let the user view and edit text with character and paragraph formatting, and can include embedded COM objects.