#include "offti-82.h"

.ORG 0
#IFDEF OSHELL82
.DB "Keyfinder v1.0",0
#ENDIF

        ROM_CALL(CLEARLCD)
        LD HL,$0100
        LD (CURSOR_ROW),HL
        LD HL,(PROGRAM_ADDR)
        LD DE,STRING_TITLE
        ADD HL,DE
        SET 3,(IY+05)
        ROM_CALL(D_ZT_STR)
        LD HL,$0001
        LD (CURSOR_ROW),HL
        LD HL,(PROGRAM_ADDR)
        LD DE,STRING_AUTHOR
        ADD HL,DE
        RES 3,(IY+05)
        ROM_CALL(D_ZT_STR)
        LD HL,$0003
        LD (CURSOR_ROW),HL
        LD HL,(PROGRAM_ADDR)
        LD DE,STRING_KEY
        ADD HL,DE
        ROM_CALL(D_ZT_STR)
LOOP:
        LD HL,$0004
        LD (CURSOR_ROW),HL
        CALL GET_KEY
        LD L,A
        LD H,0
        CP 55
        RET Z
        OR A
        JUMP_NZ(PRINT)
        JUMP_(LOOP)
PRINT:
        ROM_CALL(D_HL_DECI)
        JUMP_(LOOP)

STRING_TITLE:
        .DB "Keyfinder v1.0",0
STRING_AUTHOR:
        .DB "by: Randy Gluvna",0
STRING_KEY:
        .DB "Key:",0

.END