Pascal/Turbo Pascal - CARGAR PARTIDA

Program Damas;

Const

    Archivo = 'TABLERO.CFG';

Type

    { Tablero de 8x8. Los valores son: 0=Vacío, 1=Fecha blanca, 2=Ficha Negra}

    Tablero: Array[1..8, 1..8] of Byte;

....

...

....

Procedre GrabarTablero(Var T :Tablero);

    Var

        F :File;

    Begin

        Assign(F, Archivo);

Procedre CargarTablero(Var T :Tablero);

    Var

        F :File;

    Begin

        Assign(F, Archivo);

        Reset(F, 1);

        BlockRead(F, T, SizeOf(T));

        Close(F);

    End; {CargarTablero}

.....

.....

End.

Espero te sea de utilidad. Saludos ;-)

        ReWrite(F, 1);

        BlockWrite(F, T, SizeOf(T));

        Close(F);

    End; {GrabarTablero}