Fichas Bibliograficas Por Computadora

Transcript

FICHAS BIBLIOGRAFICAS POR COMPUTADORA Cárc&~o Nora Roma de Rocío H. Harbán OEA IC.:\ITI 1987 (segunda impresiÓn) CONTENIDC Página Introducción 1 Por qué y cómo se hacen las fichas 3 Descripción del sistema 5 Programa en BASIC 9 Listado de variables 15 Descripción de líneas de programa l8 Posibles errores y recuperación de errores 20 Ejemplos de fichas hechas con el sistema 22 Bibliografía Otras publicaciones del ICAITI de informaciÓn en el área 27 ICAITI INTRODUCCION Inicialmente en el ICAITI las fichas catalográficas se preparaban en forma totalmente manual, mecanografiándolas una por una, o bien -cuando ello era posible- adquiriendo fichas preimpresas. Posteriormente aparecieron en el mercado unos mimeógrafos especiales, que permiten mecanografiar solamente la llamada tarjeta principal, reproducir la cantidad necesaria de fichas con la información esencial y común y luego mecanografiar en éstas la información adicional y particular necesaria. Este tipo de mimeógrafo se usó durante muchos anos. Cuando la frecuencia de reparaciones y el desperdicio de tinta y tarjetas hicieron crisis, se decidiÓ que, en lugar de adquln.r un nuevo mime6grafo, se haría uso de los equipos disponibles de computacibn para desarrollar un sistema más rápido y eficiente de hacer las fichas catalográficas. Se escribieron los programas en lenguaje BASIC, basados en un sistema con impresora Epson MX-80. Despues de varias corridas de prueba, este sistema viene ya utilizándose en el ICAITI desde hace tres años. Es esencialmente un programa de impresión aunque se está trabajando adicionalmente en que la informaciÓn que se alimenta a la computadora con el fin de imprimir las fichas genere listas de adquisiciones y - más importante aún - un fichero general totalmente computarizado (fichero o catálogo electrónico) con todas las ventajas que representa esta modalidad. Se consluera que este sistema de impresión de fichas catalográficas puede ser Útil para otras bibliotecas y por ello se publica y da a conocer en esta oportunidad. El sistema se ha utilizado usando una microcomputadora Radio Shack TRS/80 Modelo I trabajando con sistema operativo NEWDOS/80 versión 2.0, y también con una microcomputadora Apple II+ (con CPM de Microsoft). El lenguaje BASIC utilizado es suficientemente portátil para que, si acaso con muy pequeñas modificaciones, los programas puedan ser ingresados y usados en otros equipos. - l - ICAITI Si la impresora empleada no es Epson MX-80 y tiene diferentes cÓdigos de control, será necesario hacer las modificaciones pertinentes en los sitios que se señalan en la documentaciÓn. Se han utilizado tarjetas de la casa Gaylord, de 7.5xl2.5 cm (3x5 pulgadas). Existen dos presentaciones de tarjetas corno formas continuas: con y sin corte entre las tarjetas. El programa está diseñado para trabajar indistintamente con los dos tipos de tarjeta. Es probable que las tarjetas con alimentación continua puedan ser fabricadas localmente cuando el volumen de uso lo justifique. Se determinÓ el tamaño del carácter de impresión, el espaciado y la longitud d~ los renglones, buscando la mayor capacidad de líneas impresas a la vez que una buena presentaciÓn y legibilidad. Se calculó que la tarjeta puede tener 19 renglones disponibles para imprimir, con 71 caracteres por lÍnea, bajo las especificaciones siguientes: cÓdigo de clasificación 13 caracteres máximo , . cÓdigo de autor 13 caracteres rnax~rno , . nombre de autor 5 renglones rnax~rno , . cita bibliográfica 5 renglones rnax~rno , . encabezamientos de materia 5 renglones rnax~rno con: máximo de 9 encabezamientos identificados por número arábigo máximo de 3 encabezamientos identificados por número romano - 2 - ICAITI POR QUE Y COMO SE HACEN LAS FIGK~S CATALOGRAFIGAS En las bibliotecas los libros se suelen clasificar en base a algÚn sistema con el fin de agruparlos por temas, áreas o disciplinas. Algunos sistemas de los más conocidos son: la ClasificaciÓn Decimal Dewey, la Clasificación Decimal Universal, la Clasificación de la Biblioieca del Congreso de los Estados Unidos. La clasificación es en esencia un arreglo ordenado en el que los libros que tratan de un mismo tema se agrupan bajo cierto código de clasificación y los libros de temas afines están a su vez agrupados en códigos cercanos. Este arreglo facilita la bÚsqueda. Al colocar los libros en estantes de acuerdo a su cÓdigo de clasificación, el lector puede ver en un mismo sitio la mayor parte de las obras disponibles relacionadas con el tema que le interesa. Usualmente, en adición al cÓdigo de clasificación, se le asigna a cada libro un código de autor. Esto permite diferenciar los libros unos de otros ya que se persigue que no se den dos libros diferentes con exactamente la misma clave de clasificación. La tarea de catalogación consiste en determinar para cada libro cúales son sus elementos componentes de identificacion y descripción. La llamada catalogación descriptiva incluye la indicaciÓn del nombre completo de autor, del titulo, de la fecha y lugar de publicación, de la casa editora, el tamaño del libro, la paginación, las particularidades tipográficas, las ilustraciones. Adicionalmente, se suele hacer una catalogación por materias en la cual se determinan v asignan encabezamientos de materia a cada libro; estos encabezamientos de materia permiten localizar el libro por su contenido. Existen muchas publicaciones especializadas sobre el tema de la clasificaciÓn y la catalogación, de las cuales unas pocas se reseñan en la bibliografía. Los bibliotecarios conocen a fondo estas técnicas y no es el propósito de esta publicación entrar en mucho detalle del tema. Veamos el caso de una biblioteca en la cual la información soore las existencias de libros se recoge en un fichero. Gu.ando se clasifí ca y cataloga un libro se generan varias fichas bibliográficas Cuando menos se tendrá una bajo el nombre del autor, una bajo e~ tÍtulo del libro, una o varias para los encabezamientos de materia. y todas estas fichas bibliográficas estarán a la disposición de los lectores en un catálogo o fichero. Posiblemente se tenga una ficha adicional para el llamado catálogo topográfico en el que las fichas se colocan en el mismo orden en que los libros se colocan en los estantes. - 3 - ICAITI Esto significa que se necesitarán dos ejemplares de la llamada ficha o tarjeta principal, uno que servirá para el catálogo topográfico y el otro como tarjeta de autor en el catálogo central. Luego se necesitarán las tarjetas de título y las de los diversos encabezamientos de materia. De ahora en adelante vamos a suponer que la persona que usa el sistema sabe asignar número de clasificación y número de autor y que también es capaz de determinar los encabezamientos de materia necesarios y los elementos que describen un libro en particular . 4 - ICAITI DESCRIPCION DEL SISTEVlli Secciones. Para facilitar el trabajo, en cinco secciones. la ficha bibliográfica se ha dividido Sección l. Aquí se indica si se trata de un libro de referencia y además ingresan el número de clasificación y el número de autor. El programa alfanuméricas. pide cada dato en forma individual, como se variables Las variables asignadas son: L$ - se puede dejar en blanco o teclear "Ref." C$ - el número de clasificaciÓn Dewey. con longitud máxima de 13 caracteres. Es el dato que mayor longitud puede tener y por ello determina el espacio de impresión de esta primera sección. N$ = número de autor Sección 2. Para el nombre del o de los autores. En esta sección y las siguientes, la información ingresa por variables bidimensionales del tipo A$(S.I) donde S es el número de sección (que puede ir de 2 a S); e I es el número de renglones de cada sección con un máximo de 5. La sección 2, de autores, corresponde a la variable A$(2,1). Sección 3. Para la cita bibliográfica, con variables de tipo A$(3,1). Sección 4. 1 Para los encabezamientos de materia identificados con número arabigo. Las variables son A$(4.1). - 5 - ICAITI Secci6n 5. Para encabezamientos identificados con números romanos; se trata de fichas auxiliares que se desea incluir pero que no responden a los esquemas de encabezamientos de materia establecidos (por ejemplo: el título o nombres de organizaciones secundarias). El programa admite un máximo de 3 encabezamientos de este tipo con las variables A$(5,1). Las Últimas dos secciones son las más compleja's ya que luego de tener los datos en renglones es necesario individualizar cada encabezamiento de materia para fines de impresión de las tarjetas auxiliares y - en los casos en que los encabezamientos sean muy largos - se debe además fraccionarlos para ajustarlos al ancho de impresión lo cual se lleva a cabo con una rutina diferente dentro del programa. Programa. El nombre escogido para el programa fue "FICHAS". Se diseño de forma que sea el operador quien determine la cantidad de tarjetas principales requeridas. En efecto, para fines de intercambio con otras bibliotecas a veces se requerían más de dos ejemplares de tarjeta principal. Adicionalmente se obtiene una tarjeta impresa bajo cada encabezamiento auxiliar. En la primera versión se incluyeron: l. las indicaciones dirigidas a la persona que trabaje cor: programa, referentes a la manera de ingresar cada tipo de datos, el 2. una rutina general que permite el ingreso de los datos de cada sección (líneas 5000-5050). 3. una rutina para reconbcer cada encabezamiento de materia por separado dado que se necesitan individualizados para imprimirlos en Las tarjetas auxiliares (lÍneas 2700-2830 para encabezamientos de número arábigo, 2900-3025 para encabezamientos de ~Úmero romano). 4. una rutina 2000-2055), de impresión de tarjetas principales ~lineas 5. una rutina de impresión de tarjetas auxiliares, 'la cual difiere de la anterior unicamente en que lleva un encabezamiento en lÍneas superiores de la tarjeta (líneas 420-560) - 6 - ICAITI Los diferentes aspectos de las fichas fueron discutidos con personal de la Biblioteca y este mismo personal corrió las pruebas para evaluar el programa en acción. Las pruebas sugirieron las primeras modificaciones que se hacer al programa. debÍan Como primer paso pareciÓ mas conveniente separar en diferente • f SeCClOn los dos tipos de encabezamientos de materia (identificación arábiga o romana). Recordamos que identificamos con números arábigos los verdaqeros encabezamientos de materia que incluso se toman de recopllaciones aceptadas (Subject Headings of the Library of Congress). Por otra parte, las tarjetas auxiliares adicionales tales como las que se hacen bajo tÍtulo, autores secundarios, etc. se identifican con números romanos. El número en sí varía mucho en cuanto al espacio que ocupa: -un espacio para el I, dos para el II, tres para el III, dos para el IV y uno para el V, y la tarea de reconocer la identificación de las tarjetas aQxilíares se volvía muy compleja. Se modificó el programa dividiendo la rutina para reconocer separadamente los dos tipos de encabezamiento; estas rutinas li"evan a cabo la misma actividad pero con diferentes condicionales. Se añadieron lÍneas de una subrutina de error de ingreso de los encabezamientos. Con ello se le indica al operador los posibles errores cometidos dando la oportunidad de volver a ingresar datos. Posteriormente se detectó que las subrutinas de identificación de encabezamientos no admitían títulos largos por lo que se escribieron de nuevo Al correr, el programa indicaba error cuando un encabezamiento quedaba incompleto al finalizar un renglÓn y en el siguiente renglón no hubiera encabezamiento nuevo sino la continuación del anterior; tambien se tenía mensaje de error si el encabezamiento era lo suficientemente largo para ocupar dos renglones o más. La lÓgica de esta subrutina consiste en buscar repetidamente la posición de puntos contenidos en un renglón, por lo que se tuvo que agregar la condición de comparación para determinar si se trata del Último renglÓn de la sección. Sí la respuesta es negativa, el hecho de no encontrar otro punto no se considera error. Sí es afirmativa. el programa busca el signo "#" indicador de final de sección y guarda la posiciÓn en que lo encuentra. Sí no encuentra ni punto ni el signe "#", sí se justifica el mensaje de error y por lo tanto el nuevo ingreso de datos. lCAlil Puesto que dentro de las características de la impresora Epson está el poder ajustar la alimentación de acuerdo a las medidas del material en que se está imprimiendo, se incorporó una instrucción de alimentación automática. Como consecuencia de que algunos encabezamientos son demasiado largos y el espacio para impresión es limitado, surgió la necesidad de crear una subrutina que forme fracciones de longitud igual o menor al espacio de impresión. Se le denominÓ FEM (Fraccionamiento de Encabezamientos de Materia). Consiste en un proceso iterativo que busca los espacios entre palabra y palabra, acumulando el número de caracteres entre éstos. Luego compara el resultado de la s~~a de caracteres con el máximo permitido para ese renglón de impresion. Si la suma es aún menor, procede a buscar el siguiente espacio y repite la comparacion. Si al acumular los caracteres de la palabra en curso, se iguala el número permitido, el programa convierte en variable alfanumérica-el conjunto de palabras ya leÍdas para imprimirlas posteriormente en la posición sugerida por el programa. En caso se sobrepase el lÍmite, el programa convierte en variable el conjunto de palabras formado hasta la palabra anterior a la que provocó el exceso de caracteres. Entre dos corridas diferentes del programa, se limpian las fracciones de los encabezamientos de materia cuando han usado más de una lÍnea; esto con el objeto de que no se guarde y pase informacion que no corresponde al siguiente libro para el cual se van a preparar tarjetas. Cuando la suma de caracteres es igual o inferior a la longitud fijada para cada renglon, se establece directamente esta porcion como una nueva variable para su posterior impresión en una ficha secundaria. Se probó independientemente esta rutina, efectuó un "merge" con el resto del programa. se grabó en ASCII y se Cuando se intentó correr por primera vez, la máquina diÓ un mende saturaciÓn de memoria (se estaba trabajando con solamente 48K). Para solucionar el problema se procediÓ a buscar todos los posibles ahorros. Así, se dimensionaron las variables que lo necesi~aban a lo estrictamente requerido sin dejar holgura, se unieron lineas del programa cuando ello no alteraba la lÓgica y se eliminaron casi todas las lineas de información o "REM". En esta forma el programa puede ser utilizado en equipos de baja capacidad. saje Para mayor claridad, sin embargo, se han agregado lÍneas información en el programa listado a partir de la página 9. de Debido a la importancia que puede tener el orden de encendido y apagado del equipo, es aconsejable proporcionar a los usuarios del programa una hoja de instrucciones acorde a las características del equipo en uso. - 6 PROGRAMA ·PAGINA 1 3 REM EL USUARIO PUEDE SELECCIONAR EL NUMERO DE LINEAS POR TARJETA, EN BASE AL M ATERIAL CON QUE ESTE TRABAJANDO 5 HOME:PRINT"ESTE PROGRAMA PUEDE TRABAJAR CON FORMAS CONTINUAS DE GAYLORD, CON C ORTE O SIN CORTE INTERMEDIO ENTRE TARJETAS":PRINT 7 PRINT"INGRESE EL NUMERO QUE CORRESPONDA AL TIPO DE MATERIAL CON EL CUAL VA A T RABAJAR" 2-SIN CORTE INTERMEDIO ":INPUT"TIPO",A:IF A= '9 PRINT"i-CON CORTE INTERMEDIO 1 THEN 20 ELSE 22 11 REM INSTRUCCIONES PARA FIJAR EL TAMANO Y ESPACIADO DE CARACTERES 20 LPRINT CHR$ ( 151: LPR!NT CHR$ <271 "0"·: LPRINT CHR$ <271 "C"CHR$ COl CHR$ (31;: A=O: GOTO 25 t- 22 LPRINT CHR$(151:LPRINT CHR$(27~"0":LPRINT CHR$(27l"C"CHR$(28>;:A=O 25 DIM A$C5,51,M$C91,MC5,121,MR$C41,E<75),V(6),G$(9,51,H$(4,51,PC5,9l 35 HOME:PRINT"Se ha dividido la ficha de catalogo en 5 secciones'':GOSUB 3500:GOS UB 1500:HOME:PRINT"El ingreso de datos sera por reng lones cuya longitud esta":PRINT"marcada por el signo '<'" 85 PRINT"Asegurese de no escribir sobre el signo '<', ni despues de este":PRINT'' Para finalizar cada renglon, oprima 'RETURN'":PRINT" Para indicar que ha COMPLETADO una seccion, teclee '#'(oprimiendo simultaneamente 'SHIFT-3'1" 100 I=O:V=O:S=O:GOSUB 1500:HOME:S=S+1:PRINT"Si es tarjeta de Referencia oprima • 1", si no lo es '2'":INPUT T:IF T=l THEN L$="Ref." E LSE L$="" 120 LINE INPUT"Clasificacion Dewey ";C$:INPUT"Numero de Autor ";N$:GOSUB 1500:HO ME:PRINT"Autor/es":S=S+l:GOSUB 50SO:U=I:I=O:V=O:GOSU B 1500 140 HOME:PRINT"Cita Bibliografica":PRINT"En las posiciones en donde se requieran indentaciones,teclee la barra espacia- dora tantas veces, como espacios desee al principio del renglon" 160 S=S+l:GOSUB 1500:HOME:PRINT''Cita Bibliografica":GOSUB 5050:W=I:GOSUB 1500:HO ME:PRINT"Encabezamientos de Materia":S=S+1 165 GOSUB 6000:PRINT"Encabezamientos de Materia con Numero Ordinal":GOSUB 5050:Q =I:PRINT:T$=".":0$="#":GOSUB 2900 180 VTAB 20:INPUT"SI necesita escribir Encabezamientos de materia de numeros Ro manos teclee 'S' en caso·c-ón-frar.io teclee 'N' ",B$: IF B$="S" OR B$="s" THEN 210 185 T=O:GOTO 220 210 I=O: S=5: VTAB (V+1): PRINT"Encabezamientos de Materia de Numero Romano": \/=V+1: GOSUB 5050:T=I:PRINT:GOSUB 2700 215 REM DISPLAY DEL CUERPO DE LA TARJETA 218 HOME 220 VTAB 14:INPUT"Numero de tarjetas PRINCIPALES que desea imprimir'';P:VTAB 16:1 NPUT"Indique el TOTAL de encabezamientos de numero O RDINAL que escribio '';O:VTAB 18:INPUT"Indique el TOTAL de encabezamientos de num eros ROMANOS que escribio";R:IF R>3 THEN 3200 250 HOME:PRINT L$:PRINT CS:PRINT N$:FOR J=1 TO U:IF J=U THEN PRINT LEFTSCA$(2,J! ,LEN(A$C2,J>>-ll ELSE PRINT A$!2,Jl 251 NEXT J 260 FOR J=l TO W:IF J=W THEN PRINT LEFTSCA$C3,Jl,LEN ELSE PRINT A$13 'J) 261 NEXT J 270 FOR J=l TO Q:IF J=Q THEN PRINT LEFT$!A$C4,Jl,LENCA$C4,J>)-1) ELSE PRINT A$(4 'J) 271 NEXT J 274 IF T=O THEN 280 - 9 - PROGRAMA PAGINA 2 275 FOR J=l TO T: IF J=T THEN PR!NT LEFTSCA$C5,Jl,LENCA$C5,J))-1) ELSE PRINT A$( 5,J) 276 NEXT J 278 REM OPORTUNIDAD DE EFECTUAR ALGUNA CORRECCION 280 VTAB 18: PRINT"Veri fique cLd dadosamente si 1 os datos estan correctos antes de continuar- el pro- grama": \)TAB 20: PRINT"Si desea efe ctuar alguna correccion teclee 'S', en caso contrario teciee "N''':INPUT BS:IF B$ ="S" THEN GOSUB 4020 281 'MUESTRA ENCABEZAMIENTOS DE MATERIA EN FORMA INDIVIDUAL 282 HOME: PRJNT"Encabez ami en tos de materia de nLtmero ordinal: ": FOR F=l TO O: PRIN T MSCFl:NEX~ F:GOSUB 1500:HOME 283 IF R=O THEN 285 284 PRINT"Encabezamientos de Numero Romano:'':FOR F=l TO R:PRINT MRSIFl:NEXT F:GO SUB 1500 285 HOME:B=O:PRINT''Indique cual de las actividades de las que se le presentan a continuacion desea realizar, ingresando el nu mero correspondiente" 286 PRINT''l- GRABAR los datos referentes a la presente clasificacion para obtene r el listado de adquisiciones, posteriorm ente" 288 PRINT"2- Proceder a IMPRIMIR el juego de tarjetas referentes a 1 a pt-esente clasificacion":PRINT"3- CORREGIR datos" :INF'UT"Numero de la actividad elegida";B:ON B GOTO 294, 311, 4020 294 F'RINT"Actividad pendiente de organizar'':FOR X=1 TO lOOO:NEXT X:GOTO 285 311 ·GOSUB 6200: GOSUB 6400: VTAB 20: PRINT"F:evi se si esta bien col oca do E~l p2pel en la impresora" 340 VTAB 21:PRINT"para dar inicio a la impresion oprima 'RETUF:N' ":ZS=INVEY$: IF L EN=O THEN 340 418 'IMPRESION DE PRIMERA SECCION Y CENtRADOS SUPERIORES 420 FOR Y=l TO 2:PRINT:NEXT Y:FOR Z=l TO P:LPRINT TABClOlLS~GOSUB 200U:LPRINT CH RSC140l;:NEXT Z 470 F=O:FOR F=F+l TO O:LPRINT TABC42-CLENCGSCF,1l)/2llGSIF,1l:LPR1NT TABCiO)LS;; LPRINT TABC42-<>O THEN LPRINT TABC42-!LENCGS!F,5ll/2l)GSCF,5l 510 GOSUB 800:NEXT F:FOR F=l TO O:FOR B=l TO 5:GSCF,Bl="'':NEXT B:NEXT F 515 F=O:FOR F=F+l TO R:LPRINT TABC42-CLENCH$1F,1ll/2))H$CF,1l:LPRINT TA8(10lLS; 526 LPRINT TABC42-CLEN!HSCF,2ll/2)lHSCF,2J:LPRINT TABCiOlCS;:LPRINT TABC42-CLEN! HS:IF LENCH$CF,5ll<>O THEN LPRINT TAB!42-!LENCHSCF,5ll '21 1 HSCF,5l 560 GOSUB 800:NEXT F:FOR F=l TO R:FOR 8=1 TO 5:HS(F,B)="":NEXT B:NEXT F 565 INPUT"Si desea ingresar datos de otra clasificacion, teclee 'C', si desea fi nalizar teclee 'F'";DS:IF DS="C" OF; D$="c" THEN GO TO 35 ELSE END 750 'IMPRESION DE SEGUNDA SECCIONEN ADELANTE 800 GOSUB 2020:LPRINT CHR$C140l;:RETURN 1500 VTAB 22:PRINT"para continuar oprima ":ZS=INKEYS:IF LENCZSJ==O THEN 500 ELSE RETURN . 1800 'LAS LINEAS 2000 A 2055 IMPRIMEN LA TARJETA PRINCIPAL 2000 LPRINT TABClOlCS:LPRINT TABC10lNS 2020 FOR X=1 TO U:IF X=U THEN LPRINT TABC20lLEFT$!A$!2,Xl,LENCAS!2,Xl 1-1) ELSE L PRINT TABC20lA$C2,X>:NEXT X 2030 FOR X=l TO W:IF X=W THEN LPRINT TAB<20lLEFT$lASC3,X>,LENCASC3,XJl-1l ELSE L PRINT JAB!20)A$(3,Xl - 10 - PROGRAMA PAGINA 3 2035 NEXT X:LPRINT 2040 FOR X=l TOO: IF X=Q THEN LPRINT TABC201LEFTSCA$C4,Xl,LENCAS<4,Xlt-1l ELSE LPRINT TABC201ASC4,Xl:NEXT X 2049 IF T=O THEN RETURN 2050 FOR X=l TO T: IF X=T THEN LPRINT TABC20lLEFTSCA$(5,Xl~LEN1 THEN IF MCH,F><>O THEN 2730 ELSE 2775 ELSE 2735 2730 IF MCH,FI <>E THEN 2800 2735 MCH,F+11=INSTRCMCH,Fl+l,ASC5,Hl,TSI:IF MCH,F+li<>O THEN 2805 2740 IF H<>T THEN 2745 ELSE 2785 2745 MRS(Fl=MIDSCASC5,Hl,MCH,Fl+2,LENCA$C5,Hll-MCH,FI-11 2750 MCH+1,F+1l=INSTRC1,ASC5,H+ll,TSl:IF F+1=2 THEN E=3 ELSE E~4 2755 IF MCH+1,F+1><>0 THEN 2760 ELSE 2765 2760 F=F+l:NEXT H 2765 IF H+l<>T THEN 2766 ELSE 2767 2766 MRSCFl=MRSCFI+ASC5,H+ll:H=H+1:GOTO 2750 2767 PCH+l,Fl=INSTRC1,A$C5,H+1l,OSI:IF PCH+l,Fl=O THEN 3100 2770 MRSCFI=MRSCFI+LEFTSCASC5,H+1l,PCH+l,Fl-1l:RETURN 2775 IF H=T THEN 2785 2780 MRSCF-11=MRSCF-11+ASC5,Hl:NEXT H 2785 PCH,Fl=INSTRC1,ASC5,Hl,DSI:IF PCH,Fl<>O THEN 2815 ELSE 3100 2790 MRSCF-li=MIDSCAS(5,H-ll,MCH-1,F-11+2;LENCASC5,H-1l)-M(H-1,F-11-2l:GOTG 2735 2795 RETURN 2800 MRSCF-1l=MRSCF-1l+LEFTSCASC5,Hl,MCH,Fl-El:GOTO 2735 2805 IF F<=2 Tf-lEN C=5 ELSE IF F=3 THEN C=6 2810 MRSCFI=MID$CASC5,Hl,Ml THEN IF M<>O THEN 2930 ELSE 2975 ELSE 2935 2930 IF MCH,FI<>E THEN 3000 2935 MO THEN 2945 ELSE 2985 2945 MSCFI=MIDSCA$C4,Hl,MCH,Fl+2,LENCASC4,Hll-MCH,Fl-1l 2950 MCH+1,F+1l=INSTRC1,AS<4,H+1l,TSl:IF F+1>9 THEN E=3 ELSE E=2 2955 IF MO THEN 2960 ELSE 2965 2960 F=F+l:NEXT H 2965 IF H+l()Q THEN 2966 ELSE 2967 2966 M$C~I=MSCFI+AS<4,H+1l:H=H+1:GOTO 2950 2967 PCH+1,Fl=INSTR<1,ASC4,H+1l,OSI:IF PCH+l,FI=O THEN 3100 2970 MSCFl=MSCFl+LEFTSCASC4,H+li,PCH+1,FI-1l:RETURN 2975 IF H=Q THEN 2985 2980 MSCF-1l=MSCF-1l+ASC4,Hl:NEXT H 2985 PCH,Fl=INSTRC1,ASC4,HI,O$l:IF PCH,F><>O.THEN 3010 ELSE 3100 2990 MSCF-li=MIDSCASC4,H-11,MIH-1,F-11+2,LENCASC4¿H-111-MCH-1,F-1>-2l:GOTO 2935 2995 RETURN 3000 MSCF-1l=MSCF-1)+LEFTStASf4,HI,MCH,FI-EJ:GOTO 2935 3005 MSCFI=MIDSCASC4,Hl,MCH,Fl+2,MIH,F+1)-MCH,Fl-4l:GOTO 3015 3010 MSCFJ=MIDSIA$14,HJ,MCH,Fl+2,PCH,Fl-MIH,FJ-2):RETURN - 11 - PROGRAMA PAGINA 4 3015 F=F+l:GOTO 2935 3020 IF F>9 THEN E=3 ELSE E=2 3025 RETURN 3100 HOME:VTAB 3:PRINT"El ingreso de los encabezamientos de materia es incorrect o.":PRINT"Probablemente olvido escribir punto despue s del numero correspondiente a'':PRINT"cada encabezamiento o bien~ no tecleo '#' para marcar el final" 3130 PRINT"de la seccion.":PRINT''Para continuar con el programa es necesario que escriba de nuevo":PRINT"la seccion completa, observ ando todas las recomendaciones dadas para su":PRINT"ingre'so" 3140 GOSUB }500:HOME:INPUT"Teclee '1' si desea corregir Encabezamientos de Mater ia de N~meró Ordinal; '2" si es de Numero Reman o";B:ON B GOTO 165, 210 3200 VTAB 19:PRINT''Este programa permite clasificar tarjetas que tengan hasta un total de":PRINT"3 encabezamientos de materia con NU MEROS ROMANOS." 3210 PRINT''Usted debe decidir si hace a maquina las fichas con el total de encab ezamientos de materia o los reduce al limi te del programa." 3220 INPUT"Teclee 'S' si desea corregir esta seccion, •e• si quiere ingresarLtna nueva clasificacion ";D$:IF D$="S" OR D$="s " THEN 210 3230 IF D$="C" OR D$="c" THEN RUN ELSE 3220 3500 VTAB 2:PRINT"Primera seccion:":PRINT''l- Especifique si el tipo de tarjeta e s o no de Referencia":PRINT"2- Clasificacion Dewey": PRINT"3- Numero de Autor":PRINT:PRINT"Segunda seccion:":PRINT"4- Autor/es":PRINT :PRINT"Tercera seccion" 3530 PRINT"5- Cita bibliografica":PRINT:PRINT"Cuarta seccion:":PRINT"6- Encabeza mientes de Materia de Numero Ordinal":PRINT:PRINT" Q UINTA SECCION:":PRINT"7- Encabezamientos de Materia de Numero Romano":RETURN 4020 S=O:E=O!HOME:GOSUB 3500:VTAB 19:PRINT"8- No desea hacer cambios":VTAB 20:IN PUT"Solamente ingrese el numero que corresponde al p arametro ~ue desea corregir'';E:ON E GOTO 4040,4050,4060,4070,4080,4090,4100,4500 4030 'LINEAS 4040 A 4500 INGRESO DE CORRECCION DE DATOS 4040 !NPUT"Teclee '1' si la tarjeta es de referencia, '2" no es tarjeta de refer encia";T:IF T=l THEN L$="Ref." ELSE L$="" 4045 GDTD 4500 4050 INPUT"La clasificacion De~oJey correcta es: ";C$:GOTO 4500 4060 INPUT"El numero de aLttor correcto es: ";N$:GOTC 4500 4070 V=O:I=O:S=2:HOME:PRINT"Autor/es":GOSUB 5050:U=I:GOTO 4500 4080 V=O: 1=0: 8=3: HOME: PRINT"Ci ta Bi bl i ografi ca": GOSUB 5050: vl=I: GOTO 4500 4090 V=O:I=O:S=4:HOME:PRINT"Encabezamientos de Materia de Numero Ordinal":GOSUB 5050:Q=I:GOSUB 2900:GOTO 4500 4100 V=O:I=O:S=5~HOME:PRINT"Encabezamientos de Materia de Numero Romano'':GOSUB 5 050:T=I!GOSUB 2700:GOTO 4500 4500 PRINT"Teclee •s• si desea hacer otro cambio, 'N' si ya termino de correg1r'' : INPUT BS:HOME:IF 8$="9" OR BS="s" THtN 4020 ELSE 2 20 5000 'FORMATO DE PANTALLA 5050 I=I+l:V=V+2:VTAB (Vl:HTAB Cll:PRINT SPC<61l:PRINT"<'':VTAB :IF RIGHTS(A$CS,Il,1)="#" THEN RETURN ELSE 5050 6000 PRINT"En caso de que exista una tarjeta auxiliar por TITULO, ingreselo nuev amente" 6010 I=O:V=O:VTAB 10:PRINT"En estas secciones guarde sumo cuidado de lo s1guient e:":PRINT"-NO ESCRIBIR EN FORMA FRACCIONADA la palab ra que antecede al signo '<"" - 12 - PROGRAMA .PAGINA 5 6020 PRINT" dejando POR LO MENOS UN ESPACIO ENTRE LA ULTIMA LETRA de la misma y el final del renglon": PRINT"-Escri bir PUNTO Y UN ESPACIO DESPUES DEL NUMERO DEL ENCABEZAMIENTO DE MATERIA tanto de Numero Ordi nal como Romano" 6030 PRINT"-No olvidar TECLEAR <#> SEGUIDAMENTE de la palabra que FINALIZA cad a seccion, aun cuando este signo quede sobre la ma rca del final de renglon":GOSUB 1500:HOME:RETURN 6100 "LINEAS 6200 A 6345 FRACCIONAN ENCABEZAMIENTOS DE MATERIA DE NUMERO ORDINAL EN TROZOS MAS PEQUENOS 6200 FOR F=1 TO O:GOSUB 6210:NEXT F 6210 IF LENCMSCF.ll>54 THEN 6217 6215 GSCF,lf=MS3 THEN RR=54 ELSE RR=50 6220 E<>O THEN 6225 6240 GS: RETURN 6266 IF LEN O THEN 6300 6290 GS CF, Bl =RIGHT$ (M$ O THEN 6300 6315 IF LENCRIGHT$CMSCFl,LENCM$CF>>-V+1,E(N-1)-V(X)) AND G$J>=RR THEN 6340 6330 X=X+l:V=MID$(M$CFl,V(X-1>+1,VIXl-VCX-1>> 6335 B=B+l:GOTO 6300 , 6340 X=X+1:V=ECNl:GSCF,B>=MID$CM$CFJ,V(X-ll+1,V(Xl-V(X-1)) 6345 GOTO 6280 6350 'LINEAS 6400 A 6545 FRACCIONAMIENTO EN TROZOS MAS PEQUENOS DE LOS ENCABEZAM IENTOS DE MATERIA DE NUMERO ROMANO 6400 F=O:FOR F=l TO R:GOSUB 6410:NEXT F 6410 IF LENCMR$(FlJ>54 THEN 6417 6415 H$CF,1l=MR$CFl:RETURN 6417 P$=CHR$C32l:N=O:N=1:B=O:B=1:IF B<>3 THEN RR=54 ELSE RR=50 6420 ECNJ=INSTRC1,MRSsP$l 6425 IF LEN,E(Nl>><>O THEN 6425 6440 HS,LENCMRSCFll-E=ECN-1l:Hlll=LEFT$CMR$(Fl,V> 6465 B=B+1:GOTO 6500 . 6470 VCXl=E,VCXJ) 6480 B=B+l:N=N+l 6485 ECN>=INSTRCVIXl+l,MR$CFl,P$J:IF ECNl<>O THEN 6500 6490 HS,LENCMR$CF)l-V>:RETLJRN - 13 - PROGRAMA PAGINA6 6500 IF LEN(M.IDSCMRSO THEN 6500 6515 IF LENCRIGHTSCMRSCF>,LEN(MRSCF»-VCXJ))<=RR THEN 6490 6520 HSCF,Bl=MIDS~MRSCFl,VCXl+l,E(N-ll-VCXll AND HS=ECN-ll:HS~V "dia as a case study ·U. Redáy 1 lQ -AGlya Kuma:r' N. ~e , \"--./, i l() ' 'o Bioaass energy ~ ¡ f 1 • () 1 ~ 1 ~ ! ºo 1 ~ ",...., l(? ~ .1 333.79 K91 Krause, Flarentin, et al Energy for sustainable end-use methorlolcgy far ctevelop1en~. Part three: An . develop~ent-anented energy planmng in developing countr1es1 with India as a case study. Kenya, Environserrt Liaison Centre, 1985._ 32 p., 3 voL 1. Power resources 2. Biaaass enerqy 3. ~aste products as fuel 4. Natural resources S. Und~rdeveloped areas - Power r~scurces I. Energy _for sustainatle developaerrt -Part three- An_end~ use ~et~ndalogy f9r develo~~e~t-oriented enerqy planrt1nq 1n develop1nq countrtes w1t~ ~d1a as a case study I!. Reddy, Awl ya !Cu.ar M. . <¡,. . - 22 - liaste products as fue! 333.7'1 k91 . "f Krause 1 Flerentin, et al Ener~y for sustainable develcpment. ?art tbr~ An end-use ~ethodclogy for developaent-oriented enerqy ,lanning in develaping cauntriest w1tn India as a case Enviren~ent Liaison Centre, 1985. 32 p., 3 vol. ¡ ' ' . 'i .. ~1./ ~~· ., *enra, st~~. o ·.; ·.f 1. Po~~er r.esources 2. Biauss energy 3. Waste pra-ts as . fue! 4. Natural resources S. Underileveloped areas - PJJwer · resourc!S I. Energy for sustainable devel~~tent -Part three- Bn enduse tet~o®logy f9r de~~lopte~t-crient~ en!!rgy p!uliinq in develcptng countr1es ~1th Indta as a case study !!. Recrdy, ; AlU! ya Kumar N. ----. u o -~ ' '' ¡- . o . 1 .·.:: laturil resources m.n-- K91 . ., -_.~;;. Krause, f'iorentin, et al ' .. Energy for sustainable develop~e11t. Part t~: An · end-use mhcdology for deveiopment-or~nted enerqr. phnning · in ~eveloping. ccuntriesi with India as 1l case stu¡ty. Kenyat Env1rcnaent Llalson Centre, 1985. . 3Z p. s 3 vol. ,· ; -· 1. Power resources 1. Bioaass energy 3. Waste pr~s as fuel 4.Jiatural resoorces S. Underdevelaped areas- Pawer resources I. Enerqy far ~ustainable develop~~nt -Part three:- én. erut use -aet!lO~laqy f~r de:telD¡>~t-onented ener~y 9li!!lllng lfi develo¡nng. cou..11tnes tntb ·Inda as a case stuay !!., Red!ty, Aaul ya Kuar Jt. · o C) ·_;_ e • ..............._111111_================--------_,;..... ;,. • .1 1 ~ j j K91 ~~ ~ • o Energy f'Jr sustainabl e deve 1oprumt -Part three- An end-use methcrlology for developgent-oriented enerqy planning in rleveloping ·countries with India ~s a case studr Krause, Florentin, et a . Energr for sustainable develop~nt. Part tbree: An end-use ~e.hodologf for development-oriented energy planning in éevelo?ing coun ríes, ~ith India as a case study. Kenya, Envircn:ent Liaison Centre, 1985. 32 p., 3 vol. ~ º AJul ya Ku.ear N. .·J . ~ ~ r *' ~ • Q i ..f / "'i ',__.....,/ @> 1 Q t. Power resources 2. Biotass energy 3. ~aste products as .fuel 4. Natural resources 5. Ur.derdevelcped areas- Power rescun:es f. Energy fcr sustainahle developaent -Part t!!ree- An enduse eethodology for develo~ment-oriented enerqy plannincr in developing countries 11itlundía as a case stuay IL Reddy, • t 1 f. o ,t• .i< ~ =o ' Krause, f!orentin, et al Ensr~ for sustainaoie develapsent. ?~rt three: An end-use ~ethoéology for deveiooment-orienteé enerqy planning in develcpin9 COlliltries, with India as a case study. Kenya, Environaent Liaison Centre, 1985. • ~ 32 p., 3 vol. 1. Pol'ier·r~sourc:es 2. Eicm:ass ener':ly 3. Waste pro:lu:ts as fuel 4. ~atural resour:es 5. Underaeveloped areas - Pawer t~ rescun:es I. Energy .far su~tainable develapaent -Part three: An.end~ use metr:ct!ology tor de;ebp=e~t-arrented enr=rgy p¡anmng 111 develop1ng coontnes wlth India as a case stüüy IL Reody 5 Aeul ya Kusrar N. ' !• 1' • • '. o - 24 - i 9 Reddy, Amuiya Kuaa Ji ~· f 1 l· ~ ~ ~ º l r 1 ! ! ~ Q·· . 1>; i ~- ..r-j ICAITI BIBLIOGRAFIA Akers, Susan Grey Catalogación sencilla para bibliotecas 2a. edición en español México, Editorial Pax-México, 1963 Consejo Nacional de Ciencia y Tecnología Reglas de catalogación angloamericanas México, autor, 1981 Escamilla, Gloria Manual de catalogación descriptiva México, Consejo Nacional de Ciencia y Tecnología, 1981 Litton, Gaston Clasificación y catálogos Buenos Aires, Bowker, 1971 ***** Instituto Nacional de Racionalización y Normalización ClasificaciÓn Decimal Universal Tercera edición abreviada española Madrid, IRANOR, 1975 British Standards Institution Universal Decimal Classification Part I. Systematic tables London, Butler & Tanner Ltd. , 1985 Custer, Benjamín A. ed. Dewey Decimal Classification and relative index Edition 19 Albany, N. Y., Forest Press, 1979 (3 vols) Comaroni, John P. ed. Manual on the use of the Dewey Decimal Classification Edition 19 Albany, N.Y. Forest Press, 1982 - 25 - ICAITI Cut~er, Richard A. Cutter-Sanborn Three-Figure Author Table Chicopee, Mass., H.R. Huntting Co. Inc., 1969 Library of Congress Subject Cata1oging Division Library of Congress Subject Headings Tenth edition Washington D.G., LC, 1986 (2 vols) Unión Panamericana Lista de encabezamientos de materia para bibliotecas Compilada por Carmen Rovira y Jorge Aguayo (Manuales del Bibliotecario n°. 6) Washington D.G., Unión Panamericana, 1967 (2 vols) - 26 - ICAITI OTRAS PUBLICACIONES DEL ICAITI EN EL AREA DE INFORMACION - Tesauro de información industrial - Centroamérica y RepÚblica Dominicana 301p.' 1979 - Estudio de usuarios de informaciÓn industrial iii, 29lp.' 1983 Resumen: Estudio de usuarios de información industrial ii, 18p.' 1984 - Lineamientos para el mercadeo de servicios de información industrial 12p.' 1984 - Operadores Booleanos en el almacenamiento y la recuperación de información Serie: Aprendizaje por computadora Disponible en versiones para Appleii+ y Radio Shack TRS80ji Dos diskettes, 1984 - Bases de datos por teleproceso Serie: Aprendizaje por'video Disponible en versiones Umatic, Beta y VHS (una hora de duraciÓn), 1984 - Organization and Operation of Technical Information Centres and Services ii, 269p.' 1985 - ibid (as Organization and Operation of Technical Information Units) second printing, 158p., 1986 - Uso de microcomputadoras en servicios de información Serie: Aprendizaje por video Disponible en versiones Umatic, Beta y VHS (una hora de duraciÓn), 1985 OrganizaciÓn y operaciÓn de centros y servicios de informaciÓn técnica 161p.' 1985 - ibid (como Organización y operaciÓn de unidades de información técnica) segunda impresión, 1986 - 27 - ICAITI SÍstema de manejo de tesauros Serie: Logicial de computadora Para sistemas con dBASEII. Implementado en IBM/XT y en Applell+; incluye programas y documentación 133p. ' 1986 - Thesaurus Handling System Computer Software Series For dBASEII systems; presently on IBM/XT and Appleii+; includes programs and documentation 123p. ' 1986 - Operadores Booleanos en la recuperación de información Serie: Autoaprendizaje 43p.' 1986 - Comunicación de datos en unidades de información Serie: Autoaprendizaje 49p.' 1986 - Acceso en línea a bases de datos Serie: Autoaprendizaje iii' 8lp. ' 1986 - Uso de microcomputadoras en unidades de información Serie: Autoaprendizaje ., en preparac~on - Diseñp de bases de datos Serie: Autoaprendizaje ii, 74p.' 1987 - Redes locales de computadoras y aplicaciones en unidades de información en preparación - 28 -