Welcome To Here INSTANT MESSENGER

21 May 2003        Dillon Bailey and Michael Maset (HighOZONE@aol.com)

This program will allow textual communication between TI-83s.
This will not work on a TI-82 or lower.

The Theta symbol is substituted by an @ symbol in this text.

----------------------------------------------------------------------

Lbl @
ClrDraw
ClrHome
Menu("WTH IM 1.1","SEND",Z,"RECEIVE",Y,"END",X

Lbl Z
Disp "MESSAGE:
Input Str1
Send(Str1)
ClrHome
Goto @

Lbl Y
GetCalc(Str1)
AxesOff
ClrHome
0->Y
For(M,1,8)
If length(Str1)>23
Then
Text(Y,0,sub(Str1,1,23))
sub(Str1,24,length(Str1)-23)->Str1
Y+7->Y
Else
Text(Y,0,Str1)
" "->Str1
Y+7->Y
End
End
Text(Y,0,"------ PRESS ENTER ------")
Pause
" "->Str1
Goto @

Lbl X
ClrDraw
AxesOn
" "->Str1
ClrHome
Stop

----------------------------------------------------------------------