;Assembly type comments are used. 
;You will have to figure out what heppens on your own. :(
1üC
0üK
If X>88
Goto 98
If Y>58
Goto 98

Lbl UC
While C=1
0üK
While K=0
getKeyüK
End
If K=31
2üC
If K=21
3üC
If K=45
Goto 99
If K=41:Then
Text(Y,X,"A")
X+4üX:End
If K=42:Then
Text(Y,X,"B")
X+4üX:End
If K=43:Then
Text(Y,X,"C")
X+4üX:End
If K=51:Then
Text(Y,X,"D")
X+4üX:End
If K=52:Then
Text(Y,X,"E")
X+4üX:End
If K=53:Then
Text(Y,X,"F")
X+4üX:End
If K=54:Then
Text(Y,X,"G")
X+4üX:End
If K=55:Then
Text(Y,X,"H"
X+4üX:End
If K=61:Then
Text(Y,X,"I")
X+4üX:End
If K=62:Then
Text(Y,X,"J")
X+4üX:End
If K=63:Then
Text(Y,X,"K")
X+4üX:End
If K=64:Then
Text(Y,X,"L")
X+4üX:End
If K=65:Then
Text(Y,X,"M")
X+4üX:End
If K=71:Then
Text(Y,X,"N")
X+4üX:End
If K=72:Then
Text(Y,X,"O")
X+4üX:End
If K=73:Then
Text(Y,X,"P")
X+4üX:End
If K=74:Then
Text(Y,X,"Q")
X+4üX:End
If K=75:Then
Text(Y,X,"R")
X+4üX:End
If K=81:Then
Text(Y,X,"S"
X+4üX:End
If K=82:Then
Text(Y,X,"T")
X+4üX:End
If K=83:Then
Text(Y,X,"U")
X+4üX:End
If K=84:Then
Text(Y,X,"V")
X+4üX:End
If K=85:Then
Text(Y,X,"W")
X+4üX:End
If K=91:Then
Text(Y,X,"X")
X+4üX:End
If K=92:Then
Text(Y,X,"Y")
X+4üX:End
If K=93:Then
Text(Y,X,"Z")
X+4üX:End
If K=94:Then
Text(Y,X,"Á")
X+4üX:End
If K=102:Then
Text(Y,X," ")
X+1üX:End
If K=103:Then
Text(Y,X,":")
X+2üX:End
If K=104:Then
Text(Y,X,"?")
X+4üX:End

If X>91:Then
0üX
Y+6üY:End
If Y>62:Then
0üX
0üY:End
End

Lbl LC
While C=2
0üK
While K=0
getKeyüK
End
If K=31
1üC
If K=21
3üC
If K=45
Goto 99
If K=41:Then
Text(Y,X,"a")
X+4üX:End
If K=42:Then
Text(Y,X,"b")
X+4üX:End
If K=43:Then
Text(Y,X,"c")
X+4üX:End
If K=51:Then
Text(Y,X,"d")
X+4üX:End
If K=52:Then
Text(Y,X,"e")
X+4üX:End
If K=53:Then
Text(Y,X,"f")
X+3üX:End
If K=54:Then
Text(Y,X,"g")
X+4üX:End
If K=55:Then
Text(Y,X,"h")
X+4üX:End
If K=61:Then
Text(Y,X,"i")
X+2üX:End
If K=62:Then
Text(Y,X,"j")
X+4üX:End
If K=63:Then
Text(Y,X,"k")
X+4üX:End
If K=64:Then
Text(Y,X,"l")
X+3üX:End
If K=65:Then
Text(Y,X,"m")
X+6üX:End
If K=71:Then
Text(Y,X,"n")
X+4üX:End
If K=72:Then
Text(Y,X,"o")
X+4üX:End
If K=73:Then
Text(Y,X,"p")
X+4üX:End
If K=74:Then
Text(Y,X,"q")
X+4üX:End
If K=75:Then
Text(Y,X,"r")
X+4üX:End
If K=81:Then
Text(Y,X,"s")
X+3üX:End
If K=82:Then
Text(Y,X,"t")
X+3üX:End
If K=83:Then
Text(Y,X,"u")
X+4üX:End
If K=84:Then
Text(Y,X,"v")
X+4üX:End
If K=85:Then
Text(Y,X,"w")
X+6üX:End
If K=91:Then
Text(Y,X,"x")
X+4üX:End
If K=92:Then
Text(Y,X,"y")
X+4üX:End
If K=93:Then
Text(Y,X,"z")
X+5üX:End
If K=102:Then
Text(Y,X," ")
X+1üX:End
If K=103:Then
Text(Y,X,":")
X+2üX:End
If K=104:Then
Text(Y,X,"?")
X+4üX:End
If K=94:Then
Text(Y,X,"Á")
X+4üX:End
If X>91:Then
0üX
Y+6üY:End
If Y>62:Then
0üX
0üY:End
End
If C=1
Goto UC

Lbl SC
While C=3
0üK
While K=0
getKeyüK
End
If D=1:Then
Pxl-Change(Y,X)
0üD:End
If K=21
1üC
If K=31
2üC
If K=41
4üC
If K=45
Goto 99
If K=11:Then
Pxl-Change(Y,X)
1üA:End
If K=24:Then
X-1üX
Pxl-Change(Y,X)
1üD:End
If K=25:Then
Y-1üY
Pxl-Change(Y,X)
1üD:End
If K=26:Then
X+1üX
Pxl-Change(Y,X)
1üD:End
If K=34:Then
Y+1üY
Pxl-Change(Y,X)
1üD:End
If K=51:Then
Text(Y,X,"ñ")
X+5üX:End
If K=55:Then
Text(Y,X,"^")
X+4üX:End
If K=61:Then
Text(Y,X,"Ü")
X+4üX:End
If K=62:Then
Text(Y,X,",")
X+3üX:End
If K=63:Then
Text(Y,X,"(")
X+3üX:End
If K=64:Then
Text(Y,X,")")
X+3üX:End
If K=65:Then
Text(Y,X,"/")
X+4üX:End
If K=72:Then
Text(Y,X,"7")
X+4üX:End
If K=73:Then
Text(Y,X,"8")
X+4üX:End
If K=74:Then
Text(Y,X,"9")
X+4üX:End
If K=75:Then
Text(Y,X,"*")
X+6üX:End
If K=82:Then
Text(Y,X,"4")
X+4üX:End
If K=83:Then
Text(Y,X,"5")
X+4üX:End
If K=84:Then
Text(Y,X,"6")
X+4üX:End
If K=85:Then
Text(Y,X,"-")
X+4üX:End
If K=91:Then
Text(Y,X,"->")
X+8üX:End
If K=92:Then
Text(Y,X,"1")
X+4üX:End
If K=93:Then
Text(Y,X,"2")
X+4üX:End
If K=94:Then
Text(Y,X,"3")
X+4üX:End
If K=95:Then
Text(Y,X,"+")
X+4üX:End
If K=102:Then
Text(Y,X,"0")
X+4üX:End
If K=103:Then
Text(Y,X,".")
X+2üX:End
If K=104:Then
Text(Y,X,"ú")
X+4üX:End

If X>91:Then
0üX
Y+6üY:End
If Y>60:Then
0üX
0üY:End
If X<0
90üX
If Y<0
60üY
End
If C=1 or C=2
Goto UC

Menu("Other Symbol","=",S1,"ø",S2,">",S3,"ù",S4,"<",S5,"÷",S6,"!",S7)
Lbl S1
Text(Y,X,"=")
X+4üX
3üC
Goto SC
Lbl S2
Text(Y,X,"ø")
X+6üX
3üC
Goto SC
Lbl S3
Text(Y,X,">")
X+4üX
3üC
Goto SC
Lbl S4
Text(Y,X,"ù")
X+5üX
3üC
Goto SC
Lbl S5
Text(Y,X,"<")
X+4üX
3üC
Goto SC
Lbl S6
Text(Y,X,"÷")
X+5üX
3üC
Goto SC
Lbl S7
Text(Y,X,"!")
X+2üX
3üC
Goto SC



Disp "000000000000000000000"
Lbl 98
Disp "TI Text"
Disp "By TehBlueBlur"
Disp "Copyright 2004"
Disp "All rights resvered."
Disp " "
Disp "Bad coords for"
Disp "text input!"
Stop

Lbl 99
If Á=25
Then
Disp "TI Text"
Disp "By TehBlueBlur"
Disp "Copyright 2004"
Disp "All rights resvered."
Pause 
prgmTIDRAW
End