blob: e9b590733d3d3815726ecabad639c99761b7dd45 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
subroutine prinfo (line)
c******************************************************************************
c this routine prints out information on the text terminal
c******************************************************************************
include 'Pstuff.com'
include 'Atmos.com'
character errm1*80,array1*80
c*****do not print out information in real time if the code is in
c batch mode
if (silent == 'y') return
if (line == 1) then
istat = ivcleof(4,1)
endif
if (line == maxline-5) then
errm1 = errmess
array1 = array
10 array = 'WANT TO SEE MORE ([y]/n)? '
nchars = 26
call getasci (nchars,4+line)
if (chinfo(1:1)=='y' .or. nchars<=0) then
istat = ivcleof(4,1)
line = 1
array = array1
errmess = errm1
elseif (chinfo(1:1) == 'n') then
errmess = 'stopinfo!'
return
else
go to 10
endif
endif
istat = ivwrite(4+line,1,array,79)
errmess = 'everything OK'
return
end
|
