/*== Ex19 ファイルの読み書き(2) =====*/
#include "pseudo.h"
/*===================================*/
FUNCTION  Main()
VARIABLE
    CHAR      str[50];
    PtrFILE   fp;
    INT       n;
BEGIN
    WriteString("ファイル名？ ");
      ReadString(str);

    OpenBinaryFileWrite(str, fp);

    REPEAT
        WriteS("整数（0:停止）? ");
        ReadInt( n);
        FileWriteI(n, fp);
    UNTIL( n EQL 0)

    CloseFile( fp);

    OpenBinaryFileRead(str, fp);

    REPEAT
        FileReadI(n, fp);
        WriteInt( n);
    UNTIL( n EQL 0)

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