#include <stdio.h>                                                              
                                                                                
main()                                                                          
{                                                                               
 /* DF *dfptr;                            */                                    
 /* dfptr = DFopen( "dd:input", 1,0 );    */                                    
 long  *xdim, *ydim;                                                            
 long  x, y;                                                                    
 int *ispalette;                                                                
 int palette;                                                                   
 int result;                                                                    
 int i, j;                                                                      
 char image??( 200000 ??);                                                      
 char *imageptr;                                                                
 char *last;                                                                    
 unsigned char pal??( 256 ??) ;                                                 
 unsigned char *palptr;                                                         
 result = DFR8restart();                                                        
 xdim = &x;                                                                     
 ydim = &y;                                                                     
 ispalette = &palette;                                                          
 printf( "return code from DFR8restart %i\n", result );                         
 result = DFR8getdims( "dd:input", xdim, ydim, ispalette );                     
 printf( "return code from DFR8getdims %i\n", result );                         
 printf( "xdim %i ydim %i \n", *xdim, *ydim );                                  
 printf( "ispalette %i \n", *ispalette );                                       
 imageptr = &image??( 0 ??);                                                    
 last = &image??( 200000 ??);                                                   
 palptr   = &pal??( 0 ??);                                                      
 printf( "imageptr is %x \n", imageptr );                                       
 printf( "end of image is %x \n",last );                                        
 result = DFR8getimage( "dd:input", imageptr, *xdim, *ydim, palptr );           
 printf( "return code from DFR8getimage %i\n", result );                        
    for( j=0; j< *ydim; j++ )                                                   
       {                                                                        
          for( i=0; i<*xdim; i++ )                                              
             {                                                                  
                if ( i == *xdim-1 )                                             
                   printf( "%c \n",*(imageptr+(j * *xdim) + i) );               
                else                                                            
                   printf( "%c", *(imageptr+(j * *xdim) + i) );                 
             }                                                                  
       }                                                                        
}