Les touches affichent le code ASCII
===================================
Define ascii()=
Prgm
:©entrer = 65
:Local d,name,data,i,j
:abc→name
:For j,1,6
:  Disp ""
:EndFor
:Disp "Touche [enter] et écrivez !"
:getKey(1)
:RequestStr "Taper le texte: ",name
:d:=dim(name)
:data:=seq(0,x,1,d)
:For i,1,d
:  data[i]:=ord(mid(name,i,1))
:EndFor
:For j,1,6
:  Disp ""
:EndFor
:Disp data
:For j,1,4
:  Disp ""
:EndFor
:getKey(1)
:Stop
:EndPrgm