start:  
	initIO                  * Initialize (required for I/O)
    lineout title
 
continue:
	lineout skipln
	lineout prompt
	linein  buffer          * Get input
	cvta2	buffer+6,#4
	move.l	#2008,D1
	sub.l	D0,D1
	move.l	D1,D0
	ext.l	D0
	cvt2a	age,#3
	Stripp	age,#3
	lea	age,A1
*	adda.l	D0,A5
	move.b	#'.',(A5)
	adda.l	#1,A5
	move.b	#' ',(A5)
	adda.l	#1,A5
	move.b	#'*',(A5)
	adda.l	#1,A5
	move.b	buffer,answer+5
	move.b	buffer+1,answer+6
	move.b	buffer+3,answer+8
	move.b	buffer+4,answer+9
*	move.b	A5,answer+10
*	move.b	A5+1,answer+11
*	move.b	A5+2,answer+12
	lea	stars+20,A2
	adda.l	D0,A2
 
	lineout stars
	lineout answer
        lineout period
	lineout stars
	break                   * Terminate execution
*
*       Storage declarations
 
title:  dc.b    '**   tile   **',0
buffer:	ds.b	80
skipln:	dc.b	0
prompt: dc.b    'Please Enter your birthday (xx/xx/xxxx) ...',0        
answer:	dc.b	'* On xx/xx/2008, you will be '
age:	ds.b	8
period:   dc.b   '.'
stars:	dcb.b	40,'*'
end