autotests/reference/retro.retro.ref

0001 <not-code>#! /usr/bin/env retro</not-code><br/>
0002 <not-code></not-code><br/>
0003 <not-code># RETRO Test File</not-code><br/>
0004 <not-code></not-code><br/>
0005 <not-code>This is an example of the literate format</not-code><br/>
0006 <not-code>RETRO uses, which lets us program in a literate style.</not-code><br/>
0007 <not-code></not-code><br/>
0008 <delimter>```</delimter><br/>
0009 <colon>:test</colon><code> ;</code><br/>
0010 <delimter>```</delimter><br/>
0011 <not-code></not-code><br/>
0012 <not-code>That was a test block. It defines a test.</not-code><br/>
0013 <not-code></not-code><br/>
0014 <delimter>~~~</delimter><br/>
0015 <colon>:word</colon><code> </code><note>(note)</note><br/>
0016 <code>  </code><num>#1</num><code> </code><str>'mald</str><note>_</note><str>%n</str><code> s</code><colon>:format</colon><code> s</code><colon>:put</colon><br/>
0017 <code>  </code><fnum>.1.0</fnum><code> drop</code><br/>
0018 <code>;</code><br/>
0019 <code></code><br/>
0020 <colon>:hm</colon><code> </code><note>(idk)</note><br/>
0021 <delimter>~~~</delimter><br/>
0022 <not-code></not-code><br/>
0023 <not-code>That's the start of a word.</not-code><br/>
0024 <not-code></not-code><br/>
0025 <not-code>These code fences can be placed anywhere.</not-code><br/>
0026 <delimter>~~~</delimter><br/>
0027 <code>  </code><ptr>&A</ptr><code> </code><char>$A</char><code> </code><inst>`a</inst><code> </code><inst>\a</inst><code> </code><defer>|a</defer><code> </code><fetch>@a</fetch><code> </code><store>!a</store><br/>
0028 <code>;</code><br/>
0029 <delimter>~~~</delimter><br/>
0030 <not-code></not-code><br/>
0031 <not-code>Running that gibberish code is not safe for your system, probably.</not-code><br/>
0032 <not-code>You wouldn't wanna do it.</not-code><br/>