blob: 7eeea058a2181b752568bbff6b28d71f5e2f3fe0 (
plain)
1
2
3
4
5
6
7
|
$ v:='f$verify(0)'
$ set command 'f$logical("sys$disk")[]rnototex
$ define init$rnototex 'f$logical("sys$disk")[]rnototex.ini
$ delete/symbol/global rnototex
$ define/user sys$input sys$command
$ rnototex 'p2' 'p3' 'p4' 'p5' 'p6' 'p7'
$ if v then set verify
|