to cheetah_dr_test
	; Example for usage of the free cheetah2.dll database DLL
	init
	pr " pr [DATE ROUTINES THAT WORK WITH CHEETAH DATES] pr "
	local [datecheck datefrom datestring dateto days 
	       juliannumber month pbdate startdate xdate year]
	cheetah_dateroutines

	(pr [Version:] dr_xdbVersion) pr " 
	pr "
	DateFrom = "19620430
	DateTo   = "20060218
	pr dr_xdbDaysApart DateFrom DateTo

	Year = 2007 
	print dr_xdbDaysInMonth 2007 2
	repeat 12 [ Month = repcount type word dr_xdbDaysInMonth Year Month char 32]
	pr " pr "
	
	StartDate = "20000723
		 Days = 2036
	print dr_xdbAddDate StartDate Days

	StartDate = "20060218
		 Days = -2036
	print dr_xdbAddDate StartDate Days
	
	DateCheck = "20000723
	pr dr_xdbNameOfDay DateCheck

	DateCheck = "02-18-2006
	pr dr_xdbNameOfDay DateCheck
	
	pr dr_xdbTodaysDate
	
	pr dr_xdbValidDate DateCheck
	
	DateString = "20060218
	pr dr_xdbDateToJulian DateString
	
	JulianNumber = dr_xdbDateToJulian DateString
	pr dr_xdbJulianToDate JulianNumber
	
	PBDate = "02-18-2006 ; MM-DD-YYYY
	pr dr_xdbCTOD PBDate

	 xDate = dr_xdbCTOD PBDate ; YYYYMMDD
	pr dr_xdbDTOS xDate
	
	pr " calendar

	pr " pr "Finished.
end

to init 
	TextScreen 
	clearText
end

be calendar ; Year
	local [weekdays months]
	weekdays = [Monday Tuesday Wednesday Thursday Friday Saturday Sunday]
	months = [January February March April May June July August September October November December]
	calendar2_m "2007 lnul 2 ; month
	pr " pr "---
	calendar2_y "2007 ; year

	be calendar2_y :Year
		repeat 12 [calendar2_m :Year lnul repcount pr " pr "]
	end
	
	be calendar2_m :Year :Month
		local [nday wdi dim r]
		(pr "Month :Month ": item :Month :months :Year)
		nday = dr_xdbNameOfDay (word :Year :Month "01)
		wdi = weekdays_idx :nday :weekdays
		dim = dr_xdbDaysInMonth :Year :Month
		type chain char 32 (:wdi-1)*6
		type (word "01 "_ first :nday item 2 :nday char 32)
		if 7 == weekdays_idx :nday :weekdays [pr "]	
		repeat :dim-1 [r = repcount+1
			nday = dr_xdbNameOfDay (word :Year :Month lnul :r)
			type (word lnul :r "_ first :nday item 2 :nday char 32)
			if 7 == weekdays_idx :nday :weekdays [pr "]
		] 
	end
end

to lnul :v
	ifelse :v<10 [op word "0 :v][op :v]
end

to chain :ding :times
	local [a] a=" repeat :times [make "a word :a :ding] op :a
end

to weekdays_idx :day :weekdays
	if emptyp :weekdays [pr "Error stop]
	if :day == last :weekdays [op count :weekdays]
	op weekdays_idx :day butlast :weekdays
end