CR		equ	$0D
LF		equ	$0A
printf		equ	$EE88
getcmdline	equ	$EE8A
cmdlinelen	equ	40
		org	$1000
inbuf		rmb	20
err_flag		rmb	1
sign_flag		rmb	1
		org	$1500
		lds	#$1500
		ldd	#prompt1
		jsr	[printf,PCR]	; output a prompt to remind the user to enter
		ldd	#cmdlinelen	; an integer
		pshd
		ldd	#inbuf
		call	[getcmdline,PCR]	; read in a string that represents an integer
		leas	2,sp
		ldd	#prompt3		; move cursor to the next line
		jsr	[printf,PCR]	; "
		ldd	#inbuf
		pshd
		ldd	#prompt2	
		jsr	[printf,PCR]	; output the numbered that you entered
		leas	2,sp
		ldd	#prompt3
		jsr	[printf,PCR]	; move cursor to the next line
		swi
prompt1		db	"Please enter a number: ",CR,LF,0
prompt2		db	"The entered number is: %s ",0
prompt3		db	" ",CR,LF,0
		end