:Disp "cranwell@yahoo.com"
:Lbl B:ClLCD:Disp "GODDESS.401"
:Disp "PAGER MESAGE"
:Disp "USE  NUMBERS"
:"����������"�N
:"   � ABCDEFGHIJKLMNOPRSTUVWYZ � "�P
:[[7,8,9][4,5,6][1,2,3][10,0,1]]�J
:6�E:0�K
:Lbl A:K+1�K:1�Z
:Repeat Z>401:Z+1�Z:getKy�x
:Outpt(1,19,Z)
:If x==105:Stop:If x:402�Z:End
:If x==24:Then:K-2�K
:Outpt(E-2,K+1,"*"):Goto A:End
:If x<70:Stop:.1x�x
:J(iPart x-6,fPart x*10-1)�Q
:If Q==0:Goto B
:If K>21:2�E:If K>21:1�K
:If E�2:Outpt(E-2,K,sub(N,Q,1)
:For(I,0,2):Outpt(E+I,K,sub(P,Q*3+I,1)
:End:Goto A
:
:
:
: