유형 tposrange = 0..32; TSTATERESULT = 0..1; 함수 getBitsate (출처 : 정수; pos : tposrange) : ttateresult; 시작하다 결과 : = ((소스 및 (1 shl pos)) shr pos); 끝;