Editing TRAC (programming language) (section)

== Example program ==

This is an example of a simple program that asks the user's name and exits, written in TRAC T64:<ref>[https://web.archive.org/web/20050214150205/http://tracfoundation.org/trac64/T64manual.htm  The Beginner's Manual for TRAC Language (1972) (archived)] by Calvin N. Mooers.</ref>

<pre>
#(DS,PROG.A,(
#(PS,(WHAT IS YOUR NAME?
))
#(DS,NAME,##(RS))
#(PS,(
GOODBYE))
))'
</pre>

TRAC T84 uses a slightly different syntax and different names for its primitives. The following is a script to compute Fibonacci numbers, written in TRAC T84:<ref>[https://web.archive.org/web/20200102193613/http://www.thocp.net/software/languages/trac.html TRAC information page (archived)], at [[The History of Computing Project]], with small code sample and photo of C. M. Mooers.</ref>
<pre>:(s,fibo,(
:(ei,<1>, 1, 0,(
:(ei,<1>, 2, 1,(
:(aa, :(ri,fibo,:(as, <1>,1)),:(ri,fibo,:(as, <1>,2)))
))
))
))`
:(mw,fibo)'</pre>