diff options
Diffstat (limited to 'qemu/roms/openbios/forth/testsuite/fract.fs')
-rw-r--r-- | qemu/roms/openbios/forth/testsuite/fract.fs | 35 |
1 files changed, 0 insertions, 35 deletions
diff --git a/qemu/roms/openbios/forth/testsuite/fract.fs b/qemu/roms/openbios/forth/testsuite/fract.fs deleted file mode 100644 index 39c984056..000000000 --- a/qemu/roms/openbios/forth/testsuite/fract.fs +++ /dev/null @@ -1,35 +0,0 @@ -\ tag: forth fractal example -\ -\ Copyright (C) 2002, 2003 Volker Poplawski <volker@poplawski.de> -\ Stefan Reinauer - -\ This example even fits in a signature ;-) - -\ hex 4666 dup negate do i 4000 dup 2* negate do 2a 0 dup 2dup 1e 0 do -\ 2swap * d >>a 4 pick + -rot - j + dup dup * e >>a rot dup dup * e >>a -\ rot swap 2dup + 10000 > if 3drop 2drop 20 0 dup 2dup leave then loop -\ 2drop 2drop type 268 +loop cr drop 5de +loop - - -: fract -4666 dup negate -do - i 4000 dup 2* negate - do - 2a 0 dup 2dup 1e 0 - do - 2swap * d >>a 4 pick + - -rot - j + - dup dup * e >>a rot - dup dup * e >>a rot - swap - 2dup + 10000 > if - 3drop 2drop 20 0 dup 2dup leave - then - loop - 2drop 2drop - emit - 268 +loop - cr drop -5de +loop -; |