cls
screen 0
color 0,15
locate 3,10
print SPC(32) "AHOJ"
color 2,9
input "pokus";A