Prompt: !,"Enter beginning actual block to search from <",ZIBBBLK,"> "
Line Location: ASK2+1
Function Call: WRITE
Prompt: !,"Enter last actual block to search to <",ZIBEBLK,"> "
Line Location: ASK3+1
Function Call: WRITE
Prompt: !,"Start Block=",ZIBBBLK," End Block=",ZIBEBLK,!
Line Location: ASK3+5
Function Call: WRITE
Prompt: !!,"This could take a while, hold on... ",!
Line Location: ASK3+6
Function Call: WRITE
Prompt: !,"DONE!",*7,$S($D(^TMP("ZIBFIND",$J)):" The blocks are listed in ^TMP(""ZIBFIND"","_$J_"), in this UCI",1:" no blocks were found with this data")