;************************************************************************ ;* * ;* Module C of ZDT -- Search Routine * ;* * ;************************************************************************ ; ; input for search ; getkeyf:ld b,25 ; set length for search string (b=25) getkey: ld c,0 ; initialize counter push bc ; save count from pad call showmsg dc 1,'Find >',2 call pad pop bc ; restore count ld hl,1807h ; set cursor to 24,7 ld (cpos),hl ; save it call gotoxy ld hl,srch ; point to search string buffer ld a,on ; set caps call edlp0 ; get search string ; c=length of search string jp clrmsg ; scanner: ; main loop ; scan: ld a,b ; done if b