	subroutine askfnr(r)
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	Converts an real into ASCII without leading zeros or spaces
C
C Parameter inputs:
C
C	r - the real to be printed
C
C Global inputs:
C
C	none
C
C Parameter outputs:
C
C	None
C
C Global outputs:
C
C
C	qlin - 	resultant 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
	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 string (default is ' ? ')
	5,qs(12)		!temporary string storage
C
C
C	check for output field under/over flow
C
	if(r .eq. 0) goto 10
	if(abs(r) .lt. 0.1 .or. abs(r) .ge. 1000.) goto 90

10	encode(8,11,qs,err=90) r
11	format(f8.3)
C
	call askfpn(3,8)
C
	goto 99
C
90	encode(11,91,qs)r
91	format(e11.4)
C
	call askfpb(11,qs)
C
99	return
C
C
	end
����