blob: 449b2881802bf33b10acaeced802b64c3aac9f73 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
$ if (p1 .nes. "") then goto file_given
$ type sys$input
Usage: screenview file [first_page max_pages magnification]
$ exit
$
$ file_given:
$ open/write temp sys$scratch:crude.tmp
$ write temp p1
$ write temp p2
$ write temp p3
$ write temp p4
$ close temp
$ on warning then goto finish
$ define/user sys$input sys$scratch:crude.tmp
$ r TeX_Root:[Drivers.Screenview]Crudetype
$
$ finish:
$ delete/nolog sys$scratch:crude.tmp;
$ exit
|
