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

#else		
	.org progstart

#endif		
	ret
	jr nc,hahafakeout
	.db "Post-it",0

hahafakeout:
	bcall(_CursorOn)
	call	initscrn
start:
	ld a,(currow)
	ld b,0
	dec b
	cp b
	jp z,rownega
	cp 7
	jp z,rowbiga
	ld a,(curcol)
	cp b
	jp z,colnega
	cp 16
	jp z,colbiga
	ld hl,(currow)
	push hl
	ld hl,(curcol)
	push hl
	call	initscrn
	ld hl,txt
	bcall(_puts)
	pop hl
	ld (curcol),hl
	pop hl
	ld (currow),hl
reject:
	bcall(_getKey)
	cp $32
	jp z,lettera
	cp $93
	jp z,letteru
	cp $8D
	jp z,letterperiod
	cp $CB
	jp z,letterplus
	cp $B0
	jp z,letterminus
	cp $AB
	jp z,lettertimes
	cp $A6
	jp z,letterdivided
	cp $C6
	jp z,lettercolon
	cp $8C
	jp z,letterquestionmark
	cp $80
	jp z,letterquote
	cp 3
	call z,up
	cp $8E
	jp z,letterspace
	cp 4
	call z,down
	cp 1
	call z,right
	cp 2
	call z,left
	cp 64
	jr z,ion
	ld hl,chars
	ld b,62
	ld e,0
	ld d,e
findcharloop:
	inc hl
	inc e
	ld c,(hl)
	cp c
	jr z,writechar
	djnz findcharloop
	jp start
writechar:
	ld hl,alphabet
	add hl,de
	ld a,(hl)
ichar:
	push af
	ld a,(currow)
	ld b,a
	xor a
addloop:
	add a,16
	djnz addloop
	ld hl,0
	ld l,a
	ld a,(curcol)
	add a,l
	ld l,a
	push hl
	pop bc
	ld hl,txt
	add hl,bc
	pop af
	ld (hl),a
	ld a,(curcol)
	inc a
	ld (curcol),a
	cp 16
	jp nz,start
	xor a
	ld (curcol),a
	ld a,(currow)
	inc a
	ld (currow),a
	jp start
ion:
	bcall(_CursorOff)
	ret
letterplus:
	ld a,'+'
	jp ichar
letterminus:
	ld a,'-'
	jp ichar
lettertimes:
	ld a,'*'
	jp ichar
letterdivided:
	ld a,'/'
	jp ichar
lettera:
	ld a,'a'
	jp ichar
letterquestionmark:
	ld a,'?'
	jp ichar
letterquote:
	ld a,'"'
	jp ichar
letteru:
	ld a,'u'
	jp ichar
letterperiod:
	ld a,'.'
	jp ichar
lettercolon:
	ld a,':'
	jp ichar
letterspace:
	ld a,' '
	jp ichar
rownega:
	ld a,(currow)
	ld a,6
	ld (currow),a
	jp start
rowbiga:
	ld a,(currow)
	xor a
	ld (currow),a
	jp start
colnega:
	ld a,(curcol)
	ld a,15
	ld (curcol),a
	jp start
colbiga:
	ld a,(curcol)
	xor a
	ld (curcol),a
	jp start
up:
	ld hl,currow
	dec (hl)
	ret
down:
	ld hl,currow
	inc (hl)
	ret
left:
	ld hl,curcol
	dec (hl)
	ret
right:
	ld hl,curcol
	inc (hl)
	ret
initscrn:
	xor a
	ld (currow),a
	ld (curcol),a
	ret
txt:
	.db "                "
	.db "                "
	.db "                "
	.db "                "
	.db "                "
	.db "                "
	.db "                ",0
chars:
	.db $32, $2C, $2D, $B6, $B7, $B9, $BB, $84, $BD, $8B, $85, $86, $83, $C1, $95, $96, $97, $82, $BF, $92, $92
	.db $94, $81, $8A, $8F, $90, $91, $33, $39, $2F, $37, $B8, $BA, $BC, $B5, $BE, $98, $EC
	.db $ED, $EF, $C2, $F9, $FA, $FB, $87, $C0, $F6, $F7, $F8, $88, $0C, $F3, $F4, $99, $B2, $B3, $CC, $AD
	.db $AE, $AF, $A8, $A9, $AA
alphabet:
	.db "abcdefghijklmnopqrst"
	.db "uvwxyz",$5B,"ABCDEFGHIJ"
	.db "KLMNOPQRSTUVWXYZ0123"
	.db "45678",$39
.end