Celtic 3 Chat Box

You have not uploaded your program! Please edit the page to upload your program.

Author:

Bio_Hazard1282

Download: CHATBOX.8xpNo Download Available
Version: 1.0
Compatibility: TI-83/84/+/SE
File Size: 711 Bytes
Genre: Arcade Graphics Platform Puzzle RPG Strategy Sports Casino Board Utility Misc
Rating:
TI|BD

Similar to Chatroom. But SHORTER. Less than One K.
Source Code:

:"C3 Chat Box v1.1
:DCS6
"7FFECB9BB9C9BAABCACDFFFF9FFB9DABAADF9DABFFFF7FFE0FC01F003C007000
CLASSIC
ClrHome
If det([[1:Then
Disp "Celtic 3 is","not installed.
Stop
End
Horiz
ClrDraw
AxesOff
GridOff
PlotsOff 
FnOff 
real(7,0
Text(0,0,"Preparing...
GetCalc(A
not(A→A
identity(6,6,8,1
Text(0,0,"Chat Box ready.
" →Str1
Ans→Str2
Ans→Str3
Lbl M
ClrHome
real(7,0
real(13,1
Disp " Chat Box "+sub("BA",1+A,1)+" 
real(13,0
Disp "₁.Send","₂.Receive
Repeat max(K={92,93,22,45
getKey→K
End
ClrHome
If K=92:Goto S
If K=93:Goto R
If K=45:Goto C
Full
real(13,1
Disp " Chat Box 
real(13,0
Stop
Lbl S
Input "Send:",Str3
If A
Str3→Str1
If not(A
Str3→Str2
identity(6,6,8,1
Text(0,0,sub("BA",A+1,1)+":"+Str3
Goto M
Lbl R
Disp "Receiving...
If A:Then
GetCalc(Str2
Str2→Str3
" →Str2
Else
GetCalc(Str1
Str1→Str3
" →Str1
End
If Str3≠" ":Then
identity(6,6,8,1
Text(0,0,sub("AB",A+1,1)+":"+Str3
End
Goto M
Lbl C
ClrDraw
Text(0,0,"Chat Box cleared.
Goto M

Compatible for Mirage, DoorsCS6 and 7. Comes with icon for doors.

What the community thinks:

Add a New Comment
Unless otherwise stated, the content of this page is licensed under Creative Commons Attribution-Noncommercial-No Derivative Works 2.5 License.