;---------------= Header =--------------
	.nolist
	#include "ion.inc"
	.list
#ifdef TI83P
	.org	progstart-2
	.db	$BB,$6D
#else
	.org	progstart
#endif
	ret
	jr nc,Start
TitleStr:
	.db "Lowercase!",0
        .db "By Danny Whitman",0
        .db "1)Enable Lwrcase"
        .db "2)Dsable Lwrcase"
        .db "3)Cancel",0

;---------------= Program =--------------
Start:
        ld hl,$0300
        ld (currow),hl
        ld hl,TitleStr
        bcall(_puts)
        ld de,$0001
        ld (currow),de
        bcall(_puts)
        ld de,$0003
        ld (currow),de
        bcall(_puts)
KeyLoop:
        bcall(_getk)
        cp $22                                  ;22h scancode for '1'
        jr z,Enable
        cp $1A                                  ;1Ah scancode for '2'
        jr z,Disable
        cp $12                                  ;12h scancode for '3'
        jr nz,KeyLoop
        ret
Enable:
        set 3,(iy+$24)
        ret
Disable:
        res 3,(iy+$24)
        ret
.end