*20
/KEYCNTRL
/CD8B: EFB 1-12
/
	:DEFINE.2.ONAM.0
	:DEFINE.3.INAM.0
	:COUNT 44
/
	:DEFINE.1.KEYVAL.0
	RUN KEYNUM.0
	YES
	:USE 1
	9.10.11.12.13.14.15.16.17.18.20
	20
	:USE 2
	NO
	:BRANCH 3
	;
/
	:COUNT 11
	RUN KEYNUM.0
	NO
	:USE 1
	9.10.11.12.13.14.15.16.17.18.20
	20
	:USE 2
	NO
	:BRANCH 3
	;
	:X
	:X
/
	RUN RATNUM.0
	20
	20
	RE1-12
	;
	RF1-12
	;
	EF1-12
	;
	:QUIT
/END