\START85\
\COMMENT=Program file dated 01/10/96, 18:19
\NAME=Chat
\FILE=CHAT.85P
:"SND"\->\SND
:"SND"\->\S
:" "\->\OLD
:ClLCD
:Outpt(3,2,"Chat CommunicaTIons")
:Outpt(4,3,"by Ted Cannelongo")
:Outpt(5,1,"v1.1   3-6-95   TI-85")
:Pause 
:ClLCD
:Input "Unit 1 or 2? ",U
:If U==2
:Then
:"ONE> "\->\NME
:Goto WAIT
:End
:If U==1
:Then
:"TWO> "\->\NME
:Goto PRMT
:End
:Lbl PRMT
:InpST "> ",SND
:If SND==OLD
:SND+" "\->\SND
:SND\->\S
:Pause 
:Lbl WAIT
:Input "CBLGET",SND
:If SND\<>\S
:Then
:NME+SND\->\D
:For(X,1,iPart (((lngth D)-1)/21),1)
:Disp sub(D,21*(X-1)+1,21)
:End
:Disp sub(D,((X-1)*21+1),(lngth D)-((X-1)*21))
:SND\->\OLD
:Goto PRMT
:End
:Goto WAIT
\STOP85\