alias sformat {
	if ([$0]==[1]) {
	@snf=[1]
	/load ~/em/modules/scan.1
	^bcol
}
	if ([$0]==[2]) {
	@snf=[2] 
	/load ~/em/modules/scan.2
}
        if ([$0]==[3]) {
        @snf=[3]
        /load ~/em/modules/scan.3
}

^echo $G scan format set to ${snf}	
}