/*== Ex18 ファイルの読み書き(1) =====*/
#include "pseudo.h"
/*===================================*/
TYPE      VOID
FUNCTION  main( int argc, char *argv[])
VARIABLE
    CHAR        str[50];
    PtrCHAR   name;
    PtrFILE     fp;
    int            c;
BEGIN
    IF ( argc EQL 1)
        WriteString("ファイル名？ ");
          ReadString( str);
        name= str;
    ELSE
        name= argv[1];
    ENDIF
    OpenFileWrite( name, fp);

    fflush(stdin);
    WHILE ( (c= getchar()) NEQ EOF)
        c= toupper( c);
        putc( c, fp);
    ENDWHILE

    CloseFile( fp);
END
/*===================================*/