CHARACTER IA*25
10	CALL	ASKS('STRING (5-25)?',IA,ISIZE,5,25)
	TYPE *, ISIZE,IA
	CALL	ASKSD('STRING (5-25)?',IA,ISIZE,5,25,'Default')
	TYPE *, ISIZE,IA
	CALL	ASK('Logical ?',ITEST)
	TYPE *, ITEST
	CALL	ASKN('Number ?',ITEST,10,100)
	TYPE *, ITEST
	CALL	ASKN('Number ?',ITEST,10,100,50)
	TYPE *, ITEST
	GO TO 10	
	END