.nolist		
	#include "ion.inc"
.list	
	
#ifdef TI83P		
	.org progstart-2
	.db $BB,$6D

#else		
	.org progstart

#endif		
	ret
	jr nc,Start
	.db "Get Name",0

start:
	bcall(_clrlcdf)
	ld hl,0
	ld (currow),hl
	ld hl,what
	bcall(_puts)
	ld hl,username
	call	input
	bcall(_clrlcdf)
	ld hl,0
	ld (currow),hl
	ld hl,namer
	bcall(_puts)
	bcall(_getKey)
	ret
what:
	.db "What's Your Name",0
namer:
	.db "Your name is "
username:
	.db "                ",0
	#include "input.inc"
.end