← Back to branch summary

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

« back to all changes in this revision

Viewing changes to applic/proc/keyshow.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:
applic/proc/keyshow.prg
 
1
! @(#)keyshow.prg       19.1 (ES0-DMD) 02/25/03 13:20:14
 
2
! @(#)keyshow.prg       19.1  (ESO)  02/25/03  13:20:14
 
3
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
4
!
 
5
!.COPYRIGHT   (C) 1991 European Southern Observatory
 
6
!.IDENT       keyshow.prg
 
7
!.AUTHOR      Pascal Ballester,  ESO - Garching
 
8
!.KEYWORDS    Session, Manager 
 
9
!.PURPOSE     Command SHOW/SESSION 
 
10
!.VERSION     1.0    Creation    10-SEP-1991 PB
 
11
!
 
12
!-------------------------------------------------------
 
13
!
 
14
define/local line/C/1/132  " "
 
15
line(1:132)  = MID$LINE(1:132)
 
16
 
 
17
define/local tlen/I/1/1   0
 
18
define/local tsta/I/1/1   0
 
19
define/local tend/I/1/1   0
 
20
define/local I/I/1/1      0
 
21
 
 
22
tsta = M$INDEX(line," ") + 1
 
23
 
 
24
define/local text/C/1/132  " "  ALL
 
25
if tsta .gt. 1   text(1:132) = line({tsta}:132)
 
26
 
 
27
I = 1
 
28
DOTS:
 
29
if text({I}:{I}) .eq. "."  then  
 
30
   text({I}:{I}) = " "
 
31
   I = I + 1
 
32
   GOTO DOTS
 
33
endif
 
34
 
 
35
define/local QUOT/C/1/1 "
 
36
 
 
37
IF text(1:1) .EQ. QUOT THEN
 
38
    write/out  {text}
 
39
ELSE
 
40
    write/out  "{text}"
 
41
ENDIF
 
42
 
 
43
IF SESSDISP(1:1) .NE. "Y"  RETURN
 
44
 
 
45
SESSNLIN = LOG(11) - 1
 
46
SESSLINE = SESSLINE + 1
 
47
IF SESSLINE .GE. SESSNLIN THEN
 
48
   SESSLINE = 0
 
49
   INQUIRE/KEYW  ANSW/C/1/3   "Hit return to continue, q + return to quit "
 
50
   IF AUX_MODE(7) .NE. 0 THEN
 
51
      IF ANSW(1:1) .EQ. "Q"    RETURN/EXIT
 
52
   ENDIF
 
53
ENDIF
 
54
 
 
55
RETURN
 
56