diff options
| author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
|---|---|---|
| committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
| commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
| tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /web/funnelAC/tests/hi05.fw | |
Initial commit
Diffstat (limited to 'web/funnelAC/tests/hi05.fw')
| -rw-r--r-- | web/funnelAC/tests/hi05.fw | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/web/funnelAC/tests/hi05.fw b/web/funnelAC/tests/hi05.fw new file mode 100644 index 0000000000..8ae0ce8fd7 --- /dev/null +++ b/web/funnelAC/tests/hi05.fw @@ -0,0 +1,23 @@ +HI05: This example shows how FunnelWeb can be used to dissect a file. + +@O@<hi05.out@>==@{@- +Unreadable Postscript code +@<Print routine@> +Unreadable Postscript code +@<Zap routine@> +Unreadable Postscript code +@} + +@A This routine looks as if it does this, but really is does that, +blah, blah blah. + +@$@<Print routine@>==@{@- +/print { push pop pop push turn around and jump up and down and print it} def +@} + +@A This routine zaps the... + +@$@<Zap routine@>==@{@- +/zap { push pop pop push turn around and jump up and down and print it} def +@} + |