Does this program need adjusting at all?
(account deleted) 08 Sep 2017 18:22
PROGRAM:IM
Clear Entries
ClrHome
AxesOff
ClrDraw
ZStandard
ZInteger
If det([[1:Then
Text(0,0,"BOOT ERROR
Horizontal 24
Text(8,0,"PLEASE INSTALL CELTIC3.
Pause
ClrDraw
ClrHome
Return
End
"?→Str1
"?→Str2
0→M
GetCalc(A
e(A=∏)+∏(A≠π)→A
"?→Str4
Goto RS
Lbl M
real(13,1
Text(0,0,"INSTANT MESSANGER v2.9
real(13,0
7→O
If Str4≠"?" and (A=e) or (A=π):Then
If (Str4="e" and A=π) or (Str4="π" and A=e):Then
real(13,1
Text(50,1," NEW MESSAGE
End
real(13,0
If Str4="e" and A=π:Then
Text(57,0,"TIME RECEIVED=",getTmStr(getTmFmt
End
If Str4="π" and A=e:Then
Text(57,0,"TIME RECEIVED=",getTmStr(getTmFmt
End
End
Repeat K=105
If O<7
42→O
If O>47
7→O
If O=7
real(13,1
Text(7,0,"READ
real(13,0
If O=14
real(13,1
Text(14,0,"SEND
real(13,0
If O=21
real(13,1
Text(21,0,"SEARCH
real(13,0
If O=28
real(13,1
Text(28,0,"MEMORY
real(13,0
If O=35
real(13,1
Text(35,0,"REFRESH
real(13,0
If O=42
real(13,1
Text(42,0,"QUIT
real(13,0
Repeat max(K={25,34,105
getKey→K
If A≠π and A≠e
Goto FF
End
If K=25
O-7→O
If K=34
O+7→O
End
If O=7
Goto R
If O=14
Goto S
If O=21
Goto T
If O=28
Goto MM
If O=35
Goto RS
If O=42
Goto Q
Lbl RS
If A=π:Then
getCalc(Str1
If Str1≠"?
"e→Str4
Else
getCalc(Str2
If Str2≠"?
"π→Str4
End
Goto M
Lbl R
ClrDraw
ClrHome
If A=π:Then
GetCalc(Str1
Str1
Else
GetCalc(Str2
Str2
End
Output(1,1,Ans
Pause
"?→Str4
ClrHome:Goto M
Lbl S
ClrHome
CLrDraw
real(13,1
Disp "INPUT MESSAGE:"
real(13,0
Input "",Str3
If A=π:Then
Str3→Str2
"π→Str4
Else
Str3→Str1
"e→Str4
End
ClrHome
Goto M
Lbl T
CLrDraw
0→C
0→D
real(13,1
Text(0,0,"SEARCHING FOR PARTNER...
real(13,0
//THIS CODE IS NOT FINISHED!!What can be adjusted? I want to post this to the program archives.
Inspired from:
TI|BD,OASIS
Special codes to remember:
~ det(4,1 = To find ROM storage left
~ det(4 = To find RAM storage left
~ real(13,1 =Text inverse (White on black)
~ real(13,0 =Text normal (Black on white)
THESE ARE USEFUL!