MAIN
message "userid is:"&str(userid)
	if userid=="DAVIDC" or userid=="DAVIDG" or userid=="NSYMDS"
		EnterCustName()
message "Show CUST history screen"		
' history screen has hotkey options for;
' CUSTOMER options
' 		 updating details
' 		 sending samples
' 		 arranging measure
' 		 sending email
' 		 selecting ESTIMATE record for further processing
' 		 selecting CustOrd record for further processing

'		 ESTIMATE options
' 			 producing estimate
'			 converting estimate to order

'		 CUSTOMER ORDER options
' 			 arranging fitting
' 			 entering order details
' 			 entering reservations
' 			 entering reqns
' 			 entering cash
' 			 enter comment