Código Delphi [-] { 02 B1-FECHIN PIC 9(6). 02 B1-TITULO PIC X(58). 02 B1-AUTOR1 PIC X(25). 02 B1-AUTOR2 PIC X(25). 02 B1-AUTOR3 PIC X(25). 02 B1-EDITOR PIC X(18). 02 B1-EDICION. 03 B1-ANIO PIC 9(4). 03 B1-VEZ PIC 9(2). 02 B1-ASIGNATURA PIC X(15). 02 B1-TOPO. 03 B1-UB PIC X(3). 03 B1-EST PIC X(3). 02 B1-COLECCION PIC X(20). 02 B1-PROCEDENCIA PIC X. }
{ 02 B1-FECHIN PIC 9(6). 02 B1-TITULO PIC X(58). 02 B1-AUTOR1 PIC X(25). 02 B1-AUTOR2 PIC X(25). 02 B1-AUTOR3 PIC X(25). 02 B1-EDITOR PIC X(18). 02 B1-EDICION. 03 B1-ANIO PIC 9(4). 03 B1-VEZ PIC 9(2). 02 B1-ASIGNATURA PIC X(15). 02 B1-TOPO. 03 B1-UB PIC X(3). 03 B1-EST PIC X(3). 02 B1-COLECCION PIC X(20). 02 B1-PROCEDENCIA PIC X. }