ld (iy+h'ffc1),h'0
       ld (ix+h'c1),h'0

         ifelse( a,b,c,a,a,d,e)
         ifelse( a,a,b,c)
         define( foo, $1 )
         foo( z)
         errprint(substr(foo,0,1))
         define( `denotefirstchar',
         `ifelse(  errprint(substr($1 ,0,1)),a,the first letter is a,
                   errprint($1 ),b,the first letter is b,
                   $1 ,c,the first letter is c,
                   the first letter is not in ``a..c'')')
          denotefirstchar( a)
          denotefirstchar( bc)
          denotefirstchar( de)
         define( `denotefirstchar',
         `ifelse( substr( $1,0,1),a,the first letter is a,
                  substr( $1,0,1),b,the first letter is b)');,
 ;                 substr( $1,0,1),c,the first letter is c,
  ;                the first letter is not in ``a..c'')')
          denotefirstchar( above)
          denotefirstchar( cow)
          denotefirstchar( donut)