00000000
00000018
00000030
00000048
00000060
00000078
00000090
000000A8
000000C0
000000D8
000000F0
00000108
00000120
00000138
00000150
00000168
00000180
00000198
000001B0
000001C8
| 23 21 2F 75 73 72 2F 62 69 6E 2F 70 65 72 6C 0A 65 76 61 6C 20 27 65 78
65 63 20 70 65 72 6C 20 2D 53 20 24 30 20 22 24 40 22 27 0A 09 69 66 20
24 72 75 6E 6E 69 6E 67 5F 75 6E 64 65 72 5F 73 6F 6D 65 5F 73 68 65 6C
6C 3B 0A 0A 23 20 66 69 78 73 63 72 69 62 65 70 73 3A 20 67 65 74 20 63
6F 6E 66 6F 72 6D 69 6E 67 20 50 6F 73 74 53 63 72 69 70 74 20 6F 75 74
20 6F 66 20 53 63 72 69 62 65 0A 23 0A 23 20 43 6F 70 79 72 69 67 68 74
20 28 43 29 20 41 6E 67 75 73 20 4A 2E 20 43 2E 20 44 75 67 67 61 6E 20
31 39 39 31 2D 31 39 39 35 0A 23 20 53 65 65 20 66 69 6C 65 20 4C 49 43
45 4E 53 45 20 66 6F 72 20 64 65 74 61 69 6C 73 2E 0A 0A 24 69 6E 65 70
73 66 20 3D 20 30 3B 0A 24 65 70 73 66 6E 20 3D 20 30 3B 0A 77 68 69 6C
65 20 28 3C 3E 29 20 7B 0A 20 20 20 69 66 20 28 2F 5E 28 5B 30 2D 39 5D
2B 20 5B 30 2D 39 5D 2B 20 5B 30 2D 39 5D 2B 20 50 42 29 20 28 25 21 2E
2A 29 2F 29 20 7B 0A 20 20 20 20 20 20 70 72 69 6E 74 20 22 24 31 5C 6E
25 25 42 65 67 69 6E 44 6F 63 75 6D 65 6E 74 3A 20 53 63 72 69 62 65 2D
45 50 53 46 20 24 65 70 73 66 6E 20 30 5C 6E 24 32 5C 6E 22 3B 0A 20 20
20 20 20 20 24 69 6E 65 70 73 66 2B 2B 3B 0A 20 20 20 7D 20 65 6C 73 69
66 20 28 2F 5E 20 50 45 2F 20 26 26 20 24 69 6E 65 70 73 66 29 20 7B 0A
20 20 20 20 20 20 70 72 69 6E 74 20 22 25 25 45 6E 64 44 6F 63 75 6D 65
6E 74 5C 6E 22 2C 20 24 5F 3B 0A 20 20 20 7D 20 65 6C 73 65 20 7B 0A 20
20 20 20 20 20 70 72 69 6E 74 20 24 5F 3B 0A 20 20 20 7D 0A 7D 0A 0A | #!/usr/bin/perl eval 'ex
ec perl -S $0 "$@"' if
$running_under_some_shel
l; # fixscribeps: get c
onforming PostScript out
of Scribe # # Copyright
(C) Angus J. C. Duggan
1991-1995 # See file LIC
ENSE for details. $inep
sf = 0; $epsfn = 0; whil
e (<>) { if (/^([0-9]
+ [0-9]+ [0-9]+ PB) (%!.
*)/) { print "$1\n
%%BeginDocument: Scribe-
EPSF $epsfn 0\n$2\n";
$inepsf++; } elsi
f (/^ PE/ && $inepsf) {
print "%%EndDocume
nt\n", $_; } else {
print $_; } } |