Function cf2_ViewLoad(ref Cancel)
	message "ViewLoad"
End Function

Function cf2_CurrentRecord()
	screen print 10 10 0 7 [a]
End Function

Function cf2_ViewUnload(ref Cancel)
	message "ViewUnload"
End Function