#define   EQU   .equ
#define   equ   .equ
#define   END   .end
#define   end   .end
#define bcall(xxxx) rst 28h \ .dw xxxx
#include "ti83asm.inc"
.LIST

     .org 9D93h
     .db $BB,$6D
      ld hl,0
        ld de,$3E5E
        bcall(_fillrect)
        ld hl,$0101
        ld de,$1E1E
        bcall(_clearrect)
        ld hl,$2020
        ld de,$3A30
        bcall(_eraserectborder)
        ld hl,$0F0F
        ld de,$2F4F
        bcall(_invertrect)
        bcall(_getkey)
      
      
      ret

.end
end