\START\
\COMMENT=
\NAME=FIGUR
\FILE=figur.85P
ClLCD
11\->\H:4\->\V
Outpt(V,H,"C")
Lbl S
getKy\->\E
If E==22:Then:Stop:End
If E==25:Then: Outpt(V,H," ")
If V>1 :Then: V-1\->\V:End
Outpt(V,H,"C"):goto S
Else: If E==34:Then: Outpt(V,H," ")  
If V<8 :Then: V+1\->\V:End :Outpt(V,H,"C"):goto S
Else: If E==24:Then: Outpt(V,H," ") 
If H>1 :Then: H-1\->\H:End
Outpt(V,H,"C"):goto S
Else: If E==26:Then: Outpt(V,H," ") 
If H<21 :Then: H+1\->\H:End
Outpt(V,H,"C"):goto S
End
If E==0:Then:goto S
\STOP\