here's the problem:
>loop1:
> call GET_KEY
> cp $37
> ret z
> cp $36
> jr nz, loop1
> ld hl, $0003
> ld ($800C), hl
> ld hl, strstr
ld de, PROGRAM_ADDR ; you need to add these lines
add hl, de ; so the pointer will be to the right place
> ld a, 3
> CALL_(Input)
> jr loop1
then, you can display the initials with D_ZT_STR.
miklos