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
|
subroutine getasci (num,line)
c******************************************************************************
c this routine asks for information, by printing out the
c characters contained in 'array', and returns what the
c user types out in array 'chinfo'. Variable 'num' on input
c is the number of characters in 'message', and on output is
c the number of characters in 'chinfo'
c******************************************************************************
include 'Pstuff.com'
write (chinfo,1005)
1005 format (80(' '))
istat = ivmove(line-1,1)
istat = ivcleol()
istat = ivmove(line-1,1)
if (num < 10) then
write (errmess,1001) num
1001 format ('(a',i1,'$)')
else
write (errmess,1002) num
1002 format ('(a',i2,'$)')
endif
write (*,errmess) array
num = 80 - num
if (num < 10) then
write (errmess,1003) num
1003 format ('(a',i1,')')
else
write (errmess,1004) num
1004 format ('(a',i2,')')
endif
read (*,errmess) chinfo
call getcount (num,chinfo)
return
end
|
