blob: abccb5227fdde1a58b4a968731257bf42de3e22a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
$inizio:
$ if p1 .eqs. "" then inquire p1 " Nome del File "
$ if p1 .eqs. "" then goto inizio
$ l=f$locate(".",p1)
$ if l.eq.f$length(p1) then p1:='p1'.bit
$ if f$extract(l,4,p1).eqs.".BIT" then goto stampa
$ write sys$output " Il file non e' di tipo .BIT !"
$ write sys$output " Sei certo di volerlo stampare ? [si]"
$ inquire yes " [no=def.] "
$ if yes .eqs. "SI" then goto stampa
$ p1=""
$ goto inizio
$stampa:
$ print/queue=lca0/notify 'p1' 'p2' 'p3' 'p4'
$ show queue lca0/all
|