Multiple names: AGENDA INVENTARI, AGENDA ORIGINAL

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 A1 08 82 00  |SIMON BASIC.....|
00000090: 8F 20 44 45 4C 20 44 49  41 20 31 39 2D 39 2D 38  |. DEL DIA 19-9-8|
000000A0: 34 00 AD 08 8C 00 8F 20  20 64 7E 4F 52 00 B3 08  |4......  d~OR...|
000000B0: 96 00 8F 00 B9 08 A0 00  8F 00 E8 08 AA 00 86 20  |............... |
000000C0: 41 24 28 35 2C 36 30 29  2C 4F 24 28 35 29 2C 43  |A$(5,60),O$(5),C|
000000D0: 24 28 36 29 2C 50 31 28  33 29 2C 50 32 28 33 29  |$(6),P1(3),P2(3)|
000000E0: 2C 42 24 28 32 2C 35 29  00 F9 08 B4 00 53 B2 35  |,B$(2,5).....S.5|
000000F0: 34 32 37 32 3A 53 5A B2  30 00 02 09 BE 00 4F 50  |4272:SZ.0.....OP|
00000100: B2 31 00 2C 09 C8 00 87  20 50 31 28 31 29 2C 50  |.1.,.... P1(1),P|
00000110: 31 28 32 29 2C 50 31 28  33 29 2C 50 32 28 31 29  |1(2),P1(3),P2(1)|
00000120: 2C 50 32 28 32 29 2C 50  32 28 33 29 00 46 09 D2  |,P2(2),P2(3).F..|
00000130: 00 81 20 49 B2 31 20 A4  20 35 3A 87 20 42 24 28  |.. I.1 . 5:. B$(|
00000140: 31 2C 49 29 3A 82 00 60  09 DC 00 81 20 49 B2 31  |1,I):..`.... I.1|
00000150: 20 A4 20 35 3A 87 20 42  24 28 32 2C 49 29 3A 82  | . 5:. B$(2,I):.|
00000160: 00 81 09 E6 00 83 20 36  39 37 2C 37 37 30 2C 38  |...... 697,770,8|
00000170: 35 32 2C 31 32 31 30 2C  31 33 34 30 2C 31 34 38  |52,1210,1340,148|
00000180: 31 00 B7 09 F0 00 83 20  22 4E 41 4D 45 3A 22 2C  |1...... "NAME:",|
00000190: 22 50 48 4F 4E 45 3A 22  2C 22 41 44 52 45 53 53  |"PHONE:","ADRESS|
000001A0: 3A 22 2C 22 43 49 54 59  3A 22 2C 22 53 54 41 54  |:","CITY:","STAT|
000001B0: 45 26 5A 49 50 3A 22 00  FF 09 FA 00 83 20 22 49  |E&ZIP:"...... "I|
000001C0: 54 45 4D 20 3A 22 2C 22  56 41 4C 55 45 20 3A 22  |TEM :","VALUE :"|
000001D0: 2C 22 4C 4F 43 41 54 49  4F 4E 3A 22 2C 22 44 41  |,"LOCATION:","DA|
000001E0: 54 45 20 50 55 52 43 48  41 53 45 44 20 3A 22 2C  |TE PURCHASED :",|
000001F0: 22 53 45 52 20 23 20 4F  52 20 49 44 20 3A 22 00  |"SER # OR ID :".|
00000200: 2E 0A 04 01 52 46 B2 32  30 30 30 3A 52 46 B2 28  |....RF.2000:RF.(|
00000210: 52 46 AB 33 30 29 AD 38  3A 52 48 B2 B5 28 52 46  |RF.30).8:RH..(RF|
00000220: AD 38 29 3A 52 4C B2 52  46 AB 38 AC 52 48 00 45  |.8):RL.RF.8.RH.E|
00000230: 0A 0E 01 81 20 58 B2 53  A4 53 AA 32 34 3A 97 20  |.... X.S.S.24:. |
00000240: 58 2C 30 3A 82 00 66 0A  18 01 97 20 53 AA 32 33  |X,0:..f.... S.23|
00000250: 2C 33 3A 97 20 53 AA 32  31 2C 52 48 3A 97 20 53  |,3:. S.21,RH:. S|
00000260: AA 32 32 2C 52 4C 00 7D  0A 22 01 99 20 22 90 93  |.22,RL.}.".. "..|
00000270: 11 11 22 3A 97 20 35 33  32 38 31 2C 31 00 A1 0A  |..":. 53281,1...|
00000280: 2C 01 99 20 A3 38 29 22  2A 2A 2A 2A 2A 2A 2A 2A  |,.. .8)"********|
00000290: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000002A0: 22 00 C5 0A 36 01 99 20  A3 38 29 22 2A 2A 20 54  |"...6.. .8)"** T|
000002B0: 48 45 20 48 4F 4D 45 20  53 45 43 52 45 54 41 52  |HE HOME SECRETAR|
000002C0: 59 20 2A 2A 22 00 E9 0A  40 01 99 20 A3 38 29 22  |Y **"...@.. .8)"|
000002D0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000002E0: 2A 2A 2A 2A 2A 2A 2A 2A  22 00 EF 0A 4A 01 8F 00  |********"...J...|
000002F0: 1D 0B 54 01 99 20 A3 38  29 22 31 2E 20 50 48 4F  |..T.. .8)"1. PHO|
00000300: 4E 45 20 42 4F 4F 4B 22  3A 99 20 A3 38 29 22 11  |NE BOOK":. .8)".|
00000310: 32 2E 20 49 4E 56 45 4E  54 4F 52 59 22 00 28 0B  |2. INVENTORY".(.|
00000320: 5E 01 8D 20 32 35 33 30  00 40 0B 68 01 8B 20 4B  |^.. 2530.@.h.. K|
00000330: B2 34 39 20 A7 20 4F 50  B2 31 3A 89 20 33 39 30  |.49 . OP.1:. 390|
00000340: 00 58 0B 72 01 8B 20 4B  B2 35 30 20 A7 20 4F 50  |.X.r.. K.50 . OP|
00000350: B2 32 3A 89 20 33 39 30  00 76 0B 7C 01 99 20 22  |.2:. 390.v.|.. "|
00000360: 52 45 2D 45 4E 54 45 52  20 31 20 4F 52 20 32 22  |RE-ENTER 1 OR 2"|
00000370: 3A 89 20 33 35 30 00 84  0B 86 01 4E B2 30 3A 89  |:. 350.....N.0:.|
00000380: 20 35 35 30 00 8A 0B 90  01 8F 00 C6 0B 9A 01 99  | 550............|
00000390: 20 22 11 11 45 4E 54 45  52 22 3A 99 20 22 11 1D  | "..ENTER":. "..|
000003A0: 45 20 54 4F 20 45 58 49  54 22 3A 99 20 22 1D 52  |E TO EXIT":. ".R|
000003B0: 20 54 4F 20 52 45 45 4E  54 45 52 22 3A 47 31 B2  | TO REENTER":G1.|
000003C0: 31 3A 47 32 B2 32 00 D0  0B A4 01 49 B2 4E AA 31  |1:G2.2.....I.N.1|
000003D0: 00 E8 0B AE 01 8B 20 49  B3 36 30 20 B0 20 49 B2  |...... I.60 . I.|
000003E0: 36 30 20 A7 20 34 36 30  00 10 0C B8 01 99 20 22  |60 . 460...... "|
000003F0: 11 11 20 20 2A 2A 2A 20  20 41 52 52 41 59 20 46  |..  ***  ARRAY F|
00000400: 55 4C 4C 20 28 4E 3D 36  30 29 2A 2A 2A 11 11 22  |ULL (N=60)***.."|
00000410: 00 1D 0C C2 01 8D 20 32  35 32 30 3A 8E 00 27 0C  |...... 2520:..'.|
00000420: CC 01 99 20 22 20 22 00  4C 0C D6 01 99 20 42 24  |... " ".L.... B$|
00000430: 28 4F 50 2C 31 29 3B 3A  41 24 28 31 2C 49 29 B2  |(OP,1);:A$(1,I).|
00000440: 22 22 3A 85 20 41 24 28  31 2C 49 29 00 75 0C E0  |"":. A$(1,I).u..|
00000450: 01 8B 20 41 24 28 31 2C  49 29 B2 22 45 22 20 B0  |.. A$(1,I)."E" .|
00000460: 20 41 24 28 31 2C 49 29  B2 22 45 4E 44 22 20 A7  | A$(1,I)."END" .|
00000470: 20 31 37 32 30 00 8C 0C  EA 01 8B 20 41 24 28 31  | 1720...... A$(1|
00000480: 2C 49 29 B2 22 22 20 A7  20 34 37 30 00 A5 0C F4  |,I)."" . 470....|
00000490: 01 8B 20 41 24 28 31 2C  49 29 B3 B1 22 52 22 20  |.. A$(1,I).."R" |
000004A0: A7 20 35 32 30 00 DB 0C  FE 01 49 B2 49 AB 31 3A  |. 520.....I.I.1:|
000004B0: 4E B2 49 AB 31 3A 99 20  22 20 20 20 2A 2A 2A 20  |N.I.1:. "   *** |
000004C0: 52 45 45 4E 54 45 52 20  4C 41 53 54 20 53 45 54  |REENTER LAST SET|
000004D0: 20 2A 2A 2A 22 3A 89 20  34 36 30 00 E9 0C 08 02  | ***":. 460.....|
000004E0: 81 20 5A B2 32 20 A4 20  35 00 12 0D 12 02 99 20  |. Z.2 . 5...... |
000004F0: 42 24 28 4F 50 2C 5A 29  3B 3A 41 24 28 5A 2C 49  |B$(OP,Z);:A$(Z,I|
00000500: 29 B2 22 22 3A 85 20 41  24 28 5A 2C 49 29 3A 82  |)."":. A$(Z,I):.|
00000510: 20 5A 00 20 0D 1C 02 4E  B2 49 3A 89 20 34 31 30  | Z. ...N.I:. 410|
00000520: 00 4E 0D 26 02 53 43 B2  34 3A 99 20 22 93 11 11  |.N.&.SC.4:. "...|
00000530: 1D 1D 1D 1D 1D 1D 1D 1D  1D 2A 2A 20 48 4F 4D 45  |.........** HOME|
00000540: 20 53 45 43 52 45 54 41  52 59 20 2A 2A 22 00 5F  | SECRETARY **"._|
00000550: 0D 30 02 8B 20 4F 50 B2  32 20 A7 20 35 38 30 00  |.0.. OP.2 . 580.|
00000560: 7C 0D 3A 02 99 20 A3 31  35 29 22 50 48 4F 4E 45  ||.:.. .15)"PHONE|
00000570: 20 42 4F 4F 4B 22 3A 89  20 35 39 30 00 92 0D 44  | BOOK":. 590...D|
00000580: 02 99 20 A3 31 35 29 22  49 4E 56 45 4E 54 4F 52  |.. .15)"INVENTOR|
00000590: 59 22 00 C3 0D 4E 02 99  20 22 2A 2A 2A 2A 2A 2A  |Y"...N.. "******|
000005A0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000005B0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000005C0: 2A 2A 22 00 E1 0D 58 02  99 20 22 50 52 45 53 53  |**"...X.. "PRESS|
000005D0: 22 3A 99 20 22 31 2E 20  41 44 44 20 44 41 54 41  |":. "1. ADD DATA|
000005E0: 22 00 11 0E 62 02 99 20  22 32 2E 20 43 48 41 4E  |"...b.. "2. CHAN|
000005F0: 47 45 20 44 41 54 41 22  3A 99 20 22 33 2E 20 44  |GE DATA":. "3. D|
00000600: 49 53 50 4C 41 59 20 4E  41 4D 45 20 4C 49 53 54  |ISPLAY NAME LIST|
00000610: 22 00 42 0E 6C 02 99 20  22 34 2E 20 44 49 53 50  |".B.l.. "4. DISP|
00000620: 4C 41 59 20 4F 4E 45 20  45 4E 54 52 59 22 3A 99  |LAY ONE ENTRY":.|
00000630: 20 22 35 2E 20 55 53 45  20 54 48 45 20 44 41 54  | "5. USE THE DAT|
00000640: 41 22 00 72 0E 76 02 99  20 22 36 2E 20 53 41 56  |A".r.v.. "6. SAV|
00000650: 45 20 44 41 54 41 20 46  49 4C 45 22 3A 99 20 22  |E DATA FILE":. "|
00000660: 37 2E 20 4C 4F 41 44 20  44 41 54 41 20 46 49 4C  |7. LOAD DATA FIL|
00000670: 45 22 00 A0 0E 80 02 99  20 22 38 2E 20 4C 49 53  |E"...... "8. LIS|
00000680: 54 20 54 4F 20 50 52 49  4E 54 45 52 22 3A 99 20  |T TO PRINTER":. |
00000690: 22 39 2E 20 45 4E 44 20  50 52 4F 47 52 41 4D 22  |"9. END PROGRAM"|
000006A0: 00 AB 0E 8A 02 8D 20 32  35 33 30 00 C3 0E 94 02  |...... 2530.....|
000006B0: 8B 20 4B B3 34 39 20 B0  20 4B B1 35 37 20 A7 20  |. K.49 . K.57 . |
000006C0: 35 35 30 00 CD 0E 9E 02  99 20 22 93 22 00 05 0F  |550...... "."...|
000006D0: A8 02 91 20 28 4B AB 34  38 29 20 8D 20 37 30 30  |... (K.48) . 700|
000006E0: 2C 37 32 30 2C 39 30 30  2C 39 36 30 2C 31 38 38  |,720,900,960,188|
000006F0: 30 2C 31 35 31 30 2C 31  32 35 30 2C 32 32 38 30  |0,1510,1250,2280|
00000700: 2C 32 33 34 30 00 0F 0F  B2 02 89 20 35 35 30 00  |,2340...... 550.|
00000710: 19 0F BC 02 8D 20 34 30  30 00 1F 0F C6 02 8E 00  |..... 400.......|
00000720: 25 0F D0 02 8F 00 4B 0F  DA 02 85 20 22 57 48 49  |%.....K.... "WHI|
00000730: 43 48 20 4F 4E 45 22 3B  4D 24 3A 8B 20 4D 24 B2  |CH ONE";M$:. M$.|
00000740: 22 22 20 A7 20 4D 24 B2  22 31 22 00 90 0F E4 02  |"" . M$."1".....|
00000750: 99 20 22 11 11 45 4E 54  45 52 22 3A 99 20 22 11  |. "..ENTER":. ".|
00000760: 20 4E 45 57 20 44 41 54  41 20 41 54 20 43 55 52  | NEW DATA AT CUR|
00000770: 53 4F 52 22 3A 99 20 22  11 20 2F 44 2F 54 4F 20  |SOR":. ". /D/TO |
00000780: 44 45 4C 45 54 45 20 54  48 45 20 49 54 45 4D 22  |DELETE THE ITEM"|
00000790: 00 C0 0F EE 02 99 20 22  11 20 27 52 45 54 55 52  |...... ". 'RETUR|
000007A0: 4E 27 20 46 4F 52 20 4E  4F 20 43 48 41 4E 47 45  |N' FOR NO CHANGE|
000007B0: 53 22 3A 99 20 22 11 11  22 3A 8D 20 31 31 36 30  |S":. "..":. 1160|
000007C0: 00 CD 0F F8 02 47 31 B2  31 3A 49 B2 4D 00 E7 0F  |.....G1.1:I.M...|
000007D0: 02 03 99 20 41 24 28 31  2C 4D 29 3B 3A 50 24 B2  |... A$(1,M);:P$.|
000007E0: 22 22 3A 85 20 50 24 00  F9 0F 0C 03 8B 20 50 24  |"":. P$...... P$|
000007F0: B2 22 22 20 A7 20 38 33  30 00 0F 10 16 03 8B 20  |."" . 830...... |
00000800: 50 24 B3 B1 22 2F 44 2F  22 20 A7 20 38 32 30 00  |P$.."/D/" . 820.|
00000810: 3E 10 20 03 81 20 5A B2  31 20 A4 20 35 3A 41 24  |>. .. Z.1 . 5:A$|
00000820: 28 5A 2C 4D 29 B2 22 2D  4C 41 53 54 20 52 45 43  |(Z,M)."-LAST REC|
00000830: 4F 52 44 20 49 4E 20 46  49 4C 45 22 3A 82 00 51  |ORD IN FILE":..Q|
00000840: 10 2A 03 8D 20 31 37 32  30 3A 4E B2 4E AB 31 3A  |.*.. 1720:N.N.1:|
00000850: 8E 00 65 10 34 03 41 24  28 31 2C 4D 29 B2 50 24  |..e.4.A$(1,M).P$|
00000860: 3A 47 32 B2 31 00 89 10  3E 03 81 20 5A B2 32 20  |:G2.1...>.. Z.2 |
00000870: A4 20 35 3A 99 20 41 24  28 5A 2C 4D 29 3B 3A 50  |. 5:. A$(Z,M);:P|
00000880: 24 B2 22 22 3A 85 20 50  24 00 9B 10 48 03 8B 20  |$."":. P$...H.. |
00000890: 50 24 B2 22 22 20 A7 20  38 36 30 00 B2 10 52 03  |P$."" . 860...R.|
000008A0: 41 24 28 5A 2C 4D 29 B2  50 24 3A 47 32 B2 47 32  |A$(Z,M).P$:G2.G2|
000008B0: AA 31 00 BA 10 5C 03 82  20 5A 00 C5 10 66 03 8D  |.1...\.. Z...f..|
000008C0: 20 31 30 34 30 00 DB 10  70 03 91 20 54 20 89 20  | 1040...p.. T . |
000008D0: 37 37 30 2C 37 33 30 2C  38 39 30 00 E1 10 7A 03  |770,730,890...z.|
000008E0: 8E 00 F6 10 84 03 8B 20  47 32 B3 B1 30 20 A7 20  |....... G2..0 . |
000008F0: 8D 20 31 37 32 30 00 1E  11 8E 03 81 20 58 58 B2  |. 1720...... XX.|
00000900: 31 20 A4 20 4E 3A 4D B2  33 35 AB C3 28 41 24 28  |1 . N:M.35..(A$(|
00000910: 32 2C 58 58 29 29 3A 54  24 B2 22 2E 20 22 00 4D  |2,XX)):T$.". ".M|
00000920: 11 98 03 99 20 A3 34 AB  C3 28 54 24 29 29 58 58  |.... .4..(T$))XX|
00000930: 3B 22 9D 22 3B 54 24 3B  41 24 28 31 2C 58 58 29  |;".";T$;A$(1,XX)|
00000940: 3B A3 4D 29 3B 41 24 28  32 2C 58 58 29 00 6F 11  |;.M);A$(2,XX).o.|
00000950: A2 03 49 31 B2 B5 28 58  58 AD 31 30 29 3A 8B 20  |..I1..(XX.10):. |
00000960: 49 31 B3 B1 58 58 AD 31  30 20 A7 20 39 35 30 00  |I1..XX.10 . 950.|
00000970: 7A 11 AC 03 8D 20 32 35  32 30 00 8C 11 B6 03 82  |z.... 2520......|
00000980: 20 58 58 3A 8D 20 32 35  32 30 3A 8E 00 92 11 C0  | XX:. 2520:.....|
00000990: 03 8F 00 BD 11 CA 03 4D  24 B2 22 22 3A 85 22 11  |.......M$."":.".|
000009A0: 11 57 48 49 43 48 20 4F  4E 45 22 3B 4D 24 3A 8B  |.WHICH ONE";M$:.|
000009B0: 20 4D 24 B2 22 22 20 A7  20 31 30 33 30 00 C8 11  | M$."" . 1030...|
000009C0: D4 03 8D 20 31 31 36 30  00 D8 11 DE 03 99 20 22  |... 1160...... "|
000009D0: 93 11 11 11 1D 1D 1D 22  00 FA 11 E8 03 81 20 49  |......."...... I|
000009E0: B2 31 20 A4 20 35 3A 99  20 22 1D 1D 1D 1D 1D 22  |.1 . 5:. "....."|
000009F0: 3B 41 24 28 49 2C 4D 29  3A 82 00 05 12 F2 03 8D  |;A$(I,M):.......|
00000A00: 20 31 30 34 30 00 1C 12  FC 03 91 20 54 20 89 20  | 1040...... T . |
00000A10: 39 39 30 2C 39 37 30 2C  31 30 33 30 00 22 12 06  |990,970,1030."..|
00000A20: 04 8E 00 4D 12 10 04 99  20 22 11 11 50 52 45 53  |...M.... "..PRES|
00000A30: 53 11 22 3A 99 20 22 45  20 46 4F 52 20 50 52 45  |S.":. "E FOR PRE|
00000A40: 56 49 4F 55 53 20 52 45  43 4F 52 44 22 00 8D 12  |VIOUS RECORD"...|
00000A50: 1A 04 99 20 22 11 58 20  46 4F 52 20 4E 45 58 54  |... ".X FOR NEXT|
00000A60: 20 52 45 43 4F 52 44 22  3A 99 20 22 11 46 20 54  | RECORD":. ".F T|
00000A70: 4F 20 46 49 4E 44 20 41  4E 4F 54 48 45 52 20 52  |O FIND ANOTHER R|
00000A80: 45 43 4F 52 44 22 3A 8D  20 32 35 32 30 00 A4 12  |ECORD":. 2520...|
00000A90: 24 04 54 B2 33 3A 8B 20  4B B3 B1 36 39 20 A7 20  |$.T.3:. K..69 . |
00000AA0: 31 30 39 30 00 B9 12 2E  04 54 B2 31 3A 8B 20 4D  |1090.....T.1:. M|
00000AB0: B2 31 20 A7 20 31 31 34  30 00 C3 12 38 04 4D B2  |.1 . 1140...8.M.|
00000AC0: 4D AB 31 00 D6 12 42 04  8B 20 4B B3 B1 38 38 20  |M.1...B.. K..88 |
00000AD0: A7 20 31 31 32 30 00 EB  12 4C 04 54 B2 31 3A 8B  |. 1120...L.T.1:.|
00000AE0: 20 4D B2 4E 20 A7 20 31  31 34 30 00 F5 12 56 04  | M.N . 1140...V.|
00000AF0: 4D B2 4D AA 31 00 08 13  60 04 8B 20 4B B3 B1 37  |M.M.1...`.. K..7|
00000B00: 30 20 A7 20 31 31 34 30  00 10 13 6A 04 54 B2 32  |0 . 1140...j.T.2|
00000B10: 00 16 13 74 04 8E 00 1C  13 7E 04 8F 00 37 13 88  |...t.....~...7..|
00000B20: 04 8B 20 B6 28 C6 28 4D  24 29 AB 35 33 29 B3 34  |.. .(.(M$).53).4|
00000B30: 20 A7 20 31 32 30 30 00  56 13 92 04 4D B2 C5 28  | . 1200.V...M..(|
00000B40: 4D 24 29 3A 8B 20 4D B3  4E 20 B0 20 4D B2 4E 20  |M$):. M.N . M.N |
00000B50: A7 20 31 31 39 30 00 5E  13 9C 04 4D B2 4E 00 64  |. 1190.^...M.N.d|
00000B60: 13 A6 04 8E 00 76 13 B0  04 81 20 49 B2 31 20 A4  |.....v.... I.1 .|
00000B70: 20 4E 3A 4D B2 49 00 94  13 BA 04 8B 20 C3 28 4D  | N:M.I...... .(M|
00000B80: 24 29 B1 C3 28 41 24 28  31 2C 49 29 29 20 A7 20  |$)..(A$(1,I)) . |
00000B90: 31 32 33 30 00 B5 13 C4  04 8B 20 4D 24 B2 C8 28  |1230...... M$..(|
00000BA0: 41 24 28 31 2C 49 29 2C  C3 28 4D 24 29 29 20 A7  |A$(1,I),.(M$)) .|
00000BB0: 20 31 32 34 30 00 BD 13  CE 04 82 20 49 00 C3 13  | 1240...... I...|
00000BC0: D8 04 8E 00 C9 13 E2 04  8F 00 DF 13 EC 04 99 20  |............... |
00000BD0: 22 45 4E 54 45 52 20 31  2E 20 54 41 50 45 22 00  |"ENTER 1. TAPE".|
00000BE0: F5 13 F6 04 99 20 22 20  20 20 20 20 20 32 2E 20  |..... "      2. |
00000BF0: 44 49 53 4B 22 00 0E 14  00 05 85 20 22 11 11 59  |DISK"...... "..Y|
00000C00: 4F 55 52 20 43 48 4F 49  43 45 22 3B 41 53 00 27  |OUR CHOICE";AS.'|
00000C10: 14 0A 05 8B 20 41 53 B3  31 20 B0 20 41 53 B1 32  |.... AS.1 . AS.2|
00000C20: 20 A7 20 31 32 36 30 00  45 14 14 05 8B 20 41 53  | . 1260.E.... AS|
00000C30: B2 32 20 A7 20 41 53 B2  32 3A 53 53 B2 38 3A 89  |.2 . AS.2:SS.8:.|
00000C40: 20 31 33 32 30 00 53 14  1E 05 41 53 B2 30 3A 53  | 1320.S...AS.0:S|
00000C50: 53 B2 31 00 77 14 28 05  48 24 B2 C7 28 31 33 29  |S.1.w.(.H$..(13)|
00000C60: 3A 85 20 22 45 4E 54 45  52 20 46 49 4C 45 20 4E  |:. "ENTER FILE N|
00000C70: 41 4D 45 22 3B 4E 24 00  8A 14 32 05 8B 20 41 53  |AME";N$...2.. AS|
00000C80: B3 B1 32 20 A7 20 31 33  37 30 00 A8 14 3C 05 85  |..2 . 1370...<..|
00000C90: 20 22 45 4E 54 45 52 20  44 45 56 49 43 45 20 4E  | "ENTER DEVICE N|
00000CA0: 55 4D 42 45 52 22 3B 44  00 C5 14 46 05 9F 32 2C  |UMBER";D...F..2,|
00000CB0: 53 53 2C 41 53 2C 22 40  30 3A 22 AA 4E 24 AA 22  |SS,AS,"@0:".N$."|
00000CC0: 2C 53 2C 52 22 00 D0 14  50 05 89 20 31 33 38 30  |,S,R"...P.. 1380|
00000CD0: 00 E1 14 5A 05 9F 20 32  2C 53 53 2C 41 53 2C 4E  |...Z.. 2,SS,AS,N|
00000CE0: 24 00 F3 14 64 05 84 32  2C 4F 2C 4E 54 2C 46 24  |$...d..2,O,NT,F$|
00000CF0: 2C 44 24 00 05 15 6E 05  8B 20 4F B2 4F 50 20 A7  |,D$...n.. O.OP .|
00000D00: 20 31 34 36 30 00 16 15  78 05 8B 20 4F B2 32 20  | 1460...x.. O.2 |
00000D10: A7 20 31 34 32 30 00 40  15 82 05 99 20 22 11 46  |. 1420.@.... ".F|
00000D20: 49 4C 45 20 49 53 20 41  20 50 48 4F 4E 45 20 42  |ILE IS A PHONE B|
00000D30: 4F 4F 4B 20 54 59 50 45  22 3A 89 20 31 34 33 30  |OOK TYPE":. 1430|
00000D40: 00 63 15 8C 05 99 20 22  11 46 49 4C 45 20 49 53  |.c.... ".FILE IS|
00000D50: 20 41 4E 20 49 4E 56 45  4E 54 4F 52 59 20 54 59  | AN INVENTORY TY|
00000D60: 50 45 22 00 7A 15 96 05  99 20 22 50 52 4F 43 45  |PE".z.... "PROCE|
00000D70: 44 45 20 28 59 2F 4E 29  3F 22 00 90 15 A0 05 8D  |DE (Y/N)?"......|
00000D80: 20 32 35 33 30 3A 8B 20  4B B2 37 38 20 A7 20 8E  | 2530:. K.78 . .|
00000D90: 00 A3 15 AA 05 8B 20 4B  B3 B1 38 39 20 A7 20 31  |...... K..89 . 1|
00000DA0: 34 34 30 00 B1 15 B4 05  4F 50 B2 4F 3A 4E B2 4E  |440.....OP.O:N.N|
00000DB0: 54 00 C9 15 BE 05 99 20  22 4C 41 53 54 20 55 50  |T...... "LAST UP|
00000DC0: 44 41 54 45 3A 22 3B 44  24 00 E1 15 C8 05 81 20  |DATE:";D$...... |
00000DD0: 49 B2 31 20 A4 20 4E 3A  81 20 4A B2 31 20 A4 20  |I.1 . N:. J.1 . |
00000DE0: 35 00 F8 15 D2 05 84 32  2C 41 24 28 4A 2C 49 29  |5......2,A$(J,I)|
00000DF0: 3A 82 20 4A 3A 82 20 49  00 08 16 DC 05 A0 32 3A  |:. J:. I......2:|
00000E00: 8D 20 32 35 32 30 3A 8E  00 0E 16 E6 05 8F 00 23  |. 2520:........#|
00000E10: 16 F0 05 8B 20 47 32 B3  B1 30 20 A7 20 8D 20 31  |.... G2..0 . . 1|
00000E20: 37 32 30 00 39 16 FA 05  99 20 22 45 4E 54 45 52  |720.9.... "ENTER|
00000E30: 20 31 2E 20 54 41 50 45  22 00 4F 16 04 06 99 20  | 1. TAPE".O.... |
00000E40: 22 20 20 20 20 20 20 32  2E 20 44 49 53 4B 22 00  |"      2. DISK".|
00000E50: 68 16 0E 06 85 20 22 11  11 59 4F 55 52 20 43 48  |h.... "..YOUR CH|
00000E60: 4F 49 43 45 22 3B 41 53  00 81 16 18 06 8B 20 41  |OICE";AS...... A|
00000E70: 53 B3 31 20 B0 20 41 53  B1 32 20 A7 20 31 35 33  |S.1 . AS.2 . 153|
00000E80: 30 00 9F 16 22 06 8B 20  41 53 B2 32 20 A7 20 41  |0...".. AS.2 . A|
00000E90: 53 B2 32 3A 53 53 B2 38  3A 89 20 31 35 39 30 00  |S.2:SS.8:. 1590.|
00000EA0: AD 16 2C 06 41 53 B2 31  3A 53 53 B2 31 00 D1 16  |..,.AS.1:SS.1...|
00000EB0: 36 06 48 24 B2 C7 28 31  33 29 3A 85 20 22 45 4E  |6.H$..(13):. "EN|
00000EC0: 54 45 52 20 46 49 4C 45  20 4E 41 4D 45 22 3B 4E  |TER FILE NAME";N|
00000ED0: 24 00 E8 16 40 06 85 20  22 45 4E 54 45 52 20 44  |$...@.. "ENTER D|
00000EE0: 41 54 45 2E 22 3B 44 24  00 FB 16 4A 06 8B 20 41  |ATE.";D$...J.. A|
00000EF0: 53 B3 B1 32 20 A7 20 31  36 35 30 00 19 17 54 06  |S..2 . 1650...T.|
00000F00: 85 20 22 45 4E 54 45 52  20 44 45 56 49 43 45 20  |. "ENTER DEVICE |
00000F10: 4E 55 4D 42 45 52 22 3B  44 00 37 17 5E 06 9F 20  |NUMBER";D.7.^.. |
00000F20: 32 2C 53 53 2C 41 53 2C  22 40 30 3A 22 AA 4E 24  |2,SS,AS,"@0:".N$|
00000F30: AA 22 2C 53 2C 57 22 00  42 17 68 06 89 20 31 36  |.",S,W".B.h.. 16|
00000F40: 36 30 00 53 17 72 06 9F  20 32 2C 53 53 2C 41 53  |60.S.r.. 2,SS,AS|
00000F50: 2C 4E 24 00 71 17 7C 06  98 32 2C 4F 50 3B 48 24  |,N$.q.|..2,OP;H$|
00000F60: 3B 4E 3B 48 24 3B 53 24  3B 48 24 3B 44 24 3B 48  |;N;H$;S$;H$;D$;H|
00000F70: 24 00 A4 17 86 06 81 20  49 B2 31 20 A4 20 4E 3A  |$...... I.1 . N:|
00000F80: 81 20 58 B2 31 20 A4 20  35 3A 8B 20 41 24 28 58  |. X.1 . 5:. A$(X|
00000F90: 2C 49 29 B2 22 22 20 A7  20 41 24 28 58 2C 49 29  |,I)."" . A$(X,I)|
00000FA0: B2 22 20 22 00 BE 17 90  06 98 32 2C 41 24 28 58  |." "......2,A$(X|
00000FB0: 2C 49 29 3B 48 24 3A 82  20 58 3A 82 20 49 00 CB  |,I);H$:. X:. I..|
00000FC0: 17 9A 06 98 32 2C 3B 3A  A0 20 32 00 D6 17 A4 06  |....2,;:. 2.....|
00000FD0: 47 31 B2 30 3A 8E 00 DC  17 AE 06 8F 00 F9 17 B8  |G1.0:...........|
00000FE0: 06 99 20 22 53 4F 52 54  20 42 59 20 57 48 49 43  |.. "SORT BY WHIC|
00000FF0: 48 20 46 49 45 4C 44 3F  22 00 1D 18 C2 06 81 20  |H FIELD?"...... |
00001000: 5A B2 31 20 A4 20 35 3A  99 20 5A 3B 22 2E 20 22  |Z.1 . 5:. Z;". "|
00001010: 3B 42 24 28 4F 50 2C 5A  29 3A 82 20 5A 00 25 18  |;B$(OP,Z):. Z.%.|
00001020: CC 06 85 20 46 00 3C 18  D6 06 8B 20 46 B3 31 20  |... F.<.... F.1 |
00001030: B0 20 46 B1 35 20 A7 20  31 37 32 30 00 45 18 E0  |. F.5 . 1720.E..|
00001040: 06 47 32 B2 30 00 6C 18  EA 06 99 20 22 11 11 11  |.G2.0.l.... "...|
00001050: 2A 2A 2A 2A 2A 20 53 4F  52 54 49 4E 47 20 44 41  |***** SORTING DA|
00001060: 54 41 20 2A 2A 2A 2A 2A  11 11 11 22 00 8D 18 F4  |TA *****..."....|
00001070: 06 81 20 49 B2 31 20 A4  20 4E AB 31 3A 81 20 4A  |.. I.1 . N.1:. J|
00001080: B2 4E 20 A4 20 49 AA 31  20 A9 20 AB 31 00 BC 18  |.N . I.1 . .1...|
00001090: FE 06 8B 20 41 24 28 46  2C 49 29 B3 41 24 28 46  |... A$(F,I).A$(F|
000010A0: 2C 4A 29 20 B0 20 41 24  28 46 2C 49 29 B2 41 24  |,J) . A$(F,I).A$|
000010B0: 28 46 2C 4A 29 20 A7 20  31 38 31 30 00 C7 18 08  |(F,J) . 1810....|
000010C0: 07 8D 20 31 38 36 30 00  CF 18 12 07 82 20 4A 00  |.. 1860...... J.|
000010D0: EF 18 1C 07 8B 20 41 24  28 46 2C 49 29 B3 B1 41  |..... A$(F,I)..A|
000010E0: 24 28 46 2C 49 AA 31 29  20 A7 20 31 38 34 30 00  |$(F,I.1) . 1840.|
000010F0: F9 18 26 07 49 B2 49 AA  31 00 01 19 30 07 82 20  |..&.I.I.1...0.. |
00001100: 49 00 07 19 3A 07 8E 00  33 19 44 07 81 20 5A B2  |I...:...3.D.. Z.|
00001110: 31 20 A4 20 35 3A 4F 24  28 5A 29 B2 41 24 28 5A  |1 . 5:O$(Z).A$(Z|
00001120: 2C 49 29 3A 41 24 28 5A  2C 49 29 B2 41 24 28 5A  |,I):A$(Z,I).A$(Z|
00001130: 2C 4A 29 00 4B 19 4E 07  41 24 28 5A 2C 4A 29 B2  |,J).K.N.A$(Z,J).|
00001140: 4F 24 28 5A 29 3A 82 20  5A 3A 8E 00 51 19 58 07  |O$(Z):. Z:..Q.X.|
00001150: 8F 00 63 19 62 07 8B 20  4F 50 B2 31 20 A7 20 31  |..c.b.. OP.1 . 1|
00001160: 39 36 30 00 6C 19 6C 07  53 4D B2 30 00 8F 19 76  |960.l.l.SM.0...v|
00001170: 07 81 20 49 B2 31 20 A4  20 4E 3A 53 4D B2 53 4D  |.. I.1 . N:SM.SM|
00001180: AA C5 28 41 24 28 32 2C  49 29 29 3A 82 20 49 00  |..(A$(2,I)):. I.|
00001190: C9 19 80 07 99 20 22 11  11 1D 1D 1D 1D 1D 1D 54  |..... "........T|
000011A0: 4F 54 41 4C 20 43 4F 53  54 20 4F 46 20 41 4C 4C  |OTAL COST OF ALL|
000011B0: 20 54 48 45 20 49 54 45  4D 53 22 3A 99 20 A3 31  | THE ITEMS":. .1|
000011C0: 38 29 22 11 11 22 3B 53  4D 00 D6 19 8A 07 8D 20  |8)"..";SM...... |
000011D0: 32 35 32 30 3A 8E 00 DC  19 94 07 8F 00 E2 19 9E  |2520:...........|
000011E0: 07 8F 00 FB 19 A8 07 8D  20 39 37 30 3A 8B 20 4D  |........ 970:. M|
000011F0: 24 B2 22 22 20 A7 20 32  31 30 30 00 09 1A B2 07  |$."" . 2100.....|
00001200: 99 20 22 93 11 11 1D 1D  22 00 20 1A BC 07 54 24  |. ".....". ...T$|
00001210: B2 41 24 28 32 2C 4D 29  3A 4C B2 C3 28 54 24 29  |.A$(2,M):L..(T$)|
00001220: 00 56 1A C6 07 81 20 49  B2 31 20 A4 20 35 3A 99  |.V.... I.1 . 5:.|
00001230: 20 22 1D 1D 22 3B 41 24  28 49 2C 4D 29 3A 82 3A  | "..";A$(I,M):.:|
00001240: 99 20 22 11 11 1D 1D 1D  1D 1D 1D 1D 1D 1D 1D 1D  |. ".............|
00001250: 1D 1D 1D 1D 22 3B 00 68  1A D0 07 8B 20 4C B3 31  |....";.h.... L.1|
00001260: 30 20 A7 20 32 30 32 30  00 7C 1A DA 07 4C B2 4C  |0 . 2020.|...L.L|
00001270: AA 31 3A 54 24 B2 22 31  22 AA 54 24 00 97 1A E4  |.1:T$."1".T$....|
00001280: 07 81 20 4A B2 31 20 A4  20 4C 3A 50 24 B2 CA 28  |.. J.1 . L:P$..(|
00001290: 54 24 2C 4A 2C 31 29 00  BE 1A EE 07 99 20 50 24  |T$,J,1)...... P$|
000012A0: 3B 3A 8B 20 C6 28 50 24  29 B3 34 38 20 B0 20 C6  |;:. .(P$).48 . .|
000012B0: 28 50 24 29 B1 35 37 20  A7 20 32 30 39 30 00 D8  |(P$).57 . 2090..|
000012C0: 1A F8 07 54 B2 C5 28 50  24 29 3A 8B 20 54 B3 B1  |...T..(P$):. T..|
000012D0: 30 20 A7 20 32 30 36 30  00 F9 1A 02 08 46 32 B2  |0 . 2060.....F2.|
000012E0: 39 34 31 3A 46 31 B2 31  33 33 36 3A 8D 20 32 34  |941:F1.1336:. 24|
000012F0: 31 30 3A 89 20 32 30 38  30 00 19 1B 0C 08 49 B2  |10:. 2080.....I.|
00001300: B5 28 28 54 AB 31 29 AD  33 29 AA 31 3A 49 4A B2  |.((T.1).3).1:IJ.|
00001310: 54 AB 33 AC 28 49 AB 31  29 00 37 1B 16 08 46 31  |T.3.(I.1).7...F1|
00001320: B2 50 31 28 49 29 3A 46  32 B2 50 32 28 49 4A 29  |.P1(I):F2.P2(IJ)|
00001330: 3A 8D 20 32 34 31 30 00  49 1B 20 08 81 20 58 B2  |:. 2410.I. .. X.|
00001340: 31 20 A4 20 32 35 30 3A  82 00 51 1B 2A 08 82 20  |1 . 250:..Q.*.. |
00001350: 4A 00 6C 1B 34 08 99 20  22 11 11 22 3A 99 20 22  |J.l.4.. "..":. "|
00001360: 1D 50 52 45 53 53 22 3A  99 22 11 22 00 9B 1B 3E  |.PRESS":."."...>|
00001370: 08 99 20 22 1D 52 20 54  4F 20 52 45 44 49 41 4C  |.. ".R TO REDIAL|
00001380: 22 3A 99 20 22 20 53 20  54 4F 20 53 54 41 52 54  |":. " S TO START|
00001390: 20 53 54 4F 50 57 41 54  43 48 22 00 B5 1B 48 08  | STOPWATCH"...H.|
000013A0: 99 20 22 1D 4E 20 46 4F  52 20 4E 45 57 20 4E 55  |. ".N FOR NEW NU|
000013B0: 4D 42 45 52 22 00 C0 1B  52 08 8D 20 32 35 32 30  |MBER"...R.. 2520|
000013C0: 00 D2 1B 5C 08 8B 20 4B  B2 38 32 20 A7 20 31 39  |...\.. K.82 . 19|
000013D0: 37 30 00 E4 1B 66 08 8B  20 4B B2 37 38 20 A7 20  |70...f.. K.78 . |
000013E0: 31 39 36 30 00 F7 1B 70  08 8B 20 4B B3 B1 38 33  |1960...p.. K..83|
000013F0: 20 A7 20 32 31 38 30 00  09 1C 7A 08 8D 20 32 35  | . 2180...z.. 25|
00001400: 36 30 3A 8D 20 32 32 30  30 00 0F 1C 84 08 8E 00  |60:. 2200.......|
00001410: 15 1C 8E 08 8F 00 26 1C  98 08 54 49 24 B2 22 30  |......&...TI$."0|
00001420: 30 30 30 30 30 22 00 47  1C A2 08 81 20 49 B2 31  |00000".G.... I.1|
00001430: 20 A4 20 36 3A 43 24 28  49 29 B2 CA 28 54 49 24  | . 6:C$(I)..(TI$|
00001440: 2C 49 2C 31 29 3A 82 00  77 1C AC 08 99 20 22 13  |,I,1):..w.... ".|
00001450: 11 11 11 11 11 11 11 11  11 11 11 11 11 11 11 11  |................|
00001460: 11 11 11 11 11 11 1D 1D  1D 1D 1D 1D 1D 1D 1D 1D  |................|
00001470: 1D 1D 1D 1D 1D 1D 22 00  A9 1C B6 08 99 20 43 24  |......"...... C$|
00001480: 28 31 29 3B 43 24 28 32  29 3B 22 3A 22 3B 43 24  |(1);C$(2);":";C$|
00001490: 28 33 29 3B 43 24 28 34  29 3B 22 3A 22 3B 43 24  |(3);C$(4);":";C$|
000014A0: 28 35 29 3B 43 24 28 36  29 00 BB 1C C0 08 81 20  |(5);C$(6)...... |
000014B0: 49 B2 31 20 A4 20 32 35  30 3A 82 00 D6 1C CA 08  |I.1 . 250:......|
000014C0: 49 B2 C2 28 31 39 37 29  3A 8B 20 49 B2 36 34 20  |I..(197):. I.64 |
000014D0: A7 20 32 32 31 30 00 E8  1C D4 08 8B 20 49 B2 31  |. 2210...... I.1|
000014E0: 37 20 A7 20 31 39 37 30  00 EE 1C DE 08 8E 00 F4  |7 . 1970........|
000014F0: 1C E8 08 8F 00 FE 1C F2  08 9F 20 34 2C 34 00 16  |.......... 4,4..|
00001500: 1D FC 08 81 20 49 B2 31  20 A4 20 4E 3A 81 20 4A  |.... I.1 . N:. J|
00001510: B2 31 20 A4 20 35 00 27  1D 06 09 98 34 2C 41 24  |.1 . 5.'....4,A$|
00001520: 28 4A 2C 49 29 3A 82 00  3B 1D 10 09 98 34 2C 22  |(J,I):..;....4,"|
00001530: 20 22 3A 98 34 2C 22 20  22 3A 82 00 4A 1D 1A 09  | ":.4," ":..J...|
00001540: 98 34 2C 3B 3A A0 20 34  3A 8E 00 76 1D 24 09 99  |.4,;:. 4:..v.$..|
00001550: 20 22 93 11 11 1D 44 4F  20 59 4F 55 20 57 49 53  | "....DO YOU WIS|
00001560: 48 20 54 4F 20 48 41 4C  54 20 54 48 45 20 50 52  |H TO HALT THE PR|
00001570: 4F 47 52 41 4D 22 00 A0  1D 2E 09 99 20 22 1D 41  |OGRAM"...... ".A|
00001580: 4E 44 20 4C 4F 53 45 20  41 4C 4C 20 54 48 45 20  |ND LOSE ALL THE |
00001590: 44 41 54 41 20 49 4E 20  4D 45 4D 4F 52 59 3F 22  |DATA IN MEMORY?"|
000015A0: 00 B8 1D 38 09 99 20 22  1D 11 50 52 45 53 53 20  |...8.. "..PRESS |
000015B0: 59 20 4F 52 20 4E 2E 22  00 C3 1D 42 09 8D 20 32  |Y OR N."...B.. 2|
000015C0: 35 33 30 00 D4 1D 4C 09  8B 20 4B B2 37 38 20 A7  |530...L.. K.78 .|
000015D0: 20 37 31 30 00 E4 1D 56  09 8B 20 4B B3 B1 38 39  | 710...V.. K..89|
000015E0: 20 A7 20 8E 00 EA 1D 60  09 80 00 1A 1E 6A 09 46  | . ....`.....j.F|
000015F0: 44 B2 B5 28 46 31 AD 2E  30 36 30 39 37 29 3A 48  |D..(F1..06097):H|
00001600: 31 B2 B5 28 46 44 AD 32  35 36 29 3A 4C 31 B2 46  |1..(FD.256):L1.F|
00001610: 44 AB 28 32 35 36 AC 48  31 29 00 4A 1E 74 09 46  |D.(256.H1).J.t.F|
00001620: 44 B2 B5 28 46 32 AD 2E  30 36 30 39 37 29 3A 48  |D..(F2..06097):H|
00001630: 32 B2 B5 28 46 44 AD 32  35 36 29 3A 4C 32 B2 46  |2..(FD.256):L2.F|
00001640: 44 AB 28 32 35 36 AC 48  32 29 00 5F 1E 7E 09 97  |D.(256.H2)._.~..|
00001650: 20 53 AA 35 2C 30 3A 97  20 53 AA 31 32 2C 30 00  | S.5,0:. S.12,0.|
00001660: 78 1E 88 09 97 20 53 AA  36 2C 32 32 34 3A 97 20  |x.... S.6,224:. |
00001670: 53 AA 31 33 2C 32 34 30  00 86 1E 92 09 97 20 53  |S.13,240...... S|
00001680: AA 32 34 2C 33 31 00 9A  1E 9C 09 97 20 53 AA 31  |.24,31...... S.1|
00001690: 2C 48 31 3A 97 20 53 2C  4C 31 00 B0 1E A6 09 97  |,H1:. S,L1......|
000016A0: 20 53 AA 38 2C 48 32 3A  97 20 53 AA 37 2C 4C 32  | S.8,H2:. S.7,L2|
000016B0: 00 C7 1E B0 09 97 20 53  AA 34 2C 33 33 3A 97 20  |...... S.4,33:. |
000016C0: 53 AA 31 31 2C 33 33 00  DA 1E BA 09 81 20 5A 58  |S.11,33...... ZX|
000016D0: B2 31 20 A4 20 31 30 30  3A 82 00 F1 1E C4 09 97  |.1 . 100:.......|
000016E0: 20 53 AA 34 2C 33 32 3A  97 20 53 AA 31 31 2C 33  | S.4,32:. S.11,3|
000016F0: 32 00 00 1F CE 09 97 20  53 AA 32 34 2C 30 3A 8E  |2...... S.24,0:.|
00001700: 00 29 1F D8 09 99 22 11  1D 1D 1D 1D 1D 1D 1D 50  |.)...."........P|
00001710: 52 45 53 53 20 41 4E 59  20 4B 45 59 20 54 4F 20  |RESS ANY KEY TO |
00001720: 43 4F 4E 54 49 4E 55 45  22 00 42 1F E2 09 A1 20  |CONTINUE".B.... |
00001730: 4B 24 3A 8B 20 4B 24 B3  B1 22 22 20 A7 20 32 35  |K$:. K$.."" . 25|
00001740: 33 30 00 5A 1F EC 09 A1  20 4B 24 3A 8B 20 4B 24  |30.Z.... K$:. K$|
00001750: B2 22 22 20 A7 20 32 35  34 30 00 68 1F F6 09 4B  |."" . 2540.h...K|
00001760: B2 C6 28 4B 24 29 3A 8E  00 A5 1F 00 0A 99 22 91  |..(K$):.......".|
00001770: 91 91 91 22 3B 3A 81 20  49 B2 31 20 A4 20 32 3A  |...";:. I.1 . 2:|
00001780: 99 22 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |."              |
00001790: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000017A0: 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...... DEL DIA 19-9-8
4......  D~OR......... ........ A$(5,60)
,O$(5),C$(6),P1(3),P2(3),B$(2,5).....S.5
4272:SZ.0.....OP.1.,.H.. P1(1),P1(2),P1(
3),P2(1),P2(2),P2(3).F.R.. I.1 . 5:. B$(
1,I):..`.... I.1 . 5:. B$(2,I):....... 6
97,770,852,1210,1340,1481...... "NAME:",
"PHONE:","ADRESS:","CITY:","STATE&ZIP:".
..... "ITEM :","VALUE :","LOCATION:","DA
TE PURCHASED :","SER # OR ID :".....RF.2
000:RF.(RF.30).8:RH..(RF.8):RL.RF.8.RH.E
.... X.S.S.24:. X,0:..F.... S.23,3:. S.2
1,RH:. S.22,RL.}.".. "....":. 53281,1...
,.. .8)"************************".E.6.. 
.8)"** THE HOME SECRETARY **"...@.. .8)"
************************"...J.....T.. .8
)"1. PHONE BOOK":. .8)".2. INVENTORY".(.
^.. 2530.@.H.. K.49 . OP.1:. 390.X.R.. K
.50 . OP.2:. 390.V.|.. "RE-ENTER 1 OR 2"
:. 350.....N.0:. 550.......F.... "..ENTE
R":. "..E TO EXIT":. ".R TO REENTER":G1.
1:G2.2.P...I.N.1...... I.60 . I.60 . 460
...... "..  ***  ARRAY FULL (N=60)***.."
...B.. 2520:..'.L.. " ".L.V.. B$(OP,1);:
A$(1,I)."":. A$(1,I).U.... A$(1,I)."E" .
 A$(1,I)."END" . 1720...... A$(1,I)."" .
 470...... A$(1,I).."R" . 520.....I.I.1:
N.I.1:. "   *** REENTER LAST SET ***":. 
460...... Z.2 . 5...... B$(OP,Z);:A$(Z,I
)."":. A$(Z,I):. Z. ...N.I:. 410.N.&.SC.
4:. "............** HOME SECRETARY **"._
.0.. OP.2 . 580.|.:.. .15)"PHONE BOOK":.
 590...D.. .15)"INVENTORY".C.N.. "******
**********************************"...X.
. "PRESS":. "1. ADD DATA"...B.. "2. CHAN
GE DATA":. "3. DISPLAY NAME LIST".B.L.. 
"4. DISPLAY ONE ENTRY":. "5. USE THE DAT
A".R.V.. "6. SAVE DATA FILE":. "7. LOAD 
DATA FILE". .... "8. LIST TO PRINTER":. 
"9. END PROGRAM"...... 2530.C.... K.49 .
 K.57 . 550.M.... "."...... (K.48) . 700
,720,900,960,1880,1510,1250,2280,2340...
... 550...... 400...F...%.P...K.Z.. "WHI
CH ONE";M$:. M$."" . M$."1"...... "..ENT
ER":. ". NEW DATA AT CURSOR":. ". /D/TO 
DELETE THE ITEM"...... ". 'RETURN' FOR N
O CHANGES":. "..":. 1160.M...G1.1:I.M...
... A$(1,M);:P$."":. P$...... P$."" . 83
0...... P$.."/D/" . 820.>. .. Z.1 . 5:A$
(Z,M)."-LAST RECORD IN FILE":..Q.*.. 172
0:N.N.1:..E.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.E.F..
 1040...P.. T . 770,730,890...Z........ 
G2..0 . . 1720...... XX.1 . N:M.35.C(A$(
2,XX)):T$.". ".M.... .4.C(T$))XX;".";T$;
A$(1,XX);.M);A$(2,XX).O...I1..(XX.10):. 
I1..XX.10 . 950.Z.... 2520...... XX:. 25
20:..........J.M$."":."..WHICH ONE";M$:.
 M$."" . 1030.H.T.. 1160.X.... "......."
...... I.1 . 5:. ".....";A$(I,M):.......
 1040...... T . 990,970,1030.".....M....
 "..PRESS.":. "E FOR PREVIOUS RECORD"...
... ".X FOR NEXT RECORD":. ".F TO FIND A
NOTHER RECORD":. 2520...$.T.3:. K..69 . 
1090.....T.1:. M.1 . 1140.C.8.M.M.1.V.B.
. K..88 . 1120...L.T.1:. M.N . 1140...V.
M.M.1...`.. K..70 . 1140...J.T.2...T....
.~...7.... .(F(M$).53).4 . 1200.V...M.E(
M$):. M.N . M.N . 1190.^...M.N.D.....V..
.. I.1 . N:M.I...... C(M$).C(A$(1,I)) . 
1230...D.. M$.H(A$(1,I),C(M$)) . 1240...
N.. I.C.X...I.......... "ENTER 1. TAPE".
..... "      2. DISK"...... "..YOUR CHOI
CE";AS.'.... AS.1 . AS.2 . 1260.E.... AS
.2 . AS.2:SS.8:. 1320.S...AS.0:SS.1.W.(.
H$.G(13):. "ENTER FILE NAME";N$...2.. AS
..2 . 1370...<.. "ENTER DEVICE NUMBER";D
.E.F..2,SS,AS,"@0:".N$.",S,R".P.P.. 1380
...Z.. 2,SS,AS,N$...D..2,O,NT,F$,D$...N.
. O.OP . 1460...X.. O.2 . 1420.@.... ".F
ILE IS A PHONE BOOK TYPE":. 1430.C.... "
.FILE IS AN INVENTORY TYPE".Z.... "PROCE
DE (Y/N)?"... .. 2530:. K.78 . ....... K
..89 . 1440.....OP.O:N.NT.I.... "LAST UP
DATE:";D$...H.. I.1 . N:. J.1 . 5...R..2
,A$(J,I):. J:. I..... 2:. 2520:........#
.... G2..0 . . 1720.9.... "ENTER 1. TAPE
".O.... "      2. DISK".H.... "..YOUR CH
OICE";AS...... AS.1 . AS.2 . 1530...".. 
AS.2 . AS.2:SS.8:. 1590...,.AS.1:SS.1.Q.
6.H$.G(13):. "ENTER FILE NAME";N$...@.. 
"ENTER DATE.";D$...J.. AS..2 . 1650...T.
. "ENTER DEVICE NUMBER";D.7.^.. 2,SS,AS,
"@0:".N$.",S,W".B.H.. 1660.S.R.. 2,SS,AS
,N$.Q.|..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.K....2,;:
  2.V...G1.0:............. "SORT BY WHIC
H FIELD?"...B.. Z.1 . 5:. Z;". ";B$(OP,Z
):. Z.%.L.. F.<.V.. F.1 . F.5 . 1720.E..
.G2.0.L.... "...***** SORTING DATA *****
..."...... I.1 . N.1:. J.N . I.1 . .1...
... A$(F,I).A$(F,J) . A$(F,I).A$(F,J) . 
1810.G.... 1860.O.... J...... A$(F,I)..A
$(F,I.1) . 1840...&.I.I.1...0.. I...:...
3.D.. Z.1 . 5:O$(Z).A$(Z,I):A$(Z,I).A$(Z
,J).K.N.A$(Z,J).O$(Z):. Z:..Q.X...C.B.. 
OP.1 . 1960.L.L.SM.0...V.. I.1 . N:SM.SM
.E(A$(2,I)):. I.I.... "........TOTAL COS
T OF ALL THE ITEMS":. .18)"..";SM.V.... 
2520:................... 970:. M$."" . 2
100...... ".....". ...T$.A$(2,M):L.C(T$)
.V.F.. I.1 . 5:. "..";A$(I,M):.:. ".....
............";.H.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.X
...T.E(P$):. T..0 . 2060.....F2.941:F1.1
336:. 2410:. 2080.....I..((T.1).3).1:IJ.
T.3.(I.1).7...F1.P1(I):F2.P2(IJ):. 2410.
I. .. X.1 . 250:..Q.*.. J.L.4.. "..":. "
.PRESS":."."...>.. ".R TO REDIAL":. " S 
TO START STOPWATCH"...H.. ".N FOR NEW NU
MBER"...R.. 2520.R.\.. K.82 . 1970...F..
 K.78 . 1960...P.. K..83 . 2180...Z.. 25
60:. 2200.............&...TI$."000000".G
.... I.1 . 6:C$(I).J(TI$,I,1):..W.... ".
......................................".
..... C$(1);C$(2);":";C$(3);C$(4);":";C$
(5);C$(6)...... I.1 . 250:..V.J.I.B(197)
:. I.64 . 2210...T.. I.17 . 1970........
.......... 4,4...... I.1 . N:. J.1 . 5.'
....4,A$(J,I):..;....4," ":.4," ":..J...
.4,;:  4:..V.$.. "....DO YOU WISH TO HAL
T THE PROGRAM". .... ".AND LOSE ALL THE 
DATA IN MEMORY?"...8.. "..PRESS Y OR N."
.C.B.. 2530.T.L.. K.78 . 710...V.. K..89
 . ....`.....J.FD..(F1..06097):H1..(FD.2
56):L1.FD.(256.H1).J.T.FD..(F2..06097):H
2..(FD.256):L2.FD.(256.H2)._.~.. S.5,0:.
 S.12,0.X.... S.6,224:. S.13,240...... S
.24,31...... S.1,H1:. S,L1...... S.8,H2:
. S.7,L2.G.... S.4,33:. S.11,33.Z.... ZX
.1 . 100:....D.. S.4,32:. S.11,32...N.. 
S.24,0:..).X.."........PRESS ANY KEY TO 
CONTINUE".B.... K$:. K$.."" . 2530.Z....
 K$:. K$."" . 2540.H...K.F(K$):.......".
...";:. I.1 . 2:."                      
        ":.:....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL