diff options
Diffstat (limited to 'Getasci.f')
| -rwxr-xr-x | Getasci.f | 42 |
1 files changed, 42 insertions, 0 deletions
diff --git a/Getasci.f b/Getasci.f new file mode 100755 index 0000000..db51339 --- /dev/null +++ b/Getasci.f @@ -0,0 +1,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 .lt. 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 .lt. 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 + + + |