← Back to branch summary

~ubuntu-branches/ubuntu/wily/eso-midas/wily-proposed

« back to all changes in this revision

Viewing changes to prim/proc/printlog.prg

  • Committer: Package Import Robot
  • Author(s): Ole Streicher
  • Date: 2014-04-22 14:44:58 UTC
  • Revision ID: package-import@ubuntu.com-20140422144458-okiwi1assxkkiz39
Tags: upstream-13.09pl1.2+dfsg
Import upstream version 13.09pl1.2+dfsg

Show diffs side-by-side

added added

removed removed

Lines of Context:
prim/proc/printlog.prg
 
1
! @(#)printlog.prg      19.1 (ES0-DMD) 02/25/03 14:08:59
 
2
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
3
!
 
4
! MIDAS procedure  printlog.prg  to implement PRINT/LOG
 
5
! K. Banse      910104, 920121, 920207
 
6
!
 
7
! executed via @ printlog page_def
 
8
! where page_def = pstart,pend          from pstart to pend (incl)
 
9
!                  page_no              only that page
 
10
!                  LAST                 only last page
 
11
!                  -no                  last 'no' pages
 
12
!
 
13
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
14
!
 
15
DEFINE/PARAM P1 1,9999 N "Enter pages to print: "
 
16
WRITE/KEYW INPUTI/I/15/2 {P1},{P1}
 
17
! 
 
18
DEFINE/LOCAL OLDLOG/I/1/1 {LOG(1)}
 
19
LOG/OFF                                 !turn logging off
 
20
! 
 
21
RUN MID_MONIT:LOGGER
 
22
! 
 
23
IF OLDLOG .NE. 0 LOG/ON
 
24
IF MID$PRNT(1:1) .EQ. "T" RETURN
 
25
IF MID$PRNT(1:1) .EQ. "F" RETURN
 
26
! 
 
27
ERROR(6) =  ERROR(3)                    !save current error flag
 
28
@ print.prg print                       !send file to chosen printer