program ejemploapuntadores;
uses crt,utileria,apuntadores;
{cuerpo del programa}
Var
TIApuntadorRegistro:ApuntadorRegistro;
Inicio,Final:ApuntadorRegistro;
Archivo:TipoArchivo;
Registro:TipoRegistro;
tecla:char;
Tamanio,contador:longint;
Opcion:Integer;
ArregloSeleccion:arregloVertical;
Ventana1:Save_screen;
Begin
textattr:=15+1*16;
clrscr;
ArregloSeleccion[1]:='Mant. a Reg.';
ArregloSeleccion[2]:=' Listado ';
ArregloSeleccion[3]:='Acerda de ..';
ArregloSeleccion[4]:=' Salir ';
cuadro3d(1,1,80,3,2,1);
Textattr:=0+2*16;
gotoxy(2,2);write(' Ejemplos del uso de Apuntadores y Registros en Pascal 11/10/2009');
cuadro3d(2,23,79,25,2,1);
Textattr:=0+2*16;
gotoxy(45,24);write('epayan76@hotmail.com');
InicializaLista(Inicio,Final);
AperturaDeArchivo(Archivo);
CargaArchivoAMemoria(Archivo,Registro,Inicio,Final,TIApuntadorRegistro);
Close(archivo);
Repeat
cursoroff;
Opcion := MenuVertical(ArregloSeleccion,4,1,5,0,7,15,1);
case Opcion of
1 : Begin
GetScreen(ventana1);
Alta(Registro,Inicio,Final,TIApuntadorRegistro);
PutScreen(Ventana1);
End;
2 : Begin
GetScreen(ventana1);
EfectoScroll(Inicio,Final,TIApuntadorRegistro);
PutScreen(Ventana1);
End;
3 : Begin
GetScreen(ventana1);
AcercaDe;
PutScreen(Ventana1);
End;
end;{case}
Until ( Opcion = 4) or ( Opcion = 27);
End.