new_2.z80

#include    "ti83plus.inc"
#define     progStart   $9D95
.org        progStart-2
.db         $BB,$6D
Screensize   .equ $4000
ThinkEqual  .equ  a

            ld a,$64
FillAgain:
            ld hl,$0001
            ld bc,$00C8
            CPIR
            jr z, Introduction
            jr nz, FillAgain
  ret

Introduction:
            push hl
            call FillAgain
            .if  thinkEqual
                         call Compare16
            .else
                         dec hl
                         call FillAgain
            .end if
 ret

Compare16:
             ld a, h
             cp d
             jr z, Compare16_equal1
             jr Compare_not_equal
Compare16_equal1:
             ld a, l
             cp e
             jr z,Compare16_equal2
             jr Compare_not_equal
Compare16_equal2:
             ld a, 1
             jr Compare_return
Compare_not_equal:
             ld a, 0
Compare_return:
  ret