HOME SECRETARY
FILE INFORMATION
FILENAME(S): HOME SECRETARY
FILE TYPE(S): PRG
FILE SIZE: 6K
FIRST SEEN: 2025-10-19 23:07:07
APPEARS ON: 1 disk(s)
FILE HASH
7a0ecb05b722096f45c1cfa17354c1d28ddf2561d95814035e58166eaa084187
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| AGENDA | HOME SECRETARY | PRG | Bugjam - Argentina | 17 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 23 08 5A 00 8F 20 4E 4F 4D 42 52 45 20 44 |..#.Z.. NOMBRE D|
00000010: 45 4C 20 50 52 4F 47 52 41 4D 41 3A 20 41 47 45 |EL PROGRAMA: AGE|
00000020: 4E 44 41 00 44 08 64 00 8F 20 20 45 4C 45 43 54 |NDA.D.d.. ELECT|
00000030: 52 4F 4E 49 43 20 48 4F 4D 45 20 53 45 43 52 45 |RONIC HOME SECRE|
00000040: 54 41 52 59 00 64 08 6E 00 8F 20 52 45 56 49 53 |TARY.d.n.. REVIS|
00000050: 54 41 20 48 4F 4D 45 20 43 4F 4D 50 55 54 45 52 |TA HOME COMPUTER|
00000060: 20 4E 20 32 00 8B 08 78 00 8F 20 56 45 52 53 49 | N 2...x.. VERSI|
00000070: 4F 4E 20 50 41 52 41 20 42 41 53 49 43 20 4F 20 |ON PARA BASIC O |
00000080: 53 49 4D 4F 4E 20 42 41 53 49 43 00 97 08 82 00 |SIMON BASIC.....|
00000090: 8F 20 43 41 49 52 4F 00 A3 08 8C 00 8F 20 20 64 |. CAIRO...... d|
000000A0: 7E 4F 52 00 A9 08 96 00 8F 00 AF 08 A0 00 8F 00 |~OR.............|
000000B0: DE 08 AA 00 86 20 41 24 28 35 2C 36 30 29 2C 4F |..... A$(5,60),O|
000000C0: 24 28 35 29 2C 43 24 28 36 29 2C 50 31 28 33 29 |$(5),C$(6),P1(3)|
000000D0: 2C 50 32 28 33 29 2C 42 24 28 32 2C 35 29 00 EF |,P2(3),B$(2,5)..|
000000E0: 08 B4 00 53 B2 35 34 32 37 32 3A 53 5A B2 30 00 |...S.54272:SZ.0.|
000000F0: F8 08 BE 00 4F 50 B2 31 00 22 09 C8 00 87 20 50 |....OP.1.".... P|
00000100: 31 28 31 29 2C 50 31 28 32 29 2C 50 31 28 33 29 |1(1),P1(2),P1(3)|
00000110: 2C 50 32 28 31 29 2C 50 32 28 32 29 2C 50 32 28 |,P2(1),P2(2),P2(|
00000120: 33 29 00 3C 09 D2 00 81 20 49 B2 31 20 A4 20 35 |3).<.... I.1 . 5|
00000130: 3A 87 20 42 24 28 31 2C 49 29 3A 82 00 56 09 DC |:. B$(1,I):..V..|
00000140: 00 81 20 49 B2 31 20 A4 20 35 3A 87 20 42 24 28 |.. I.1 . 5:. B$(|
00000150: 32 2C 49 29 3A 82 00 77 09 E6 00 83 20 36 39 37 |2,I):..w.... 697|
00000160: 2C 37 37 30 2C 38 35 32 2C 31 32 31 30 2C 31 33 |,770,852,1210,13|
00000170: 34 30 2C 31 34 38 31 00 BF 09 F0 00 83 20 22 4E |40,1481...... "N|
00000180: 4F 4D 42 52 45 20 20 20 3A 22 2C 22 54 45 4C 45 |OMBRE :","TELE|
00000190: 46 4F 4E 4F 20 3A 22 2C 22 44 49 52 45 43 43 49 |FONO :","DIRECCI|
000001A0: 4F 4E 3A 22 2C 22 43 49 55 44 41 44 20 20 20 3A |ON:","CIUDAD :|
000001B0: 22 2C 22 50 52 4F 56 49 4E 43 49 41 20 3A 22 00 |","PROVINCIA :".|
000001C0: 05 0A FA 00 83 20 22 49 54 45 4D 20 3A 22 2C 22 |..... "ITEM :","|
000001D0: 56 41 4C 4F 52 20 3A 22 2C 22 55 42 49 43 41 43 |VALOR :","UBICAC|
000001E0: 49 4F 4E 20 3A 22 2C 22 46 45 43 48 41 20 43 4F |ION :","FECHA CO|
000001F0: 4D 50 52 41 3A 22 2C 22 4E 52 4F 2E 53 45 52 49 |MPRA:","NRO.SERI|
00000200: 45 20 20 3A 22 00 34 0A 04 01 52 46 B2 32 30 30 |E :".4...RF.200|
00000210: 30 3A 52 46 B2 28 52 46 AB 33 30 29 AD 38 3A 52 |0:RF.(RF.30).8:R|
00000220: 48 B2 B5 28 52 46 AD 38 29 3A 52 4C B2 52 46 AB |H..(RF.8):RL.RF.|
00000230: 38 AC 52 48 00 4B 0A 0E 01 81 20 58 B2 53 A4 53 |8.RH.K.... X.S.S|
00000240: AA 32 34 3A 97 20 58 2C 30 3A 82 00 6C 0A 18 01 |.24:. X,0:..l...|
00000250: 97 20 53 AA 32 33 2C 33 3A 97 20 53 AA 32 31 2C |. S.23,3:. S.21,|
00000260: 52 48 3A 97 20 53 AA 32 32 2C 52 4C 00 83 0A 22 |RH:. S.22,RL..."|
00000270: 01 99 20 22 90 93 11 11 22 3A 97 20 35 33 32 38 |.. "....":. 5328|
00000280: 31 2C 31 00 AB 0A 2C 01 99 20 A3 36 29 22 2A 2A |1,1...,.. .6)"**|
00000290: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000002A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 D3 0A 36 01 |**********"...6.|
000002B0: 99 20 A3 36 29 22 2A 2A 20 53 45 43 52 45 54 41 |. .6)"** SECRETA|
000002C0: 52 49 41 20 45 4C 45 43 54 52 4F 4E 49 43 41 20 |RIA ELECTRONICA |
000002D0: 2A 2A 22 00 FB 0A 40 01 99 20 A3 36 29 22 2A 2A |**"...@.. .6)"**|
000002E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000002F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 01 0B 4A 01 |**********"...J.|
00000300: 8F 00 37 0B 54 01 99 20 A3 38 29 22 31 2E 20 41 |..7.T.. .8)"1. A|
00000310: 47 45 4E 44 41 20 54 45 4C 45 46 4F 4E 49 43 41 |GENDA TELEFONICA|
00000320: 22 3A 99 20 A3 38 29 22 11 32 2E 20 49 4E 56 45 |":. .8)".2. INVE|
00000330: 4E 54 41 52 49 4F 22 00 42 0B 5E 01 8D 20 32 35 |NTARIO".B.^.. 25|
00000340: 33 30 00 5A 0B 68 01 8B 20 4B B2 34 39 20 A7 20 |30.Z.h.. K.49 . |
00000350: 4F 50 B2 31 3A 89 20 33 39 30 00 72 0B 72 01 8B |OP.1:. 390.r.r..|
00000360: 20 4B B2 35 30 20 A7 20 4F 50 B2 32 3A 89 20 33 | K.50 . OP.2:. 3|
00000370: 39 30 00 90 0B 7C 01 99 20 22 52 45 49 4E 47 52 |90...|.. "REINGR|
00000380: 45 53 45 20 31 20 4F 20 32 22 3A 89 20 33 35 30 |ESE 1 O 2":. 350|
00000390: 00 9E 0B 86 01 4E B2 30 3A 89 20 35 35 30 00 A4 |.....N.0:. 550..|
000003A0: 0B 90 01 8F 00 CB 0B 9A 01 99 20 22 11 11 45 4E |.......... "..EN|
000003B0: 54 52 45 22 3A 99 20 22 11 1D 46 20 50 41 52 41 |TRE":. "..F PARA|
000003C0: 20 46 49 4E 41 4C 49 5A 41 52 22 00 F0 0B 9F 01 | FINALIZAR".....|
000003D0: 99 22 1D 52 20 50 41 52 41 20 52 45 2D 49 4E 47 |.".R PARA RE-ING|
000003E0: 52 45 53 41 52 22 3A 47 31 B2 31 3A 47 32 B2 32 |RESAR":G1.1:G2.2|
000003F0: 00 FA 0B A4 01 49 B2 4E AA 31 00 12 0C AE 01 8B |.....I.N.1......|
00000400: 20 49 B3 36 30 20 B0 20 49 B2 36 30 20 A7 20 34 | I.60 . I.60 . 4|
00000410: 36 30 00 3B 0C B8 01 99 20 22 11 11 20 20 2A 2A |60.;.... ".. **|
00000420: 2A 20 20 41 52 43 48 49 56 4F 20 43 4F 4D 50 4C |* ARCHIVO COMPL|
00000430: 45 54 4F 20 20 2A 2A 2A 11 11 22 00 48 0C C2 01 |ETO ***..".H...|
00000440: 8D 20 32 35 32 30 3A 8E 00 52 0C CC 01 99 20 22 |. 2520:..R.... "|
00000450: 20 22 00 77 0C D6 01 99 20 42 24 28 4F 50 2C 31 | ".w.... B$(OP,1|
00000460: 29 3B 3A 41 24 28 31 2C 49 29 B2 22 22 3A 85 20 |);:A$(1,I)."":. |
00000470: 41 24 28 31 2C 49 29 00 A0 0C E0 01 8B 20 41 24 |A$(1,I)...... A$|
00000480: 28 31 2C 49 29 B2 22 46 22 20 B0 20 41 24 28 31 |(1,I)."F" . A$(1|
00000490: 2C 49 29 B2 22 46 49 4E 22 20 A7 20 31 37 32 30 |,I)."FIN" . 1720|
000004A0: 00 B7 0C EA 01 8B 20 41 24 28 31 2C 49 29 B2 22 |...... A$(1,I)."|
000004B0: 22 20 A7 20 34 37 30 00 D0 0C F4 01 8B 20 41 24 |" . 470...... A$|
000004C0: 28 31 2C 49 29 B3 B1 22 52 22 20 A7 20 35 32 30 |(1,I).."R" . 520|
000004D0: 00 0E 0D FE 01 49 B2 49 AB 31 3A 4E B2 49 AB 31 |.....I.I.1:N.I.1|
000004E0: 3A 99 20 22 20 20 20 2A 2A 2A 20 52 45 2D 49 4E |:. " *** RE-IN|
000004F0: 47 52 45 53 45 20 55 4C 54 49 4D 4F 20 42 4C 4F |GRESE ULTIMO BLO|
00000500: 51 55 45 20 2A 2A 2A 22 3A 89 20 34 36 30 00 1C |QUE ***":. 460..|
00000510: 0D 08 02 81 20 5A B2 32 20 A4 20 35 00 45 0D 12 |.... Z.2 . 5.E..|
00000520: 02 99 20 42 24 28 4F 50 2C 5A 29 3B 3A 41 24 28 |.. B$(OP,Z);:A$(|
00000530: 5A 2C 49 29 B2 22 22 3A 85 20 41 24 28 5A 2C 49 |Z,I)."":. A$(Z,I|
00000540: 29 3A 82 20 5A 00 53 0D 1C 02 4E B2 49 3A 89 20 |):. Z.S...N.I:. |
00000550: 34 31 30 00 89 0D 26 02 53 43 B2 34 3A 99 20 22 |410...&.SC.4:. "|
00000560: 93 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 2A 2A 20 53 |............** S|
00000570: 45 43 52 45 54 41 52 49 41 20 45 4C 45 43 54 52 |ECRETARIA ELECTR|
00000580: 4F 4E 49 43 41 20 2A 2A 22 00 9A 0D 30 02 8B 20 |ONICA **"...0.. |
00000590: 4F 50 B2 32 20 A7 20 35 38 30 00 B3 0D 3A 02 99 |OP.2 . 580...:..|
000005A0: 20 A3 31 35 29 22 41 47 45 4E 44 41 22 3A 89 20 | .15)"AGENDA":. |
000005B0: 35 39 30 00 CA 0D 44 02 99 20 A3 31 35 29 22 49 |590...D.. .15)"I|
000005C0: 4E 56 45 4E 54 41 52 49 4F 22 00 FB 0D 4E 02 99 |NVENTARIO"...N..|
000005D0: 20 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | "**************|
000005E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000005F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 20 0E 58 02 |**********". .X.|
00000600: 99 20 22 50 52 45 53 49 4F 4E 45 22 3A 99 22 31 |. "PRESIONE":."1|
00000610: 2E 20 41 47 52 45 47 41 52 20 44 41 54 4F 53 22 |. AGREGAR DATOS"|
00000620: 00 59 0E 62 02 99 20 22 32 2E 20 43 41 4D 42 49 |.Y.b.. "2. CAMBI|
00000630: 41 52 20 44 41 54 4F 53 22 3A 99 20 22 33 2E 20 |AR DATOS":. "3. |
00000640: 4D 4F 53 54 52 41 52 20 4C 49 53 54 41 20 44 45 |MOSTRAR LISTA DE|
00000650: 20 4E 4F 4D 42 52 45 53 22 00 8B 0E 6C 02 99 20 | NOMBRES"...l.. |
00000660: 22 34 2E 20 4D 4F 53 54 52 41 52 20 44 45 20 41 |"4. MOSTRAR DE A|
00000670: 20 55 4E 4F 22 3A 99 20 22 35 2E 20 55 53 41 52 | UNO":. "5. USAR|
00000680: 20 4C 4F 53 20 44 41 54 4F 53 22 00 BB 0E 76 02 | LOS DATOS"...v.|
00000690: 99 20 22 36 2E 20 47 52 41 42 41 52 20 41 52 43 |. "6. GRABAR ARC|
000006A0: 48 49 56 4F 22 3A 99 20 22 37 2E 20 43 41 52 47 |HIVO":. "7. CARG|
000006B0: 41 52 20 41 52 43 48 49 56 4F 22 00 F2 0E 80 02 |AR ARCHIVO".....|
000006C0: 99 20 22 38 2E 20 4C 49 53 54 41 52 20 45 4E 20 |. "8. LISTAR EN |
000006D0: 49 4D 50 52 45 53 4F 52 41 22 3A 99 20 22 39 2E |IMPRESORA":. "9.|
000006E0: 20 46 49 4E 20 44 45 4C 20 50 52 4F 47 52 41 4D | FIN DEL PROGRAM|
000006F0: 41 22 00 FD 0E 8A 02 8D 20 32 35 33 30 00 15 0F |A"...... 2530...|
00000700: 94 02 8B 20 4B B3 34 39 20 B0 20 4B B1 35 37 20 |... K.49 . K.57 |
00000710: A7 20 35 35 30 00 1F 0F 9E 02 99 20 22 93 22 00 |. 550...... ".".|
00000720: 57 0F A8 02 91 20 28 4B AB 34 38 29 20 8D 20 37 |W.... (K.48) . 7|
00000730: 30 30 2C 37 32 30 2C 39 30 30 2C 39 36 30 2C 31 |00,720,900,960,1|
00000740: 38 38 30 2C 31 35 31 30 2C 31 32 35 30 2C 32 32 |880,1510,1250,22|
00000750: 38 30 2C 32 33 34 30 00 61 0F B2 02 89 20 35 35 |80,2340.a.... 55|
00000760: 30 00 6B 0F BC 02 8D 20 34 30 30 00 71 0F C6 02 |0.k.... 400.q...|
00000770: 8E 00 77 0F D0 02 8F 00 A1 0F DA 02 85 20 22 43 |..w.......... "C|
00000780: 55 41 4C 20 52 45 47 49 53 54 52 4F 22 3B 4D 24 |UAL REGISTRO";M$|
00000790: 3A 8B 20 4D 24 B2 22 22 20 A7 20 4D 24 B2 22 31 |:. M$."" . M$."1|
000007A0: 22 00 C6 0F E4 02 99 20 22 11 11 45 4E 54 52 45 |"...... "..ENTRE|
000007B0: 22 3A 99 20 22 11 20 4E 55 45 56 4F 53 20 44 41 |":. ". NUEVOS DA|
000007C0: 54 4F 53 20 4F 22 00 F1 0F E9 02 99 22 11 50 52 |TOS O"......".PR|
000007D0: 45 53 49 4F 4E 45 20 27 45 27 20 50 41 52 41 20 |ESIONE 'E' PARA |
000007E0: 45 4C 49 4D 49 4E 41 52 20 45 4C 20 49 54 45 4D |ELIMINAR EL ITEM|
000007F0: 22 00 26 10 EE 02 99 20 22 11 4F 20 27 52 45 54 |".&.... ".O 'RET|
00000800: 55 52 4E 27 20 53 49 20 4E 4F 20 48 41 43 45 20 |URN' SI NO HACE |
00000810: 43 41 4D 42 49 4F 53 22 3A 99 20 22 11 11 22 3A |CAMBIOS":. "..":|
00000820: 8D 20 31 31 36 30 00 33 10 F8 02 47 31 B2 31 3A |. 1160.3...G1.1:|
00000830: 49 B2 4D 00 4D 10 02 03 99 20 41 24 28 31 2C 4D |I.M.M.... A$(1,M|
00000840: 29 3B 3A 50 24 B2 22 22 3A 85 20 50 24 00 5F 10 |);:P$."":. P$._.|
00000850: 0C 03 8B 20 50 24 B2 22 22 20 A7 20 38 33 30 00 |... P$."" . 830.|
00000860: 75 10 16 03 8B 20 50 24 B3 B1 22 2F 45 2F 22 20 |u.... P$.."/E/" |
00000870: A7 20 38 32 30 00 A4 10 20 03 81 20 5A B2 31 20 |. 820... .. Z.1 |
00000880: A4 20 35 3A 41 24 28 5A 2C 4D 29 B2 22 2D 4C 41 |. 5:A$(Z,M)."-LA|
00000890: 53 54 20 52 45 43 4F 52 44 20 49 4E 20 46 49 4C |ST RECORD IN FIL|
000008A0: 45 22 3A 82 00 B7 10 2A 03 8D 20 31 37 32 30 3A |E":....*.. 1720:|
000008B0: 4E B2 4E AB 31 3A 8E 00 CB 10 34 03 41 24 28 31 |N.N.1:....4.A$(1|
000008C0: 2C 4D 29 B2 50 24 3A 47 32 B2 31 00 EF 10 3E 03 |,M).P$:G2.1...>.|
000008D0: 81 20 5A B2 32 20 A4 20 35 3A 99 20 41 24 28 5A |. Z.2 . 5:. A$(Z|
000008E0: 2C 4D 29 3B 3A 50 24 B2 22 22 3A 85 20 50 24 00 |,M);:P$."":. P$.|
000008F0: 01 11 48 03 8B 20 50 24 B2 22 22 20 A7 20 38 36 |..H.. P$."" . 86|
00000900: 30 00 18 11 52 03 41 24 28 5A 2C 4D 29 B2 50 24 |0...R.A$(Z,M).P$|
00000910: 3A 47 32 B2 47 32 AA 31 00 20 11 5C 03 82 20 5A |:G2.G2.1. .\.. Z|
00000920: 00 2B 11 66 03 8D 20 31 30 34 30 00 41 11 70 03 |.+.f.. 1040.A.p.|
00000930: 91 20 54 20 89 20 37 37 30 2C 37 33 30 2C 38 39 |. T . 770,730,89|
00000940: 30 00 47 11 7A 03 8E 00 5C 11 84 03 8B 20 47 32 |0.G.z...\.... G2|
00000950: B3 B1 30 20 A7 20 8D 20 31 37 32 30 00 84 11 8E |..0 . . 1720....|
00000960: 03 81 20 58 58 B2 31 20 A4 20 4E 3A 4D B2 33 35 |.. XX.1 . N:M.35|
00000970: AB C3 28 41 24 28 32 2C 58 58 29 29 3A 54 24 B2 |..(A$(2,XX)):T$.|
00000980: 22 2E 20 22 00 B3 11 98 03 99 20 A3 34 AB C3 28 |". "...... .4..(|
00000990: 54 24 29 29 58 58 3B 22 9D 22 3B 54 24 3B 41 24 |T$))XX;".";T$;A$|
000009A0: 28 31 2C 58 58 29 3B A3 4D 29 3B 41 24 28 32 2C |(1,XX);.M);A$(2,|
000009B0: 58 58 29 00 D5 11 A2 03 49 31 B2 B5 28 58 58 AD |XX).....I1..(XX.|
000009C0: 31 30 29 3A 8B 20 49 31 B3 B1 58 58 AD 31 30 20 |10):. I1..XX.10 |
000009D0: A7 20 39 35 30 00 E0 11 AC 03 8D 20 32 35 32 30 |. 950...... 2520|
000009E0: 00 F2 11 B6 03 82 20 58 58 3A 8D 20 32 35 32 30 |...... XX:. 2520|
000009F0: 3A 8E 00 F8 11 C0 03 8F 00 27 12 CA 03 4D 24 B2 |:........'...M$.|
00000A00: 22 22 3A 85 22 11 11 43 55 41 4C 20 52 45 47 49 |"":."..CUAL REGI|
00000A10: 53 54 52 4F 22 3B 4D 24 3A 8B 20 4D 24 B2 22 22 |STRO";M$:. M$.""|
00000A20: 20 A7 20 31 30 33 30 00 32 12 D4 03 8D 20 31 31 | . 1030.2.... 11|
00000A30: 36 30 00 42 12 DE 03 99 20 22 93 11 11 11 1D 1D |60.B.... "......|
00000A40: 1D 22 00 64 12 E8 03 81 20 49 B2 31 20 A4 20 35 |.".d.... I.1 . 5|
00000A50: 3A 99 20 22 1D 1D 1D 1D 1D 22 3B 41 24 28 49 2C |:. ".....";A$(I,|
00000A60: 4D 29 3A 82 00 6F 12 F2 03 8D 20 31 30 34 30 00 |M):..o.... 1040.|
00000A70: 86 12 FC 03 91 20 54 20 89 20 39 39 30 2C 39 37 |..... T . 990,97|
00000A80: 30 2C 31 30 33 30 00 8C 12 06 04 8E 00 C0 12 10 |0,1030..........|
00000A90: 04 99 20 22 11 11 50 52 45 53 49 4F 4E 45 11 22 |.. "..PRESIONE."|
00000AA0: 3A 99 20 22 41 20 50 41 52 41 20 55 4E 20 52 45 |:. "A PARA UN RE|
00000AB0: 47 49 53 54 52 4F 20 41 4E 54 45 52 49 4F 52 22 |GISTRO ANTERIOR"|
00000AC0: 00 FC 12 1A 04 99 20 22 11 50 20 50 41 52 41 20 |...... ".P PARA |
00000AD0: 45 4C 20 50 52 4F 58 49 4D 4F 22 3A 99 20 22 11 |EL PROXIMO":. ".|
00000AE0: 4F 20 50 41 52 41 20 4F 54 52 4F 20 52 45 47 49 |O PARA OTRO REGI|
00000AF0: 53 54 52 4F 22 3A 8D 20 32 35 32 30 00 13 13 24 |STRO":. 2520...$|
00000B00: 04 54 B2 33 3A 8B 20 4B B3 B1 36 35 20 A7 20 31 |.T.3:. K..65 . 1|
00000B10: 30 39 30 00 28 13 2E 04 54 B2 31 3A 8B 20 4D B2 |090.(...T.1:. M.|
00000B20: 31 20 A7 20 31 31 34 30 00 32 13 38 04 4D B2 4D |1 . 1140.2.8.M.M|
00000B30: AB 31 00 45 13 42 04 8B 20 4B B3 B1 38 30 20 A7 |.1.E.B.. K..80 .|
00000B40: 20 31 31 32 30 00 5A 13 4C 04 54 B2 31 3A 8B 20 | 1120.Z.L.T.1:. |
00000B50: 4D B2 4E 20 A7 20 31 31 34 30 00 64 13 56 04 4D |M.N . 1140.d.V.M|
00000B60: B2 4D AA 31 00 77 13 60 04 8B 20 4B B3 B1 37 39 |.M.1.w.`.. K..79|
00000B70: 20 A7 20 31 31 34 30 00 7F 13 6A 04 54 B2 32 00 | . 1140...j.T.2.|
00000B80: 85 13 74 04 8E 00 8B 13 7E 04 8F 00 A6 13 88 04 |..t.....~.......|
00000B90: 8B 20 B6 28 C6 28 4D 24 29 AB 35 33 29 B3 34 20 |. .(.(M$).53).4 |
00000BA0: A7 20 31 32 30 30 00 C5 13 92 04 4D B2 C5 28 4D |. 1200.....M..(M|
00000BB0: 24 29 3A 8B 20 4D B3 4E 20 B0 20 4D B2 4E 20 A7 |$):. M.N . M.N .|
00000BC0: 20 31 31 39 30 00 CD 13 9C 04 4D B2 4E 00 D3 13 | 1190.....M.N...|
00000BD0: A6 04 8E 00 E5 13 B0 04 81 20 49 B2 31 20 A4 20 |......... I.1 . |
00000BE0: 4E 3A 4D B2 49 00 03 14 BA 04 8B 20 C3 28 4D 24 |N:M.I...... .(M$|
00000BF0: 29 B1 C3 28 41 24 28 31 2C 49 29 29 20 A7 20 31 |)..(A$(1,I)) . 1|
00000C00: 32 33 30 00 24 14 C4 04 8B 20 4D 24 B2 C8 28 41 |230.$.... M$..(A|
00000C10: 24 28 31 2C 49 29 2C C3 28 4D 24 29 29 20 A7 20 |$(1,I),.(M$)) . |
00000C20: 31 32 34 30 00 2C 14 CE 04 82 20 49 00 32 14 D8 |1240.,.... I.2..|
00000C30: 04 8E 00 38 14 E2 04 8F 00 4F 14 EC 04 99 20 22 |...8.....O.... "|
00000C40: 45 4E 54 52 45 20 31 2E 20 43 49 4E 54 41 22 00 |ENTRE 1. CINTA".|
00000C50: 66 14 F6 04 99 20 22 20 20 20 20 20 20 32 2E 20 |f.... " 2. |
00000C60: 44 49 53 43 4F 22 00 7D 14 00 05 85 20 22 11 11 |DISCO".}.... "..|
00000C70: 53 55 20 4F 50 43 49 4F 4E 22 3B 41 53 00 96 14 |SU OPCION";AS...|
00000C80: 0A 05 8B 20 41 53 B3 31 20 B0 20 41 53 B1 32 20 |... AS.1 . AS.2 |
00000C90: A7 20 31 32 36 30 00 B4 14 14 05 8B 20 41 53 B2 |. 1260...... AS.|
00000CA0: 32 20 A7 20 41 53 B2 32 3A 53 53 B2 38 3A 89 20 |2 . AS.2:SS.8:. |
00000CB0: 31 33 32 30 00 C2 14 1E 05 41 53 B2 30 3A 53 53 |1320.....AS.0:SS|
00000CC0: B2 31 00 EF 14 28 05 48 24 B2 C7 28 31 33 29 3A |.1...(.H$..(13):|
00000CD0: 85 20 22 45 4E 54 52 45 20 4E 4F 4D 42 52 45 20 |. "ENTRE NOMBRE |
00000CE0: 44 45 4C 20 41 52 43 48 49 56 4F 22 3B 4E 24 00 |DEL ARCHIVO";N$.|
00000CF0: 02 15 32 05 8B 20 41 53 B3 B1 32 20 A7 20 31 33 |..2.. AS..2 . 13|
00000D00: 37 30 00 08 15 3C 05 8F 00 25 15 46 05 9F 32 2C |70...<...%.F..2,|
00000D10: 53 53 2C 41 53 2C 22 40 30 3A 22 AA 4E 24 AA 22 |SS,AS,"@0:".N$."|
00000D20: 2C 53 2C 52 22 00 30 15 50 05 89 20 31 33 38 30 |,S,R".0.P.. 1380|
00000D30: 00 41 15 5A 05 9F 20 32 2C 53 53 2C 41 53 2C 4E |.A.Z.. 2,SS,AS,N|
00000D40: 24 00 53 15 64 05 84 32 2C 4F 2C 4E 54 2C 46 24 |$.S.d..2,O,NT,F$|
00000D50: 2C 44 24 00 65 15 6E 05 8B 20 4F B2 4F 50 20 A7 |,D$.e.n.. O.OP .|
00000D60: 20 31 34 36 30 00 76 15 78 05 8B 20 4F B2 32 20 | 1460.v.x.. O.2 |
00000D70: A7 20 31 34 32 30 00 99 15 82 05 99 20 22 11 41 |. 1420...... ".A|
00000D80: 52 43 48 49 56 4F 20 54 45 4C 45 46 4F 4E 49 43 |RCHIVO TELEFONIC|
00000D90: 4F 22 3A 89 20 31 34 33 30 00 B9 15 8C 05 99 20 |O":. 1430...... |
00000DA0: 22 11 41 52 43 48 49 56 4F 20 44 45 4C 20 49 4E |".ARCHIVO DEL IN|
00000DB0: 56 45 4E 54 41 52 49 4F 22 00 D0 15 96 05 99 20 |VENTARIO"...... |
00000DC0: 22 50 52 4F 43 45 44 45 20 28 53 2F 4E 29 3F 22 |"PROCEDE (S/N)?"|
00000DD0: 00 E6 15 A0 05 8D 20 32 35 33 30 3A 8B 20 4B B2 |...... 2530:. K.|
00000DE0: 37 38 20 A7 20 8E 00 F9 15 AA 05 8B 20 4B B3 B1 |78 . ....... K..|
00000DF0: 38 33 20 A7 20 31 34 34 30 00 07 16 B4 05 4F 50 |83 . 1440.....OP|
00000E00: B2 4F 3A 4E B2 4E 54 00 2A 16 BE 05 99 20 22 41 |.O:N.NT.*.... "A|
00000E10: 4E 54 45 52 49 4F 52 20 41 43 54 55 41 4C 49 5A |NTERIOR ACTUALIZ|
00000E20: 41 43 49 4F 4E 3A 22 3B 44 24 00 42 16 C8 05 81 |ACION:";D$.B....|
00000E30: 20 49 B2 31 20 A4 20 4E 3A 81 20 4A B2 31 20 A4 | I.1 . N:. J.1 .|
00000E40: 20 35 00 59 16 D2 05 84 32 2C 41 24 28 4A 2C 49 | 5.Y....2,A$(J,I|
00000E50: 29 3A 82 20 4A 3A 82 20 49 00 69 16 DC 05 A0 32 |):. J:. I.i....2|
00000E60: 3A 8D 20 32 35 32 30 3A 8E 00 6F 16 E6 05 8F 00 |:. 2520:..o.....|
00000E70: 84 16 F0 05 8B 20 47 32 B3 B1 30 20 A7 20 8D 20 |..... G2..0 . . |
00000E80: 31 37 32 30 00 9A 16 FA 05 99 20 22 45 4E 54 45 |1720...... "ENTE|
00000E90: 52 20 31 2E 20 54 41 50 45 22 00 B0 16 04 06 99 |R 1. TAPE"......|
00000EA0: 20 22 20 20 20 20 20 20 32 2E 20 44 49 53 4B 22 | " 2. DISK"|
00000EB0: 00 C9 16 0E 06 85 20 22 11 11 59 4F 55 52 20 43 |...... "..YOUR C|
00000EC0: 48 4F 49 43 45 22 3B 41 53 00 E2 16 18 06 8B 20 |HOICE";AS...... |
00000ED0: 41 53 B3 31 20 B0 20 41 53 B1 32 20 A7 20 31 35 |AS.1 . AS.2 . 15|
00000EE0: 33 30 00 00 17 22 06 8B 20 41 53 B2 32 20 A7 20 |30...".. AS.2 . |
00000EF0: 41 53 B2 32 3A 53 53 B2 38 3A 89 20 31 35 39 30 |AS.2:SS.8:. 1590|
00000F00: 00 0E 17 2C 06 41 53 B2 31 3A 53 53 B2 31 00 32 |...,.AS.1:SS.1.2|
00000F10: 17 36 06 48 24 B2 C7 28 31 33 29 3A 85 20 22 45 |.6.H$..(13):. "E|
00000F20: 4E 54 45 52 20 46 49 4C 45 20 4E 41 4D 45 22 3B |NTER FILE NAME";|
00000F30: 4E 24 00 49 17 40 06 85 20 22 45 4E 54 45 52 20 |N$.I.@.. "ENTER |
00000F40: 44 41 54 45 2E 22 3B 44 24 00 5C 17 4A 06 8B 20 |DATE.";D$.\.J.. |
00000F50: 41 53 B3 B1 32 20 A7 20 31 36 35 30 00 7A 17 54 |AS..2 . 1650.z.T|
00000F60: 06 85 20 22 45 4E 54 45 52 20 44 45 56 49 43 45 |.. "ENTER DEVICE|
00000F70: 20 4E 55 4D 42 45 52 22 3B 44 00 98 17 5E 06 9F | NUMBER";D...^..|
00000F80: 20 32 2C 53 53 2C 41 53 2C 22 40 30 3A 22 AA 4E | 2,SS,AS,"@0:".N|
00000F90: 24 AA 22 2C 53 2C 57 22 00 A3 17 68 06 89 20 31 |$.",S,W"...h.. 1|
00000FA0: 36 36 30 00 B4 17 72 06 9F 20 32 2C 53 53 2C 41 |660...r.. 2,SS,A|
00000FB0: 53 2C 4E 24 00 D2 17 7C 06 98 32 2C 4F 50 3B 48 |S,N$...|..2,OP;H|
00000FC0: 24 3B 4E 3B 48 24 3B 53 24 3B 48 24 3B 44 24 3B |$;N;H$;S$;H$;D$;|
00000FD0: 48 24 00 05 18 86 06 81 20 49 B2 31 20 A4 20 4E |H$...... I.1 . N|
00000FE0: 3A 81 20 58 B2 31 20 A4 20 35 3A 8B 20 41 24 28 |:. X.1 . 5:. A$(|
00000FF0: 58 2C 49 29 B2 22 22 20 A7 20 41 24 28 58 2C 49 |X,I)."" . A$(X,I|
00001000: 29 B2 22 20 22 00 1F 18 90 06 98 32 2C 41 24 28 |)." "......2,A$(|
00001010: 58 2C 49 29 3B 48 24 3A 82 20 58 3A 82 20 49 00 |X,I);H$:. X:. I.|
00001020: 2C 18 9A 06 98 32 2C 3B 3A A0 20 32 00 37 18 A4 |,....2,;:. 2.7..|
00001030: 06 47 31 B2 30 3A 8E 00 3D 18 AE 06 8F 00 5A 18 |.G1.0:..=.....Z.|
00001040: B8 06 99 20 22 53 4F 52 54 20 42 59 20 57 48 49 |... "SORT BY WHI|
00001050: 43 48 20 46 49 45 4C 44 3F 22 00 7E 18 C2 06 81 |CH FIELD?".~....|
00001060: 20 5A B2 31 20 A4 20 35 3A 99 20 5A 3B 22 2E 20 | Z.1 . 5:. Z;". |
00001070: 22 3B 42 24 28 4F 50 2C 5A 29 3A 82 20 5A 00 86 |";B$(OP,Z):. Z..|
00001080: 18 CC 06 85 20 46 00 9D 18 D6 06 8B 20 46 B3 31 |.... F...... F.1|
00001090: 20 B0 20 46 B1 35 20 A7 20 31 37 32 30 00 A6 18 | . F.5 . 1720...|
000010A0: E0 06 47 32 B2 30 00 CD 18 EA 06 99 20 22 11 11 |..G2.0...... "..|
000010B0: 11 2A 2A 2A 2A 2A 20 53 4F 52 54 49 4E 47 20 44 |.***** SORTING D|
000010C0: 41 54 41 20 2A 2A 2A 2A 2A 11 11 11 22 00 EE 18 |ATA *****..."...|
000010D0: F4 06 81 20 49 B2 31 20 A4 20 4E AB 31 3A 81 20 |... I.1 . N.1:. |
000010E0: 4A B2 4E 20 A4 20 49 AA 31 20 A9 20 AB 31 00 1D |J.N . I.1 . .1..|
000010F0: 19 FE 06 8B 20 41 24 28 46 2C 49 29 B3 41 24 28 |.... A$(F,I).A$(|
00001100: 46 2C 4A 29 20 B0 20 41 24 28 46 2C 49 29 B2 41 |F,J) . A$(F,I).A|
00001110: 24 28 46 2C 4A 29 20 A7 20 31 38 31 30 00 28 19 |$(F,J) . 1810.(.|
00001120: 08 07 8D 20 31 38 36 30 00 30 19 12 07 82 20 4A |... 1860.0.... J|
00001130: 00 50 19 1C 07 8B 20 41 24 28 46 2C 49 29 B3 B1 |.P.... A$(F,I)..|
00001140: 41 24 28 46 2C 49 AA 31 29 20 A7 20 31 38 34 30 |A$(F,I.1) . 1840|
00001150: 00 5A 19 26 07 49 B2 49 AA 31 00 62 19 30 07 82 |.Z.&.I.I.1.b.0..|
00001160: 20 49 00 68 19 3A 07 8E 00 94 19 44 07 81 20 5A | I.h.:.....D.. Z|
00001170: B2 31 20 A4 20 35 3A 4F 24 28 5A 29 B2 41 24 28 |.1 . 5:O$(Z).A$(|
00001180: 5A 2C 49 29 3A 41 24 28 5A 2C 49 29 B2 41 24 28 |Z,I):A$(Z,I).A$(|
00001190: 5A 2C 4A 29 00 AC 19 4E 07 41 24 28 5A 2C 4A 29 |Z,J)...N.A$(Z,J)|
000011A0: B2 4F 24 28 5A 29 3A 82 20 5A 3A 8E 00 B2 19 58 |.O$(Z):. Z:....X|
000011B0: 07 8F 00 C4 19 62 07 8B 20 4F 50 B2 31 20 A7 20 |.....b.. OP.1 . |
000011C0: 31 39 36 30 00 CD 19 6C 07 53 4D B2 30 00 F0 19 |1960...l.SM.0...|
000011D0: 76 07 81 20 49 B2 31 20 A4 20 4E 3A 53 4D B2 53 |v.. I.1 . N:SM.S|
000011E0: 4D AA C5 28 41 24 28 32 2C 49 29 29 3A 82 20 49 |M..(A$(2,I)):. I|
000011F0: 00 2A 1A 80 07 99 20 22 11 11 1D 1D 1D 1D 1D 1D |.*.... "........|
00001200: 54 4F 54 41 4C 20 43 4F 53 54 20 4F 46 20 41 4C |TOTAL COST OF AL|
00001210: 4C 20 54 48 45 20 49 54 45 4D 53 22 3A 99 20 A3 |L THE ITEMS":. .|
00001220: 31 38 29 22 11 11 22 3B 53 4D 00 37 1A 8A 07 8D |18)"..";SM.7....|
00001230: 20 32 35 32 30 3A 8E 00 3D 1A 94 07 8F 00 43 1A | 2520:..=.....C.|
00001240: 9E 07 8F 00 5C 1A A8 07 8D 20 39 37 30 3A 8B 20 |....\.... 970:. |
00001250: 4D 24 B2 22 22 20 A7 20 32 31 30 30 00 6A 1A B2 |M$."" . 2100.j..|
00001260: 07 99 20 22 93 11 11 1D 1D 22 00 81 1A BC 07 54 |.. ".....".....T|
00001270: 24 B2 41 24 28 32 2C 4D 29 3A 4C B2 C3 28 54 24 |$.A$(2,M):L..(T$|
00001280: 29 00 B7 1A C6 07 81 20 49 B2 31 20 A4 20 35 3A |)...... I.1 . 5:|
00001290: 99 20 22 1D 1D 22 3B 41 24 28 49 2C 4D 29 3A 82 |. "..";A$(I,M):.|
000012A0: 3A 99 20 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |:. "............|
000012B0: 1D 1D 1D 1D 1D 22 3B 00 C9 1A D0 07 8B 20 4C B3 |.....";...... L.|
000012C0: 31 30 20 A7 20 32 30 32 30 00 DD 1A DA 07 4C B2 |10 . 2020.....L.|
000012D0: 4C AA 31 3A 54 24 B2 22 31 22 AA 54 24 00 F8 1A |L.1:T$."1".T$...|
000012E0: E4 07 81 20 4A B2 31 20 A4 20 4C 3A 50 24 B2 CA |... J.1 . L:P$..|
000012F0: 28 54 24 2C 4A 2C 31 29 00 1F 1B EE 07 99 20 50 |(T$,J,1)...... P|
00001300: 24 3B 3A 8B 20 C6 28 50 24 29 B3 34 38 20 B0 20 |$;:. .(P$).48 . |
00001310: C6 28 50 24 29 B1 35 37 20 A7 20 32 30 39 30 00 |.(P$).57 . 2090.|
00001320: 39 1B F8 07 54 B2 C5 28 50 24 29 3A 8B 20 54 B3 |9...T..(P$):. T.|
00001330: B1 30 20 A7 20 32 30 36 30 00 5A 1B 02 08 46 32 |.0 . 2060.Z...F2|
00001340: B2 39 34 31 3A 46 31 B2 31 33 33 36 3A 8D 20 32 |.941:F1.1336:. 2|
00001350: 34 31 30 3A 89 20 32 30 38 30 00 7A 1B 0C 08 49 |410:. 2080.z...I|
00001360: B2 B5 28 28 54 AB 31 29 AD 33 29 AA 31 3A 49 4A |..((T.1).3).1:IJ|
00001370: B2 54 AB 33 AC 28 49 AB 31 29 00 98 1B 16 08 46 |.T.3.(I.1).....F|
00001380: 31 B2 50 31 28 49 29 3A 46 32 B2 50 32 28 49 4A |1.P1(I):F2.P2(IJ|
00001390: 29 3A 8D 20 32 34 31 30 00 AA 1B 20 08 81 20 58 |):. 2410... .. X|
000013A0: B2 31 20 A4 20 32 35 30 3A 82 00 B2 1B 2A 08 82 |.1 . 250:....*..|
000013B0: 20 4A 00 CD 1B 34 08 99 20 22 11 11 22 3A 99 20 | J...4.. "..":. |
000013C0: 22 1D 50 52 45 53 53 22 3A 99 22 11 22 00 FC 1B |".PRESS":."."...|
000013D0: 3E 08 99 20 22 1D 52 20 54 4F 20 52 45 44 49 41 |>.. ".R TO REDIA|
000013E0: 4C 22 3A 99 20 22 20 53 20 54 4F 20 53 54 41 52 |L":. " S TO STAR|
000013F0: 54 20 53 54 4F 50 57 41 54 43 48 22 00 16 1C 48 |T STOPWATCH"...H|
00001400: 08 99 20 22 1D 4E 20 46 4F 52 20 4E 45 57 20 4E |.. ".N FOR NEW N|
00001410: 55 4D 42 45 52 22 00 21 1C 52 08 8D 20 32 35 32 |UMBER".!.R.. 252|
00001420: 30 00 33 1C 5C 08 8B 20 4B B2 38 32 20 A7 20 31 |0.3.\.. K.82 . 1|
00001430: 39 37 30 00 45 1C 66 08 8B 20 4B B2 37 38 20 A7 |970.E.f.. K.78 .|
00001440: 20 31 39 36 30 00 58 1C 70 08 8B 20 4B B3 B1 38 | 1960.X.p.. K..8|
00001450: 33 20 A7 20 32 31 38 30 00 6A 1C 7A 08 8D 20 32 |3 . 2180.j.z.. 2|
00001460: 35 36 30 3A 8D 20 32 32 30 30 00 70 1C 84 08 8E |560:. 2200.p....|
00001470: 00 76 1C 8E 08 8F 00 87 1C 98 08 54 49 24 B2 22 |.v.........TI$."|
00001480: 30 30 30 30 30 30 22 00 A8 1C A2 08 81 20 49 B2 |000000"...... I.|
00001490: 31 20 A4 20 36 3A 43 24 28 49 29 B2 CA 28 54 49 |1 . 6:C$(I)..(TI|
000014A0: 24 2C 49 2C 31 29 3A 82 00 D8 1C AC 08 99 20 22 |$,I,1):....... "|
000014B0: 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000014C0: 11 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000014D0: 1D 1D 1D 1D 1D 1D 1D 22 00 0A 1D B6 08 99 20 43 |......."...... C|
000014E0: 24 28 31 29 3B 43 24 28 32 29 3B 22 3A 22 3B 43 |$(1);C$(2);":";C|
000014F0: 24 28 33 29 3B 43 24 28 34 29 3B 22 3A 22 3B 43 |$(3);C$(4);":";C|
00001500: 24 28 35 29 3B 43 24 28 36 29 00 1C 1D C0 08 81 |$(5);C$(6)......|
00001510: 20 49 B2 31 20 A4 20 32 35 30 3A 82 00 37 1D CA | I.1 . 250:..7..|
00001520: 08 49 B2 C2 28 31 39 37 29 3A 8B 20 49 B2 36 34 |.I..(197):. I.64|
00001530: 20 A7 20 32 32 31 30 00 49 1D D4 08 8B 20 49 B2 | . 2210.I.... I.|
00001540: 31 37 20 A7 20 31 39 37 30 00 4F 1D DE 08 8E 00 |17 . 1970.O.....|
00001550: 55 1D E8 08 8F 00 5F 1D F2 08 9F 20 34 2C 34 00 |U....._.... 4,4.|
00001560: 77 1D FC 08 81 20 49 B2 31 20 A4 20 4E 3A 81 20 |w.... I.1 . N:. |
00001570: 4A B2 31 20 A4 20 35 00 88 1D 06 09 98 34 2C 41 |J.1 . 5......4,A|
00001580: 24 28 4A 2C 49 29 3A 82 00 9C 1D 10 09 98 34 2C |$(J,I):.......4,|
00001590: 22 20 22 3A 98 34 2C 22 20 22 3A 82 00 AB 1D 1A |" ":.4," ":.....|
000015A0: 09 98 34 2C 3B 3A A0 20 34 3A 8E 00 D7 1D 24 09 |..4,;:. 4:....$.|
000015B0: 99 20 22 93 11 11 1D 44 4F 20 59 4F 55 20 57 49 |. "....DO YOU WI|
000015C0: 53 48 20 54 4F 20 48 41 4C 54 20 54 48 45 20 50 |SH TO HALT THE P|
000015D0: 52 4F 47 52 41 4D 22 00 01 1E 2E 09 99 20 22 1D |ROGRAM"...... ".|
000015E0: 41 4E 44 20 4C 4F 53 45 20 41 4C 4C 20 54 48 45 |AND LOSE ALL THE|
000015F0: 20 44 41 54 41 20 49 4E 20 4D 45 4D 4F 52 59 3F | DATA IN MEMORY?|
00001600: 22 00 19 1E 38 09 99 20 22 1D 11 50 52 45 53 53 |"...8.. "..PRESS|
00001610: 20 59 20 4F 52 20 4E 2E 22 00 24 1E 42 09 8D 20 | Y OR N.".$.B.. |
00001620: 32 35 33 30 00 35 1E 4C 09 8B 20 4B B2 37 38 20 |2530.5.L.. K.78 |
00001630: A7 20 37 31 30 00 45 1E 56 09 8B 20 4B B3 B1 38 |. 710.E.V.. K..8|
00001640: 39 20 A7 20 8E 00 4B 1E 60 09 80 00 7B 1E 6A 09 |9 . ..K.`...{.j.|
00001650: 46 44 B2 B5 28 46 31 AD 2E 30 36 30 39 37 29 3A |FD..(F1..06097):|
00001660: 48 31 B2 B5 28 46 44 AD 32 35 36 29 3A 4C 31 B2 |H1..(FD.256):L1.|
00001670: 46 44 AB 28 32 35 36 AC 48 31 29 00 AB 1E 74 09 |FD.(256.H1)...t.|
00001680: 46 44 B2 B5 28 46 32 AD 2E 30 36 30 39 37 29 3A |FD..(F2..06097):|
00001690: 48 32 B2 B5 28 46 44 AD 32 35 36 29 3A 4C 32 B2 |H2..(FD.256):L2.|
000016A0: 46 44 AB 28 32 35 36 AC 48 32 29 00 C0 1E 7E 09 |FD.(256.H2)...~.|
000016B0: 97 20 53 AA 35 2C 30 3A 97 20 53 AA 31 32 2C 30 |. S.5,0:. S.12,0|
000016C0: 00 D9 1E 88 09 97 20 53 AA 36 2C 32 32 34 3A 97 |...... S.6,224:.|
000016D0: 20 53 AA 31 33 2C 32 34 30 00 E7 1E 92 09 97 20 | S.13,240...... |
000016E0: 53 AA 32 34 2C 33 31 00 FB 1E 9C 09 97 20 53 AA |S.24,31...... S.|
000016F0: 31 2C 48 31 3A 97 20 53 2C 4C 31 00 11 1F A6 09 |1,H1:. S,L1.....|
00001700: 97 20 53 AA 38 2C 48 32 3A 97 20 53 AA 37 2C 4C |. S.8,H2:. S.7,L|
00001710: 32 00 28 1F B0 09 97 20 53 AA 34 2C 33 33 3A 97 |2.(.... S.4,33:.|
00001720: 20 53 AA 31 31 2C 33 33 00 3B 1F BA 09 81 20 5A | S.11,33.;.... Z|
00001730: 58 B2 31 20 A4 20 31 30 30 3A 82 00 52 1F C4 09 |X.1 . 100:..R...|
00001740: 97 20 53 AA 34 2C 33 32 3A 97 20 53 AA 31 31 2C |. S.4,32:. S.11,|
00001750: 33 32 00 61 1F CE 09 97 20 53 AA 32 34 2C 30 3A |32.a.... S.24,0:|
00001760: 8E 00 8A 1F D8 09 99 22 11 1D 1D 1D 1D 1D 1D 1D |......."........|
00001770: 50 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 4F |PRESS ANY KEY TO|
00001780: 20 43 4F 4E 54 49 4E 55 45 22 00 A3 1F E2 09 A1 | CONTINUE"......|
00001790: 20 4B 24 3A 8B 20 4B 24 B3 B1 22 22 20 A7 20 32 | K$:. K$.."" . 2|
000017A0: 35 33 30 00 BB 1F EC 09 A1 20 4B 24 3A 8B 20 4B |530...... K$:. K|
000017B0: 24 B2 22 22 20 A7 20 32 35 34 30 00 C9 1F F6 09 |$."" . 2540.....|
000017C0: 4B B2 C6 28 4B 24 29 3A 8E 00 06 20 00 0A 99 22 |K..(K$):... ..."|
000017D0: 91 91 91 91 22 3B 3A 81 20 49 B2 31 20 A4 20 32 |....";:. I.1 . 2|
000017E0: 3A 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |:." |
000017F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001800: 20 22 3A 82 3A 8E 00 00 00 | ":.:.... |
..#.Z.. NOMBRE DEL PROGRAMA: AGENDA.D.D.
. ELECTRONIC HOME SECRETARY.D.N.. REVIS
TA HOME COMPUTER N 2...X.. VERSION PARA
BASIC O SIMON BASIC...... CAIRO...... D
~OR......... ........ A$(5,60),O$(5),C$(
6),P1(3),P2(3),B$(2,5).....S.54272:SZ.0.
....OP.1.".H.. P1(1),P1(2),P1(3),P2(1),P
2(2),P2(3).<.R.. I.1 . 5:. B$(1,I):..V..
.. I.1 . 5:. B$(2,I):..W.... 697,770,852
,1210,1340,1481...... "NOMBRE :","TELE
FONO :","DIRECCION:","CIUDAD :","PROVI
NCIA :"...... "ITEM :","VALOR :","UBICAC
ION :","FECHA COMPRA:","NRO.SERIE :".4.
..RF.2000:RF.(RF.30).8:RH..(RF.8):RL.RF.
8.RH.K.... X.S.S.24:. X,0:..L.... S.23,3
:. S.21,RH:. S.22,RL...".. "....":. 5328
1,1...,.. .6)"**************************
**".S.6.. .6)"** SECRETARIA ELECTRONICA
**"...@.. .6)"**************************
**"...J...7.T.. .8)"1. AGENDA TELEFONICA
":. .8)".2. INVENTARIO".B.^.. 2530.Z.H..
K.49 . OP.1:. 390.R.R.. K.50 . OP.2:. 3
90...|.. "REINGRESE 1 O 2":. 350.....N.0
:. 550.......K.... "..ENTRE":. "..F PARA
FINALIZAR"......".R PARA RE-INGRESAR":G
1.1:G2.2.....I.N.1...... I.60 . I.60 . 4
60.;.... ".. *** ARCHIVO COMPLETO ***
..".H.B.. 2520:..R.L.. " ".W.V.. B$(OP,1
);:A$(1,I)."":. A$(1,I). .... A$(1,I)."F
" . A$(1,I)."FIN" . 1720...... A$(1,I)."
" . 470.P.... A$(1,I).."R" . 520.....I.I
.1:N.I.1:. " *** RE-INGRESE ULTIMO BLO
QUE ***":. 460...... Z.2 . 5.E.... B$(OP
,Z);:A$(Z,I)."":. A$(Z,I):. Z.S...N.I:.
410...&.SC.4:. "............** SECRETARI
A ELECTRONICA **"...0.. OP.2 . 580...:..
.15)"AGENDA":. 590.J.D.. .15)"INVENTARI
O"...N.. "******************************
**********". .X.. "PRESIONE":."1. AGREGA
R DATOS".Y.B.. "2. CAMBIAR DATOS":. "3.
MOSTRAR LISTA DE NOMBRES"...L.. "4. MOST
RAR DE A UNO":. "5. USAR LOS DATOS"...V.
. "6. GRABAR ARCHIVO":. "7. CARGAR ARCHI
VO"...... "8. LISTAR EN IMPRESORA":. "9.
FIN DEL PROGRAMA"...... 2530...... K.49
. K.57 . 550...... ".".W.... (K.48) . 7
00,720,900,960,1880,1510,1250,2280,2340.
A.... 550.K.... 400.Q.F...W.P.....Z.. "C
UAL REGISTRO";M$:. M$."" . M$."1".F....
"..ENTRE":. ". NUEVOS DATOS O"......".PR
ESIONE 'E' PARA ELIMINAR EL ITEM".&....
".O 'RETURN' SI NO HACE CAMBIOS":. "..":
. 1160.3...G1.1:I.M.M.... A$(1,M);:P$.""
:. P$._.... P$."" . 830.U.... P$.."/E/"
. 820... .. Z.1 . 5:A$(Z,M)."-LAST RECOR
D IN FILE":....*.. 1720:N.N.1:..K.4.A$(1
,M).P$:G2.1...>.. Z.2 . 5:. A$(Z,M);:P$.
"":. P$...H.. P$."" . 860...R.A$(Z,M).P$
:G2.G2.1. .\.. Z.+.F.. 1040.A.P.. T . 77
0,730,890.G.Z...\.... G2..0 . . 1720....
.. XX.1 . N:M.35.C(A$(2,XX)):T$.". "....
.. .4.C(T$))XX;".";T$;A$(1,XX);.M);A$(2,
XX).U...I1..(XX.10):. I1..XX.10 . 950...
... 2520...... XX:. 2520:........'.J.M$.
"":."..CUAL REGISTRO";M$:. M$."" . 1030.
2.T.. 1160.B.... ".......".D.... I.1 . 5
:. ".....";A$(I,M):..O.... 1040...... T
. 990,970,1030............ "..PRESIONE."
:. "A PARA UN REGISTRO ANTERIOR"...... "
.P PARA EL PROXIMO":. ".O PARA OTRO REGI
STRO":. 2520...$.T.3:. K..65 . 1090.(...
T.1:. M.1 . 1140.2.8.M.M.1.E.B.. K..80 .
1120.Z.L.T.1:. M.N . 1140.D.V.M.M.1.W.`
.. K..79 . 1140..J.T.2...T.....~.......
. .(F(M$).53).4 . 1200.E...M.E(M$):. M.N
. M.N . 1190.M...M.N.S.......... I.1 .
N:M.I...... C(M$).C(A$(1,I)) . 1230.$.D.
. M$.H(A$(1,I),C(M$)) . 1240.,.N.. I.2.X
...8.....O.... "ENTRE 1. CINTA".F.... "
2. DISCO".}.... "..SU OPCION";AS...
... AS.1 . AS.2 . 1260...... AS.2 . AS.2
:SS.8:. 1320.B...AS.0:SS.1...(.H$.G(13):
. "ENTRE NOMBRE DEL ARCHIVO";N$...2.. AS
..2 . 1370...<...%.F..2,SS,AS,"@0:".N$."
,S,R".0.P.. 1380.A.Z.. 2,SS,AS,N$.S.D..2
,O,NT,F$,D$.E.N.. O.OP . 1460.V.X.. O.2
. 1420...... ".ARCHIVO TELEFONICO":. 143
0...... ".ARCHIVO DEL INVENTARIO".P....
"PROCEDE (S/N)?"... .. 2530:. K.78 . ...
.... K..83 . 1440.....OP.O:N.NT.*.... "A
NTERIOR ACTUALIZACION:";D$.B.H.. I.1 . N
:. J.1 . 5.Y.R..2,A$(J,I):. J:. I.I... 2
:. 2520:..O.......... G2..0 . . 1720....
.. "ENTER 1. TAPE"...... " 2. DISK"
.I.... "..YOUR CHOICE";AS...... AS.1 . A
S.2 . 1530...".. AS.2 . AS.2:SS.8:. 1590
...,.AS.1:SS.1.2.6.H$.G(13):. "ENTER FIL
E NAME";N$.I.@.. "ENTER DATE.";D$.\.J..
AS..2 . 1650.Z.T.. "ENTER DEVICE NUMBER"
;D...^.. 2,SS,AS,"@0:".N$.",S,W"...H.. 1
660...R.. 2,SS,AS,N$.R.|..2,OP;H$;N;H$;S
$;H$;D$;H$...... I.1 . N:. X.1 . 5:. A$(
X,I)."" . A$(X,I)." "......2,A$(X,I);H$:
. X:. I.,....2,;: 2.7...G1.0:..=.....Z.
... "SORT BY WHICH FIELD?".~.B.. Z.1 . 5
:. Z;". ";B$(OP,Z):. Z...L.. F...V.. F.1
. F.5 . 1720.....G2.0.M.... "...***** S
ORTING DATA *****..."...... I.1 . N.1:.
J.N . I.1 . .1...... A$(F,I).A$(F,J) . A
$(F,I).A$(F,J) . 1810.(.... 1860.0.... J
.P.... A$(F,I)..A$(F,I.1) . 1840.Z.&.I.I
.1.B.0.. I.H.:.....D.. Z.1 . 5:O$(Z).A$(
Z,I):A$(Z,I).A$(Z,J)...N.A$(Z,J).O$(Z):.
Z:....X...D.B.. OP.1 . 1960.M.L.SM.0...
V.. I.1 . N:SM.SM.E(A$(2,I)):. I.*.... "
........TOTAL COST OF ALL THE ITEMS":. .
18)"..";SM.7.... 2520:..=.....C.....\...
. 970:. M$."" . 2100.J.... ".....".....T
$.A$(2,M):L.C(T$)...F.. I.1 . 5:. "..";A
$(I,M):.:. ".................";.I.P.. L.
10 . 2020...Z.L.L.1:T$."1".T$...... J.1
. L:P$.J(T$,J,1)...... P$;:. F(P$).48 .
F(P$).57 . 2090.9...T.E(P$):. T..0 . 206
0.Z...F2.941:F1.1336:. 2410:. 2080.Z...I
..((T.1).3).1:IJ.T.3.(I.1).....F1.P1(I):
F2.P2(IJ):. 2410... .. X.1 . 250:....*..
J.M.4.. "..":. ".PRESS":."."...>.. ".R
TO REDIAL":. " S TO START STOPWATCH"...H
.. ".N FOR NEW NUMBER".!.R.. 2520.3.\..
K.82 . 1970.E.F.. K.78 . 1960.X.P.. K..8
3 . 2180.J.Z.. 2560:. 2200.P.....V......
...TI$."000000"...... I.1 . 6:C$(I).J(TI
$,I,1):..X.... "........................
..............."...... C$(1);C$(2);":";C
$(3);C$(4);":";C$(5);C$(6)...... I.1 . 2
50:..7.J.I.B(197):. I.64 . 2210.I.T.. I.
17 . 1970.O.....U....._.... 4,4.W.... I.
1 . N:. J.1 . 5......4,A$(J,I):.......4,
" ":.4," ":.......4,;: 4:..W.$.. "....D
O YOU WISH TO HALT THE PROGRAM"...... ".
AND LOSE ALL THE DATA IN MEMORY?"...8..
"..PRESS Y OR N.".$.B.. 2530.5.L.. K.78
. 710.E.V.. K..89 . ..K.`...{.J.FD..(F1.
.06097):H1..(FD.256):L1.FD.(256.H1)...T.
FD..(F2..06097):H2..(FD.256):L2.FD.(256.
H2)...~.. S.5,0:. S.12,0.Y.... S.6,224:.
S.13,240...... S.24,31...... S.1,H1:. S
,L1...... S.8,H2:. S.7,L2.(.... S.4,33:.
S.11,33.;.... ZX.1 . 100:..R.D.. S.4,32
:. S.11,32.A.N.. S.24,0:....X.."........
PRESS ANY KEY TO CONTINUE"...... K$:. K$
.."" . 2530...... K$:. K$."" . 2540.I...
K.F(K$):... ..."....";:. I.1 . 2:."
":.:....
> CLICK IMAGE PREVIEW FOR FULL MODAL