;
demo.she v1999.12.23 (c)2000 Chris Pressey, Cat's Eye Technologies.
A demonstration of some of the basic features of Shelta and GUPI.
;
[
[ ]=hw `Hello, _32 `world! ; an empty block denotes a label ;
[ ]=eol _13 _10
]=hello
[ _0 ]=i
[ _0 ]=pad
[ __0 ]=hptr
[
begin
\1024 malloc ^hptr putw
[ ]=wloop
^i getb ^hptr getw ^i getb + putb
^i getb ++ ^i putb
^i getb ^wloop toif
^hptr getw \32 + \223 outs
end
] do
^hello \15 outs
^hw \12 outs
^eol \2 outs
^hello getb outc
^hello \1 + getb outc
\65 ^hello putb ^hello \15 outs
\1000 \8 / outc
\8 \8 * ++ outc
\8 \9 * ++ outc
\9 \9 * -- outc
flin
[
[ ]=loop
inc outc ^loop to ;forever!;
] to