If K=25 O-7→O If K=34 O+7→O -could be- O-7(K=25)+7(K=34)->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 --could be -- (havent tested this, as i dont use celtic, but I think it will work) "READ SEND SEARCH MEMORY REFRESHQUIT->Str1 //mind how many spaces there are. 3,3,1,1 real(13,1 Text(O,0,sub(Str1,O-6,7 real(13,0

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!!

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!