AxesOff
CoordOff
ClrDraw
RecallPic 4
Text(25,28,"TIM V. 1.00A")
Pause 
Lbl AB
ClrDraw
RecallPic 6
Text(55,13,"SEND"
Text(55,67,"END"
"0"->Str1
Lbl A
GetCalc(Str1
If Str1=/="0"
Then
Goto K
End
getKey->R
If R=24
Then
Goto B
End
If R=26
Then
Goto C
End
If Str1="0"
Then
Goto A
End
GetCalc(Str1
If Str1=/="0"
Then
Goto K
End
Lbl K
Text(17,3,"
Text(17,3,Str1
"0"->Str1
Goto A
End
Lbl C
ClrDraw
Text(31,27,"TIM V.100BETA
Text(45,27,"3GUYZ 
Pause 
ClrDraw
AxesOn
CoordOn
DelVar Str1
Stop
End
Lbl B
ClrHome
Input "MESSAGE:",Str1
Output(8,5,"(ENTER)
Pause 
Goto K