RPNL
merthsoft has just edited this program. The source code now reads:
merthsoft has just edited this program. The source code now reads:
BASIC Code wrote:
:If Str2="R
:Str3→Str2
:Str2→Str3
:0→P
:If Str2="P
:Then
:sum(15
:Else
:If Str2="T
:Then
:sum(15
:‾1→P
:Else
:If Str2="C
:Then
:sum(15
:sum(14
:Else
:If Str2="++
:Then
:1+sum(15
:Else
:If Str2="--
:Then
:sum(15)-1
:Else
:If Str2="+
:Then
:sum(15)+sum(15
:Else
:If Str2="-
:Then
:sum(15→A
:sum(15)-A
:Else
:If Str2="*
:Then
:sum(15)*sum(15
:Else
:If Str2="/
:Then
:sum(15→A
:sum(15)/A
:Else
:If Str2="!
:Then
:sum(15)!
:Else
:If Str2="^
:Then
:sum(15→A
:sum(15)^A
:Else
:expr(Str2
:End
Generated by SourceCoder, © 2005-2010 Cemetech
This is an automatic post from SourceCoder 2. Report abuse to admin@cemetech.net . You can disable these posts by unchecking the "Post on Update" box in the file's permissions. :Str3→Str2
:Str2→Str3
:0→P
:If Str2="P
:Then
:sum(15
:Else
:If Str2="T
:Then
:sum(15
:‾1→P
:Else
:If Str2="C
:Then
:sum(15
:sum(14
:Else
:If Str2="++
:Then
:1+sum(15
:Else
:If Str2="--
:Then
:sum(15)-1
:Else
:If Str2="+
:Then
:sum(15)+sum(15
:Else
:If Str2="-
:Then
:sum(15→A
:sum(15)-A
:Else
:If Str2="*
:Then
:sum(15)*sum(15
:Else
:If Str2="/
:Then
:sum(15→A
:sum(15)/A
:Else
:If Str2="!
:Then
:sum(15)!
:Else
:If Str2="^
:Then
:sum(15→A
:sum(15)^A
:Else
:expr(Str2
:End
Generated by SourceCoder, © 2005-2010 Cemetech