blob: 8ae0ce8fd75921f68773e96c26df33fb20927428 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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
@}
|
