ARCHIVO BASE
FILE INFORMATION
FILENAME(S): ARCHIVO BASE
FILE TYPE(S): PRG
FILE SIZE: 7.7K
FIRST SEEN: 2025-10-19 23:07:13
APPEARS ON: 1 disk(s)
FILE HASH
ac8378b2a2611d0fa8f80af586e5a3cc3c0cdf45711938c5dfd8173d564e1aa8
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PROCES TEXTOS | ARCHIVO BASE | PRG | Bugjam - Argentina | 4 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 13 08 0A 00 9F 31 35 2C 38 2C 31 35 2C 22 |.......15,8,15,"|
00000010: 49 30 22 00 20 08 64 00 86 41 24 28 35 30 30 29 |I0". .d..A$(500)|
00000020: 00 4F 08 6E 00 8F 2A 2A 2A 20 44 41 54 41 20 42 |.O.n..*** DATA B|
00000030: 41 53 45 20 31 30 2F 30 34 2F 38 35 20 41 4C 42 |ASE 10/04/85 ALB|
00000040: 45 52 54 4F 20 4D 41 52 43 4F 4E 49 2A 2A 2A 00 |ERTO MARCONI***.|
00000050: 63 08 78 00 97 33 36 38 37 39 2C 34 32 3A 99 22 |c.x..36879,42:."|
00000060: 05 22 3B 00 6F 08 82 00 99 22 93 11 11 11 22 00 |.";.o...."....".|
00000070: A1 08 8C 00 99 A3 31 31 29 22 A6 A6 A6 A6 A6 A6 |......11)"......|
00000080: A6 A6 A6 A6 A6 A6 A6 A6 A6 22 3A 99 A3 31 31 29 |.........":..11)|
00000090: 22 A6 CD A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 CE A6 |"...............|
000000A0: 22 00 BC 08 96 00 99 A3 31 31 29 22 A6 A7 20 20 |".......11)".. |
000000B0: 20 20 20 20 20 20 20 20 20 A5 A6 22 00 EE 08 A0 | .."....|
000000C0: 00 99 A3 31 31 29 22 A6 A7 20 44 41 54 41 20 42 |...11)".. DATA B|
000000D0: 41 53 45 20 A5 A6 22 3A 99 A3 31 31 29 22 A6 A7 |ASE ..":..11)"..|
000000E0: 20 20 20 20 20 20 20 20 20 20 20 A5 A6 22 00 09 | .."..|
000000F0: 09 AA 00 99 A3 31 31 29 22 A6 CE A3 A3 A3 A3 A3 |.....11)".......|
00000100: A3 A3 A3 A3 A3 A3 CD A6 22 00 24 09 B4 00 99 A3 |........".$.....|
00000110: 31 31 29 22 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 |11)"............|
00000120: A6 A6 A6 22 00 5D 09 BE 00 99 A3 31 37 29 22 11 |...".].....17)".|
00000130: 11 42 59 22 3A 99 A3 31 31 29 22 11 41 4C 42 45 |.BY":..11)".ALBE|
00000140: 52 54 4F 20 4D 41 52 43 4F 4E 49 22 3A 99 A3 31 |RTO MARCONI":..1|
00000150: 34 29 22 11 28 43 29 20 31 39 38 35 22 00 6D 09 |4)".(C) 1985".m.|
00000160: C8 00 81 54 B2 31 A4 33 30 30 30 3A 82 00 8B 09 |...T.1.3000:....|
00000170: D2 00 97 36 35 30 2C 31 32 38 3A 97 33 36 38 37 |...650,128:.3687|
00000180: 39 2C 31 31 30 3A 99 22 05 22 3B 00 94 09 DC 00 |9,110:.".";.....|
00000190: 89 35 33 30 00 AF 09 E6 00 8F 20 2A 2A 2A 20 4C |.530...... *** L|
000001A0: 45 45 52 20 41 52 43 48 49 56 4F 20 2A 2A 2A 00 |EER ARCHIVO ***.|
000001B0: D9 09 F0 00 99 22 93 20 20 20 20 20 20 20 20 20 |.....". |
000001C0: 12 20 20 20 20 20 4C 45 45 52 20 41 52 43 48 49 |. LEER ARCHI|
000001D0: 56 4F 20 20 20 20 20 92 22 00 FD 09 FA 00 99 22 |VO ."......"|
000001E0: 11 11 11 11 20 20 20 20 20 20 20 20 20 20 20 20 |.... |
000001F0: 44 20 2D 20 45 4E 20 44 49 53 43 4F 22 00 22 0A |D - EN DISCO".".|
00000200: 04 01 99 22 11 11 20 20 20 20 20 20 20 20 20 20 |...".. |
00000210: 20 20 4E 20 2D 20 45 4E 20 43 41 53 53 45 54 54 | N - EN CASSETT|
00000220: 45 22 00 48 0A 0E 01 99 22 11 11 20 20 20 20 20 |E".H....".. |
00000230: 20 20 20 20 20 20 20 54 20 2D 20 52 45 54 4F 52 | T - RETOR|
00000240: 4E 41 20 4D 45 4E 55 22 00 5B 0A 18 01 A1 41 24 |NA MENU".[....A$|
00000250: 3A 8B 41 24 B2 22 22 A7 32 38 30 00 6C 0A 22 01 |:.A$."".280.l.".|
00000260: 8B 41 24 B2 22 44 22 A7 32 35 32 30 00 7C 0A 2C |.A$."D".2520.|.,|
00000270: 01 8B 41 24 B2 22 4E 22 A7 33 33 30 00 8C 0A 36 |..A$."N".330...6|
00000280: 01 8B 41 24 B2 22 54 22 A7 35 33 30 00 95 0A 40 |..A$."T".530...@|
00000290: 01 89 32 38 30 00 BF 0A 4A 01 99 22 93 20 20 20 |..280...J..". |
000002A0: 20 20 20 20 20 20 20 20 12 1E 20 20 50 45 44 49 | .. PEDI|
000002B0: 52 20 20 41 52 43 48 49 56 4F 20 20 92 05 22 00 |R ARCHIVO ..".|
000002C0: D3 0A 54 01 85 22 11 11 12 46 49 4C 45 3A 92 22 |..T.."...FILE:."|
000002D0: 3B 46 24 00 F2 0A 5E 01 9F 31 2C 31 2C 30 2C 46 |;F$...^..1,1,0,F|
000002E0: 24 3A 99 22 11 46 49 4C 45 3A 20 12 22 46 24 22 |$:.".FILE: ."F$"|
000002F0: 92 22 00 1A 0B 68 01 84 31 2C 43 41 3A 81 4D B2 |."...h..1,CA:.M.|
00000300: 31 A4 43 41 3A 84 31 2C 43 41 24 28 4D 29 3A 84 |1.CA:.1,CA$(M):.|
00000310: 31 2C 44 44 28 4D 29 3A 82 4D 00 3E 0B 72 01 84 |1,DD(M):.M.>.r..|
00000320: 31 2C 59 3A 81 49 B2 31 A4 59 3A 84 31 2C 41 24 |1,Y:.I.1.Y:.1,A$|
00000330: 28 49 29 3A 82 49 3A A0 31 3A 89 35 33 30 00 5A |(I):.I:.1:.530.Z|
00000340: 0B 7C 01 8F 20 2A 2A 2A 20 52 45 47 49 53 54 52 |.|.. *** REGISTR|
00000350: 41 20 46 49 4C 45 20 2A 2A 2A 00 86 0B 86 01 99 |A FILE ***......|
00000360: 22 93 20 20 20 20 20 20 20 20 20 12 20 20 20 20 |". . |
00000370: 20 47 52 41 42 41 20 41 52 43 48 49 56 4F 20 20 | GRABA ARCHIVO |
00000380: 20 20 20 20 92 22 00 AA 0B 90 01 99 22 11 11 11 | ."......"...|
00000390: 11 20 20 20 20 20 20 20 20 20 20 20 20 44 20 2D |. D -|
000003A0: 20 53 55 20 44 49 53 43 4F 22 00 CF 0B 9A 01 99 | SU DISCO"......|
000003B0: 22 11 11 20 20 20 20 20 20 20 20 20 20 20 20 4E |".. N|
000003C0: 20 2D 20 53 55 20 43 41 53 53 45 54 54 45 22 00 | - SU CASSETTE".|
000003D0: F8 0B A4 01 99 22 11 11 20 20 20 20 20 20 20 20 |.....".. |
000003E0: 20 20 20 20 54 20 2D 20 52 45 54 4F 52 4E 41 20 | T - RETORNA |
000003F0: 41 4C 20 4D 45 4E 55 22 00 0B 0C AE 01 A1 41 24 |AL MENU"......A$|
00000400: 3A 8B 41 24 B2 22 22 A7 34 33 30 00 1C 0C B8 01 |:.A$."".430.....|
00000410: 8B 41 24 B2 22 44 22 A7 32 36 35 30 00 2C 0C C2 |.A$."D".2650.,..|
00000420: 01 8B 41 24 B2 22 4E 22 A7 34 38 30 00 3C 0C CC |..A$."N".480.<..|
00000430: 01 8B 41 24 B2 22 54 22 A7 35 33 30 00 45 0C D6 |..A$."T".530.E..|
00000440: 01 89 34 33 30 00 6F 0C E0 01 99 22 93 20 20 20 |..430.o....". |
00000450: 20 20 20 20 20 20 20 20 12 1E 20 20 47 52 41 42 | .. GRAB|
00000460: 41 20 20 41 52 43 48 49 56 4F 20 20 92 05 22 00 |A ARCHIVO ..".|
00000470: A2 0C EA 01 99 22 11 11 45 53 43 52 49 42 49 52 |....."..ESCRIBIR|
00000480: 20 4E 4F 4D 42 52 45 20 44 45 20 41 52 43 48 49 | NOMBRE DE ARCHI|
00000490: 56 4F 22 3A 85 22 11 12 46 49 4C 45 3A 92 22 3B |VO":."..FILE:.";|
000004A0: 46 24 00 C4 0C F4 01 9F 31 2C 31 2C 31 2C 46 24 |F$......1,1,1,F$|
000004B0: 3A 99 22 11 41 52 43 48 49 56 4F 3A 20 12 22 46 |:.".ARCHIVO: ."F|
000004C0: 24 22 92 22 00 EC 0C FE 01 98 31 2C 43 41 3A 81 |$"."......1,CA:.|
000004D0: 4D B2 31 A4 43 41 3A 98 31 2C 43 41 24 28 4D 29 |M.1.CA:.1,CA$(M)|
000004E0: 3A 98 31 2C 44 44 28 4D 29 3A 82 4D 00 10 0D 08 |:.1,DD(M):.M....|
000004F0: 02 98 31 2C 59 3A 81 49 B2 31 A4 59 3A 98 31 2C |..1,Y:.I.1.Y:.1,|
00000500: 41 24 28 49 29 3A 82 49 3A A0 31 3A 89 35 33 30 |A$(I):.I:.1:.530|
00000510: 00 3A 0D 12 02 99 22 93 20 20 20 20 20 20 A6 A6 |.:....". ..|
00000520: A6 A6 12 20 20 20 44 41 54 41 20 2D 20 42 41 53 |... DATA - BAS|
00000530: 45 20 20 20 92 A6 A6 A6 A6 22 00 5E 0D 1C 02 99 |E .....".^....|
00000540: 22 11 20 20 20 20 20 20 20 20 20 20 20 31 2D 20 |". 1- |
00000550: 4C 45 45 52 20 41 52 43 48 49 56 4F 20 22 00 83 |LEER ARCHIVO "..|
00000560: 0D 26 02 99 22 11 20 20 20 20 20 20 20 20 20 20 |.&..". |
00000570: 20 32 2D 20 47 52 41 42 41 52 20 41 52 43 48 49 | 2- GRABAR ARCHI|
00000580: 56 4F 22 00 A7 0D 30 02 99 22 11 20 20 20 20 20 |VO"...0..". |
00000590: 20 20 20 20 20 20 33 2D 20 43 52 45 41 52 20 41 | 3- CREAR A|
000005A0: 52 43 48 49 56 4F 22 00 CF 0D 3A 02 99 22 11 20 |RCHIVO"...:..". |
000005B0: 20 20 20 20 20 20 20 20 20 20 34 2D 20 43 4F 4E | 4- CON|
000005C0: 54 49 4E 55 41 52 20 41 52 43 48 49 56 4F 22 00 |TINUAR ARCHIVO".|
000005D0: F5 0D 44 02 99 22 11 20 20 20 20 20 20 20 20 20 |..D..". |
000005E0: 20 20 35 2D 20 4D 4F 53 54 52 41 52 20 41 52 43 | 5- MOSTRAR ARC|
000005F0: 48 49 56 4F 22 00 1C 0E 4E 02 99 22 11 20 20 20 |HIVO"...N..". |
00000600: 20 20 20 20 20 20 20 20 36 2D 20 41 43 4F 4D 4F | 6- ACOMO|
00000610: 44 41 52 20 41 52 43 48 49 56 30 22 00 40 0E 58 |DAR ARCHIV0".@.X|
00000620: 02 99 22 11 20 20 20 20 20 20 20 20 20 20 20 37 |..". 7|
00000630: 2D 20 50 45 44 49 52 20 41 52 43 48 49 56 4F 22 |- PEDIR ARCHIVO"|
00000640: 00 69 0E 62 02 99 22 11 20 20 20 20 20 20 20 20 |.i.b..". |
00000650: 20 20 20 37 2D 20 50 45 44 49 52 20 43 4F 4D 50 | 7- PEDIR COMP|
00000660: 4C 45 54 4F 20 28 2C 29 22 00 8D 0E 6C 02 99 22 |LETO (,)"...l.."|
00000670: 11 20 20 20 20 20 20 20 20 20 20 20 4D 2D 20 4D |. M- M|
00000680: 45 4D 4F 52 49 41 20 4C 49 42 52 45 22 00 A8 0E |EMORIA LIBRE"...|
00000690: 6E 02 99 22 11 20 20 20 20 20 20 20 20 20 20 20 |n..". |
000006A0: 45 2D 20 46 49 4E 20 22 00 DB 0E 76 02 99 22 11 |E- FIN "...v..".|
000006B0: 20 20 20 12 43 41 4D 50 4F 53 3D 92 22 43 41 3A | .CAMPOS=."CA:|
000006C0: 99 A3 31 36 29 22 91 12 4C 49 4E 45 41 53 20 47 |..16)"..LINEAS G|
000006D0: 52 41 42 41 44 41 53 3D 92 22 59 00 EE 0E 80 02 |RABADAS=."Y.....|
000006E0: A1 45 24 3A 8B 45 24 B2 22 22 A7 36 34 30 00 F7 |.E$:.E$."".640..|
000006F0: 0E 81 02 99 22 93 22 00 07 0F 8A 02 8B 45 24 B2 |...."."......E$.|
00000700: 22 31 22 A7 32 33 30 00 17 0F 94 02 8B 45 24 B2 |"1".230......E$.|
00000710: 22 32 22 A7 33 38 30 00 27 0F 9E 02 8B 45 24 B2 |"2".380.'....E$.|
00000720: 22 33 22 A7 37 35 30 00 37 0F A8 02 8B 45 24 B2 |"3".750.7....E$.|
00000730: 22 34 22 A7 39 37 30 00 48 0F B2 02 8B 45 24 B2 |"4".970.H....E$.|
00000740: 22 35 22 A7 38 30 30 30 00 59 0F BC 02 8B 45 24 |"5".8000.Y....E$|
00000750: B2 22 36 22 A7 32 32 38 30 00 6A 0F C6 02 8B 45 |."6".2280.j....E|
00000760: 24 B2 22 37 22 A7 31 36 39 30 00 7B 0F D0 02 8B |$."7".1690.{....|
00000770: 45 24 B2 22 4D 22 A7 31 33 33 30 00 8C 0F DA 02 |E$."M".1330.....|
00000780: 8B 45 24 B2 22 53 22 A7 31 34 35 30 00 C7 0F DC |.E$."S".1450....|
00000790: 02 8B 45 24 B2 22 45 22 A7 99 22 93 11 11 11 11 |..E$."E"..".....|
000007A0: 11 11 11 11 11 11 20 20 20 20 20 20 20 20 20 20 |...... |
000007B0: 20 20 12 46 49 4E 20 44 45 20 50 52 4F 47 52 41 | .FIN DE PROGRA|
000007C0: 4D 41 2E 92 22 3A 80 00 D0 0F E4 02 89 36 34 30 |MA..":.......640|
000007D0: 00 EB 0F EE 02 8F 20 2A 2A 2A 20 43 52 45 4F 20 |...... *** CREO |
000007E0: 41 52 43 48 49 56 4F 20 2A 2A 2A 00 16 10 20 03 |ARCHIVO ***... .|
000007F0: 99 22 11 11 20 20 20 20 20 20 20 20 20 20 20 A6 |.".. .|
00000800: A6 12 4F 50 52 49 4D 41 20 55 4E 41 20 54 45 43 |..OPRIMA UNA TEC|
00000810: 4C 41 92 A6 A6 22 00 2B 10 2A 03 A1 41 55 24 3A |LA...".+.*..AU$:|
00000820: 8B 41 55 24 B2 22 22 A7 38 31 30 00 6F 10 34 03 |.AU$."".810.o.4.|
00000830: 99 22 93 20 20 20 20 20 20 20 20 A6 A6 A6 12 20 |.". .... |
00000840: 20 43 52 45 41 52 20 41 52 43 48 49 56 4F 20 20 | CREAR ARCHIVO |
00000850: 20 92 A6 A6 A6 22 3A 99 22 11 11 43 55 41 4E 54 | ....":."..CUANT|
00000860: 4F 53 20 43 41 4D 50 4F 53 20 3F 20 12 22 3B 00 |OS CAMPOS ? .";.|
00000870: 82 10 3E 03 A1 52 24 3A 8B 52 24 B2 22 22 A7 38 |..>..R$:.R$."".8|
00000880: 33 30 00 8F 10 48 03 43 41 B2 C5 28 52 24 29 00 |30...H.CA..(R$).|
00000890: C9 10 52 03 99 43 41 3A 99 3A 99 22 20 12 20 4E |..R..CA:.:." . N|
000008A0: 4F 4D 42 52 45 20 44 45 4C 20 43 41 4D 50 4F 20 |OMBRE DEL CAMPO |
000008B0: 92 20 20 20 12 20 4C 41 52 47 4F 20 44 45 4C 20 |. . LARGO DEL |
000008C0: 43 41 4D 50 4F 92 22 3A 99 00 DA 10 5C 03 41 48 |CAMPO.":....\.AH|
000008D0: B2 30 3A 81 4B B2 31 A4 43 41 00 07 11 66 03 99 |.0:.K.1.CA...f..|
000008E0: 4B 3B 3A 85 22 20 22 3B 43 41 24 28 4B 29 3A 8B |K;:." ";CA$(K):.|
000008F0: C3 28 43 41 24 28 4B 29 29 B1 31 30 A7 99 22 91 |.(CA$(K)).10..".|
00000900: 91 22 3A 89 38 37 30 00 3F 11 70 03 99 22 91 1D |.":.870.?.p.."..|
00000910: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000920: 1D 1D 1D 1D 1D 1D 1D 1D 22 3B 3A 85 44 44 28 4B |........";:.DD(K|
00000930: 29 3A 8B 44 44 28 4B 29 B1 32 35 A7 38 38 30 00 |):.DD(K).25.880.|
00000940: 5C 11 7A 03 41 48 B2 41 48 AA 28 44 44 28 4B 29 |\.z.AH.AH.(DD(K)|
00000950: 29 3A 8B 41 48 B1 38 38 A7 38 38 30 00 62 11 84 |):.AH.88.880.b..|
00000960: 03 82 00 A5 11 8E 03 42 48 B2 38 38 AB 41 48 3A |.......BH.88.AH:|
00000970: 99 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 |."..............|
00000980: 11 11 11 11 11 20 20 20 20 20 20 20 20 22 42 48 |..... "BH|
00000990: 22 12 43 41 52 41 43 54 45 52 45 53 20 4C 49 42 |".CARACTERES LIB|
000009A0: 52 45 53 92 22 00 CA 11 98 03 99 22 20 20 20 20 |RES."......" |
000009B0: 20 20 20 20 20 20 11 4E 45 43 45 53 49 54 41 20 | .NECESITA |
000009C0: 43 4F 52 52 45 47 49 52 3F 22 00 EA 11 99 03 99 |CORREGIR?"......|
000009D0: 3A 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |:." |
000009E0: 20 20 20 20 12 53 2F 4E 92 22 00 FF 11 A2 03 A1 | .S/N."......|
000009F0: 41 50 24 3A 8B 41 50 24 B2 22 22 A7 39 33 30 00 |AP$:.AP$."".930.|
00000A00: 10 12 AC 03 8B 41 50 24 B2 22 53 22 A7 39 36 31 |.....AP$."S".961|
00000A10: 00 21 12 B6 03 8B 41 50 24 B2 22 4E 22 A7 39 37 |.!....AP$."N".97|
00000A20: 30 00 2A 12 C0 03 89 39 33 30 00 50 12 C1 03 85 |0.*....930.P....|
00000A30: 22 11 4E 2E 20 44 45 4C 20 43 41 4D 50 4F 3A 22 |".N. DEL CAMPO:"|
00000A40: 3B 4E 43 3A 8B 4E 43 B1 43 41 AA 31 A7 39 36 31 |;NC:.NC.CA.1.961|
00000A50: 00 86 12 C2 03 85 22 11 12 4E 4F 4D 42 52 45 20 |......"..NOMBRE |
00000A60: 44 45 4C 20 43 41 4D 50 4F 92 22 3B 43 41 24 28 |DEL CAMPO.";CA$(|
00000A70: 4E 43 29 3A 85 22 11 12 4C 41 52 47 4F 92 22 3B |NC):."..LARGO.";|
00000A80: 44 44 28 4E 43 29 00 BD 12 C3 03 99 22 93 11 20 |DD(NC)......".. |
00000A90: 20 12 4E 2E 44 45 4C 20 43 41 4D 50 4F 20 92 22 | .N.DEL CAMPO ."|
00000AA0: 3B 3A 99 22 20 20 20 20 20 12 4C 41 52 47 4F 92 |;:." .LARGO.|
00000AB0: 22 3A 99 3A 8B 4E 43 B1 43 41 A7 43 41 00 DF 12 |":.:.NC.CA.CA...|
00000AC0: C4 03 41 48 B2 30 3A 81 4B B2 31 A4 43 41 3A 99 |..AH.0:.K.1.CA:.|
00000AD0: 22 20 20 20 20 20 20 22 3B 43 41 24 28 4B 29 00 |" ";CA$(K).|
00000AE0: 14 13 C5 03 99 22 91 1D 1D 1D 1D 1D 1D 1D 1D 1D |....."..........|
00000AF0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000B00: 22 44 44 28 4B 29 3A 41 48 B2 41 48 AA 44 44 28 |"DD(K):AH.AH.DD(|
00000B10: 4B 29 3A 82 00 58 13 C6 03 42 48 B2 38 38 AB 41 |K):..X...BH.88.A|
00000B20: 48 3A 99 22 13 11 11 11 11 11 11 11 11 11 11 11 |H:."............|
00000B30: 11 11 11 11 11 11 11 20 20 20 20 20 20 20 20 20 |....... |
00000B40: 22 42 48 22 12 43 41 52 41 43 54 45 52 45 53 20 |"BH".CARACTERES |
00000B50: 4C 49 42 52 45 53 92 22 00 7E 13 C8 03 99 22 20 |LIBRES.".~...." |
00000B60: 20 20 20 20 20 20 20 20 20 20 11 4E 45 43 45 53 | .NECES|
00000B70: 49 54 41 20 43 4F 52 52 45 47 49 52 3F 22 00 87 |ITA CORREGIR?"..|
00000B80: 13 C9 03 89 39 33 30 00 95 13 CA 03 8B 43 41 B3 |....930......CA.|
00000B90: 31 A7 36 34 30 00 BF 13 D4 03 99 22 93 20 20 20 |1.640......". |
00000BA0: 20 20 20 20 20 20 20 20 12 20 20 43 52 45 41 52 | . CREAR|
00000BB0: 20 41 52 43 48 49 56 4F 20 20 20 92 20 20 22 00 | ARCHIVO . ".|
00000BC0: CD 13 DE 03 59 B2 59 AA 31 3A 49 B2 59 00 F1 13 |....Y.Y.1:I.Y...|
00000BD0: E8 03 99 22 11 11 50 41 52 41 20 52 45 54 4F 52 |..."..PARA RETOR|
00000BE0: 4E 41 52 20 41 4C 20 4D 45 4E 55 12 20 2A 20 92 |NAR AL MENU. * .|
00000BF0: 22 00 30 14 F2 03 99 22 11 4E 55 4D 45 52 4F 20 |".0....".NUMERO |
00000C00: 22 49 3A 99 22 91 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |"I:."...........|
00000C10: 1D 1D 12 31 32 33 34 35 36 37 38 39 30 31 32 33 |...1234567890123|
00000C20: 34 35 36 37 38 39 30 31 32 33 34 35 92 22 3A 99 |456789012345.":.|
00000C30: 00 45 14 FC 03 41 24 28 49 29 B2 22 22 3A 81 4B |.E...A$(I)."":.K|
00000C40: B2 31 A4 43 41 00 7D 14 06 04 99 22 12 22 43 41 |.1.CA.}...."."CA|
00000C50: 24 28 4B 29 22 92 22 3A 99 22 91 1D 1D 1D 1D 1D |$(K)".":."......|
00000C60: 1D 1D 1D 1D 1D 1D 1D 22 3B 3A 81 45 B2 31 A4 44 |.......";:.E.1.D|
00000C70: 44 28 4B 29 3A 99 22 2D 22 3B 3A 82 45 00 97 14 |D(K):."-";:.E...|
00000C80: 10 04 81 55 B2 31 A4 44 44 28 4B 29 AA 32 3A 99 |...U.1.DD(K).2:.|
00000C90: 22 9D 22 3B 3A 82 55 00 A3 14 1A 04 85 41 42 24 |".";:.U......AB$|
00000CA0: 28 4B 29 00 BD 14 24 04 8B C3 28 41 42 24 28 4B |(K)...$...(AB$(K|
00000CB0: 29 29 B1 44 44 28 4B 29 A7 31 30 33 30 00 D4 14 |)).DD(K).1030...|
00000CC0: 2E 04 41 24 28 49 29 B2 41 24 28 49 29 AA 41 42 |..A$(I).A$(I).AB|
00000CD0: 24 28 4B 29 00 F4 14 38 04 8B C8 28 41 42 24 28 |$(K)...8...(AB$(|
00000CE0: 4B 29 2C 31 29 B2 22 2A 22 A7 59 B2 59 AB 31 3A |K),1)."*".Y.Y.1:|
00000CF0: 89 35 33 30 00 07 15 42 04 82 4B 3A 8B 43 43 B2 |.530...B..K:.CC.|
00000D00: 39 39 A7 32 35 30 30 00 10 15 4C 04 89 39 38 30 |99.2500...L..980|
00000D10: 00 16 15 56 04 8F 00 49 15 60 04 99 22 11 12 20 |...V...I.`..".. |
00000D20: 49 3D 49 4E 53 45 52 54 2B 44 3D 42 4F 52 52 2E |I=INSERT+D=BORR.|
00000D30: 2B 43 3D 43 4F 52 52 2E 2B 4D 3D 4D 45 4E 55 2B |+C=CORR.+M=MENU+|
00000D40: 56 3D 43 4F 4E 54 20 92 22 00 5D 15 6A 04 A1 41 |V=CONT .".].j..A|
00000D50: 24 3A 8B 41 24 B2 22 22 A7 31 31 33 30 00 6E 15 |$:.A$."".1130.n.|
00000D60: 74 04 8B 41 24 B2 22 49 22 A7 32 34 36 30 00 7F |t..A$."I".2460..|
00000D70: 15 7E 04 8B 41 24 B2 22 43 22 A7 31 33 39 30 00 |.~..A$."C".1390.|
00000D80: 90 15 80 04 8B 41 24 B2 22 44 22 A7 33 30 30 30 |.....A$."D".3000|
00000D90: 00 A0 15 88 04 8B 41 24 B2 22 4D 22 A7 35 33 30 |......A$."M".530|
00000DA0: 00 B1 15 92 04 8B 41 24 B2 22 56 22 A7 31 31 39 |......A$."V".119|
00000DB0: 30 00 BB 15 9C 04 89 31 31 33 30 00 CE 15 A6 04 |0......1130.....|
00000DC0: 47 B2 30 3A 99 22 93 22 3A 89 31 32 36 30 00 D4 |G.0:.".":.1260..|
00000DD0: 15 B0 04 8F 00 FE 15 B2 04 99 22 93 20 20 20 20 |..........". |
00000DE0: 20 20 20 20 20 12 20 20 20 20 20 20 20 41 52 43 | . ARC|
00000DF0: 48 49 56 4F 20 20 20 20 20 20 20 20 92 22 00 1E |HIVO ."..|
00000E00: 16 BA 04 99 22 11 43 55 41 4E 54 4F 53 20 44 41 |....".CUANTOS DA|
00000E10: 54 4F 53 20 45 4E 20 56 49 44 45 4F 3F 22 00 34 |TOS EN VIDEO?".4|
00000E20: 16 BC 04 A1 47 47 24 3A 8B 47 47 24 B2 22 22 A7 |....GG$:.GG$."".|
00000E30: 31 32 31 32 00 42 16 BE 04 47 47 B2 C5 28 47 47 |1212.B...GG..(GG|
00000E40: 24 29 00 76 16 C4 04 47 B2 30 3A 81 49 B2 31 A4 |$).v...G.0:.I.1.|
00000E50: 59 3A 53 B2 31 3A 99 22 91 20 20 20 20 20 20 20 |Y:S.1:.". |
00000E60: 20 20 20 20 20 52 45 43 4F 52 44 20 4E 2E 12 22 | RECORD N.."|
00000E70: 49 22 92 22 3A 99 00 A4 16 CE 04 81 4D B2 31 A4 |I".":.......M.1.|
00000E80: 43 41 3A 41 42 24 28 4D 29 B2 CA 28 41 24 28 49 |CA:AB$(M)..(A$(I|
00000E90: 29 2C 53 2C 44 44 28 4D 29 29 3A 53 B2 53 AA 44 |),S,DD(M)):S.S.D|
00000EA0: 44 28 4D 29 00 CC 16 D8 04 99 22 12 22 43 41 24 |D(M)......"."CA$|
00000EB0: 28 4D 29 22 20 92 22 3A 99 22 91 1D 1D 1D 1D 1D |(M)" .":."......|
00000EC0: 1D 1D 1D 1D 1D 22 41 42 24 28 4D 29 00 E4 16 E2 |....."AB$(M)....|
00000ED0: 04 82 4D 3A 47 B2 47 AA 31 3A 8B 47 B2 47 47 A7 |..M:G.G.1:.G.GG.|
00000EE0: 31 31 32 30 00 F0 16 EC 04 99 22 11 22 3A 82 49 |1120......".":.I|
00000EF0: 00 23 17 F6 04 99 22 11 12 49 3D 49 4E 53 45 52 |.#...."..I=INSER|
00000F00: 54 20 20 43 3D 43 4F 52 52 45 47 49 52 20 20 20 |T C=CORREGIR |
00000F10: 44 3D 42 4F 52 52 41 52 20 20 20 4D 3D 4D 45 4E |D=BORRAR M=MEN|
00000F20: 55 92 22 00 37 17 00 05 A1 41 24 3A 8B 41 24 B2 |U.".7....A$:.A$.|
00000F30: 22 22 A7 31 32 38 30 00 48 17 0A 05 8B 41 24 B2 |"".1280.H....A$.|
00000F40: 22 49 22 A7 32 34 36 30 00 59 17 14 05 8B 41 24 |"I".2460.Y....A$|
00000F50: B2 22 43 22 A7 31 33 39 30 00 69 17 1E 05 8B 41 |."C".1390.i....A|
00000F60: 24 B2 22 4D 22 A7 35 33 30 00 7A 17 20 05 8B 41 |$."M".530.z. ..A|
00000F70: 24 B2 22 44 22 A7 33 30 30 30 00 84 17 28 05 89 |$."D".3000...(..|
00000F80: 31 32 38 30 00 97 17 32 05 8F 2A 2A 20 4D 45 4D |1280...2..** MEM|
00000F90: 4F 52 49 41 20 2A 2A 00 A8 17 3C 05 99 22 93 22 |ORIA **...<.."."|
00000FA0: 3A 46 52 B2 B8 28 30 29 00 CE 17 46 05 99 22 11 |:FR..(0)...F..".|
00000FB0: 11 11 11 11 20 20 20 20 20 20 20 20 20 20 20 20 |.... |
00000FC0: 12 4D 45 4D 4F 52 49 41 92 20 3D 22 46 52 00 F5 |.MEMORIA. ="FR..|
00000FD0: 17 50 05 99 22 11 11 20 20 20 20 20 20 20 20 20 |.P..".. |
00000FE0: 12 20 4F 50 52 49 4D 41 20 55 4E 41 20 54 45 43 |. OPRIMA UNA TEC|
00000FF0: 4C 41 20 92 22 00 09 18 5A 05 A1 41 24 3A 8B 41 |LA ."...Z..A$:.A|
00001000: 24 B2 22 22 A7 31 33 37 30 00 12 18 64 05 89 35 |$."".1370...d..5|
00001010: 33 30 00 3A 18 6E 05 49 B2 30 3A 85 22 11 4E 55 |30.:.n.I.0:.".NU|
00001020: 4D 2E 20 41 20 43 4F 52 52 45 47 49 52 22 3B 49 |M. A CORREGIR";I|
00001030: 3A 8B 49 B1 59 A7 31 33 39 30 00 57 18 78 05 99 |:.I.Y.1390.W.x..|
00001040: 22 93 11 11 22 49 3A 41 24 28 49 29 B2 22 22 3A |"..."I:A$(I)."":|
00001050: 81 4D B2 31 A4 43 41 00 87 18 82 05 99 22 11 12 |.M.1.CA......"..|
00001060: 22 43 41 24 28 4D 29 22 92 22 3B 3A 99 22 20 20 |"CA$(M)".";:." |
00001070: 20 22 3B 3A 81 45 B2 31 A4 44 44 28 4D 29 3A 99 | ";:.E.1.DD(M):.|
00001080: 22 2D 22 3B 3A 82 45 00 A9 18 8C 05 81 55 B2 31 |"-";:.E......U.1|
00001090: A4 44 44 28 4D 29 AA 32 3A 99 22 9D 22 3B 3A 82 |.DD(M).2:.".";:.|
000010A0: 55 3A 85 41 42 24 28 4D 29 00 C0 18 96 05 41 24 |U:.AB$(M).....A$|
000010B0: 28 49 29 B2 41 24 28 49 29 AA 41 42 24 28 4D 29 |(I).A$(I).AB$(M)|
000010C0: 00 CC 18 A0 05 82 3A 89 31 33 38 30 00 E5 18 AA |......:.1380....|
000010D0: 05 8F 2A 2A 2A 20 53 54 41 4D 50 41 20 44 41 54 |..*** STAMPA DAT|
000010E0: 49 20 2A 2A 2A 00 11 19 B4 05 99 22 93 11 11 11 |I ***......"....|
000010F0: 11 20 20 20 4C 41 20 53 54 41 4D 50 41 4E 54 45 |. LA STAMPANTE|
00001100: 20 45 27 20 20 43 4F 4C 4C 45 47 41 54 41 20 3F | E' COLLEGATA ?|
00001110: 22 00 27 19 BE 05 A1 41 4C 24 3A 8B 41 4C 24 B2 |".'....AL$:.AL$.|
00001120: 22 22 A7 31 34 37 30 00 38 19 C8 05 8B 41 4C 24 |"".1470.8....AL$|
00001130: B2 22 4E 22 A7 35 33 30 00 4A 19 D2 05 8B 41 4C |."N".530.J....AL|
00001140: 24 B2 22 53 22 A7 31 35 31 30 00 54 19 DC 05 89 |$."S".1510.T....|
00001150: 31 34 37 30 00 63 19 E6 05 9F 34 2C 34 3A 8D 32 |1470.c....4,4:.2|
00001160: 31 33 30 00 72 19 F0 05 81 49 B2 31 A4 59 3A 53 |130.r....I.1.Y:S|
00001170: B2 31 00 87 19 FA 05 8D 31 35 34 30 3A 82 49 3A |.1......1540:.I:|
00001180: A0 34 3A 89 35 33 30 00 9D 19 04 06 98 34 2C 49 |.4:.530......4,I|
00001190: 3B 3A 41 24 28 49 29 B2 41 24 28 49 29 00 CB 19 |;:A$(I).A$(I)...|
000011A0: 0E 06 81 4D B2 31 A4 43 41 3A 41 42 24 28 4D 29 |...M.1.CA:AB$(M)|
000011B0: B2 CA 28 41 24 28 49 29 2C 53 2C 44 44 28 4D 29 |..(A$(I),S,DD(M)|
000011C0: 29 3A 53 B2 53 AA 44 44 28 4D 29 00 DD 19 18 06 |):S.S.DD(M).....|
000011D0: 98 34 2C C8 28 44 43 24 2C 44 44 29 3B 00 EC 19 |.4,.(DC$,DD);...|
000011E0: 22 06 98 34 2C 41 42 24 28 4D 29 3B 00 FE 19 2C |"..4,AB$(M);...,|
000011F0: 06 98 34 2C C8 28 44 43 24 2C 44 44 29 3B 00 0D |..4,.(DC$,DD);..|
00001200: 1A 36 06 82 4D 3A 98 34 2C 22 22 3A 8E 00 16 1A |.6..M:.4,"":....|
00001210: 40 06 9F 34 2C 34 00 3D 1A 4A 06 98 34 2C C7 28 |@..4,4.=.J..4,.(|
00001220: 31 34 29 22 20 20 20 20 20 20 20 20 20 20 20 41 |14)" A|
00001230: 52 43 48 49 56 4F 20 44 41 54 4F 53 22 00 4A 1A |RCHIVO DATOS".J.|
00001240: 54 06 98 34 2C C7 28 31 35 29 00 59 1A 5E 06 81 |T..4,.(15).Y.^..|
00001250: 49 B2 31 A4 59 3A 53 B2 31 00 6E 1A 68 06 98 34 |I.1.Y:S.1.n.h..4|
00001260: 2C 22 20 20 20 44 41 54 49 20 4E 2E 22 49 00 9C |," DATI N."I..|
00001270: 1A 72 06 81 4D B2 31 A4 43 41 3A 41 42 24 28 4D |.r..M.1.CA:AB$(M|
00001280: 29 B2 CA 28 41 24 28 49 29 2C 53 2C 44 44 28 4D |)..(A$(I),S,DD(M|
00001290: 29 29 3A 53 B2 53 AA 44 44 28 4D 29 00 AB 1A 7C |)):S.S.DD(M)...||
000012A0: 06 98 34 2C 43 41 24 28 4D 29 3B 00 C4 1A 86 06 |..4,CA$(M);.....|
000012B0: 98 34 2C C7 28 31 36 29 22 32 30 3A 20 22 41 42 |.4,.(16)"20: "AB|
000012C0: 24 28 4D 29 00 DB 1A 90 06 82 3A 98 34 2C 22 22 |$(M)......:.4,""|
000012D0: 3A 82 49 3A A0 34 3A 89 35 33 30 00 F5 1A 9A 06 |:.I:.4:.530.....|
000012E0: 8F 2A 2A 2A 20 52 49 43 45 52 43 41 20 44 41 54 |.*** RICERCA DAT|
000012F0: 49 20 2A 2A 2A 00 1F 1B E0 06 99 22 93 20 20 20 |I ***......". |
00001300: 20 20 20 20 20 20 12 20 20 20 20 50 45 44 49 52 | . PEDIR|
00001310: 20 20 20 44 41 54 4F 53 20 20 20 20 20 92 22 00 | DATOS .".|
00001320: 28 1B EA 06 4A 4A B2 30 00 39 1B FE 06 8B 41 24 |(...JJ.0.9....A$|
00001330: B2 22 53 22 A7 32 30 37 30 00 58 1B 08 07 85 22 |."S".2070.X...."|
00001340: 12 11 44 41 54 4F 53 3A 92 22 3B 41 57 24 3A 41 |..DATOS:.";AW$:A|
00001350: 57 B2 C3 28 41 57 24 29 00 74 1B 12 07 53 52 B2 |W..(AW$).t...SR.|
00001360: 30 3A 81 49 B2 31 A4 59 3A 53 B2 31 3A 81 4D B2 |0:.I.1.Y:S.1:.M.|
00001370: 31 A4 43 41 00 93 1B 1C 07 8B 41 57 24 B2 CA 28 |1.CA......AW$..(|
00001380: 41 24 28 49 29 2C 53 2C 44 44 28 4D 29 29 A7 31 |A$(I),S,DD(M)).1|
00001390: 39 37 30 00 BA 1B 30 07 8B 41 57 24 B2 C8 28 28 |970...0..AW$..((|
000013A0: CA 28 41 24 28 49 29 2C 53 2C 44 44 28 4D 29 29 |.(A$(I),S,DD(M))|
000013B0: 29 2C 41 57 29 A7 31 39 37 30 00 C8 1B 3A 07 53 |),AW).1970...:.S|
000013C0: B2 53 AA 44 44 28 4D 29 00 CF 1B 80 07 82 4D 00 |.S.DD(M)......M.|
000013D0: D6 1B 8A 07 82 49 00 1B 1C 94 07 99 22 11 20 20 |.....I......". |
000013E0: 20 20 20 20 20 20 20 20 20 20 20 12 46 49 4E 20 | .FIN |
000013F0: 44 45 20 44 41 54 4F 53 92 22 3A 99 22 20 20 20 |DE DATOS.":." |
00001400: 20 20 20 20 20 20 20 20 12 4F 50 52 49 4D 41 20 | .OPRIMA |
00001410: 55 4E 41 20 54 45 43 4C 41 92 22 00 22 1C 95 07 |UNA TECLA."."...|
00001420: A0 34 00 36 1C 9E 07 A1 41 24 3A 8B 41 24 B2 22 |.4.6....A$:.A$."|
00001430: 22 A7 31 39 35 30 00 3F 1C A8 07 89 35 33 30 00 |".1950.?....530.|
00001440: 5E 1C B2 07 53 B2 31 3A 41 24 28 49 29 B2 41 24 |^...S.1:A$(I).A$|
00001450: 28 49 29 3A 99 22 11 20 4E 55 4D 2E 22 49 00 89 |(I):.". NUM."I..|
00001460: 1C BC 07 81 4E B2 31 A4 43 41 3A 41 42 24 B2 CA |....N.1.CA:AB$..|
00001470: 28 41 24 28 49 29 2C 53 2C 44 44 28 4E 29 29 3A |(A$(I),S,DD(N)):|
00001480: 53 B2 53 AA 44 44 28 4E 29 00 C4 1C C6 07 99 22 |S.S.DD(N)......"|
00001490: 12 22 43 41 24 28 4E 29 22 20 92 22 3A 99 22 91 |."CA$(N)" .":.".|
000014A0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 41 42 24 3A |..........."AB$:|
000014B0: 82 4E 3A 8B 4A 4A B2 39 39 39 A7 49 B2 49 3A 89 |.N:.JJ.999.I.I:.|
000014C0: 32 30 39 30 00 D5 1C D0 07 8B 4A 4A B2 39 39 39 |2090......JJ.999|
000014D0: A7 31 39 33 30 00 F0 1C DA 07 49 B2 49 3A 53 52 |.1930.....I.I:SR|
000014E0: B2 53 52 AA 31 3A 8B 53 52 B2 32 A7 32 30 33 30 |.SR.1:.SR.2.2030|
000014F0: 00 FA 1C E4 07 89 31 39 33 30 00 22 1D EE 07 99 |......1930."....|
00001500: 22 11 20 20 20 20 20 20 20 20 20 20 20 12 20 4F |". . O|
00001510: 50 52 49 4D 41 20 55 4E 41 20 54 45 43 4C 41 20 |PRIMA UNA TECLA |
00001520: 92 22 00 36 1D F8 07 A1 41 24 3A 8B 41 24 B2 22 |.".6....A$:.A$."|
00001530: 22 A7 32 30 34 30 00 61 1D 02 08 99 22 93 20 20 |".2040.a....". |
00001540: 20 20 20 20 20 20 20 12 20 20 20 20 50 45 44 49 | . PEDI|
00001550: 52 20 20 20 44 41 54 4F 53 20 20 20 20 20 92 20 |R DATOS . |
00001560: 22 00 70 1D 0C 08 53 52 B2 30 3A 89 32 30 32 30 |".p...SR.0:.2020|
00001570: 00 86 1D 16 08 9F 34 2C 34 3A 4A 4A B2 39 39 39 |......4,4:JJ.999|
00001580: 3A 8D 32 31 33 30 00 90 1D 20 08 89 31 38 30 30 |:.2130... ..1800|
00001590: 00 9A 1D 2A 08 98 34 2C 49 3B 00 CD 1D 34 08 81 |...*..4,I;...4..|
000015A0: 4D B2 31 A4 43 41 3A 98 34 2C C8 28 44 43 24 2C |M.1.CA:.4,.(DC$,|
000015B0: 44 44 29 3B 3A 98 34 2C 41 42 24 28 4D 29 3B 3A |DD);:.4,AB$(M);:|
000015C0: 98 34 2C C8 28 44 43 24 2C 44 44 29 3B 00 D9 1D |.4,.(DC$,DD);...|
000015D0: 3E 08 82 3A 98 34 2C 22 22 00 E3 1D 48 08 89 32 |>..:.4,""...H..2|
000015E0: 30 30 30 00 23 1E 52 08 44 41 B2 30 3A 44 42 B2 |000.#.R.DA.0:DB.|
000015F0: 30 3A 81 4D B2 31 A4 43 41 3A 43 41 24 28 4D 29 |0:.M.1.CA:CA$(M)|
00001600: B2 43 41 24 28 4D 29 3A 44 41 B2 44 41 AA C3 28 |.CA$(M):DA.DA..(|
00001610: 43 41 24 28 4D 29 29 3A 44 42 B2 44 42 AA 44 44 |CA$(M)):DB.DB.DD|
00001620: 28 4D 29 00 29 1E 5C 08 82 00 39 1E 66 08 8B 44 |(M).).\...9.f..D|
00001630: 41 B1 37 35 A7 31 36 30 30 00 49 1E 70 08 8B 44 |A.75.1600.I.p..D|
00001640: 42 B1 37 35 A7 31 36 30 30 00 6A 1E 7A 08 44 43 |B.75.1600.j.z.DC|
00001650: B2 37 35 AB 44 41 3A 44 43 B2 44 43 AD 43 41 AD |.75.DA:DC.DC.CA.|
00001660: 32 3A 44 43 B2 B5 28 44 43 29 00 B0 1E 84 08 44 |2:DC..(DC).....D|
00001670: 44 B2 37 35 AB 44 42 3A 44 44 B2 44 44 AD 43 41 |D.75.DB:DD.DD.CA|
00001680: AD 32 3A 44 44 B2 B5 28 44 44 29 3A 44 43 24 B2 |.2:DD..(DD):DC$.|
00001690: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
000016A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
000016B0: 00 D7 1E 8E 08 98 34 2C C7 28 31 34 29 22 20 20 |......4,.(14)" |
000016C0: 20 20 20 20 20 20 20 20 20 41 52 43 48 49 56 4F | ARCHIVO|
000016D0: 20 44 41 54 4F 53 22 00 E4 1E 98 08 98 34 2C C7 | DATOS"......4,.|
000016E0: 28 31 35 29 00 F0 1E A2 08 81 4D B2 31 A4 43 41 |(15)......M.1.CA|
000016F0: 00 02 1F AC 08 98 34 2C C8 28 44 43 24 2C 44 43 |......4,.(DC$,DC|
00001700: 29 3B 00 11 1F B6 08 98 34 2C 43 41 24 28 4D 29 |);......4,CA$(M)|
00001710: 3B 00 23 1F C0 08 98 34 2C C8 28 44 43 24 2C 44 |;.#....4,.(DC$,D|
00001720: 43 29 3B 00 2F 1F CA 08 82 3A 98 34 2C 22 22 00 |C);./....:.4,"".|
00001730: 4C 1F D4 08 81 46 B2 31 A4 37 39 3A 98 34 2C 22 |L....F.1.79:.4,"|
00001740: A3 22 3B 3A 82 46 3A 98 34 2C 22 22 00 52 1F DE |.";:.F:.4,"".R..|
00001750: 08 8E 00 90 1F E8 08 99 22 93 11 12 4E 4F 4D 42 |........"...NOMB|
00001760: 52 45 20 44 45 4C 20 43 41 4D 50 4F 92 22 3B 3A |RE DEL CAMPO.";:|
00001770: 99 22 20 20 20 20 20 20 20 12 4C 41 52 47 4F 92 |." .LARGO.|
00001780: 22 3A 99 3A 8B 4E 43 B1 43 41 A7 43 41 B2 4E 43 |":.:.NC.CA.CA.NC|
00001790: 00 AD 1F EA 08 81 4B B2 31 A4 43 41 3A 99 4B 3B |......K.1.CA:.K;|
000017A0: 22 20 20 20 20 22 3B 43 41 24 28 4B 29 00 D6 1F |" ";CA$(K)...|
000017B0: EC 08 99 22 91 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..."............|
000017C0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 44 |.............."D|
000017D0: 44 28 4B 29 3A 82 00 01 20 F2 08 99 22 11 20 20 |D(K):... ...". |
000017E0: 20 12 50 4F 52 20 43 55 41 4C 20 43 41 4D 50 4F | .POR CUAL CAMPO|
000017F0: 20 56 41 20 41 20 4F 52 44 45 4E 41 52 20 3F 92 | VA A ORDENAR ?.|
00001800: 22 00 15 20 F4 08 A1 52 24 3A 8B 52 24 B2 22 22 |".. ...R$:.R$.""|
00001810: A7 32 32 39 32 00 55 20 F6 08 52 B2 C5 28 52 24 |.2292.U ..R..(R$|
00001820: 29 3A 53 B2 31 3A 81 4D B2 31 A4 43 41 3A 53 B2 |):S.1:.M.1.CA:S.|
00001830: 53 AA 44 44 28 4D 29 3A 41 28 4D 29 B2 53 AB 44 |S.DD(M):A(M).S.D|
00001840: 44 28 4D 29 3A 82 3A 41 28 31 29 B2 31 3A 41 31 |D(M):.:A(1).1:A1|
00001850: B2 41 28 52 29 00 80 20 F8 08 85 22 11 11 20 20 |.A(R).. ...".. |
00001860: 20 12 50 4F 52 20 43 55 41 4E 54 41 53 20 4C 45 | .POR CUANTAS LE|
00001870: 54 52 41 53 20 4F 52 44 45 4E 41 92 22 3B 42 31 |TRAS ORDENA.";B1|
00001880: 00 BB 20 06 09 99 22 93 11 11 11 11 11 11 22 A3 |.. ...".......".|
00001890: 31 34 29 22 12 20 4F 52 44 45 4E 41 4E 44 4F 20 |14)". ORDENANDO |
000018A0: 92 22 3A 99 22 11 11 11 11 22 A3 31 35 29 22 12 |.":."....".15)".|
000018B0: 41 54 45 4E 43 49 4F 4E 21 92 22 00 D7 20 07 09 |ATENCION!.".. ..|
000018C0: 99 3A 99 3A 20 99 A3 31 35 29 22 12 20 45 53 50 |.:.: ..15)". ESP|
000018D0: 45 52 45 20 21 92 22 00 F4 20 08 09 54 49 24 B2 |ERE !.".. ..TI$.|
000018E0: 22 30 30 30 30 30 30 22 3A 81 4A B2 31 A4 59 20 |"000000":.J.1.Y |
000018F0: 3A 4D B2 31 00 09 21 09 09 4D B2 32 AC 4D 3A 8B |:M.1..!..M.2.M:.|
00001900: 4D B3 B2 59 A7 32 33 31 33 00 20 21 0A 09 4D B2 |M..Y.2313. !..M.|
00001910: B5 28 4D AD 32 29 3A 8B 4D B2 30 A7 32 34 33 30 |.(M.2):.M.0.2430|
00001920: 00 31 21 10 09 81 4A B2 31 A4 59 AB 4D 3A 43 B2 |.1!...J.1.Y.M:C.|
00001930: 4A 00 60 21 1A 09 44 B2 43 AA 4D 3A 8B CA 28 41 |J.`!..D.C.M:..(A|
00001940: 24 28 43 29 2C 41 31 2C 42 31 29 B3 B2 CA 28 41 |$(C),A1,B1)...(A|
00001950: 24 28 44 29 2C 41 31 2C 42 31 29 A7 32 33 35 30 |$(D),A1,B1).2350|
00001960: 00 94 21 24 09 41 41 24 B2 41 24 28 43 29 3A 41 |..!$.AA$.A$(C):A|
00001970: 24 28 43 29 B2 41 24 28 44 29 3A 41 24 28 44 29 |$(C).A$(D):A$(D)|
00001980: B2 41 41 24 3A 43 B2 43 AB 4D 3A 8B 43 B1 30 A7 |.AA$:C.C.M:.C.0.|
00001990: 32 33 33 30 00 A0 21 2E 09 82 3A 89 32 33 31 34 |2330..!...:.2314|
000019A0: 00 DB 21 7E 09 99 A3 36 29 22 11 11 11 11 22 C9 |..!~...6)"....".|
000019B0: 28 54 49 24 2C 34 29 22 20 20 53 45 47 55 4E 44 |(TI$,4)" SEGUND|
000019C0: 4F 53 20 45 4E 20 4F 52 44 45 4E 41 52 21 22 3A |OS EN ORDENAR!":|
000019D0: 81 54 B2 31 A4 32 30 30 30 3A 82 00 E4 21 92 09 |.T.1.2000:...!..|
000019E0: 89 35 33 30 00 04 22 9C 09 43 43 B2 30 3A 43 B2 |.530.."..CC.0:C.|
000019F0: 30 3A 85 22 4E 2E 44 41 20 49 4E 53 45 52 49 52 |0:."N.DA INSERIR|
00001A00: 45 22 3B 43 00 28 22 B0 09 59 B2 59 AA 31 3A 81 |E";C.("..Y.Y.1:.|
00001A10: 49 B2 59 A4 43 A9 AB 31 3A 41 24 28 49 29 B2 41 |I.Y.C..1:A$(I).A|
00001A20: 24 28 49 AB 31 29 3A 82 00 41 22 BA 09 49 B2 43 |$(I.1):..A"..I.C|
00001A30: 3A 43 43 B2 39 39 3A 99 22 93 22 3A 89 31 30 31 |:CC.99:.".":.101|
00001A40: 30 00 50 22 C4 09 43 43 B2 30 3A 89 31 32 37 30 |0.P"..CC.0:.1270|
00001A50: 00 7A 22 D8 09 99 22 93 20 20 20 20 20 20 20 12 |.z"...". .|
00001A60: 20 20 4C 45 45 52 20 41 52 43 48 49 56 4F 20 45 | LEER ARCHIVO E|
00001A70: 4E 20 44 49 53 43 4F 20 92 22 00 A9 22 E2 09 99 |N DISCO .".."...|
00001A80: 22 11 11 4E 4F 4D 42 52 45 20 44 45 20 41 52 43 |"..NOMBRE DE ARC|
00001A90: 48 49 56 4F 3A 22 3A 85 22 11 12 9C 41 52 43 48 |HIVO:":."...ARCH|
00001AA0: 49 56 4F 92 05 22 3B 46 24 00 C4 22 EC 09 9F 32 |IVO..";F$.."...2|
00001AB0: 2C 38 2C 32 2C 46 24 AA 22 2C 53 2C 52 22 3A 8D |,8,2,F$.",S,R":.|
00001AC0: 32 37 34 30 00 E2 22 F6 09 84 32 2C 43 41 3A 52 |2740.."...2,CA:R|
00001AD0: 53 B2 53 54 3A 8D 32 37 34 30 3A 81 4D B2 31 A4 |S.ST:.2740:.M.1.|
00001AE0: 43 41 00 FC 22 00 0A 84 32 2C 43 41 24 28 4D 29 |CA.."...2,CA$(M)|
00001AF0: 3A 52 53 B2 53 54 3A 8D 32 37 34 30 00 18 23 0A |:RS.ST:.2740..#.|
00001B00: 0A 84 32 2C 44 44 28 4D 29 3A 52 53 B2 53 54 3A |..2,DD(M):RS.ST:|
00001B10: 8D 32 37 34 30 3A 82 4D 00 34 23 14 0A 84 32 2C |.2740:.M.4#...2,|
00001B20: 59 3A 52 53 B2 53 54 3A 8D 32 37 34 30 3A 81 49 |Y:RS.ST:.2740:.I|
00001B30: B2 31 A4 59 00 41 23 1E 0A 84 32 2C 41 24 28 49 |.1.Y.A#...2,A$(I|
00001B40: 29 00 51 23 28 0A 8B 52 53 B2 36 34 A7 32 36 33 |).Q#(..RS.64.263|
00001B50: 30 00 61 23 32 0A 8B 52 53 B3 B1 30 A7 32 36 34 |0.a#2..RS..0.264|
00001B60: 30 00 6F 23 3C 0A 82 3A A0 32 3A 89 35 33 30 00 |0.o#<..:.2:.530.|
00001B70: 7B 23 46 0A A0 32 3A 89 35 33 30 00 9A 23 50 0A |{#F..2:.530..#P.|
00001B80: 99 22 45 52 52 4F 52 45 20 44 49 20 53 54 41 54 |."ERRORE DI STAT|
00001B90: 4F 22 3A A0 32 3A 89 35 35 30 00 CE 23 5A 0A 99 |O":.2:.550..#Z..|
00001BA0: 22 93 20 20 20 20 20 20 20 20 20 12 20 20 52 45 |". . RE|
00001BB0: 47 49 53 54 52 41 20 46 49 4C 45 20 44 49 53 43 |GISTRA FILE DISC|
00001BC0: 4F 20 92 22 3A 43 52 24 B2 C7 28 31 33 29 00 F8 |O .":CR$..(13)..|
00001BD0: 23 64 0A 99 22 11 11 53 43 52 49 56 49 20 4E 4F |#d.."..SCRIVI NO|
00001BE0: 4D 45 20 46 49 4C 45 3A 22 3A 85 22 11 12 46 49 |ME FILE:":."..FI|
00001BF0: 4C 45 92 20 22 3B 46 24 00 18 24 6E 0A 9F 32 2C |LE. ";F$..$n..2,|
00001C00: 38 2C 32 2C 22 40 3A 22 AA 46 24 AA 22 2C 53 2C |8,2,"@:".F$.",S,|
00001C10: 57 22 3A 8D 32 37 34 30 00 37 24 78 0A 98 32 2C |W":.2740.7$x..2,|
00001C20: C4 28 43 41 29 43 52 24 3B 3A 8D 32 37 34 30 3A |.(CA)CR$;:.2740:|
00001C30: 81 4D B2 31 A4 43 41 00 49 24 82 0A 98 32 2C 43 |.M.1.CA.I$...2,C|
00001C40: 41 24 28 4D 29 43 52 24 3B 00 66 24 8C 0A 98 32 |A$(M)CR$;.f$...2|
00001C50: 2C C4 28 44 44 28 4D 29 29 43 52 24 3B 3A 82 4D |,.(DD(M))CR$;:.M|
00001C60: 3A 8D 32 37 34 30 00 83 24 96 0A 98 32 2C C4 28 |:.2740..$...2,.(|
00001C70: 59 29 43 52 24 3B 3A 8D 32 37 34 30 3A 81 49 B2 |Y)CR$;:.2740:.I.|
00001C80: 31 A4 59 00 9A 24 A0 0A 98 32 2C 41 24 28 49 29 |1.Y..$...2,A$(I)|
00001C90: 43 52 24 3B 3A 8D 32 37 34 30 00 A9 24 AA 0A 82 |CR$;:.2740..$...|
00001CA0: 49 3A A0 32 3A 89 35 33 30 00 BE 24 B4 0A 84 31 |I:.2:.530..$...1|
00001CB0: 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 00 CA |5,EN,EM$,ET,ES..|
00001CC0: 24 BE 0A 8B 45 4E B2 30 A7 8E 00 F4 24 C8 0A 99 |$...EN.0....$...|
00001CD0: 22 4F 50 45 52 41 5A 49 4F 4E 45 20 45 52 52 41 |"OPERAZIONE ERRA|
00001CE0: 54 41 22 3A A0 32 3A 81 54 B2 31 A4 31 30 30 30 |TA":.2:.T.1.1000|
00001CF0: 3A 82 3A 8E 00 19 25 B8 0B 85 22 11 4E 55 4D 45 |:.:...%...".NUME|
00001D00: 52 4F 20 44 41 20 43 41 4E 43 45 4C 4C 41 52 45 |RO DA CANCELLARE|
00001D10: 22 3B 43 3A 59 B2 59 AB 31 00 39 25 C2 0B 81 49 |";C:Y.Y.1.9%...I|
00001D20: B2 43 A4 59 3A 41 24 28 49 29 B2 41 24 28 49 AA |.C.Y:A$(I).A$(I.|
00001D30: 31 29 3A 82 3A 89 35 33 30 00 5D 25 40 1F 99 22 |1):.:.530.]%@.."|
00001D40: 93 20 20 20 20 20 20 20 20 20 20 20 20 20 12 20 |. . |
00001D50: 20 41 52 43 48 49 56 4F 20 20 20 92 22 00 88 25 | ARCHIVO ."..%|
00001D60: A4 1F 99 22 11 20 20 20 22 3B 3A 81 4D B2 31 A4 |...". ";:.M.1.|
00001D70: 43 41 3A 99 22 12 22 43 41 24 28 4D 29 22 20 20 |CA:."."CA$(M)" |
00001D80: 20 20 22 3B 3A 82 3A 99 00 A5 25 1C 20 47 B2 30 | ";:.:...%. G.0|
00001D90: 3A 81 49 B2 31 A4 59 3A 53 B2 31 3A 99 22 12 22 |:.I.1.Y:S.1:."."|
00001DA0: 49 22 92 22 3B 00 B1 25 26 20 81 4D B2 31 A4 43 |I".";..%& .M.1.C|
00001DB0: 41 00 D7 25 30 20 99 CA 28 41 24 28 49 29 2C 53 |A..%0 ..(A$(I),S|
00001DC0: 2C 44 44 28 4D 29 29 22 20 20 20 22 3B 3A 53 B2 |,DD(M))" ";:S.|
00001DD0: 53 AA 44 44 28 4D 29 00 EF 25 3A 20 82 4D 3A 47 |S.DD(M)..%: .M:G|
00001DE0: B2 47 AA 31 3A 8B 47 B2 30 35 A7 38 33 30 30 00 |.G.1:.G.05.8300.|
00001DF0: FB 25 44 20 99 22 11 22 3A 82 49 00 05 26 4E 20 |.%D .".":.I..&N |
00001E00: 89 31 32 37 30 00 3B 26 6C 20 99 3A 20 20 99 22 |.1270.;&l .: ."|
00001E10: 12 49 3D 49 4E 53 45 52 54 20 20 44 3D 44 45 4C |.I=INSERT D=DEL|
00001E20: 2E 20 43 3D 43 4F 52 52 2E 20 20 4D 3D 4D 45 4E |. C=CORR. M=MEN|
00001E30: 55 20 20 56 3D 56 45 44 49 92 22 00 4F 26 76 20 |U V=VEDI.".O&v |
00001E40: A1 41 24 3A 8B 41 24 B2 22 22 A7 38 33 31 30 00 |.A$:.A$."".8310.|
00001E50: 60 26 94 20 8B 41 24 B2 22 49 22 A7 32 34 36 30 |`&. .A$."I".2460|
00001E60: 00 71 26 9E 20 8B 41 24 B2 22 43 22 A7 31 33 39 |.q&. .A$."C".139|
00001E70: 30 00 81 26 A8 20 8B 41 24 B2 22 4D 22 A7 35 33 |0..&. .A$."M".53|
00001E80: 30 00 92 26 AA 20 8B 41 24 B2 22 44 22 A7 33 30 |0..&. .A$."D".30|
00001E90: 30 30 00 A3 26 B2 20 8B 41 24 B2 22 56 22 A7 38 |00..&. .A$."V".8|
00001EA0: 34 30 30 00 AD 26 BC 20 89 31 31 33 30 00 B9 26 |400..&. .1130..&|
00001EB0: D0 20 99 22 11 22 3A 82 49 00 C3 26 DA 20 89 31 |. .".":.I..&. .1|
00001EC0: 32 37 30 00 00 00 AC 54 FF |270....T. |
.......15,8,15,"I0". .D..A$(500).O.N..**
* DATA BASE 10/04/85 ALBERTO MARCONI***.
C.X..36879,42:.".";.O...."....".......11
)"...............":..11)".M...........N.
".......11)".. .."... ...11)".
. DATA BASE ..":..11)".. .."..
.....11)".N...........M.".$.....11)"....
...........".].....17)"..BY":..11)".ALBE
RTO MARCONI":..14)".(C) 1985".M.H..T.1.3
000:....R..650,128:.36879,110:.".";.....
.530...... *** LEER ARCHIVO ***.Y....".
. LEER ARCHIVO ."......"
.... D - EN DISCO"."...."..
N - EN CASSETTE".H...."..
T - RETORNA MENU".[....A$:.A$."".
280.L."..A$."D".2520.|.,..A$."N".330...6
..A$."T".530...@..280...J..".
.. PEDIR ARCHIVO ..".S.T.."...FILE:."
;F$...^..1,1,0,F$:.".FILE: ."F$"."...H..
1,CA:.M.1.CA:.1,CA$(M):.1,DD(M):.M.>.R..
1,Y:.I.1.Y:.1,A$(I):.I: 1:.530.Z.|.. ***
REGISTRA FILE ***......". .
GRABA ARCHIVO ."......"....
D - SU DISCO".O....".. N
- SU CASSETTE"......".. T -
RETORNA AL MENU"......A$:.A$."".430.....
.A$."D".2650.,.B..A$."N".480.<.L..A$."T"
.530.E.V..430.O....". .. GRAB
A ARCHIVO .."......"..ESCRIBIR NOMBRE
DE ARCHIVO":."..FILE:.";F$.D....1,1,1,F$
:.".ARCHIVO: ."F$"."......1,CA:.M.1.CA:.
1,CA$(M):.1,DD(M):.M......1,Y:.I.1.Y:.1,
A$(I):.I: 1:.530.:....". ..... DA
TA - BASE .....".^....". 1-
LEER ARCHIVO "...&..". 2- GRAB
AR ARCHIVO"...0..". 3- CREAR A
RCHIVO".O.:..". 4- CONTINUAR A
RCHIVO"...D..". 5- MOSTRAR ARC
HIVO"...N..". 6- ACOMODAR ARCH
IV0".@.X..". 7- PEDIR ARCHIVO"
.I.B..". 7- PEDIR COMPLETO (,)
"...L..". M- MEMORIA LIBRE"...
N..". E- FIN "...V..". .CAMP
OS=."CA:..16)"..LINEAS GRABADAS=."Y.....
.E$:.E$."".640......"."......E$."1".230.
.....E$."2".380.'....E$."3".750.7....E$.
"4".970.H....E$."5".8000.Y....E$."6".228
0.J.F..E$."7".1690.{.P..E$."M".1330...Z.
.E$."S".1450.G....E$."E".."...........
.FIN DE PROGRAMA..":..P....640
...... *** CREO ARCHIVO ***... .."..
...OPRIMA UNA TECLA...".+.*..AU$:
.AU$."".810.O.4..". .... CREAR A
RCHIVO ....":."..CUANTOS CAMPOS ? .";.
..>..R$:.R$."".830...H.CA.E(R$).I.R..CA:
.:." . NOMBRE DEL CAMPO . . LARGO DEL
CAMPO.":..Z.\.AH.0:.K.1.CA...F..K;:." ";
CA$(K):.C(CA$(K)).10.."..":.870.?.P.."..
........................";:.DD(K):.DD(K)
.25.880.\.Z.AH.AH.(DD(K)):.AH.88.880.B..
.......BH.88.AH:."...................
"BH".CARACTERES LIBRES.".J...."
.NECESITA CORREGIR?"......:."
.S/N."......AP$:.AP$."".930.
.....AP$."S".961.!....AP$."N".970.*....9
30.P.A..".N. DEL CAMPO:";NC:.NC.CA.1.961
...B.."..NOMBRE DEL CAMPO.";CA$(NC):."..
LARGO.";DD(NC)...C..".. .N.DEL CAMPO ."
;:." .LARGO.":.:.NC.CA.CA...D.AH.0:.
K.1.CA:." ";CA$(K)...E.."..........
................"DD(K):AH.AH.DD(K):..X.F
.BH.88.AH:."...................
"BH".CARACTERES LIBRES.".~.H.."
.NECESITA CORREGIR?"...I..930...J..CA.
1.640...T..". . CREAR ARCHIVO
. ".M...Y.Y.1:I.Y......"..PARA RETOR
NAR AL MENU. * .".0....".NUMERO "I:."...
...........1234567890123456789012345.":.
.E...A$(I)."":.K.1.CA.}...."."CA$(K)".":
.".............";:.E.1.DD(K):."-";:.E...
...U.1.DD(K).2:.".";:.U......AB$(K)...$.
.C(AB$(K)).DD(K).1030.T...A$(I).A$(I).AB
$(K)...8..H(AB$(K),1)."*".Y.Y.1:.530...B
..K:.CC.99.2500...L..980...V...I.`.."..
I=INSERT+D=BORR.+C=CORR.+M=MENU+V=CONT .
".].J..A$:.A$."".1130.N.T..A$."I".2460.
.~..A$."C".1390......A$."D".3000. ....A$
."M".530......A$."V".1190......1130.N...
G.0:.".":.1260.T..........". .
ARCHIVO ."......".CUANTOS DA
TOS EN VIDEO?".4....GG$:.GG$."".1212.B..
.GG.E(GG$).V.D.G.0:.I.1.Y:S.1:.".
RECORD N.."I".":....N..M.1.CA:AB$(M
).J(A$(I),S,DD(M)):S.S.DD(M).L.X.."."CA$
(M)" .":."..........."AB$(M)......M:G.G.
1:.G.GG.1120......".":.I.#...."..I=INSER
T C=CORREGIR D=BORRAR M=MENU.".7...
.A$:.A$."".1280.H....A$."I".2460.Y....A$
."C".1390.I....A$."M".530.Z. ..A$."D".30
00...(..1280...2..** MEMORIA **...<.."."
:FR..(0).N.F.."..... .MEMORIA
. ="FR...P..".. . OPRIMA UNA TEC
LA ."...Z..A$:.A$."".1370...D..530.:.N.I
.0:.".NUM. A CORREGIR";I:.I.Y.1390.W.X..
"..."I:A$(I)."":.M.1.CA......".."CA$(M)"
.";:." ";:.E.1.DD(M):."-";:.E......U.1
.DD(M).2:.".";:.U:.AB$(M).....A$(I).A$(I
).AB$(M).L. ..:.1380......*** STAMPA DAT
I ***......"..... LA STAMPANTE E' COL
LEGATA ?".'....AL$:.AL$."".1470.8.H..AL$
."N".530.J.R..AL$."S".1510.T....1470.C..
..4,4:.2130.R....I.1.Y:S.1......1540:.I:
4:.530......4,I;:A$(I).A$(I).K....M.1.C
A:AB$(M).J(A$(I),S,DD(M)):S.S.DD(M).....
.4,H(DC$,DD);..."..4,AB$(M);...,..4,H(DC
$,DD);...6..M:.4,"":....@..4,4.=.J..4,G(
14)" ARCHIVO DATOS".J.T..4,G(1
5).Y.^..I.1.Y:S.1.N.H..4," DATI N."I..
.R..M.1.CA:AB$(M).J(A$(I),S,DD(M)):S.S.D
D(M)...|..4,CA$(M);.D....4,G(16)"20: "AB
$(M)......:.4,"":.I: 4:.530......*** RIC
ERCA DATI ***......". . PEDIR
DATOS .".(...JJ.0.9....A$."S".207
0.X...."..DATOS:.";AW$:AW.C(AW$).T...SR.
0:.I.1.Y:S.1:.M.1.CA......AW$.J(A$(I),S,
DD(M)).1970...0..AW$.H((J(A$(I),S,DD(M))
),AW).1970.H.:.S.S.DD(M).O....M.V....I..
....". .FIN DE DATOS.":."
.OPRIMA UNA TECLA."."... 4.6....
A$:.A$."".1950.?....530.^...S.1:A$(I).A$
(I):.". NUM."I......N.1.CA:AB$.J(A$(I),S
,DD(N)):S.S.DD(N).D.F.."."CA$(N)" .":.".
..........."AB$:.N:.JJ.999.I.I:.2090.U.P
..JJ.999.1930...Z.I.I:SR.SR.1:.SR.2.2030
......1930."....". . OPRIMA UN
A TECLA .".6....A$:.A$."".2040.A....".
. PEDIR DATOS . ".P...SR
.0:.2020......4,4:JJ.999:.2130... ..1800
...*..4,I;.M.4..M.1.CA:.4,H(DC$,DD);:.4,
AB$(M);:.4,H(DC$,DD);.Y.>..:.4,""...H..2
000.#.R.DA.0:DB.0:.M.1.CA:CA$(M).CA$(M):
DA.DA.C(CA$(M)):DB.DB.DD(M).).\...9.F..D
A.75.1600.I.P..DB.75.1600.J.Z.DC.75.DA:D
C.DC.CA.2:DC..(DC).....DD.75.DB:DD.DD.CA
.2:DD..(DD):DC$."
".W....4,G(14)" ARCHIVO
DATOS"......4,G(15)......M.1.CA......4,
H(DC$,DC);......4,CA$(M);.#....4,H(DC$,D
C);./.J..:.4,"".L.T..F.1.79:.4,".";:.F:.
4,"".R.........."...NOMBRE DEL CAMPO.";:
." .LARGO.":.:.NC.CA.CA.NC......K.
1.CA:.K;" ";CA$(K).V...."............
.............."DD(K):... ...". .POR CU
AL CAMPO VA A ORDENAR ?.".. ...R$:.R$.""
.2292.U ..R.E(R$):S.1:.M.1.CA:S.S.DD(M):
A(M).S.DD(M):.:A(1).1:A1.A(R).. ..."..
.POR CUANTAS LETRAS ORDENA.";B1.. ...".
......".14)". ORDENANDO .":."....".15)".
ATENCION!.".W ...:.: ..15)". ESPERE !.".
. ..TI$."000000":.J.1.Y :M.1..!..M.2.M:.
M..Y.2313. !..M..(M.2):.M.0.2430.1!...J.
1.Y.M:C.J.`!..D.C.M:.J(A$(C),A1,B1)..J(A
$(D),A1,B1).2350..!$.AA$.A$(C):A$(C).A$(
D):A$(D).AA$:C.C.M:.C.0.2330. !...:.2314
..!~...6)"...."I(TI$,4)" SEGUNDOS EN OR
DENAR!":.T.1.2000:...!...530.."..CC.0:C.
0:."N.DA INSERIRE";C.("..Y.Y.1:.I.Y.C..1
:A$(I).A$(I.1):..A"..I.C:CC.99:.".":.101
0.P"D.CC.0:.1270.Z"X..". . LEER A
RCHIVO EN DISCO .".."..."..NOMBRE DE ARC
HIVO:":."...ARCHIVO..";F$.D"...2,8,2,F$.
",S,R":.2740.."...2,CA:RS.ST:.2740:.M.1.
CA.."...2,CA$(M):RS.ST:.2740..#...2,DD(M
):RS.ST:.2740:.M.4#...2,Y:RS.ST:.2740:.I
.1.Y.A#...2,A$(I).Q#(..RS.64.2630.A#2..R
S..0.2640.O#<..: 2:.530.{#F. 2:.530..#P.
."ERRORE DI STATO": 2:.550.N#Z..".
. REGISTRA FILE DISCO .":CR$.G(13)..
#D.."..SCRIVI NOME FILE:":."..FILE. ";F$
..$N..2,8,2,"@:".F$.",S,W":.2740.7$X..2,
D(CA)CR$;:.2740:.M.1.CA.I$...2,CA$(M)CR$
;.F$...2,D(DD(M))CR$;:.M:.2740..$...2,D(
Y)CR$;:.2740:.I.1.Y..$ ..2,A$(I)CR$;:.27
40..$...I: 2:.530..$...15,EN,EM$,ET,ES.J
$...EN.0....$H.."OPERAZIONE ERRATA": 2:.
T.1.1000:.:...%...".NUMERO DA CANCELLARE
";C:Y.Y.1.9%B..I.C.Y:A$(I).A$(I.1):.:.53
0.]%@..". . ARCHIVO ."..%
...". ";:.M.1.CA:."."CA$(M)" ";:.:.
..%. G.0:.I.1.Y:S.1:."."I".";..%& .M.1.C
A.W%0 .J(A$(I),S,DD(M))" ";:S.S.DD(M).
.%: .M:G.G.1:.G.05.8300..%D .".":.I..&N
.1270.;&L .: .".I=INSERT D=DEL. C=CORR
. M=MENU V=VEDI.".O&V .A$:.A$."".8310.
`&. .A$."I".2460.Q&. .A$."C".1390..&. .A
$."M".530..&. .A$."D".3000..&. .A$."V".8
400..&. .1130..&P .".":.I.C&Z .1270....T
.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL