sample code for pascal switch