fid = fopen( 'matlab_demo_1.m', 'rt' );
tline = fgetl( fid );
while ( ischar( tline ) )
    fprintf( 1, '%s\n', tline );
    pause;
    if ( length( tline ) > 0 && ~ strcmp( tline( 1 ), '%' ) )
        eval( tline );
        pause;
    end
    tline = fgetl( fid );
end
