!*! Updated on 25-Nov-91 at 8:24 AM by Michele Tonti; edit time: 0:00:21
!*************************** AMUS Program Label ******************************
! Filename: INPTMR.BAS                                      Date: 11/25/91
! Category: UTIL         Hash Code: 514-337-167-756      Version: 1.1B(105)      
! Initials: RELI/AM      Name: MIKE SELVY      
! Company: REL Inc.                                Telephone #: 5039292704
! Related Files: INPTMR.M68,INPTMR.DOC
! Min. Op. Sys.:                               Expertise Level: 
! Special: Requires NOECHO
! Description: Program to demonstrate use of INPTMR.SBR
! 
! 
!*****************************************************************************
PROGRAM INPTMR,1.1B(105)
MAP1	STRNG,S,40
MAP1	STG,S,1
MAP1	CNT,F,6,10

	PRINT "INPTMR DEMO:  demonstration for INPTMR subroutine"
LOOP:	PRINT "TYPE SOMETHING...:"
	CNT = 10			! time out value (seconds)
	XCALL INPTMR,STRNG,CNT
	PRINT
	PRINT STRNG
	PRINT CNT			! num. of chars. typed in subroutine
	PRINT "TYPE SOMETHING, NO SHOW...:"
	CNT=-10				! time out value (neg means noecho)
	XCALL INPTMR,STRNG,CNT
	PRINT
	PRINT STRNG			! no-show while input, print here
	PRINT CNT			! num. of chars. typed in subroutine
	PRINT "TYPE SOMETHING, * SHOW...:"
	STRG=""				! initialize destination string
	THLOOP=0			! initialize loop counter
THLOP:	THLOOP=THLOOP+1			! increment counter
	CNT=-10				! time out value (neg means noecho)
	XCALL INPTMR,STG,CNT		! returns 1 if char, 0 if c/r, else -1
	IF CNT>0 STRG=STRG+STG		! if char, add to destination string
	IF CNT<1 GOTO NDLOP		! if c/r or ^C then exit
	IF THLOOP>10 GOTO NDLOP		! if counter > map length of string...
	PRINT "*";			! otherwise:  echo "cover" character
	GOTO THLOP			! go get next char
NDLOP:	PRINT:PRINT
	PRINT STRNG			! false show while input, print here
	PRINT CNT	! will be 1 if THLOOP overflow, or 0 or -1 (for STG)
	GOTO LOOP