xLIBC key-screen mapping (CSE)

ClrHome
SetUpEditor |LFRNP
real(0,1,1
1->A:1->B:1->R:1->C
Repeat K=21
getKey->K
checkTmr(D->E
If E>0:Then
~1->E
ClrHome
End
If K:Then
20(iPart(.1K)-3->A
(32(10fPart(.1K)))-16->B
If E!=~1:Then
real(7,6,C,R,B,A,1
real(7,6,C,R,B,A,1
A->R:B->C
Else
A->R:B->C
real(7,6,C,R,B,A,1
real(7,6,C,R,B,A,1
End
If E<0
startTmr->D
End
End