10    poke 1,0:poke $D633,128:poke $D630,31:poke $D631,5:poke $D632,0:cls 
20    poke $D633,128:poke $D633,3:poke $D632,231:poke $D631,0:print "Fterm5:"
30    reg=peek($D635):reg=reg&1:if reg=1:ichar=peek($D630):goto 50:endif 
40    ochar=inkey():if ochar=0:goto 30:else :poke $D630,ochar:goto 30:endif 
50    if ichar=7:ping :goto 30:else :print chr$(ichar);:goto 30:endif