← Back to branch summary

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

« back to all changes in this revision

Viewing changes to applic/proc/showmidas.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/showmidas.prg
 
1
! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
2
!
 
3
! MIDAS procedure showmidas.prg to display the current settings in MIDAS
 
4
! K. Banse      920102, 921007, 930107, 931029, 950331
 
5
! 
 
6
! 060508        last modif
 
7
!
 
8
! use as   @a showmidas
 
9
! 
 
10
! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
11
!
 
12
if mid$sess(15:15) .eq. "P" then
 
13
   write/out -
 
14
   "MIDAS version {mid$sess(16:20)} in parallel mode on" {mid$sys(1:20)}
 
15
else
 
16
   write/out -
 
17
   "MIDAS version {mid$sess(16:20)} in single user mode on" {mid$sys(1:20)}
 
18
endif
 
19
! 
 
20
inputc = m$symbol("MID_WORK")
 
21
write/out MIDAS root directory (MID_WORK) is: {inputc}
 
22
! 
 
23
write/out 
 
24
if mid$sess(11:11) .lt. "1" goto step_a
 
25
if mid$sess(12:12) .gt. "9" goto step_a
 
26
!
 
27
write/out "current display device for MIDAS:" {mid$disp(3:)}
 
28
! 
 
29
step_a:
 
30
!------
 
31
if aux_mode .lt. 2 then
 
32
   write/out -
 
33
   "current VMS procedure to print in MIDAS:" {mid$prnt(3:)}
 
34
   write/out -
 
35
   "current VMS procedure to plot in MIDAS:"  {mid$plot(3:19)}
 
36
else
 
37
   write/out -
 
38
   "current print device for MIDAS:" {mid$prnt(3:)}
 
39
   write/out -
 
40
   "current plot device for MIDAS:" {mid$plot(3:19)}
 
41
endif
 
42
write/out 
 
43
! 
 
44
if error(1) .eq. 0 then
 
45
   define/local messa/c/1/5 short
 
46
else
 
47
   define/local messa/c/1/5 full 
 
48
endif
 
49
if log(1) .eq. 0 then
 
50
   write/out logging disabled, {messa} error display enabled
 
51
else
 
52
   write/out logging enabled, {messa} error display enabled
 
53
endif
 
54
! 
 
55
! show all the set/midas_sys stuff
 
56
write/out " "
 
57
set/midas comm=? key=?
 
58
write/out " "
 
59
set/midas wcs-flag=?
 
60
if aux_mode .lt. 2 then
 
61
   set/midas  dq=? dsc=? clov=? outp=? user=? edit=? 
 
62
else
 
63
   set/midas  dq=? dsc=? clov=? outp=? user=? edit=? debug=?
 
64
endif
 
65
! 
 
66
show/context