BIBLIOTECA 64
FILE INFORMATION
FILENAME(S): BIBLIOTECA 64
FILE TYPE(S): PRG
FILE SIZE: 8.1K
FIRST SEEN: 2025-10-19 23:07:26
APPEARS ON: 1 disk(s)
FILE HASH
d5677afcc1b36ef5cad92b7a71f47b046ae0d17aa4396fa0d840ea6cb1777244
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PROG Y ARCHIVOS | BIBLIOTECA 64 | PRG | Bugjam - Argentina | 6 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 23 08 01 00 8F 20 44 41 44 4F 20 50 4F 52 |..#.... DADO POR|
00000010: 20 41 47 55 53 54 49 4E 20 45 4C 20 32 33 2D 38 | AGUSTIN EL 23-8|
00000020: 2D 38 36 00 29 08 0A 00 3A 00 50 08 0B 00 8F 20 |-86.)...:.P.... |
00000030: 2A 2A 20 20 44 49 4D 45 4E 53 49 4F 4E 41 44 4F |** DIMENSIONADO|
00000040: 20 44 45 20 56 41 52 49 41 42 4C 45 53 20 2A 2A | DE VARIABLES **|
00000050: 00 56 08 0C 00 3A 00 89 08 0D 00 86 54 24 28 20 |.V...:......T$( |
00000060: 35 30 30 29 2C 4E 41 24 28 20 35 30 30 29 2C 41 |500),NA$( 500),A|
00000070: 41 24 28 20 35 30 30 29 2C 45 24 28 35 30 30 29 |A$( 500),E$(500)|
00000080: 2C 47 24 28 20 35 30 30 29 00 A7 08 0E 00 86 46 |,G$( 500)......F|
00000090: 28 20 35 30 30 29 2C 43 28 20 35 30 30 29 2C 53 |( 500),C( 500),S|
000000A0: 24 28 20 35 30 30 29 00 AD 08 0F 00 3A 00 D3 08 |$( 500).....:...|
000000B0: 10 00 8F 20 2A 2A 20 20 49 4E 49 43 49 41 4C 49 |... ** INICIALI|
000000C0: 5A 41 43 49 4F 4E 20 56 41 52 49 41 42 4C 45 53 |ZACION VARIABLES|
000000D0: 20 2A 2A 00 D9 08 11 00 3A 00 28 09 12 00 41 24 | **.....:.(...A$|
000000E0: B2 22 93 1E B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |."..............|
000000F0: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
00000100: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 20 20 20 20 |............ |
00000110: 20 20 20 20 20 20 20 20 20 05 42 49 42 4C 49 4F | .BIBLIO|
00000120: 54 45 43 41 20 36 34 22 00 69 09 13 00 42 24 B2 |TECA 64".i...B$.|
00000130: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 1E |" .|
00000140: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF |................|
00000150: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF |................|
00000160: AF AF AF AF AF AF AF AF 22 00 76 09 14 00 41 24 |........".v...A$|
00000170: B2 41 24 AA 42 24 00 A8 09 15 00 58 58 24 B2 22 |.A$.B$.....XX$."|
00000180: 91 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001A0: 20 20 20 20 20 20 20 22 00 D9 09 16 00 57 24 B2 | ".....W$.|
000001B0: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
000001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001D0: 20 20 20 20 20 20 20 20 22 00 DF 09 17 00 3A 00 | ".....:.|
000001E0: F5 09 18 00 97 35 33 32 38 31 2C 30 3A 97 35 33 |.....53281,0:.53|
000001F0: 32 38 30 2C 30 00 FB 09 19 00 3A 00 17 0A 1A 00 |280,0.....:.....|
00000200: 8F 20 2A 2A 20 20 20 20 20 50 52 45 2D 4D 45 4E |. ** PRE-MEN|
00000210: 55 20 20 20 20 2A 2A 00 1D 0A 1B 00 3A 00 5E 0A |U **.....:.^.|
00000220: 1C 00 99 41 24 3A 99 22 20 20 20 20 20 20 20 20 |...A$:." |
00000230: 20 20 20 20 20 20 20 20 1E 50 52 45 2D 4D 45 4E | .PRE-MEN|
00000240: 55 22 3A 99 22 20 20 20 20 20 20 20 20 20 20 20 |U":." |
00000250: 20 20 20 20 20 C5 C5 C5 C5 C5 C5 C5 C5 22 00 8F | ........"..|
00000260: 0A 1D 00 99 22 11 11 20 1E 2A 05 20 41 42 52 49 |....".. .*. ABRI|
00000270: 52 20 55 4E 20 4E 55 45 56 4F 20 46 49 43 48 45 |R UN NUEVO FICHE|
00000280: 52 4F 1E 2E 2E 2E 2E 2E 2E 2E 2E 05 28 31 29 00 |RO..........(1).|
00000290: C1 0A 1E 00 99 22 11 11 20 1E 2A 05 20 54 52 41 |.....".. .*. TRA|
000002A0: 42 41 4A 41 52 20 53 4F 42 52 45 20 45 4C 20 41 |BAJAR SOBRE EL A|
000002B0: 4E 54 45 52 49 4F 52 1E 2E 2E 2E 2E 05 28 32 29 |NTERIOR......(2)|
000002C0: 22 00 D3 0A 1F 00 A1 42 24 3A 8B 42 24 B2 22 22 |"......B$:.B$.""|
000002D0: A7 33 31 00 E2 0A 20 00 8B 42 24 B2 22 31 22 A7 |.31... ..B$."1".|
000002E0: 36 39 00 F2 0A 21 00 8B 42 24 B3 B1 22 32 22 A7 |69...!..B$.."2".|
000002F0: 33 31 00 F8 0A 22 00 3A 00 16 0B 23 00 8F 20 20 |31...".:...#.. |
00000300: 2A 2A 20 20 43 41 52 47 41 20 44 45 20 44 41 54 |** CARGA DE DAT|
00000310: 4F 53 20 20 2A 2A 00 1C 0B 24 00 3A 00 24 0B 25 |OS **...$.:.$.%|
00000320: 00 99 41 24 00 71 0B 26 00 99 22 2E 2D 05 52 45 |..A$.q.&..".-.RE|
00000330: 42 4F 42 49 4E 41 20 4C 41 20 43 49 4E 54 41 20 |BOBINA LA CINTA |
00000340: 48 41 53 54 41 20 45 4C 20 34 30 28 31 52 41 20 |HASTA EL 40(1RA |
00000350: 50 41 52 20 20 20 54 45 29 20 30 20 32 30 30 20 |PAR TE) 0 200 |
00000360: 20 20 44 45 4C 20 44 41 54 41 53 53 45 54 54 45 | DEL DATASSETTE|
00000370: 22 00 B3 0B 27 00 99 22 20 20 1E 44 45 53 50 55 |"...'.." .DESPU|
00000380: 45 53 20 50 55 4C 53 41 20 27 50 27 20 59 20 53 |ES PULSA 'P' Y S|
00000390: 49 47 55 45 20 20 20 20 20 20 20 20 20 20 20 20 |IGUE |
000003A0: 20 20 20 20 20 49 4E 53 54 52 55 43 43 49 4F 4E | INSTRUCCION|
000003B0: 45 53 2E 00 D5 0B 28 00 99 22 20 20 1E 27 56 27 |ES....(.." .'V'|
000003C0: 20 56 55 45 4C 56 45 20 41 4C 20 50 52 45 2D 4D | VUELVE AL PRE-M|
000003D0: 45 4E 55 2E 22 00 E7 0B 29 00 A1 42 24 3A 8B 42 |ENU."...)..B$:.B|
000003E0: 24 B2 22 22 A7 34 31 00 F6 0B 2A 00 8B 42 24 B2 |$."".41...*..B$.|
000003F0: 22 56 22 A7 32 38 00 06 0C 2B 00 8B 42 24 B3 B1 |"V".28...+..B$..|
00000400: 22 50 22 A7 34 31 00 1E 0C 2C 00 9F 31 2C 31 2C |"P".41...,..1,1,|
00000410: 30 2C 22 42 49 42 4C 49 4F 46 49 43 48 22 00 28 |0,"BIBLIOFICH".(|
00000420: 0C 2D 00 84 31 2C 4E 44 00 34 0C 2E 00 81 41 B2 |.-..1,ND.4....A.|
00000430: 31 A4 4E 44 00 55 0C 2F 00 84 31 2C 54 24 28 41 |1.ND.U./..1,T$(A|
00000440: 29 3A 84 31 2C 4E 41 24 28 41 29 3A 84 31 2C 41 |):.1,NA$(A):.1,A|
00000450: 41 24 28 41 29 00 62 0C 30 00 84 31 2C 45 24 28 |A$(A).b.0..1,E$(|
00000460: 41 29 00 6C 0C 31 00 82 41 3A A0 31 00 72 0C 32 |A).l.1..A:.1.r.2|
00000470: 00 3A 00 87 0C 33 00 8F 20 2A 2A 20 20 20 4D 45 |.:...3.. ** ME|
00000480: 4E 55 20 20 20 2A 2A 00 8D 0C 34 00 3A 00 CA 0C |NU **...4.:...|
00000490: 35 00 99 41 24 3A 99 22 20 20 20 20 20 20 20 20 |5..A$:." |
000004A0: 20 20 20 20 20 20 20 20 20 20 1E 4D 45 4E 55 22 | .MENU"|
000004B0: 3A 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |:." |
000004C0: 20 20 20 20 20 C5 C5 C5 C5 22 00 FA 0C 36 00 99 | ...."...6..|
000004D0: 22 11 20 1E 2A 05 20 43 4F 4E 46 45 43 43 49 4F |". .*. CONFECCIO|
000004E0: 4E 41 52 20 46 49 43 48 41 53 1E 2E 2E 2E 2E 2E |NAR FICHAS......|
000004F0: 2E 2E 2E 2E 2E 05 28 31 29 22 00 29 0D 37 00 99 |......(1)".).7..|
00000500: 22 11 20 1E 2A 05 20 4C 45 43 54 55 52 41 20 44 |". .*. LECTURA D|
00000510: 45 20 46 49 43 48 41 53 1E 2E 2E 2E 2E 2E 2E 2E |E FICHAS........|
00000520: 2E 2E 2E 2E 2E 05 28 32 29 00 58 0D 38 00 99 22 |......(2).X.8.."|
00000530: 11 20 1E 2A 05 20 43 4F 52 52 45 43 43 49 4F 4E |. .*. CORRECCION|
00000540: 20 44 45 20 46 49 43 48 41 53 1E 2E 2E 2E 2E 2E | DE FICHAS......|
00000550: 2E 2E 2E 2E 05 28 33 29 00 87 0D 39 00 99 22 11 |.....(3)...9..".|
00000560: 20 1E 2A 05 20 41 4E 55 4C 41 44 4F 20 44 45 20 | .*. ANULADO DE |
00000570: 44 41 54 4F 53 1E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |DATOS...........|
00000580: 2E 2E 2E 05 28 34 29 00 B6 0D 3A 00 99 22 11 20 |....(4)...:..". |
00000590: 1E 2A 05 20 56 55 45 4C 54 41 20 41 4C 20 50 52 |.*. VUELTA AL PR|
000005A0: 45 2D 4D 45 4E 55 1E 2E 2E 2E 2E 2E 2E 2E 2E 2E |E-MENU..........|
000005B0: 2E 2E 05 28 35 29 00 E5 0D 3B 00 99 22 11 20 1E |...(5)...;..". .|
000005C0: 2A 05 20 4F 52 44 45 4D 20 41 4C 46 2E 20 46 49 |*. ORDEM ALF. FI|
000005D0: 43 48 41 53 1E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |CHAS............|
000005E0: 2E 05 28 36 29 00 14 0E 3C 00 99 22 11 20 1E 2A |..(6)...<..". .*|
000005F0: 05 20 47 52 41 42 41 43 49 4F 4E 20 44 45 20 44 |. GRABACION DE D|
00000600: 41 54 4F 53 1E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |ATOS............|
00000610: 05 28 37 29 00 43 0E 3D 00 99 22 11 20 1E 2A 05 |.(7).C.=..". .*.|
00000620: 20 4D 45 4D 4F 52 49 41 20 44 49 53 50 4F 4E 49 | MEMORIA DISPONI|
00000630: 42 4C 45 1E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 05 |BLE.............|
00000640: 28 38 29 00 72 0E 3E 00 99 22 11 20 1E 2A 05 20 |(8).r.>..". .*. |
00000650: 46 49 4E 41 4C 49 5A 41 52 1E 2E 2E 2E 2E 2E 2E |FINALIZAR.......|
00000660: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 05 28 |...............(|
00000670: 39 29 00 94 0E 3F 00 A1 42 24 3A 8B 42 24 B2 22 |9)...?..B$:.B$."|
00000680: 22 B0 C5 28 42 24 29 B3 31 B0 C5 28 42 24 29 B1 |"..(B$).1..(B$).|
00000690: 39 A7 36 33 00 A6 0E 40 00 8B 42 24 B2 22 39 22 |9.63...@..B$."9"|
000006A0: A7 99 41 24 3A 80 00 CE 0E 41 00 91 C5 28 42 24 |..A$:....A...(B$|
000006B0: 29 89 36 39 2C 39 33 2C 32 30 32 2C 32 35 39 2C |).69,93,202,259,|
000006C0: 32 38 2C 32 39 33 2C 32 37 37 2C 33 32 31 00 D4 |28,293,277,321..|
000006D0: 0E 42 00 3A 00 F7 0E 43 00 8F 20 2A 2A 20 20 43 |.B.:...C.. ** C|
000006E0: 4F 4E 46 45 43 43 49 4F 4E 20 44 45 20 46 49 43 |ONFECCION DE FIC|
000006F0: 48 41 53 20 20 2A 2A 00 FD 0E 44 00 3A 00 28 0F |HAS **...D.:.(.|
00000700: 45 00 99 41 24 3A 99 22 20 20 20 20 20 20 20 20 |E..A$:." |
00000710: 20 20 1E 43 4F 4E 46 45 43 43 49 4F 4E 20 44 45 | .CONFECCION DE|
00000720: 20 46 49 43 48 41 53 22 00 4F 0F 46 00 99 22 20 | FICHAS".O.F.." |
00000730: 20 20 20 20 20 20 20 20 20 05 C5 C5 C5 C5 C5 C5 | .......|
00000740: C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 22 00 |..............".|
00000750: 7E 0F 47 00 99 22 11 20 20 20 1E 28 49 4E 54 52 |~.G..". .(INTR|
00000760: 4F 44 55 43 49 45 4E 44 4F 20 05 2D 31 1E 20 56 |ODUCIENDO .-1. V|
00000770: 55 45 4C 56 45 20 41 4C 20 4D 45 4E 55 29 00 8B |UELVE AL MENU)..|
00000780: 0F 48 00 4E 44 20 B2 4E 44 AA 31 00 B5 0F 49 00 |.H.ND .ND.1...I.|
00000790: 85 22 11 2E 2D 54 49 54 55 4C 4F 3A 20 20 05 22 |."..-TITULO: ."|
000007A0: 3B 54 24 28 4E 44 29 3A 43 24 B2 54 24 28 4E 44 |;T$(ND):C$.T$(ND|
000007B0: 29 3A 8D 38 38 00 D4 0F 4A 00 8B C3 28 54 24 28 |):.88...J...(T$(|
000007C0: 4E 44 29 29 B1 33 30 A7 99 41 24 3A 8D 33 32 35 |ND)).30..A$:.325|
000007D0: 3A 89 37 33 00 06 10 4D 00 85 22 11 1E 2E 2D 4E |:.73...M.."...-N|
000007E0: 4F 4D 42 52 45 20 41 55 54 2E 3A 20 20 05 22 3B |OMBRE AUT.: .";|
000007F0: 4E 41 24 28 4E 44 29 3A 43 24 B2 4E 41 24 28 4E |NA$(ND):C$.NA$(N|
00000800: 44 29 3A 8D 38 38 00 26 10 4E 00 8B C3 28 4E 41 |D):.88.&.N...(NA|
00000810: 24 28 4E 44 29 29 B1 32 39 A7 99 41 24 3A 8D 33 |$(ND)).29..A$:.3|
00000820: 32 35 3A 89 37 37 00 56 10 4F 00 85 22 11 1E 2E |25:.77.V.O.."...|
00000830: 2D 41 50 45 4C 4C 49 44 4F 53 3A 20 20 05 22 3B |-APELLIDOS: .";|
00000840: 41 41 24 28 4E 44 29 3A 43 24 B2 41 41 24 28 4E |AA$(ND):C$.AA$(N|
00000850: 44 29 3A 8D 38 38 00 81 10 50 00 8B C3 28 4E 41 |D):.88...P...(NA|
00000860: 24 28 4E 44 29 29 AA C3 28 41 41 24 28 4E 44 29 |$(ND))..(AA$(ND)|
00000870: 29 B1 32 39 A7 99 41 24 3A 8D 33 32 35 3A 89 37 |).29..A$:.325:.7|
00000880: 39 00 B0 10 53 00 85 22 11 1E 2E 2D 55 42 49 43 |9...S.."...-UBIC|
00000890: 41 43 49 4F 4E 3A 20 20 05 22 3B 20 45 24 28 4E |ACION: ."; E$(N|
000008A0: 44 29 3A 43 24 B2 45 24 28 4E 44 29 3A 8D 38 38 |D):C$.E$(ND):.88|
000008B0: 00 CF 10 54 00 8B C3 28 45 24 28 4E 44 29 29 B1 |...T...(E$(ND)).|
000008C0: 32 37 A7 99 41 24 3A 8D 33 32 35 3A 89 38 33 00 |27..A$:.325:.83.|
000008D0: D7 10 57 00 89 36 39 00 F0 10 58 00 8B 43 24 B2 |..W..69...X..C$.|
000008E0: 22 2D 31 22 A7 4E 44 B2 4E 44 AB 31 3A 89 35 33 |"-1".ND.ND.1:.53|
000008F0: 00 F6 10 59 00 8E 00 FC 10 5A 00 3A 00 1B 11 5B |...Y.....Z.:...[|
00000900: 00 8F 20 20 2A 2A 4C 45 43 54 55 52 41 20 44 45 |.. **LECTURA DE|
00000910: 20 46 49 43 48 41 53 20 20 2A 2A 00 21 11 5C 00 | FICHAS **.!.\.|
00000920: 3A 00 4A 11 5D 00 99 41 24 3A 99 22 20 20 20 20 |:.J.]..A$:." |
00000930: 20 20 20 20 20 20 20 1E 4C 45 43 54 55 52 41 20 | .LECTURA |
00000940: 44 45 20 46 49 43 48 41 53 22 00 6F 11 5E 00 99 |DE FICHAS".o.^..|
00000950: 22 05 20 20 20 20 20 20 20 20 20 20 20 C5 C5 C5 |". ...|
00000960: C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 22 00 |..............".|
00000970: 7E 11 5F 00 8B 4E 44 B3 B1 30 A7 31 30 30 00 A0 |~._..ND..0.100..|
00000980: 11 60 00 99 22 11 11 20 20 1E 2A 05 4E 4F 20 48 |.`..".. .*.NO H|
00000990: 41 59 20 4E 49 4E 47 55 4E 20 44 41 54 4F 2E 22 |AY NINGUN DATO."|
000009A0: 00 C2 11 61 00 99 22 11 11 20 20 20 1E 28 27 4D |...a..".. .('M|
000009B0: 27 20 56 55 45 4C 56 45 20 41 4C 20 4D 45 4E 55 |' VUELVE AL MENU|
000009C0: 29 22 00 D6 11 62 00 A1 42 24 3A 8B 42 24 B3 B1 |)"...b..B$:.B$..|
000009D0: 22 4D 22 A7 39 38 00 DE 11 63 00 89 35 33 00 0F |"M".98...c..53..|
000009E0: 12 64 00 99 22 20 20 20 20 05 54 41 42 4C 41 20 |.d.." .TABLA |
000009F0: 44 45 20 50 4F 53 49 42 49 4C 49 44 41 44 45 53 |DE POSIBILIDADES|
00000A00: 20 44 45 20 42 55 53 51 55 45 44 41 1E 11 22 00 | DE BUSQUEDA..".|
00000A10: 40 12 65 00 99 22 20 20 20 AA B7 D0 B7 B7 B7 B7 |@.e.." .......|
00000A20: B7 B7 B7 B7 B7 B7 B7 B7 CF B7 B7 12 20 92 B7 B7 |............ ...|
00000A30: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 D0 B7 B7 D0 22 |..............."|
00000A40: 00 4B 12 66 00 81 41 B2 31 A4 34 00 7F 12 67 00 |.K.f..A.1.4...g.|
00000A50: 99 22 20 20 20 AA 20 A7 20 20 20 20 20 20 20 20 |." . . |
00000A60: 20 20 20 20 A5 20 20 12 20 92 20 20 20 20 20 20 | . . . |
00000A70: 20 20 20 20 20 20 20 AA 20 20 A7 22 3A 82 41 00 | . .":.A.|
00000A80: AF 12 68 00 99 22 20 20 20 A7 20 AA 20 20 20 20 |..h.." . . |
00000A90: 20 20 20 20 20 20 20 20 A5 20 20 12 20 20 20 20 | . . |
00000AA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
00000AB0: DF 12 69 00 99 22 20 20 20 AA A4 BA A4 AF AF AF |..i.." .......|
00000AC0: AF AF AF AF AF AF AF AF CC AF AF 12 20 92 20 20 |............ . |
00000AD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 A7 00 | ..|
00000AE0: 10 13 6A 00 99 22 20 20 20 AA 20 AA 20 20 20 20 |..j.." . . |
00000AF0: 20 20 20 20 20 20 20 20 A5 20 20 12 20 92 AA B7 | . . ...|
00000B00: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 A5 AA 22 |..............."|
00000B10: 00 1B 13 6B 00 81 41 B2 31 A4 36 00 4F 13 6C 00 |...k..A.1.6.O.l.|
00000B20: 99 22 20 20 20 AA 20 AA 20 20 20 20 20 20 20 20 |." . . |
00000B30: 20 20 20 20 A5 20 20 12 20 92 AA 20 20 20 20 20 | . . .. |
00000B40: 20 20 20 20 20 20 20 20 20 A5 AA 22 3A 82 41 00 | ..":.A.|
00000B50: 80 13 6D 00 99 22 20 20 20 AA 20 AA 20 20 20 20 |..m.." . . |
00000B60: 20 20 20 20 20 20 20 20 A5 20 20 12 20 92 AA AF | . . ...|
00000B70: AF AF AF AF AF AF AF AF AF AF AF AF AF A5 AA 22 |..............."|
00000B80: 00 B2 13 6E 00 99 22 20 20 20 AA AF BA AF AF AF |...n.." ......|
00000B90: AF AF AF AF AF AF AF AF AF CC AF AF 12 20 92 AF |............. ..|
00000BA0: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF BA |................|
00000BB0: 22 3A 00 EB 13 6F 00 99 22 13 11 11 11 11 11 11 |":...o..".......|
00000BC0: 11 11 11 1D 1D 1D 1D 05 2A 1D 41 50 45 4C 4C 49 |........*.APELLI|
00000BD0: 44 4F 53 1D 1D 1D 1D 31 1D 1D 1D 4E 55 4D 2E 44 |DOS....1...NUM.D|
00000BE0: 45 20 46 49 43 48 41 1D 1D 15 02 00 27 14 70 00 |E FICHA.....'.p.|
00000BF0: 99 22 13 11 11 11 11 11 11 11 11 11 11 1D 1D 1D |."..............|
00000C00: 1D 20 11 9D 2A 1D 4E 4F 4D 42 52 45 1D 1D 1D 1D |. ..*.NOMBRE....|
00000C10: 1D 1D 1D 32 1D 1D 1D 54 4F 44 41 53 1D 1D 1D 1D |...2...TODAS....|
00000C20: 1D 1D 1D 1D 1D 36 22 00 53 14 71 00 99 22 13 11 |.....6".S.q.."..|
00000C30: 11 11 11 11 11 11 11 11 11 11 11 1D 1D 1D 1D 20 |............... |
00000C40: 11 9D 2A 1D 54 49 54 55 4C 4F 20 20 20 1D 1D 1D |..*.TITULO ...|
00000C50: 1D 33 22 00 84 14 73 00 99 22 13 11 11 11 11 11 |.3"...s.."......|
00000C60: 11 11 11 11 11 11 11 11 11 11 11 11 1D 1D 1D 1D |................|
00000C70: 20 11 9D 2A 1D 55 42 49 43 41 43 49 4F 4E 1D 1D | ..*.UBICACION..|
00000C80: 1D 1D 34 22 00 C2 14 76 00 99 22 91 1D 1D 1D 1D |..4"...v..".....|
00000C90: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000CA0: 1D 1D 1D 27 45 53 50 41 43 49 4F 27 20 56 41 9D |...'ESPACIO' VA.|
00000CB0: 9D 9D 9D 9D 9D 9D 9D 9D 11 11 41 4C 20 4D 45 4E |..........AL MEN|
00000CC0: 55 22 00 D2 14 77 00 8B 42 24 B2 22 20 22 A7 20 |U"...w..B$." ". |
00000CD0: 35 33 00 FC 14 78 00 A1 42 24 3A 8B 42 24 B2 22 |53...x..B$:.B$."|
00000CE0: 22 B0 42 24 B2 22 20 22 B0 C5 28 42 24 29 B3 31 |".B$." "..(B$).1|
00000CF0: B0 C5 28 42 24 29 B1 36 A7 31 31 39 00 0C 15 79 |..(B$).6.119...y|
00000D00: 00 8B 42 24 B2 22 20 22 A7 20 35 33 00 18 15 7A |..B$." ". 53...z|
00000D10: 00 42 B2 C5 28 42 24 29 00 43 15 7B 00 99 41 24 |.B..(B$).C.{..A$|
00000D20: 3A 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |:." |
00000D30: 1E 4C 45 43 54 55 52 41 20 44 45 20 46 49 43 48 |.LECTURA DE FICH|
00000D40: 41 53 22 00 6B 15 7C 00 99 22 20 20 20 20 20 20 |AS".k.|.." |
00000D50: 20 20 20 20 20 20 20 05 C4 C4 C4 C4 C4 C4 C4 C4 | .........|
00000D60: C4 C4 C4 C4 C4 C4 C4 C4 C4 20 22 00 8A 15 7D 00 |......... "...}.|
00000D70: 91 42 89 31 32 36 2C 31 32 39 2C 31 33 35 2C 31 |.B.126,129,135,1|
00000D80: 34 31 2C 31 34 37 2C 31 35 33 00 A5 15 7E 00 85 |41,147,153...~..|
00000D90: 22 11 1E 2E 2D 41 50 45 4C 4C 49 44 4F 53 3A 20 |"...-APELLIDOS: |
00000DA0: 05 22 3B 44 24 00 C1 15 7F 00 81 41 B2 31 A4 4E |.";D$......A.1.N|
00000DB0: 44 3A 47 24 28 41 29 B2 41 41 24 28 41 29 3A 82 |D:G$(A).AA$(A):.|
00000DC0: 41 00 CA 15 80 00 89 31 35 34 00 E2 15 81 00 85 |A......154......|
00000DD0: 22 11 1E 2E 2D 4E 4F 4D 42 52 45 3A 20 05 22 3B |"...-NOMBRE: .";|
00000DE0: 44 24 00 FE 15 82 00 81 41 B2 31 A4 4E 44 3A 47 |D$......A.1.ND:G|
00000DF0: 24 28 41 29 B2 4E 41 24 28 41 29 3A 82 41 00 08 |$(A).NA$(A):.A..|
00000E00: 16 83 00 89 20 31 35 34 00 20 16 87 00 85 22 11 |.... 154. ....".|
00000E10: 1E 2E 2D 54 49 54 55 4C 4F 3A 20 05 22 3B 44 24 |..-TITULO: .";D$|
00000E20: 00 3B 16 88 00 81 41 B2 31 A4 4E 44 3A 47 24 28 |.;....A.1.ND:G$(|
00000E30: 41 29 B2 54 24 28 41 29 3A 82 41 00 44 16 89 00 |A).T$(A):.A.D...|
00000E40: 89 31 35 34 00 5E 16 8D 00 85 22 1E 2E 2D 55 42 |.154.^...."..-UB|
00000E50: 49 43 41 43 49 4F 4E 3A 20 05 22 3B 44 24 00 79 |ICACION: .";D$.y|
00000E60: 16 8E 00 81 41 B2 31 A4 4E 44 3A 47 24 28 41 29 |....A.1.ND:G$(A)|
00000E70: B2 45 24 28 41 29 3A 82 41 00 82 16 8F 00 89 31 |.E$(A):.A......1|
00000E80: 35 34 00 CB 16 93 00 44 B2 30 3A 99 22 20 20 1E |54.....D.0:." .|
00000E90: 2A 05 20 49 4E 54 52 4F 44 55 5A 43 41 20 4C 4F |*. INTRODUZCA LO|
00000EA0: 53 20 4E 55 4D 45 52 4F 53 20 44 45 20 4C 41 53 |S NUMEROS DE LAS|
00000EB0: 20 46 49 43 48 41 53 20 20 20 51 55 45 20 51 55 | FICHAS QUE QU|
00000EC0: 49 45 52 41 20 56 45 52 2E 20 22 00 E6 16 94 00 |IERA VER. ".....|
00000ED0: 99 22 20 20 1E 2A 05 20 30 1E 20 46 49 4E 41 4C |." .*. 0. FINAL|
00000EE0: 49 5A 41 11 11 22 00 1E 17 95 00 44 B2 44 AA 31 |IZA..".....D.D.1|
00000EF0: 3A 85 22 1E 91 2E 2D 4E 55 4D 45 52 4F 3A 20 20 |:."...-NUMERO: |
00000F00: 20 20 20 9D 9D 9D 22 3B 43 28 44 29 3A 8B 43 28 | ...";C(D):.C(|
00000F10: 44 29 B2 30 A7 44 B2 44 AB 31 3A 89 35 33 00 4F |D).0.D.D.1:.53.O|
00000F20: 17 96 00 8B 43 28 44 29 B3 30 B0 43 28 44 29 B1 |....C(D).0.C(D).|
00000F30: 4E 44 A7 44 B2 44 AB 31 3A 99 22 05 2D 1E 4E 4F |ND.D.D.1:.".-.NO|
00000F40: 20 45 58 49 53 54 45 2E 11 22 3A 89 31 34 39 00 | EXISTE..":.149.|
00000F50: 66 17 98 00 81 53 B2 31 A4 44 3A 41 B2 43 28 53 |f....S.1.D:A.C(S|
00000F60: 29 3A 89 31 36 33 00 7B 17 99 00 81 54 B2 31 A4 |):.163.{....T.1.|
00000F70: 4E 44 3A 41 B2 54 3A 89 31 36 33 00 8B 17 9A 00 |ND:A.T:.163.....|
00000F80: 45 B2 30 3A 81 41 B2 31 A4 4E 44 00 B8 17 9B 00 |E.0:.A.1.ND.....|
00000F90: 8B C8 28 44 24 2C C3 28 44 24 29 29 B2 C8 28 47 |..(D$,.(D$))..(G|
00000FA0: 24 28 41 29 2C C3 28 44 24 29 29 A7 45 B2 45 AA |$(A),.(D$)).E.E.|
00000FB0: 31 3A 46 28 45 29 B2 41 00 C7 17 9C 00 82 3A 8B |1:F(E).A......:.|
00000FC0: 45 B2 30 A7 31 35 38 00 D0 17 9D 00 89 31 36 32 |E.0.158......162|
00000FD0: 00 12 18 9E 00 99 22 11 11 20 20 1E 2A 05 20 4E |......".. .*. N|
00000FE0: 4F 20 45 58 49 53 54 45 20 4E 49 4E 47 55 4E 41 |O EXISTE NINGUNA|
00000FF0: 20 46 49 43 48 41 20 43 4F 4E 20 20 20 20 20 20 | FICHA CON |
00001000: 20 20 20 20 20 20 45 53 4F 53 20 44 41 54 4F 53 | ESOS DATOS|
00001010: 2E 22 00 37 18 9F 00 99 22 20 20 20 20 20 20 20 |.".7...." |
00001020: 20 28 27 4D 27 20 56 55 45 4C 56 45 20 41 4C 20 | ('M' VUELVE AL |
00001030: 4D 45 4E 55 2E 29 22 00 4C 18 A0 00 A1 42 24 3A |MENU.)".L....B$:|
00001040: 8B 42 24 B3 B1 22 4D 22 A7 31 36 30 00 54 18 A1 |.B$.."M".160.T..|
00001050: 00 89 35 33 00 66 18 A2 00 81 52 B2 31 A4 45 3A |..53.f....R.1.E:|
00001060: 41 B2 46 28 52 29 00 90 18 A3 00 99 41 24 3A 99 |A.F(R)......A$:.|
00001070: 22 20 20 20 20 20 20 20 20 20 20 20 20 1E 4C 45 |" .LE|
00001080: 43 54 55 52 41 20 44 45 20 46 49 43 48 41 53 22 |CTURA DE FICHAS"|
00001090: 00 B6 18 A4 00 99 22 20 20 20 20 20 20 20 20 20 |......" |
000010A0: 20 20 20 05 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 | .............|
000010B0: C4 C4 C4 C4 C4 22 00 E7 18 A5 00 99 22 CF B7 B7 |....."......"...|
000010C0: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
000010D0: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
000010E0: B7 B7 B7 B7 D0 22 3B 00 0F 19 A6 00 99 22 A5 1E |.....";......"..|
000010F0: 4E 55 4D 2E 05 22 C4 28 41 29 3B A6 34 30 AB 28 |NUM..".(A);.40.(|
00001100: C3 28 C4 28 41 29 29 AA 36 29 29 22 AA 22 3B 00 |.(.(A)).6))".";.|
00001110: 20 19 A7 00 99 22 A5 22 A6 33 38 29 22 A7 22 3B | ....".".38)".";|
00001120: 00 4F 19 A8 00 99 22 A5 1E 54 49 54 55 4C 4F 3A |.O...."..TITULO:|
00001130: 20 05 22 54 24 28 41 29 3B A6 34 30 AB 28 C3 28 | ."T$(A);.40.(.(|
00001140: 54 24 28 41 29 29 AA 31 30 29 29 22 A7 22 3B 00 |T$(A)).10))".";.|
00001150: 60 19 A9 00 99 22 A5 22 A6 33 38 29 22 A7 22 3B |`....".".38)".";|
00001160: 00 A1 19 AC 00 99 22 A5 1E 41 55 54 4F 52 3A 20 |......"..AUTOR: |
00001170: 05 22 41 41 24 28 41 29 22 2C 20 22 4E 41 24 28 |."AA$(A)", "NA$(|
00001180: 41 29 3B A6 34 30 AB 28 C3 28 41 41 24 28 41 29 |A);.40.(.(AA$(A)|
00001190: AA 4E 41 24 28 41 29 29 AA 31 31 29 29 22 A7 22 |.NA$(A)).11))"."|
000011A0: 3B 00 B2 19 AD 00 99 22 A5 22 A6 33 38 29 22 A7 |;......".".38)".|
000011B0: 22 3B 00 E4 19 B0 00 99 22 A5 1E 55 42 49 43 41 |";......"..UBICA|
000011C0: 43 49 4F 4E 3A 20 05 22 45 24 28 41 29 3B A6 34 |CION: ."E$(A);.4|
000011D0: 30 AB 28 C3 28 45 24 28 41 29 29 AA 31 33 29 29 |0.(.(E$(A)).13))|
000011E0: 22 A7 22 3B 00 F5 19 B1 00 99 22 A5 22 A6 33 38 |".";......".".38|
000011F0: 29 22 A7 22 3B 00 25 1A B4 00 99 22 CC AF AF AF |)".";.%...."....|
00001200: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF |................|
00001210: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF |................|
00001220: AF AF AF BA 22 00 56 1A B5 00 99 22 27 4D 27 20 |....".V...."'M' |
00001230: 56 55 45 4C 56 45 20 41 4C 20 4D 45 4E 55 2E 27 |VUELVE AL MENU.'|
00001240: 4C 27 20 56 55 45 4C 56 45 20 41 20 4C 45 43 54 |L' VUELVE A LECT|
00001250: 55 52 41 2E 22 3B 00 64 1A B6 00 8B 42 B3 B1 35 |URA.";.d....B..5|
00001260: A7 31 38 35 00 71 1A B7 00 8B 53 B2 44 A7 31 39 |.185.q....S.D.19|
00001270: 36 00 7A 1A B8 00 89 31 38 39 00 88 1A B9 00 8B |6.z....189......|
00001280: 42 B3 B1 36 A7 31 38 38 00 96 1A BA 00 8B 54 B2 |B..6.188......T.|
00001290: 4E 44 A7 31 39 36 00 9F 1A BB 00 89 31 38 39 00 |ND.196......189.|
000012A0: AC 1A BC 00 8B 52 B2 45 A7 31 39 36 00 C2 1A BD |.....R.E.196....|
000012B0: 00 99 22 27 43 27 20 43 4F 4E 54 49 4E 55 41 2E |.."'C' CONTINUA.|
000012C0: 22 3B 00 D5 1A BE 00 A1 42 24 3A 8B 42 24 B2 22 |";......B$:.B$."|
000012D0: 4D 22 A7 35 33 00 E5 1A BF 00 8B 42 24 B2 22 4C |M".53......B$."L|
000012E0: 22 A7 31 39 36 00 F6 1A C0 00 8B 42 24 B3 B1 22 |".196......B$.."|
000012F0: 43 22 A7 31 39 30 00 02 1B C1 00 8B 42 B2 35 A7 |C".190......B.5.|
00001300: 82 53 00 0E 1B C2 00 8B 42 B2 36 A7 82 54 00 15 |.S......B.6..T..|
00001310: 1B C3 00 82 52 00 28 1B C4 00 A1 42 24 3A 8B 42 |....R.(....B$:.B|
00001320: 24 B2 22 4D 22 A7 35 33 00 39 1B C5 00 8B 42 24 |$."M".53.9....B$|
00001330: B3 B1 22 4C 22 A7 31 39 36 00 41 1B C6 00 89 39 |.."L".196.A....9|
00001340: 32 00 47 1B C7 00 3A 00 6B 1B C8 00 8F 2A 2A 20 |2.G...:.k....** |
00001350: 20 20 43 4F 52 52 45 43 43 49 4F 4E 20 44 45 20 | CORRECCION DE |
00001360: 46 49 43 48 41 53 20 20 20 2A 2A 00 71 1B C9 00 |FICHAS **.q...|
00001370: 3A 00 A5 1B CA 00 48 24 B2 41 24 AA 22 20 20 20 |:.....H$.A$." |
00001380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000013A0: 20 20 20 20 22 00 D0 1B CB 00 48 24 B2 48 24 AA | ".....H$.H$.|
000013B0: 22 1E 20 20 20 20 20 20 20 20 20 20 43 4F 52 52 |". CORR|
000013C0: 45 43 49 4F 4E 20 44 45 20 46 49 43 48 41 53 22 |ECION DE FICHAS"|
000013D0: 00 0A 1C CC 00 48 24 B2 48 24 AA 22 05 20 20 20 |.....H$.H$.". |
000013E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000013F0: 20 20 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 | ..............|
00001400: C5 C5 C5 C5 C5 22 3A 99 41 24 00 50 1C CD 00 8B |.....":.A$.P....|
00001410: 4E 44 B2 30 A7 99 22 05 20 2D 1E 4E 4F 20 48 41 |ND.0..". -.NO HA|
00001420: 59 20 4E 49 4E 47 55 4E 20 44 41 54 4F 2E 20 27 |Y NINGUN DATO. '|
00001430: 4D 27 20 56 55 45 4C 56 45 20 20 20 20 20 20 20 |M' VUELVE |
00001440: 20 20 20 41 4C 20 4D 45 4E 55 22 3A 89 32 30 37 | AL MENU":.207|
00001450: 00 59 1C CE 00 89 32 30 39 00 6E 1C CF 00 A1 42 |.Y....209.n....B|
00001460: 24 3A 8B 42 24 B3 B1 22 4D 22 A7 32 30 37 00 76 |$:.B$.."M".207.v|
00001470: 1C D0 00 89 35 33 00 B9 1C D1 00 99 22 05 20 2D |....53......". -|
00001480: 1E 30 20 56 55 45 4C 56 45 20 41 4C 20 4D 45 4E |.0 VUELVE AL MEN|
00001490: 55 2E 22 3A 85 22 05 20 2D 1E 4E 55 4D 45 52 4F |U.":.". -.NUMERO|
000014A0: 20 44 45 20 46 49 43 48 41 53 20 41 20 43 4F 52 | DE FICHAS A COR|
000014B0: 52 45 47 49 52 22 3B 4E 46 00 CF 1C D2 00 8B 4E |REGIR";NF......N|
000014C0: 46 B1 4E 44 A7 4E 46 B2 4E 44 3A 89 32 31 33 00 |F.ND.NF.ND:.213.|
000014D0: DC 1C D3 00 8B 4E 46 B2 30 A7 35 33 00 EA 1C D4 |.....NF.0.53....|
000014E0: 00 8B 4E 46 B3 30 A7 32 30 32 00 FA 1C D5 00 81 |..NF.0.202......|
000014F0: 41 B2 31 A4 4E 46 3A 99 41 24 00 1D 1D D6 00 99 |A.1.NF:.A$......|
00001500: 22 20 20 20 2D 31 20 56 41 20 41 20 4C 45 43 54 |" -1 VA A LECT|
00001510: 55 52 41 20 44 45 20 44 41 54 4F 53 2E 00 3A 1D |URA DE DATOS..:.|
00001520: D7 00 99 22 20 20 20 20 30 20 56 55 45 4C 56 45 |..." 0 VUELVE|
00001530: 20 41 4C 20 4D 45 4E 55 2E 22 00 76 1D D8 00 85 | AL MENU.".v....|
00001540: 22 05 20 2D 1E 4E 55 4D 45 52 4F 20 44 45 20 4C |". -.NUMERO DE L|
00001550: 41 20 46 49 43 48 41 53 22 3B 46 46 3A 8B 46 46 |A FICHAS";FF:.FF|
00001560: B1 4E 44 A7 99 22 4E 4F 20 45 58 49 53 54 45 2E |.ND.."NO EXISTE.|
00001570: 22 3A 89 32 31 36 00 83 1D D9 00 8B 46 46 B2 30 |":.216......FF.0|
00001580: A7 35 33 00 91 1D DA 00 8B 46 46 B2 AB 31 A7 39 |.53......FF..1.9|
00001590: 33 00 A0 1D DB 00 8B 46 46 B3 AB 31 A7 32 31 33 |3......FF..1.213|
000015A0: 00 A8 1D DC 00 99 48 24 00 EF 1D DD 00 99 22 20 |......H$......" |
000015B0: 20 53 49 20 45 4C 20 44 41 54 4F 20 45 53 20 43 | SI EL DATO ES C|
000015C0: 4F 52 52 45 43 54 4F 2C 20 50 55 4C 53 41 20 27 |ORRECTO, PULSA '|
000015D0: 52 45 54 55 52 4E 27 20 20 53 49 20 4E 4F 20 4C |RETURN' SI NO L|
000015E0: 4F 20 45 53 2C 43 4F 52 52 49 47 45 4C 4F 2E 00 |O ES,CORRIGELO..|
000015F0: 0C 1E DE 00 99 22 11 11 05 2D 1E 54 49 54 55 4C |....."...-.TITUL|
00001600: 4F 3A 20 05 22 3B 54 24 28 46 46 29 00 2D 1E E0 |O: .";T$(FF).-..|
00001610: 00 99 22 11 2D 1E 4E 4F 4D 42 52 45 20 41 55 54 |..".-.NOMBRE AUT|
00001620: 2E 3A 20 05 22 3B 4E 41 24 28 46 46 29 00 4C 1E |.: .";NA$(FF).L.|
00001630: E1 00 99 22 11 2D 1E 41 50 45 4C 4C 49 44 4F 53 |...".-.APELLIDOS|
00001640: 3A 20 05 22 3B 41 41 24 28 46 46 29 00 6B 1E E3 |: .";AA$(FF).k..|
00001650: 00 99 22 11 2D 1E 55 42 49 43 41 43 49 4F 4E 3A |..".-.UBICACION:|
00001660: 20 05 22 3B 20 45 24 28 46 46 29 00 8E 1E E5 00 | ."; E$(FF).....|
00001670: 58 24 B2 22 22 3A 85 22 1E 54 49 54 2E 20 05 22 |X$."":.".TIT. ."|
00001680: 3B 58 24 3A 8B 58 24 B2 22 22 A7 32 33 36 00 A7 |;X$:.X$."".236..|
00001690: 1E E6 00 8B C3 28 58 24 29 B1 33 30 A7 20 8D 33 |.....(X$).30. .3|
000016A0: 32 35 3A 89 32 32 30 00 E3 1E E7 00 99 22 13 11 |25:.220......"..|
000016B0: 11 11 11 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D |................|
000016C0: 1D 1D 22 58 24 3B C8 28 57 24 2C 34 30 AB 28 C3 |.."X$;.(W$,40.(.|
000016D0: 28 58 24 29 AA 39 29 29 3B 22 11 11 11 11 11 11 |(X$).9));"......|
000016E0: 11 22 3B 00 F6 1E E8 00 54 24 28 46 46 29 B2 58 |.";.....T$(FF).X|
000016F0: 24 3A 99 58 58 24 00 1A 1F EC 00 58 24 B2 22 22 |$:.XX$.....X$.""|
00001700: 3A 85 22 91 1E 4E 4F 4D 2E 20 05 22 3B 58 24 3A |:."..NOM. .";X$:|
00001710: 8B 58 24 B2 22 22 A7 32 33 39 00 5A 1F ED 00 99 |.X$."".239.Z....|
00001720: 22 13 11 11 11 11 11 11 11 11 11 11 11 11 1D 1D |"...............|
00001730: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 58 24 3B |............"X$;|
00001740: C8 28 57 24 2C 34 30 AB 28 C3 28 58 24 29 AA 31 |.(W$,40.(.(X$).1|
00001750: 34 29 29 3B 22 11 11 11 11 22 00 6E 1F EE 00 4E |4));"....".n...N|
00001760: 41 24 28 46 46 29 B2 58 24 3A 99 58 58 24 00 92 |A$(FF).X$:.XX$..|
00001770: 1F EF 00 58 24 B2 22 22 3A 85 22 91 1E 41 50 45 |...X$."":."..APE|
00001780: 2E 20 05 22 3B 58 24 3A 8B 58 24 B2 22 22 A7 32 |. .";X$:.X$."".2|
00001790: 34 35 00 D2 1F F0 00 99 22 13 11 11 11 11 11 11 |45......".......|
000017A0: 11 11 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D |................|
000017B0: 1D 1D 1D 1D 22 58 24 3B C8 28 57 24 2C 34 30 AB |...."X$;.(W$,40.|
000017C0: 28 C3 28 58 24 29 AA 31 32 29 29 3B 22 11 11 11 |(.(X$).12));"...|
000017D0: 22 3B 00 E6 1F F1 00 41 41 24 28 46 46 29 B2 58 |";.....AA$(FF).X|
000017E0: 24 3A 99 58 58 24 00 0A 20 F5 00 58 24 B2 22 22 |$:.XX$.. ..X$.""|
000017F0: 3A 85 22 91 1E 55 42 49 2E 20 05 22 3B 58 24 3A |:."..UBI. .";X$:|
00001800: 8B 58 24 B2 22 22 A7 32 35 31 00 4A 20 F6 00 99 |.X$."".251.J ...|
00001810: 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |"...............|
00001820: 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 58 |.............."X|
00001830: 24 3B C8 28 57 24 2C 34 30 AB 28 C3 28 58 24 29 |$;.(W$,40.(.(X$)|
00001840: AA 31 32 29 29 3B 22 11 22 3B 00 5D 20 F7 00 45 |.12));".";.] ..E|
00001850: 24 28 46 46 29 B2 58 24 3A 99 58 58 24 00 80 20 |$(FF).X$:.XX$.. |
00001860: FB 00 99 22 91 20 27 53 27 20 53 49 47 55 45 2E |...". 'S' SIGUE.|
00001870: 27 4D 27 20 56 41 20 41 4C 20 4D 45 4E 55 2E 22 |'M' VA AL MENU."|
00001880: 00 92 20 FC 00 A1 42 24 3A 8B 41 B2 4E 46 A7 32 |.. ...B$:.A.NF.2|
00001890: 35 34 00 A0 20 FD 00 8B 42 24 B2 22 53 22 A7 82 |54.. ...B$."S"..|
000018A0: 00 B1 20 FE 00 8B 42 24 B3 B1 22 4D 22 A7 32 35 |.. ...B$.."M".25|
000018B0: 32 00 B9 20 FF 00 89 35 33 00 BF 20 00 01 3A 00 |2.. ...53.. ..:.|
000018C0: DF 20 01 01 8F 20 2A 2A 20 20 41 4E 55 4C 41 44 |. ... ** ANULAD|
000018D0: 4F 20 44 45 20 46 49 43 48 41 53 20 20 2A 2A 00 |O DE FICHAS **.|
000018E0: E5 20 02 01 3A 00 0E 21 03 01 99 41 24 3A 99 22 |. ..:..!...A$:."|
000018F0: 20 20 20 20 20 20 20 20 20 20 20 20 1E 41 4E 55 | .ANU|
00001900: 4C 41 44 4F 20 44 45 20 44 41 54 4F 53 22 00 33 |LADO DE DATOS".3|
00001910: 21 04 01 99 22 20 20 20 20 20 20 20 20 20 20 20 |!..." |
00001920: 20 05 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 | ...............|
00001930: C4 C4 22 00 42 21 05 01 8B 4E 44 B3 B1 30 A7 32 |..".B!...ND..0.2|
00001940: 36 35 00 74 21 06 01 99 22 05 20 2D 1E 4E 4F 20 |65.t!...". -.NO |
00001950: 48 41 59 20 4E 49 4E 47 55 4E 20 44 41 54 4F 2E |HAY NINGUN DATO.|
00001960: 27 4D 27 20 56 55 45 4C 56 45 20 41 4C 20 4D 45 |'M' VUELVE AL ME|
00001970: 4E 55 2E 22 00 89 21 07 01 A1 42 24 3A 8B 42 24 |NU."..!...B$:.B$|
00001980: B3 B1 22 4D 22 A7 32 36 33 00 91 21 08 01 89 35 |.."M".263..!...5|
00001990: 33 00 D6 21 09 01 99 22 05 20 2D 1E 49 4E 54 52 |3..!...". -.INTR|
000019A0: 4F 44 55 5A 43 41 20 4C 4F 53 20 4E 55 4D 45 52 |ODUZCA LOS NUMER|
000019B0: 4F 53 20 44 45 20 4C 41 53 20 46 49 43 48 41 53 |OS DE LAS FICHAS|
000019C0: 20 20 20 20 51 55 45 20 44 45 53 45 45 20 41 4E | QUE DESEE AN|
000019D0: 55 4C 41 52 2E 22 00 15 22 0A 01 99 22 05 20 2D |ULAR.".."...". -|
000019E0: 1E 30 20 56 55 45 4C 56 45 20 41 4C 20 4D 45 4E |.0 VUELVE AL MEN|
000019F0: 55 2E 20 2D 31 20 56 41 20 41 20 4C 45 43 54 55 |U. -1 VA A LECTU|
00001A00: 52 41 20 20 20 20 20 20 20 44 45 20 44 41 54 4F |RA DE DATO|
00001A10: 53 2E 11 11 22 00 5F 22 0B 01 99 22 2A 2A 4C 4F |S..."._"..."**LO|
00001A20: 53 20 4E 55 4D 45 52 4F 53 20 44 45 42 45 4E 20 |S NUMEROS DEBEN |
00001A30: 53 45 52 20 49 4E 54 52 4F 44 55 43 49 44 4F 53 |SER INTRODUCIDOS|
00001A40: 20 20 20 20 20 20 44 45 20 4D 41 59 4F 52 20 41 | DE MAYOR A|
00001A50: 20 4D 45 4E 4F 52 21 21 21 21 21 21 11 11 22 00 | MENOR!!!!!!..".|
00001A60: 7A 22 0C 01 85 22 91 4E 55 4D 2E 20 44 45 20 46 |z"...".NUM. DE F|
00001A70: 49 43 48 41 20 3A 22 3B 4E 46 00 87 22 0D 01 8B |ICHA :";NF.."...|
00001A80: 4E 46 B2 30 A7 35 33 00 95 22 0E 01 8B 4E 46 B2 |NF.0.53.."...NF.|
00001A90: AB 31 A7 39 33 00 BC 22 0F 01 8B 4E 46 B1 4E 44 |.1.93.."...NF.ND|
00001AA0: B0 4E 46 B3 AB 31 A7 99 22 1E 4E 4F 20 45 58 49 |.NF..1..".NO EXI|
00001AB0: 53 54 45 2E 14 11 22 3A 89 32 36 38 00 F7 22 10 |STE...":.268..".|
00001AC0: 01 81 41 B2 4E 46 A4 4E 44 3A 54 24 28 41 29 B2 |..A.NF.ND:T$(A).|
00001AD0: 54 24 28 41 AA 31 29 3A 4E 41 24 28 41 29 B2 4E |T$(A.1):NA$(A).N|
00001AE0: 41 24 28 41 AA 31 29 3A 41 41 24 28 41 29 B2 41 |A$(A.1):AA$(A).A|
00001AF0: 41 24 28 41 AA 31 29 00 19 23 11 01 45 24 28 41 |A$(A.1)..#..E$(A|
00001B00: 29 B2 45 24 28 41 AA 31 29 3A 82 41 3A 4E 44 B2 |).E$(A.1):.A:ND.|
00001B10: 4E 44 AB 31 3A 89 32 36 38 00 1F 23 12 01 3A 00 |ND.1:.268..#..:.|
00001B20: 3F 23 13 01 8F 20 20 2A 2A 20 47 52 41 42 41 43 |?#... ** GRABAC|
00001B30: 49 4F 4E 20 44 45 20 44 41 54 4F 53 20 2A 2A 00 |ION DE DATOS **.|
00001B40: 45 23 14 01 3A 00 70 23 15 01 99 41 24 3A 99 22 |E#..:.p#...A$:."|
00001B50: 20 20 20 20 20 20 20 20 20 20 20 20 1E 47 52 41 | .GRA|
00001B60: 42 41 43 49 4F 4E 20 44 45 20 44 41 54 4F 53 22 |BACION DE DATOS"|
00001B70: 00 97 23 16 01 99 22 20 20 20 20 20 20 20 20 20 |..#..." |
00001B80: 20 20 20 05 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 | .............|
00001B90: C4 C4 C4 C4 C4 C4 22 00 A6 23 17 01 8B 4E 44 B3 |......"..#...ND.|
00001BA0: B1 30 A7 32 38 33 00 D7 23 18 01 99 22 2E 2D 1E |.0.283..#...".-.|
00001BB0: 4E 4F 20 48 41 59 20 4E 49 4E 47 55 4E 20 44 41 |NO HAY NINGUN DA|
00001BC0: 54 4F 2E 27 4D 27 20 56 55 45 4C 56 45 20 41 4C |TO.'M' VUELVE AL|
00001BD0: 20 4D 45 4E 55 2E 22 00 EC 23 19 01 A1 42 24 3A | MENU."..#...B$:|
00001BE0: 8B 42 24 B3 B1 22 4D 22 A7 32 38 31 00 F4 23 1A |.B$.."M".281..#.|
00001BF0: 01 89 35 33 00 41 24 1B 01 99 22 2A 2A 05 52 45 |..53.A$..."**.RE|
00001C00: 42 4F 42 49 4E 41 20 4C 41 20 43 49 4E 54 41 20 |BOBINA LA CINTA |
00001C10: 48 41 53 54 41 20 45 4C 20 34 30 28 31 52 41 20 |HASTA EL 40(1RA |
00001C20: 50 41 52 20 20 20 54 45 29 20 4F 20 32 30 30 20 |PAR TE) O 200 |
00001C30: 44 45 4C 20 44 41 54 41 53 53 45 54 54 45 21 21 |DEL DATASSETTE!!|
00001C40: 22 00 90 24 1C 01 99 22 11 11 1E 2A 2A 20 44 45 |"..$..."...** DE|
00001C50: 53 50 55 45 53 20 50 55 4C 53 41 20 27 47 27 20 |SPUES PULSA 'G' |
00001C60: 50 41 52 41 20 43 4F 4D 45 4E 5A 41 52 20 4C 41 |PARA COMENZAR LA|
00001C70: 20 20 20 20 20 20 20 47 52 41 42 41 43 49 4F 4E | GRABACION|
00001C80: 2E 20 27 4D 27 20 56 41 20 20 4D 45 4E 55 2E 22 |. 'M' VA MENU."|
00001C90: 00 A3 24 1D 01 A1 42 24 3A 8B 42 24 B2 22 4D 22 |..$...B$:.B$."M"|
00001CA0: A7 35 33 00 B4 24 1E 01 8B 42 24 B3 B1 22 47 22 |.53..$...B$.."G"|
00001CB0: A7 32 38 35 00 CC 24 1F 01 9F 31 2C 31 2C 31 2C |.285..$...1,1,1,|
00001CC0: 22 42 49 42 4C 49 4F 46 49 43 48 22 00 D6 24 20 |"BIBLIOFICH"..$ |
00001CD0: 01 98 31 2C 4E 44 00 E2 24 21 01 81 41 B2 31 A4 |..1,ND..$!..A.1.|
00001CE0: 4E 44 00 03 25 22 01 98 31 2C 54 24 28 41 29 3A |ND..%"..1,T$(A):|
00001CF0: 98 31 2C 4E 41 24 28 41 29 3A 98 31 2C 41 41 24 |.1,NA$(A):.1,AA$|
00001D00: 28 41 29 00 10 25 23 01 98 31 2C 45 24 28 41 29 |(A)..%#..1,E$(A)|
00001D10: 00 1D 25 24 01 82 3A A0 31 3A 89 35 33 00 23 25 |..%$..:.1:.53.#%|
00001D20: 25 01 3A 00 29 25 26 01 8F 00 2F 25 27 01 3A 00 |%.:.)%&.../%'.:.|
00001D30: 78 25 28 01 99 41 24 3A 99 22 20 20 20 20 20 20 |x%(..A$:." |
00001D40: 20 20 20 20 20 20 1E 4F 52 44 45 4E 20 41 4C 46 | .ORDEN ALF|
00001D50: 2E 46 49 43 48 41 53 22 3A 99 22 20 20 20 20 20 |.FICHAS":." |
00001D60: 20 20 20 20 20 20 20 05 C4 C4 C4 C4 C4 C4 C4 C4 | .........|
00001D70: C4 C4 C4 C4 C4 C4 C4 C4 00 86 25 29 01 8B 4E 44 |..........%)..ND|
00001D80: B1 30 A7 33 30 31 00 B6 25 2A 01 99 22 1E 20 2D |.0.301..%*..". -|
00001D90: 05 4E 4F 20 48 41 59 20 4E 49 4E 47 55 4E 20 44 |.NO HAY NINGUN D|
00001DA0: 41 54 4F 2E 20 1E 27 4D 27 20 56 41 20 41 4C 20 |ATO. .'M' VA AL |
00001DB0: 4D 45 4E 55 2E 22 00 CB 25 2B 01 A1 42 24 3A 8B |MENU."..%+..B$:.|
00001DC0: 42 24 B3 B1 22 4D 22 A7 32 39 39 00 D3 25 2C 01 |B$.."M".299..%,.|
00001DD0: 89 35 33 00 04 26 2D 01 99 22 1E 20 2D 05 4F 52 |.53..&-..". -.OR|
00001DE0: 44 45 4E 4F 20 50 4F 52 20 41 55 54 4F 52 45 53 |DENO POR AUTORES|
00001DF0: 20 30 20 50 4F 52 20 4F 42 52 41 53 20 28 41 2F | 0 POR OBRAS (A/|
00001E00: 4F 29 3F 22 00 1E 26 2E 01 99 22 20 20 1E 27 4D |O)?"..&..." .'M|
00001E10: 27 20 56 41 20 41 4C 20 4D 45 4E 55 2E 22 00 33 |' VA AL MENU.".3|
00001E20: 26 2F 01 A1 42 24 3A 8B 42 24 B2 22 41 22 20 A7 |&/..B$:.B$."A" .|
00001E30: 33 30 38 00 43 26 30 01 8B 42 24 B2 22 4F 22 A7 |308.C&0..B$."O".|
00001E40: 33 30 39 00 53 26 31 01 8B 42 24 B2 22 54 22 A7 |309.S&1..B$."T".|
00001E50: 33 31 30 00 64 26 32 01 8B 42 24 B3 B1 22 4D 22 |310.d&2..B$.."M"|
00001E60: A7 33 30 33 00 6C 26 33 01 89 35 33 00 93 26 34 |.303.l&3..53..&4|
00001E70: 01 81 41 B2 31 A4 4E 44 3A 53 24 28 41 29 B2 41 |..A.1.ND:S$(A).A|
00001E80: 41 24 28 41 29 AA 4E 41 24 28 41 29 3A 82 3A 89 |A$(A).NA$(A):.:.|
00001E90: 33 31 31 00 B3 26 35 01 81 41 B2 31 A4 4E 44 3A |311..&5..A.1.ND:|
00001EA0: 53 24 28 41 29 B2 20 54 24 28 41 29 3A 82 3A 89 |S$(A). T$(A):.:.|
00001EB0: 33 31 31 00 D9 26 37 01 81 41 B2 31 A4 4E 44 AB |311..&7..A.1.ND.|
00001EC0: 31 3A 8B 53 24 28 41 AA 31 29 B2 B1 20 53 24 28 |1:.S$(A.1).. S$(|
00001ED0: 41 29 A7 20 82 3A 89 35 33 00 01 27 38 01 53 31 |A). .:.53..'8.S1|
00001EE0: 24 B2 53 24 28 41 29 3A 53 24 28 41 29 B2 53 24 |$.S$(A):S$(A).S$|
00001EF0: 28 41 AA 31 29 3A 53 24 28 41 AA 31 29 B2 53 31 |(A.1):S$(A.1).S1|
00001F00: 24 00 29 27 39 01 53 31 24 B2 54 24 28 41 29 3A |$.)'9.S1$.T$(A):|
00001F10: 54 24 28 41 29 B2 54 24 28 41 AA 31 29 3A 54 24 |T$(A).T$(A.1):T$|
00001F20: 28 41 AA 31 29 B2 53 31 24 00 55 27 3B 01 53 31 |(A.1).S1$.U';.S1|
00001F30: 24 B2 4E 41 24 28 41 29 3A 4E 41 24 28 41 29 B2 |$.NA$(A):NA$(A).|
00001F40: 4E 41 24 28 41 AA 31 29 3A 4E 41 24 28 41 AA 31 |NA$(A.1):NA$(A.1|
00001F50: 29 B2 53 31 24 00 81 27 3C 01 53 31 24 B2 41 41 |).S1$..'<.S1$.AA|
00001F60: 24 28 41 29 3A 41 41 24 28 41 29 B2 41 41 24 28 |$(A):AA$(A).AA$(|
00001F70: 41 AA 31 29 3A 41 41 24 28 41 AA 31 29 B2 53 31 |A.1):AA$(A.1).S1|
00001F80: 24 00 A9 27 3E 01 53 31 24 B2 45 24 28 41 29 3A |$..'>.S1$.E$(A):|
00001F90: 45 24 28 41 29 B2 45 24 28 41 AA 31 29 3A 45 24 |E$(A).E$(A.1):E$|
00001FA0: 28 41 AA 31 29 B2 53 31 24 00 B3 27 40 01 89 20 |(A.1).S1$..'@.. |
00001FB0: 33 31 31 00 F7 27 41 01 99 41 24 3A 99 22 11 11 |311..'A..A$:."..|
00001FC0: 20 05 20 2D 1E 4D 45 4D 4F 52 49 41 20 44 49 53 | . -.MEMORIA DIS|
00001FD0: 50 4F 4E 49 42 4C 45 3A 20 05 22 3B B8 28 30 29 |PONIBLE: .";.(0)|
00001FE0: AB 28 B8 28 30 29 B3 30 29 AC 36 35 35 33 36 3B |.(.(0).0).65536;|
00001FF0: 22 1E 42 59 54 53 22 00 20 28 42 01 99 22 11 11 |".BYTS". (B.."..|
00002000: 20 50 55 4C 53 41 20 27 4D 27 20 50 41 52 41 20 | PULSA 'M' PARA |
00002010: 56 4F 4C 56 45 52 20 41 4C 20 4D 45 4E 55 2E 22 |VOLVER AL MENU."|
00002020: 00 35 28 43 01 A1 42 24 3A 8B 42 24 B3 B1 22 4D |.5(C..B$:.B$.."M|
00002030: 22 A7 33 32 33 00 3D 28 44 01 89 35 33 00 77 28 |".323.=(D..53.w(|
00002040: 45 01 99 41 24 22 1E 3F 45 52 52 4F 52 2E 20 44 |E..A$".?ERROR. D|
00002050: 45 4D 41 53 49 41 44 4F 53 20 43 41 52 41 43 54 |EMASIADOS CARACT|
00002060: 45 52 45 53 22 3A 99 22 50 55 4C 53 41 20 55 4E |ERES":."PULSA UN|
00002070: 41 20 54 45 43 4C 41 00 8A 28 46 01 A1 42 24 3A |A TECLA..(F..B$:|
00002080: 8B 42 24 B2 22 22 A7 33 32 36 00 90 28 47 01 8E |.B$."".326..(G..|
00002090: 00 00 00 |... |
..#.... DADO POR AGUSTIN EL 23-8-86.)...
:.P.... ** DIMENSIONADO DE VARIABLES **
.V...:......T$( 500),NA$( 500),AA$( 500)
,E$(500),G$( 500)......F( 500),C( 500),S
$( 500).....:.S.... ** INICIALIZACION V
ARIABLES **.Y...:.(...A$."..............
............................
.BIBLIOTECA 64".I...B$." .
........................................
".V...A$.A$.B$.....XX$.".
".Y...W$."
".....:.
.....53281,0:.53280,0.....:...... **
PRE-MENU **.....:.^....A$:."
.PRE-MENU":." EEE
EEEEE"......".. .*. ABRIR UN NUEVO FICHE
RO..........(1).A....".. .*. TRABAJAR SO
BRE EL ANTERIOR......(2)".S....B$:.B$.""
.31... ..B$."1".69...!..B$.."2".31...".:
...#.. ** CARGA DE DATOS **...$.:.$.%
..A$.Q.&..".-.REBOBINA LA CINTA HASTA EL
40(1RA PAR TE) 0 200 DEL DATASSETTE
"...'.." .DESPUES PULSA 'P' Y SIGUE
INSTRUCCIONES..U.(.." .'V'
VUELVE AL PRE-MENU."...)..B$:.B$."".41.
..*..B$."V".28...+..B$.."P".41...,..1,1,
0,"BIBLIOFICH".(.-..1,ND.4....A.1.ND.U./
..1,T$(A):.1,NA$(A):.1,AA$(A).B.0..1,E$(
A).L.1..A: 1.R.2.:...3.. ** MENU **.
..4.:.J.5..A$:." .MENU"
:." EEEE"...6..". .*. C
ONFECCIONAR FICHAS............(1)".).7..
". .*. LECTURA DE FICHAS..............(2
).X.8..". .*. CORRECCION DE FICHAS......
.....(3)...9..". .*. ANULADO DE DATOS...
............(4)...:..". .*. VUELTA AL PR
E-MENU.............(5)...;..". .*. ORDEM
ALF. FICHAS..............(6)...<..". .*
. GRABACION DE DATOS.............(7).C.=
..". .*. MEMORIA DISPONIBLE.............
(8).R.>..". .*. FINALIZAR...............
.......(9)...?..B$:.B$."".E(B$).1.E(B$).
9.63...@..B$."9"..A$:..N.A..E(B$).69,93,
202,259,28,293,277,321.T.B.:...C.. ** C
ONFECCION DE FICHAS **...D.:.(.E..A$:."
.CONFECCION DE FICHAS".O.F.."
.EEEEEEEEEEEEEEEEEEEE".~.G..".
.(INTRODUCIENDO .-1. VUELVE AL MENU)..
.H.ND .ND.1...I.."..-TITULO: .";T$(ND):
C$.T$(ND):.88.T.J..C(T$(ND)).30..A$:.325
:.73...M.."...-NOMBRE AUT.: .";NA$(ND):
C$.NA$(ND):.88.&.N..C(NA$(ND)).29..A$:.3
25:.77.V.O.."...-APELLIDOS: .";AA$(ND):
C$.AA$(ND):.88...P..C(NA$(ND)).C(AA$(ND)
).29..A$:.325:.79...S.."...-UBICACION:
."; E$(ND):C$.E$(ND):.88.O.T..C(E$(ND)).
27..A$:.325:.83.W.W..69...X..C$."-1".ND.
ND.1:.53...Y.....Z.:...[.. **LECTURA DE
FICHAS **.!.\.:.J.]..A$:." .
LECTURA DE FICHAS".O.^..". EEE
EEEEEEEEEEEEEE".~._..ND..0.100. .`.."..
.*.NO HAY NINGUN DATO.".B.A..".. .('M
' VUELVE AL MENU)".V.B..B$:.B$.."M".98..
.C..53...D.." .TABLA DE POSIBILIDADES
DE BUSQUEDA..".@.E.." ..P............
O... ..............P..P".K.F..A.1.4..G.
." . . . . . .
.":.A...H.." . . . .
"...I.." ...............
L... . ....J.." . .
. . .................."...K..A.
1.6.O.L.." . . . . ..
..":.A...M.." . .
. . .................."...N.." ......
.........L... ..................":...O..
"...............*.APELLIDOS....1...NUM.D
E FICHA.....'.P.."............... ..*.NO
MBRE.......2...TODAS.........6".S.Q.."..
............... ..*.TITULO ....3"...S.
."...................... ..*.UBICACION..
..4".B.V.."........................'ESPA
CIO' VA...........AL MENU".R.W..B$." ".
53...X..B$:.B$."".B$." ".E(B$).1.E(B$).6
.119...Y..B$." ". 53...Z.B.E(B$).C.{..A$
:." .LECTURA DE FICHAS".K.|.
." .DDDDDDDDDDDDDDDDD "...}.
.B.126,129,135,141,147,153...~.."...-APE
LLIDOS: .";D$.A...A.1.ND:G$(A).AA$(A):.
A.J....154......"...-NOMBRE: .";D$......
A.1.ND:G$(A).NA$(A):.A...... 154. ....".
..-TITULO: .";D$.;....A.1.ND:G$(A).T$(A)
:.A.D....154.^...."..-UBICACION: .";D$.Y
....A.1.ND:G$(A).E$(A):.A......154.K...D
.0:." .*. INTRODUZCA LOS NUMEROS DE LAS
FICHAS QUE QUIERA VER. "......" .*.
0. FINALIZA..".....D.D.1:."...-NUMERO:
...";C(D):.C(D).0.D.D.1:.53.O....C(D)
.0.C(D).ND.D.D.1:.".-.NO EXISTE..":.149.
F....S.1.D:A.C(S):.163.{....T.1.ND:A.T:.
163.....E.0:.A.1.ND......H(D$,C(D$)).H(G
$(A),C(D$)).E.E.1:F(E).A.G....:.E.0.158.
P....162......".. .*. NO EXISTE NINGUNA
FICHA CON ESOS DATOS.".7....
" ('M' VUELVE AL MENU.)".L. ..B$:
.B$.."M".160.T....53.F....R.1.E:A.F(R)..
....A$:." .LECTURA DE FICHAS"
......" .DDDDDDDDDDDDDDDDD"..
...."O..................................
....P";......"..NUM.."D(A);.40.(C(D(A)).
6))".";. ....".".38)".";.O...."..TITULO:
."T$(A);.40.(C(T$(A)).10))".";.`...."."
.38)".";......"..AUTOR: ."AA$(A)", "NA$(
A);.40.(C(AA$(A).NA$(A)).11))".";......"
.".38)".";......"..UBICACION: ."E$(A);.4
0.(C(E$(A)).13))".";......".".38)".";.%.
..."L...................................
....".V...."'M' VUELVE AL MENU.'L' VUELV
E A LECTURA.";.D....B..5.185.Q....S.D.19
6.Z....189......B..6.188......T.ND.196..
....189......R.E.196.B...."'C' CONTINUA.
";.U....B$:.B$."M".53......B$."L".196...
...B$.."C".190...A..B.5..S...B..B.6..T..
.C..R.(.D..B$:.B$."M".53.9.E..B$.."L".19
6.A.F..92.G.G.:.K.H..** CORRECCION DE
FICHAS **.Q.I.:...J.H$.A$."
".P.K.H$.H$.
". CORRECION DE FICHAS"...L.H$.
H$.". EEEEEEEEEEEEEE
EEEEE":.A$.P.M..ND.0..". -.NO HAY NINGUN
DATO. 'M' VUELVE AL MENU":.207
.Y.N..209.N.O..B$:.B$.."M".207.V.P..53..
.Q..". -.0 VUELVE AL MENU.":.". -.NUMERO
DE FICHAS A CORREGIR";NF.O.R..NF.ND.NF.
ND:.213...S..NF.0.53...T..NF.0.202...U..
A.1.NF:.A$...V.." -1 VA A LECTURA DE D
ATOS..:.W.." 0 VUELVE AL MENU.".V.X..
". -.NUMERO DE LA FICHAS";FF:.FF.ND.."NO
EXISTE.":.216...Y..FF.0.53...Z..FF..1.9
3. ....FF..1.213......H$......" SI EL D
ATO ES CORRECTO, PULSA 'RETURN' SI NO L
O ES,CORRIGELO......."...-.TITULO: .";T$
(FF).-....".-.NOMBRE AUT.: .";NA$(FF).L.
...".-.APELLIDOS: .";AA$(FF).K....".-.UB
ICACION: ."; E$(FF).....X$."":.".TIT. ."
;X$:.X$."".236......C(X$).30. .325:.220.
....."...................."X$;H(W$,40.(C
(X$).9));".......";.....T$(FF).X$:.XX$..
...X$."":."..NOM. .";X$:.X$."".239.Z....
"..........................."X$;H(W$,40.
(C(X$).14));"....".N...NA$(FF).X$:.XX$..
...X$."":."..APE. .";X$:.X$."".245.R....
"..........................."X$;H(W$,40.
(C(X$).12));"...";.....AA$(FF).X$:.XX$..
..X$."":."..UBI. .";X$:.X$."".251.J ...
"............................."X$;H(W$,4
0.(C(X$).12));".";.] ..E$(FF).X$:.XX$..
...". 'S' SIGUE.'M' VA AL MENU.".. ...B$
:.A.NF.254. ...B$."S".... ...B$.."M".25
2.. ...53.. ..:.. ... ** ANULADO DE FIC
HAS **.. ..:..!...A$:." .ANU
LADO DE DATOS".3!..." .DDDDDD
DDDDDDDDDD".B!...ND..0.265.T!...". -.NO
HAY NINGUN DATO.'M' VUELVE AL MENU."..!.
..B$:.B$.."M".263..!...53.V!...". -.INTR
ODUZCA LOS NUMEROS DE LAS FICHAS QUE
DESEE ANULAR.".."...". -.0 VUELVE AL MEN
U. -1 VA A LECTURA DE DATOS..."._"
..."**LOS NUMEROS DEBEN SER INTRODUCIDOS
DE MAYOR A MENOR!!!!!!..".Z"...".N
UM. DE FICHA :";NF.."...NF.0.53.."...NF.
.1.93.."...NF.ND.NF..1..".NO EXISTE...":
.268.."...A.NF.ND:T$(A).T$(A.1):NA$(A).N
A$(A.1):AA$(A).AA$(A.1)..#..E$(A).E$(A.1
):.A:ND.ND.1:.268..#..:.?#... ** GRABAC
ION DE DATOS **.E#..:.P#...A$:."
.GRABACION DE DATOS"..#..."
.DDDDDDDDDDDDDDDDDD"..#...ND..0.283.W
#...".-.NO HAY NINGUN DATO.'M' VUELVE AL
MENU."..#...B$:.B$.."M".281..#...53.A$.
.."**.REBOBINA LA CINTA HASTA EL 40(1RA
PAR TE) O 200 DEL DATASSETTE!!"..$..."
...** DESPUES PULSA 'G' PARA COMENZAR LA
GRABACION. 'M' VA MENU."..$...B$
:.B$."M".53..$...B$.."G".285.L$...1,1,1,
"BIBLIOFICH".V$ ..1,ND..$!..A.1.ND..%"..
1,T$(A):.1,NA$(A):.1,AA$(A)..%#..1,E$(A)
..%$..: 1:.53.#%%.:.)%&.../%'.:.X%(..A$:
." .ORDEN ALF.FICHAS":."
.DDDDDDDDDDDDDDDD..%)..ND.0.301..
%*..". -.NO HAY NINGUN DATO. .'M' VA AL
MENU.".K%+..B$:.B$.."M".299.S%,..53..&-.
.". -.ORDENO POR AUTORES 0 POR OBRAS (A/
O)?"..&..." .'M' VA AL MENU.".3&/..B$:.
B$."A" .308.C&0..B$."O".309.S&1..B$."T".
310.D&2..B$.."M".303.L&3..53..&4..A.1.ND
:S$(A).AA$(A).NA$(A):.:.311..&5..A.1.ND:
S$(A). T$(A):.:.311.Y&7..A.1.ND.1:.S$(A.
1).. S$(A). .:.53..'8.S1$.S$(A):S$(A).S$
(A.1):S$(A.1).S1$.)'9.S1$.T$(A):T$(A).T$
(A.1):T$(A.1).S1$.U';.S1$.NA$(A):NA$(A).
NA$(A.1):NA$(A.1).S1$..'<.S1$.AA$(A):AA$
(A).AA$(A.1):AA$(A.1).S1$..'>.S1$.E$(A):
E$(A).E$(A.1):E$(A.1).S1$..'@.. 311..'A.
.A$:.".. . -.MEMORIA DISPONIBLE: .";.(0)
.(.(0).0).65536;".BYTS". (B..".. PULSA '
M' PARA VOLVER AL MENU.".5(C..B$:.B$.."M
".323.=(D..53.W(E..A$".?ERROR. DEMASIADO
S CARACTERES":."PULSA UNA TECLA..(F..B$:
.B$."".326..(G.....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL