subroutine askfpb(jchr,qq) C C C Copyright (C) Shell Research Ltd. 1983 C C C The copyright in this computer program and associated user C instructions contained in this document is the property of C Shell Research Ltd.. No guarantee is given or may be implied C as to the adequacy of the program or its suitability for any C particular purpose and no liability is accepted for any loss C or damage arising out of its use. C C C C Version: Y07.00 C C C Author: Ray Carpenter 22-Mar-83 C C Revised: Ray Carpenter 29-Feb-84 C C*********************************************************************** C C Function: C C Copies bytes from the input string to the main chracter buffer C (qlin) C C Parameter inputs: C C jchr - the number of bytes to be copied (0-81). If jchr = -1, then an C asciz string is assumed as input and is copied upto but C not including the null terminator. C C qq - the actual input string. C C Global inputs: C C none C C Parameter outputs: C C None C C Global outputs: C C C qlin - characters are stored here. C ipoint - updated pointer into qlin. C C Errors: C C None C C*********************************************************************** C C Code begins :- C C implicit byte (q) C dimension qq(1) C C common /askcom/ 1 iparam !parameter word used by some routines 2,ipoint !output terminal buffer pointer 3,iplen !prompt length 4,qlin(82) !terminal I/O buffer 5,qmin !set if user supplied minimum value 6,qmax !set if user supplied maximum value 7,qdflt !set if user supplied default 8,qctrlz !set if ^Z is invalid 9,qclc !set if lower to upper case conversion reqd. 1,qdsply !set if no display of current fields reqd. 2,qspc !set if special characters valid. 3,qvtmd !set if user wants video mode 4,qprmpt(3) !prompt character (default is '?') 5,qs(12) !temporary string storage C C kchr=jchr C if(kchr .eq. -1) kchr=81 C if(kchr .lt. 1) goto 99 C do 20 k=1,kchr C if(qq(k) .eq. 0) goto 99 C ipoint=ipoint+1 C if(ipoint .gt. 81) goto 99 C qlin(ipoint)=qq(k) C 20 continue C 99 return C C end