;Menu routines

 include "settings.inc"
 include "ti83plus.inc"
 include "equates.inc"
 include "usb8x.inc"
 include "bluetooth.inc"
 SEGMENT Main
 GLOBALS ON

 EXTERN INewLine,IGetKey,ExitApp,IPutS
 EXTERN ptrMenu,ptrPrevMenu

DrawMenu:
       B_CALL ClrLCDFull
       B_CALL HomeUp
       ld hl,(ptrMenu)
       ld b,(hl)
       inc hl
       call IPutS
       call INewLine
       push hl
       pop ix
       ld c,1
$$:    ld a,c
       ld (curRow),a
       call IPutS
       inc hl
       inc hl
       call INewLine
       inc c
       djnz $B
$$:    call IGetKey
       cp kClear
       jr z,goToPreviousMenu
       cp kQuit
       jr z,ExitApp
       cp k0
       jr z,$B
       sub k1-1
       jr c,$B
       push ix
       pop hl
       ld b,(hl)
       cp b
       jr nc,$B
       inc hl
       ld b,a
       xor a
$$:    push bc
       ld bc,0FFFFh
       cpir
       ld e,(hl)
       inc hl
       ld d,(hl)
       inc hl
       pop bc
       djnz $B
       ex de,hl
       jp (hl)
goToPreviousMenu:
       ld hl,(ptrPrevMenu)
       ld a,h
       or l
       jr z,ExitApp
       ld (ptrMenu),hl
       ld hl,0
       ld (ptrPrevMenu),hl
       jr DrawMenu