: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
:6E:0K
:Lbl A:K+1K:1Z
:Repeat Z>401:Z+1Z:getKyx
:Outpt(1,19,Z)
:If x==105:Stop:If x:402Z:End
:If x==24:Then:K-2K
:Outpt(E-2,K+1,"*"):Goto A:End
:If x<70:Stop:.1xx
:J(iPart x-6,fPart x*10-1)Q
:If Q==0:Goto B
:If K>21:2E:If K>21:1K
:If E2: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
:
:
:
:

    Source: geocities.com/paris/arc/1927/ti85

               ( geocities.com/paris/arc/1927)                   ( geocities.com/paris/arc)                   ( geocities.com/paris)