PRICE CALCULATOR
FILE INFORMATION
FILENAME(S): PRICE CALCULATOR
FILE TYPE(S): PRG
FILE SIZE: 9.7K
FIRST SEEN: 2025-11-30 17:31:22
APPEARS ON: 1 disk(s)
FILE HASH
6b0c73eb71e31bcd1030ca761084a5711edfd6c0feac78146c938e4a3fb046fb
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CDU SEPTEMBER | PRICE CALCULATOR | PRG | UK CD | 20 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 18 08 64 00 8F 20 53 41 56 45 22 40 30 3A |....d.. SAVE"@0:|
00000010: 52 50 49 32 32 22 2C 38 00 1E 08 69 00 3A 00 39 |RPI22",8...i.:.9|
00000020: 08 6E 00 8F 20 44 49 53 4B 20 50 31 34 41 2F 50 |.n.. DISK P14A/P|
00000030: 31 34 42 2F 42 55 31 31 42 00 58 08 73 00 86 20 |14B/BU11B.X.s.. |
00000040: 50 28 31 30 30 29 3A 8F 20 44 49 4D 45 4E 53 49 |P(100):. DIMENSI|
00000050: 4F 4E 20 41 52 52 41 59 00 5E 08 78 00 3A 00 94 |ON ARRAY.^.x.:..|
00000060: 08 7D 00 97 20 35 33 32 38 31 2C 31 31 3A 97 35 |.}.. 53281,11:.5|
00000070: 33 32 38 30 2C 31 35 3A 97 36 34 36 2C 31 35 3A |3280,15:.646,15:|
00000080: 8F 20 53 45 54 20 53 43 52 45 45 4E 20 43 4F 4C |. SET SCREEN COL|
00000090: 4F 55 52 53 00 9A 08 82 00 3A 00 AD 08 87 00 8F |OURS.....:......|
000000A0: 20 4F 50 45 4E 49 4E 47 20 4D 45 4E 55 00 E0 08 | OPENING MENU...|
000000B0: 8C 00 99 22 93 22 3A 99 22 20 D5 C0 C0 C0 C0 C0 |...".":." ......|
000000C0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000000D0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C9 |................|
000000E0: 00 0E 09 91 00 99 22 20 DD 20 20 20 20 2A 2A 2A |......" . ***|
000000F0: 2A 2A 20 50 52 49 43 45 20 43 41 4C 43 55 4C 41 |** PRICE CALCULA|
00000100: 54 4F 52 20 2A 2A 2A 2A 2A 20 20 20 20 DD 00 3C |TOR ***** ..<|
00000110: 09 96 00 99 22 20 AB C0 C0 C0 C0 C0 C0 C0 C0 C0 |...." ..........|
00000120: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000130: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 B3 00 6A 09 9B |.............j..|
00000140: 00 99 22 20 DD 20 28 43 29 20 43 4F 50 59 52 49 |.." . (C) COPYRI|
00000150: 47 48 54 20 49 41 4E 20 4C 20 44 41 4C 5A 49 45 |GHT IAN L DALZIE|
00000160: 4C 20 31 39 38 39 20 20 20 DD 00 98 09 A0 00 99 |L 1989 .......|
00000170: 22 20 DD 20 20 20 20 20 20 20 20 20 20 20 20 20 |" . |
00000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000190: 20 20 20 20 20 20 20 DD 00 C6 09 A5 00 99 22 20 | ......." |
000001A0: DD 20 20 20 20 20 20 20 20 20 37 20 57 41 4C 4B |. 7 WALK|
000001B0: 45 52 20 41 56 45 4E 55 45 20 20 20 20 20 20 20 |ER AVENUE |
000001C0: 20 20 20 20 20 DD 00 F4 09 AA 00 99 22 20 DD 20 | ......." . |
000001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001F0: 20 20 20 DD 00 22 0A AF 00 99 22 20 DD 20 20 20 | .."...." . |
00000200: 20 54 52 4F 4F 4E 2C 20 41 59 52 53 48 49 52 45 | TROON, AYRSHIRE|
00000210: 2C 20 4B 41 31 30 20 36 53 41 20 20 20 20 20 20 |, KA10 6SA |
00000220: 20 DD 00 50 0A B4 00 99 22 20 DD 20 20 20 20 20 | ..P...." . |
00000230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 DD | .|
00000250: 00 7E 0A B9 00 99 22 20 AB C0 C0 C0 C0 C0 C0 C0 |.~...." ........|
00000260: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000270: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 B3 00 AC |................|
00000280: 0A BE 00 99 22 20 DD 20 20 20 20 20 20 20 20 20 |...." . |
00000290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002A0: 20 20 20 20 20 20 20 20 20 20 20 DD 00 DC 0A C3 | .....|
000002B0: 00 99 22 20 DD 20 20 20 50 52 45 53 53 20 05 49 |.." . PRESS .I|
000002C0: 9B 20 46 4F 52 20 49 4E 53 54 52 55 43 54 49 4F |. FOR INSTRUCTIO|
000002D0: 4E 53 20 20 20 20 20 20 20 20 20 DD 00 0A 0B C8 |NS .....|
000002E0: 00 99 22 20 DD 20 20 20 20 20 20 20 20 20 20 20 |.." . |
000002F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000300: 20 20 20 20 20 20 20 20 20 DD 00 3A 0B CD 00 99 | ..:....|
00000310: 22 20 DD 20 20 20 50 52 45 53 53 20 05 55 9B 20 |" . PRESS .U. |
00000320: 54 4F 20 55 50 44 41 54 45 20 54 48 45 20 49 4E |TO UPDATE THE IN|
00000330: 44 45 58 20 20 20 20 20 20 DD 00 68 0B D2 00 99 |DEX ..h....|
00000340: 22 20 DD 20 20 20 20 20 20 20 20 20 20 20 20 20 |" . |
00000350: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000360: 20 20 20 20 20 20 20 DD 00 98 0B D7 00 99 22 20 | ......." |
00000370: DD 20 20 20 50 52 45 53 53 20 05 54 9B 20 46 4F |. PRESS .T. FO|
00000380: 52 20 54 45 43 48 4E 49 43 41 4C 20 45 58 50 4C |R TECHNICAL EXPL|
00000390: 41 4E 54 49 4F 4E 20 DD 00 C6 0B DC 00 99 22 20 |ANTION ......." |
000003A0: DD 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
000003B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003C0: 20 20 20 20 20 DD 00 F6 0B E1 00 99 22 20 DD 20 | ......." . |
000003D0: 20 20 50 52 45 53 53 20 05 53 50 41 43 45 9B 20 | PRESS .SPACE. |
000003E0: 46 4F 52 20 54 48 45 20 50 52 4F 47 52 41 4D 20 |FOR THE PROGRAM |
000003F0: 20 20 20 20 20 DD 00 24 0C E6 00 99 22 20 DD 20 | ..$...." . |
00000400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000420: 20 20 20 DD 00 52 0C EB 00 99 22 20 CA C0 C0 C0 | ..R...." ....|
00000430: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000440: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000450: C0 CB 00 58 0C F0 00 3A 00 70 0C F5 00 8F 20 42 |...X...:.p.... B|
00000460: 52 41 4E 43 48 49 4E 47 20 52 4F 55 54 49 4E 45 |RANCHING ROUTINE|
00000470: 00 86 0C FA 00 A1 20 5A 24 3A 8B 20 5A 24 B2 22 |...... Z$:. Z$."|
00000480: 22 A7 20 32 35 30 00 A0 0C FF 00 8B 20 5A 24 B2 |". 250...... Z$.|
00000490: 22 49 22 A7 20 8D 20 31 30 31 30 3A 89 31 34 30 |"I". . 1010:.140|
000004A0: 00 B9 0C 04 01 8B 20 5A 24 B2 22 55 22 A7 20 8D |...... Z$."U". .|
000004B0: 20 39 30 30 3A 89 31 34 30 00 D2 0C 09 01 8B 20 | 900:.140...... |
000004C0: 5A 24 B2 22 54 22 A7 20 8D 20 37 31 35 3A 89 31 |Z$."T". . 715:.1|
000004D0: 34 30 00 E5 0C 0E 01 8B 20 5A 24 B3 B1 22 20 22 |40...... Z$.." "|
000004E0: A7 20 32 35 30 00 14 0D 13 01 8F 20 54 48 45 20 |. 250...... THE |
000004F0: 4D 41 49 4E 20 50 52 4F 47 52 41 4D 20 50 52 4F |MAIN PROGRAM PRO|
00000500: 43 45 45 44 53 20 57 49 54 48 20 53 50 41 43 45 |CEEDS WITH SPACE|
00000510: 20 4B 45 59 00 1A 0D 18 01 3A 00 4E 0D 1D 01 8F | KEY.....:.N....|
00000520: 20 52 45 41 44 53 20 44 41 54 41 20 54 49 4C 4C | READS DATA TILL|
00000530: 20 45 4E 44 20 4F 46 20 46 49 4C 45 20 4D 41 52 | END OF FILE MAR|
00000540: 4B 45 52 20 2D 31 20 49 53 20 52 45 41 44 00 88 |KER -1 IS READ..|
00000550: 0D 22 01 44 B2 44 AA 31 3A 8B 20 44 B3 B1 31 20 |.".D.D.1:. D..1 |
00000560: A7 20 33 32 35 3A 8F 20 45 4E 53 55 52 45 53 20 |. 325:. ENSURES |
00000570: 44 41 54 41 20 49 53 20 4C 4F 41 44 45 44 20 4F |DATA IS LOADED O|
00000580: 4E 4C 59 20 4F 4E 43 45 00 BE 0D 27 01 99 22 93 |NLY ONCE...'..".|
00000590: 22 3A 99 22 20 4C 4F 41 44 49 4E 47 20 44 41 54 |":." LOADING DAT|
000005A0: 41 20 50 4C 45 41 53 45 20 57 41 49 54 20 35 20 |A PLEASE WAIT 5 |
000005B0: 53 45 43 4F 4E 44 53 2E 2E 2E 2E 22 3A 99 00 D0 |SECONDS....":...|
000005C0: 0D 2C 01 58 B2 30 3A 8F 20 52 45 53 45 54 20 58 |.,.X.0:. RESET X|
000005D0: 00 0B 0E 31 01 8F 20 4C 4F 4F 50 20 54 4F 20 52 |...1.. LOOP TO R|
000005E0: 45 41 44 20 44 41 54 41 20 41 4E 44 20 47 49 56 |EAD DATA AND GIV|
000005F0: 45 20 43 48 41 4E 47 49 4E 47 20 4E 55 4D 42 45 |E CHANGING NUMBE|
00000600: 52 20 4F 4E 20 53 43 52 45 45 4E 00 2D 0E 36 01 |R ON SCREEN.-.6.|
00000610: 87 20 50 28 58 29 3A 99 20 58 22 91 22 3A 8B 20 |. P(X):. X".":. |
00000620: 50 28 58 29 B2 AB 31 20 A7 20 33 33 30 00 3D 0E |P(X)..1 . 330.=.|
00000630: 3B 01 58 B2 58 AA 31 3A 89 20 33 31 30 00 43 0E |;.X.X.1:. 310.C.|
00000640: 40 01 3A 00 5A 0E 45 01 8F 20 43 41 4C 43 55 4C |@.:.Z.E.. CALCUL|
00000650: 41 54 49 4F 4E 20 4D 45 4E 55 00 63 0E 4A 01 99 |ATION MENU.c.J..|
00000660: 22 93 22 00 91 0E 4F 01 99 22 20 B0 C0 C0 C0 C0 |"."...O.." .....|
00000670: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000680: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000690: AE 00 BF 0E 54 01 99 22 20 DD 20 20 20 20 2A 2A |....T.." . **|
000006A0: 2A 2A 2A 20 50 52 49 43 45 20 43 41 4C 43 55 4C |*** PRICE CALCUL|
000006B0: 41 54 4F 52 20 2A 2A 2A 2A 2A 20 20 20 20 DD 00 |ATOR ***** ..|
000006C0: ED 0E 59 01 99 22 20 DD 20 20 20 20 20 20 20 20 |..Y.." . |
000006D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000006E0: 20 20 20 20 20 20 20 20 20 20 20 20 DD 00 F3 0E | ....|
000006F0: 5E 01 3A 00 39 0F 63 01 8F 20 58 2D 31 20 49 53 |^.:.9.c.. X-1 IS|
00000700: 20 54 48 45 20 4C 41 53 54 20 59 45 41 52 20 57 | THE LAST YEAR W|
00000710: 48 49 43 48 20 54 48 45 20 52 50 49 20 49 4E 44 |HICH THE RPI IND|
00000720: 45 58 20 49 53 20 41 56 41 49 4C 41 42 4C 45 20 |EX IS AVAILABLE |
00000730: 46 52 4F 4D 20 44 41 54 41 00 70 0F 68 01 99 22 |FROM DATA.p.h.."|
00000740: 20 DD 20 41 50 50 4C 49 43 41 42 4C 45 20 54 4F | . APPLICABLE TO|
00000750: 20 54 48 45 20 50 45 52 49 4F 44 20 31 39 30 30 | THE PERIOD 1900|
00000760: 22 3B AB 28 31 39 30 30 AA 58 AB 31 29 22 DD 22 |";.(1900.X.1)"."|
00000770: 00 9F 0F 6D 01 99 22 20 AB C0 C0 C0 C0 C0 C0 C0 |...m.." ........|
00000780: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000790: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 B3 22 00 |..............".|
000007A0: D2 0F 72 01 99 22 20 DD 20 50 52 45 53 53 20 05 |..r.." . PRESS .|
000007B0: 4D 9B 20 46 4F 52 20 4D 41 49 4E 20 4D 45 4E 55 |M. FOR MAIN MENU|
000007C0: 20 20 20 20 05 45 9B 20 54 4F 20 45 58 49 54 20 | .E. TO EXIT |
000007D0: DD 22 00 00 10 77 01 99 22 20 CA C0 C0 C0 C0 C0 |."...w.." ......|
000007E0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000007F0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 CB |................|
00000800: 00 31 10 7C 01 99 3A 4B 43 24 B2 22 22 3A 85 22 |.1.|..:KC$."":."|
00000810: 20 4B 4E 4F 57 4E 20 43 4F 53 54 20 4F 46 20 49 | KNOWN COST OF I|
00000820: 54 45 4D 20 49 4E 20 5C 2E 2E 2E 2E 22 3B 4B 43 |TEM IN \....";KC|
00000830: 24 00 5A 10 81 01 8B 20 4B 43 24 B2 22 4D 22 20 |$.Z.... KC$."M" |
00000840: A7 20 31 34 30 3A 8F 20 45 58 49 54 53 20 54 4F |. 140:. EXITS TO|
00000850: 20 4D 41 49 4E 20 4D 45 4E 55 00 71 10 86 01 8B | MAIN MENU.q....|
00000860: 20 4B 43 24 B2 22 45 22 20 A7 20 99 22 93 22 3A | KC$."E" . .".":|
00000870: 80 00 77 10 8B 01 3A 00 91 10 90 01 8F 20 52 45 |..w...:...... RE|
00000880: 4A 45 43 54 53 20 57 52 4F 4E 47 20 49 4E 50 55 |JECTS WRONG INPU|
00000890: 54 00 C3 10 95 01 4B 43 B2 C5 28 4B 43 24 29 3A |T.....KC..(KC$):|
000008A0: 8B 20 4B 43 B2 30 20 A7 20 99 22 91 22 A3 33 30 |. KC.0 . .".".30|
000008B0: 29 22 20 20 20 20 20 20 20 20 20 91 22 3A 89 33 |)" .":.3|
000008C0: 38 30 3A 00 C9 10 9A 01 3A 00 F8 10 9F 01 99 3A |80:.....:......:|
000008D0: 99 22 20 59 45 41 52 20 4F 46 20 4B 4E 4F 57 4E |." YEAR OF KNOWN|
000008E0: 20 43 4F 53 54 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E | COST...........|
000008F0: 31 39 3F 3F 9D 9D 22 3B 00 FE 10 A4 01 3A 00 1D |19??..";.....:..|
00000900: 11 A9 01 8F 20 47 45 54 53 20 46 49 52 53 54 20 |.... GETS FIRST |
00000910: 44 49 47 49 54 20 4F 46 20 59 45 41 52 00 32 11 |DIGIT OF YEAR.2.|
00000920: AE 01 A1 20 4B 24 3A 8B 4B 24 B2 22 22 A7 20 34 |... K$:.K$."". 4|
00000930: 33 30 00 69 11 B3 01 4E B2 C6 28 4B 24 29 3A 8B |30.i...N..(K$):.|
00000940: 20 4E B3 34 38 20 B0 20 4E B1 35 37 20 A7 20 34 | N.48 . N.57 . 4|
00000950: 33 30 3A 8F 20 41 43 43 45 50 54 53 20 4F 4E 4C |30:. ACCEPTS ONL|
00000960: 59 20 4E 55 4D 42 45 52 53 00 9B 11 B8 01 4E 24 |Y NUMBERS.....N$|
00000970: B2 4B 24 3A 99 4B 24 3B 3A 8F 20 46 49 52 53 54 |.K$:.K$;:. FIRST|
00000980: 20 44 49 47 49 54 20 52 45 50 4C 41 43 45 53 20 | DIGIT REPLACES |
00000990: 3F 20 4F 4E 20 53 43 52 45 45 4E 00 BB 11 BD 01 |? ON SCREEN.....|
000009A0: 8F 20 47 45 54 53 20 53 45 43 30 4E 44 20 44 49 |. GETS SEC0ND DI|
000009B0: 47 49 54 20 4F 46 20 59 45 41 52 00 D0 11 C2 01 |GIT OF YEAR.....|
000009C0: A1 20 4B 24 3A 8B 4B 24 B2 22 22 A7 20 34 35 30 |. K$:.K$."". 450|
000009D0: 00 D6 11 C7 01 3A 00 0E 12 CC 01 4D B2 C6 28 4B |.....:.....M..(K|
000009E0: 24 29 3A 8B 20 4D B3 34 38 20 B0 20 4D B1 35 37 |$):. M.48 . M.57|
000009F0: 20 A7 20 34 35 30 3A 8F 20 41 43 43 45 50 54 53 | . 450:. ACCEPTS|
00000A00: 20 4F 4E 4C 59 20 20 4E 55 4D 42 45 52 53 00 40 | ONLY NUMBERS.@|
00000A10: 12 D1 01 4D 24 B2 4B 24 3A 99 4B 24 3A 8F 20 53 |...M$.K$:.K$:. S|
00000A20: 45 43 4F 4E 44 20 44 49 47 49 54 20 52 45 50 4C |ECOND DIGIT REPL|
00000A30: 41 43 45 53 20 3F 20 4F 4E 20 53 43 52 45 45 4E |ACES ? ON SCREEN|
00000A40: 00 46 12 D6 01 3A 00 7D 12 DB 01 59 4E B2 C5 28 |.F...:.}...YN..(|
00000A50: 4E 24 AA 4D 24 29 3A 99 3A 8F 20 43 41 4C 43 55 |N$.M$):.:. CALCU|
00000A60: 4C 41 54 45 53 20 54 48 45 20 59 45 41 52 20 4F |LATES THE YEAR O|
00000A70: 46 20 4B 4E 4F 57 4E 20 50 52 49 43 45 00 AD 12 |F KNOWN PRICE...|
00000A80: E0 01 8F 20 52 45 4A 45 43 54 53 20 59 45 41 52 |... REJECTS YEAR|
00000A90: 20 57 48 4F 53 45 20 52 50 49 20 49 4E 44 45 58 | WHOSE RPI INDEX|
00000AA0: 20 49 53 20 4E 4F 54 20 4B 4E 4F 57 4E 00 F0 12 | IS NOT KNOWN...|
00000AB0: E5 01 8B 20 50 28 59 4E 29 B3 B2 30 20 A7 20 99 |... P(YN)..0 . .|
00000AC0: 22 20 05 49 4E 44 45 58 20 4E 4F 54 20 55 50 44 |" .INDEX NOT UPD|
00000AD0: 41 54 45 44 20 54 4F 20 49 4E 43 4C 55 44 45 20 |ATED TO INCLUDE |
00000AE0: 54 48 49 53 20 59 45 41 52 9B 22 3A 89 34 31 35 |THIS YEAR.":.415|
00000AF0: 00 F6 12 EA 01 3A 00 32 13 EF 01 8F 20 54 49 4D |.....:.2.... TIM|
00000B00: 45 20 44 45 4C 41 59 20 54 4F 20 45 4D 50 54 59 |E DELAY TO EMPTY|
00000B10: 20 42 55 46 46 45 52 20 54 4F 20 53 45 50 41 52 | BUFFER TO SEPAR|
00000B20: 41 54 45 20 47 45 54 20 53 54 41 54 45 4D 45 4E |ATE GET STATEMEN|
00000B30: 54 53 00 46 13 F4 01 81 20 49 B2 31 20 A4 20 31 |TS.F.... I.1 . 1|
00000B40: 30 30 3A 82 20 49 00 5E 13 F9 01 81 20 49 B2 31 |00:. I.^.... I.1|
00000B50: 20 A4 20 31 30 3A A1 20 4B 24 3A 82 20 49 00 64 | . 10:. K$:. I.d|
00000B60: 13 FE 01 3A 00 91 13 03 02 99 22 20 59 45 41 52 |...:......" YEAR|
00000B70: 20 59 4F 55 20 57 49 53 48 20 54 4F 20 4B 4E 4F | YOU WISH TO KNO|
00000B80: 57 20 43 4F 53 54 2E 2E 2E 31 39 3F 3F 9D 9D 22 |W COST...19??.."|
00000B90: 3B 00 97 13 08 02 3A 00 B6 13 0D 02 8F 20 47 45 |;.....:...... GE|
00000BA0: 54 53 20 46 49 52 53 54 20 44 49 47 49 54 20 4F |TS FIRST DIGIT O|
00000BB0: 46 20 59 45 41 52 00 CB 13 12 02 A1 20 4B 24 3A |F YEAR...... K$:|
00000BC0: 8B 4B 24 B2 22 22 A7 20 35 33 30 00 02 14 17 02 |.K$."". 530.....|
00000BD0: 46 B2 C6 28 4B 24 29 3A 8B 20 46 B3 34 38 20 B0 |F..(K$):. F.48 .|
00000BE0: 20 46 B1 35 37 20 A7 20 34 33 30 3A 8F 20 41 43 | F.57 . 430:. AC|
00000BF0: 43 45 50 54 53 20 4F 4E 4C 59 20 4E 55 4D 42 45 |CEPTS ONLY NUMBE|
00000C00: 52 53 00 34 14 1C 02 46 24 B2 4B 24 3A 99 4B 24 |RS.4...F$.K$:.K$|
00000C10: 3B 3A 8F 20 46 49 52 53 54 20 44 49 47 49 54 20 |;:. FIRST DIGIT |
00000C20: 52 45 50 4C 41 43 45 53 20 3F 20 4F 4E 20 53 43 |REPLACES ? ON SC|
00000C30: 52 45 45 4E 00 3A 14 21 02 3A 00 5A 14 26 02 8F |REEN.:.!.:.Z.&..|
00000C40: 20 47 45 54 53 20 53 45 43 30 4E 44 20 44 49 47 | GETS SEC0ND DIG|
00000C50: 49 54 20 4F 46 20 59 45 41 52 00 6F 14 2B 02 A1 |IT OF YEAR.o.+..|
00000C60: 20 4B 24 3A 8B 4B 24 B2 22 22 A7 20 35 35 35 00 | K$:.K$."". 555.|
00000C70: A6 14 30 02 47 B2 C6 28 4B 24 29 3A 8B 20 47 B3 |..0.G..(K$):. G.|
00000C80: 34 38 20 B0 20 47 B1 35 37 20 A7 20 34 35 30 3A |48 . G.57 . 450:|
00000C90: 8F 20 41 43 43 45 50 54 53 20 4F 4E 4C 59 20 4E |. ACCEPTS ONLY N|
00000CA0: 55 4D 42 45 52 53 00 D8 14 35 02 47 24 B2 4B 24 |UMBERS...5.G$.K$|
00000CB0: 3A 99 4B 24 3A 8F 20 53 45 43 4F 4E 44 20 44 49 |:.K$:. SECOND DI|
00000CC0: 47 49 54 20 52 45 50 4C 41 43 45 53 20 3F 20 4F |GIT REPLACES ? O|
00000CD0: 4E 20 53 43 52 45 45 4E 00 DE 14 3A 02 3A 00 17 |N SCREEN...:.:..|
00000CE0: 15 3F 02 59 55 B2 C5 28 46 24 AA 47 24 29 3A 99 |.?.YU..(F$.G$):.|
00000CF0: 3A 8F 20 43 41 43 55 4C 41 54 45 53 20 59 45 41 |:. CACULATES YEA|
00000D00: 52 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 4B 4E |R YOU WANT TO KN|
00000D10: 4F 57 20 43 4F 53 54 00 47 15 44 02 8F 20 52 45 |OW COST.G.D.. RE|
00000D20: 4A 45 43 54 53 20 59 45 41 52 20 57 48 4F 53 45 |JECTS YEAR WHOSE|
00000D30: 20 52 50 49 20 49 4E 44 45 58 20 49 53 20 4E 4F | RPI INDEX IS NO|
00000D40: 54 20 4B 4E 4F 57 4E 00 8B 15 49 02 8B 20 50 28 |T KNOWN...I.. P(|
00000D50: 59 55 29 B3 B2 30 20 A7 20 99 22 20 05 49 4E 44 |YU)..0 . ." .IND|
00000D60: 45 58 20 4E 4F 54 20 55 50 44 41 54 45 44 20 54 |EX NOT UPDATED T|
00000D70: 4F 20 49 4E 43 4C 55 44 45 20 54 48 49 53 20 59 |O INCLUDE THIS Y|
00000D80: 45 41 52 9B 11 22 3A 89 35 31 35 00 91 15 4E 02 |EAR..":.515...N.|
00000D90: 3A 00 CF 15 53 02 8F 20 43 41 4C 43 55 4C 41 54 |:...S.. CALCULAT|
00000DA0: 45 53 20 44 45 53 49 52 45 44 20 50 52 49 43 45 |ES DESIRED PRICE|
00000DB0: 20 41 4E 44 20 52 4F 55 4E 44 53 20 54 4F 20 32 | AND ROUNDS TO 2|
00000DC0: 20 44 45 43 49 4D 41 4C 20 50 4C 41 43 45 53 00 | DECIMAL PLACES.|
00000DD0: F8 15 58 02 51 B2 4B 43 AD 50 28 59 4E 29 AC 50 |..X.Q.KC.P(YN).P|
00000DE0: 28 59 55 29 3A 51 B2 B5 28 51 AC 31 30 30 AA 30 |(YU):Q..(Q.100.0|
00000DF0: 2E 35 29 AD 31 30 30 3A 00 39 16 5D 02 8B 20 51 |.5).100:.9.].. Q|
00000E00: B1 31 30 30 20 A7 20 51 B2 B5 28 51 AA 30 2E 35 |.100 . Q..(Q.0.5|
00000E10: 29 3A 8F 20 4E 4F 20 44 45 43 49 4D 41 4C 20 50 |):. NO DECIMAL P|
00000E20: 4C 41 43 45 53 20 46 4F 52 20 50 52 49 43 45 20 |LACES FOR PRICE |
00000E30: 4F 56 45 52 20 5C 31 30 30 00 66 16 62 02 99 3A |OVER \100.f.b..:|
00000E40: 99 22 20 43 4F 53 54 20 4F 46 20 49 54 45 4D 20 |." COST OF ITEM |
00000E50: 49 4E 22 31 39 30 30 AA 59 55 22 50 52 49 43 45 |IN"1900.YU"PRICE|
00000E60: 53 3D 5C 22 51 3A 00 97 16 67 02 99 22 20 B7 B7 |S=\"Q:...g.." ..|
00000E70: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
00000E80: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
00000E90: B7 B7 B7 B7 22 3A 99 00 D3 16 6C 02 8F 20 54 49 |....":....l.. TI|
00000EA0: 4D 45 20 44 45 4C 41 59 20 54 4F 20 45 4D 50 54 |ME DELAY TO EMPT|
00000EB0: 59 20 42 55 46 46 45 52 20 54 4F 20 53 45 50 41 |Y BUFFER TO SEPA|
00000EC0: 52 41 54 45 20 47 45 54 20 53 54 41 54 45 4D 45 |RATE GET STATEME|
00000ED0: 4E 54 53 00 E7 16 71 02 81 20 49 B2 31 20 A4 20 |NTS...q.. I.1 . |
00000EE0: 31 30 30 3A 82 20 49 00 FF 16 76 02 81 20 49 B2 |100:. I...v.. I.|
00000EF0: 31 20 A4 20 31 30 3A A1 20 4B 24 3A 82 20 49 00 |1 . 10:. K$:. I.|
00000F00: 05 17 7B 02 3A 00 15 17 80 02 8F 20 45 58 49 54 |..{.:...... EXIT|
00000F10: 20 4D 45 4E 55 00 43 17 85 02 99 22 20 D5 C0 C0 | MENU.C...." ...|
00000F20: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000F30: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000F40: C0 C0 C9 00 72 17 8A 02 99 22 20 DD 20 2D 2D 2D |....r...." . ---|
00000F50: 20 50 52 45 53 53 20 53 50 41 43 45 20 46 4F 52 | PRESS SPACE FOR|
00000F60: 20 41 4E 4F 54 48 45 52 20 47 4F 20 2D 2D 2D 20 | ANOTHER GO --- |
00000F70: DD 22 00 A1 17 8F 02 99 22 20 DD 20 20 20 20 20 |."......" . |
00000F80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000F90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 DD | .|
00000FA0: 22 00 D4 17 94 02 99 22 20 DD 20 20 20 05 4D 9B |"......" . .M.|
00000FB0: 20 46 4F 52 20 4D 41 49 4E 20 4D 45 4E 55 20 20 | FOR MAIN MENU |
00000FC0: 20 20 05 45 9B 20 54 4F 20 45 58 49 54 20 20 20 | .E. TO EXIT |
00000FD0: 20 20 DD 22 00 02 18 99 02 99 22 20 CA C0 C0 C0 | ."......" ....|
00000FE0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000FF0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00001000: C0 CB 00 16 18 9E 02 A1 20 4B 24 3A 8B 4B 24 B2 |........ K$:.K$.|
00001010: 22 22 A7 36 37 30 00 27 18 A3 02 8B 20 4B 24 B2 |"".670.'.... K$.|
00001020: 22 45 22 20 A7 20 80 00 3A 18 A8 02 8B 20 4B 24 |"E" . ..:.... K$|
00001030: B2 22 4D 22 20 A7 20 31 34 30 00 4E 18 AD 02 8B |."M" . 140.N....|
00001040: 20 4B 24 B3 B1 22 20 22 20 A7 20 36 37 30 00 70 | K$.." " . 670.p|
00001050: 18 B2 02 89 33 33 30 3A 8F 20 53 50 41 43 45 20 |....330:. SPACE |
00001060: 47 49 56 45 53 20 41 4E 4F 54 48 45 52 20 47 4F |GIVES ANOTHER GO|
00001070: 00 76 18 B7 02 3A 00 BE 18 BC 02 8F 20 44 41 54 |.v...:...... DAT|
00001080: 41 20 47 49 56 49 4E 47 20 52 50 49 20 49 4E 44 |A GIVING RPI IND|
00001090: 45 58 20 46 4F 52 20 35 20 59 45 41 52 53 20 53 |EX FOR 5 YEARS S|
000010A0: 54 41 52 54 49 4E 47 20 41 54 20 59 45 41 52 20 |TARTING AT YEAR |
000010B0: 4F 46 20 4C 49 4E 45 20 4E 55 4D 42 45 52 00 C4 |OF LINE NUMBER..|
000010C0: 18 C1 02 3A 00 ED 18 C6 02 8F 20 53 55 42 52 4F |...:...... SUBRO|
000010D0: 55 54 49 4E 45 20 46 4F 52 20 54 45 43 48 4E 49 |UTINE FOR TECHNI|
000010E0: 43 41 4C 20 44 41 54 41 20 49 4E 46 4F 00 1A 19 |CAL DATA INFO...|
000010F0: CB 02 99 22 93 22 3A 99 22 20 48 4F 57 20 54 48 |...".":." HOW TH|
00001100: 45 20 52 50 49 20 49 4E 44 45 58 20 57 41 53 20 |E RPI INDEX WAS |
00001110: 43 41 4C 43 55 4C 41 54 45 44 00 42 19 D0 02 99 |CALCULATED.B....|
00001120: 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |" --------------|
00001130: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001140: 2D 2D 00 6D 19 D5 02 99 22 20 54 48 45 20 44 41 |--.m...." THE DA|
00001150: 54 41 20 53 54 41 54 45 4D 45 4E 54 53 20 47 49 |TA STATEMENTS GI|
00001160: 56 45 20 54 48 45 20 52 45 54 41 49 4C 00 96 19 |VE THE RETAIL...|
00001170: DA 02 99 22 20 50 52 49 43 45 20 49 4E 44 45 58 |..." PRICE INDEX|
00001180: 20 46 4F 52 20 4A 55 4C 59 20 4F 46 20 45 41 43 | FOR JULY OF EAC|
00001190: 48 20 59 45 41 52 00 C6 19 DF 02 99 22 20 46 52 |H YEAR......" FR|
000011A0: 4F 4D 20 31 39 30 30 20 54 4F 20 31 39 39 30 20 |OM 1900 TO 1990 |
000011B0: 28 42 41 53 45 44 20 4F 4E 20 4A 41 4E 20 38 37 |(BASED ON JAN 87|
000011C0: 3D 31 30 30 29 22 00 F5 19 E4 02 99 22 20 45 41 |=100)"......" EA|
000011D0: 43 48 20 4C 49 4E 45 20 4F 46 20 44 41 54 41 20 |CH LINE OF DATA |
000011E0: 47 49 56 45 53 20 52 50 49 20 46 4F 52 20 35 20 |GIVES RPI FOR 5 |
000011F0: 59 45 41 52 53 00 26 1A E9 02 99 22 91 20 53 54 |YEARS.&....". ST|
00001200: 41 52 54 49 4E 47 20 57 49 54 48 20 54 48 45 20 |ARTING WITH THE |
00001210: 59 45 41 52 20 4F 46 20 4C 49 4E 45 20 4E 55 4D |YEAR OF LINE NUM|
00001220: 42 45 52 22 3A 99 00 52 1A EE 02 99 22 20 49 20 |BER":..R...." I |
00001230: 48 41 56 45 20 45 53 54 49 4D 41 54 45 44 20 54 |HAVE ESTIMATED T|
00001240: 48 45 20 4A 55 4C 59 20 31 39 39 30 20 49 4E 44 |HE JULY 1990 IND|
00001250: 45 58 00 73 1A F3 02 99 22 20 41 53 20 2B 37 25 |EX.s...." AS +7%|
00001260: 20 4F 46 20 4A 55 4C 59 20 31 39 38 39 20 49 4E | OF JULY 1989 IN|
00001270: 44 45 58 00 8B 1A F8 02 99 3A 99 3A 99 3A 99 3A |DEX......:.:.:.:|
00001280: 99 3A 99 3A 99 3A 99 3A 99 3A 99 00 BA 1A FD 02 |.:.:.:.:.:......|
00001290: 99 22 20 2D 2D 2D 2D 2D 2D 20 53 50 41 43 45 20 |." ------ SPACE |
000012A0: 46 4F 52 20 4F 4E 45 20 4D 4F 52 45 20 50 41 47 |FOR ONE MORE PAG|
000012B0: 45 20 2D 2D 2D 2D 2D 2D 2D 22 00 CF 1A 02 03 A1 |E -------"......|
000012C0: 4B 24 3A 8B 20 4B 24 B2 22 22 A7 20 37 37 30 00 |K$:. K$."". 770.|
000012D0: D5 1A 07 03 3A 00 F9 1A 0C 03 8F 20 53 45 43 4F |....:...... SECO|
000012E0: 4E 44 20 50 41 47 45 20 4F 46 20 54 45 43 48 4E |ND PAGE OF TECHN|
000012F0: 49 43 41 4C 20 49 4E 46 4F 00 2C 1B 11 03 99 22 |ICAL INFO.,...."|
00001300: 93 22 3A 99 22 20 50 52 49 4F 52 20 54 4F 20 31 |.":." PRIOR TO 1|
00001310: 39 38 37 20 54 48 45 20 49 4E 44 45 58 20 57 41 |987 THE INDEX WA|
00001320: 53 20 43 41 4C 43 55 4C 41 54 45 44 00 5A 1B 16 |S CALCULATED.Z..|
00001330: 03 99 22 20 46 52 4F 4D 20 54 48 45 20 49 4E 44 |.." FROM THE IND|
00001340: 45 58 45 53 20 50 55 42 4C 49 53 48 45 44 20 41 |EXES PUBLISHED A|
00001350: 54 20 54 48 45 20 54 49 4D 45 00 76 1B 1B 03 99 |T THE TIME.v....|
00001360: 22 20 41 53 20 46 4F 4C 4C 4F 57 53 2E 2E 2E 2E |" AS FOLLOWS....|
00001370: 2E 2E 2E 22 3A 99 00 A4 1B 20 03 99 22 20 46 52 |...":.... .." FR|
00001380: 4F 4D 20 31 39 37 34 2D 31 39 38 36 20 54 48 45 |OM 1974-1986 THE|
00001390: 20 49 4E 44 45 58 20 50 55 42 4C 49 53 48 45 44 | INDEX PUBLISHED|
000013A0: 20 57 41 53 00 D0 1B 25 03 99 22 20 4A 41 4E 20 | WAS...%.." JAN |
000013B0: 37 34 3D 31 30 30 2E 20 54 48 49 53 20 49 53 20 |74=100. THIS IS |
000013C0: 44 49 56 49 44 45 44 20 42 59 20 33 2E 39 34 35 |DIVIDED BY 3.945|
000013D0: 00 FA 1B 2A 03 99 22 20 28 42 45 43 41 55 53 45 |...*.." (BECAUSE|
000013E0: 20 54 48 45 20 4A 41 4E 20 38 37 20 49 4E 44 45 | THE JAN 87 INDE|
000013F0: 58 20 42 41 53 45 44 20 4F 4E 00 17 1C 2F 03 99 |X BASED ON.../..|
00001400: 22 20 4A 41 4E 20 37 34 3D 31 30 30 20 57 41 53 |" JAN 74=100 WAS|
00001410: 20 33 39 34 2E 35 29 00 1D 1C 34 03 99 00 4B 1C | 394.5)...4...K.|
00001420: 39 03 99 22 20 46 52 4F 4D 20 31 39 36 32 2D 31 |9.." FROM 1962-1|
00001430: 39 37 33 20 54 48 45 20 49 4E 44 45 58 20 50 55 |973 THE INDEX PU|
00001440: 42 4C 49 53 48 45 44 20 57 41 53 00 71 1C 3E 03 |BLISHED WAS.q.>.|
00001450: 99 22 20 4A 41 4E 20 36 32 3D 31 30 30 2E 20 54 |." JAN 62=100. T|
00001460: 48 49 53 20 49 53 20 44 49 56 49 44 45 44 20 42 |HIS IS DIVIDED B|
00001470: 59 00 9D 1C 43 03 99 22 20 33 2E 39 34 35 2A 31 |Y...C.." 3.945*1|
00001480: 2E 39 31 38 20 28 42 45 43 41 55 53 45 20 54 48 |.918 (BECAUSE TH|
00001490: 45 20 4A 41 4E 37 34 20 49 4E 44 45 58 00 C6 1C |E JAN74 INDEX...|
000014A0: 48 03 99 22 20 42 41 53 45 44 20 4F 4E 20 4A 41 |H.." BASED ON JA|
000014B0: 4E 20 36 32 3D 31 30 30 20 57 41 53 20 31 39 31 |N 62=100 WAS 191|
000014C0: 2E 38 29 22 3A 99 00 F3 1C 4D 03 99 22 20 46 52 |.8)":....M.." FR|
000014D0: 4F 4D 20 31 39 30 30 2D 31 39 36 31 20 49 20 43 |OM 1900-1961 I C|
000014E0: 41 4C 43 55 4C 41 54 45 44 20 54 48 45 20 49 4E |ALCULATED THE IN|
000014F0: 44 45 58 00 1C 1D 52 03 99 22 20 46 52 4F 4D 20 |DEX...R.." FROM |
00001500: 54 48 45 20 42 4F 4F 4B 3A 2D 42 52 49 54 41 49 |THE BOOK:-BRITAI|
00001510: 4E 20 49 4E 20 46 49 47 55 52 45 53 00 4B 1D 57 |N IN FIGURES.K.W|
00001520: 03 99 22 20 42 59 20 41 4C 41 4E 20 53 49 4C 4C |.." BY ALAN SILL|
00001530: 49 54 4F 45 20 28 50 45 4C 49 43 41 4E 20 31 39 |ITOE (PELICAN 19|
00001540: 37 33 29 20 50 31 35 31 22 3A 99 00 71 1D 5C 03 |73) P151":..q.\.|
00001550: 99 22 20 41 4E 59 4F 4E 45 20 49 53 20 57 45 4C |." ANYONE IS WEL|
00001560: 43 4F 4D 45 20 54 4F 20 43 48 45 43 4B 20 54 48 |COME TO CHECK TH|
00001570: 45 00 9C 1D 61 03 99 22 20 43 41 4C 43 55 4C 41 |E...a.." CALCULA|
00001580: 54 49 4F 4E 53 20 41 4E 44 20 4C 45 54 20 4D 45 |TIONS AND LET ME|
00001590: 20 4B 4E 4F 57 20 49 46 20 59 4F 55 00 BC 1D 66 | KNOW IF YOU...f|
000015A0: 03 99 22 20 46 49 4E 44 20 41 4E 59 20 4D 41 4A |.." FIND ANY MAJ|
000015B0: 4F 52 20 45 52 52 4F 52 53 22 3A 99 00 EB 1D 6B |OR ERRORS":....k|
000015C0: 03 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 53 50 |.." --------- SP|
000015D0: 41 43 45 20 46 4F 52 20 54 48 45 20 4D 45 4E 55 |ACE FOR THE MENU|
000015E0: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 00 1E 70 03 | ---------"...p.|
000015F0: A1 4B 24 3A 8B 20 4B 24 B2 22 22 A7 20 38 38 30 |.K$:. K$."". 880|
00001600: 00 06 1E 75 03 8E 00 0C 1E 7A 03 3A 00 4C 1E 7F |...u.....z.:.L..|
00001610: 03 8F 20 53 55 42 52 4F 55 54 49 4E 45 20 41 42 |.. SUBROUTINE AB|
00001620: 4F 55 54 20 55 50 44 41 54 49 4E 47 20 54 48 45 |OUT UPDATING THE|
00001630: 20 49 4E 44 45 58 20 43 41 4C 4C 45 44 20 46 52 | INDEX CALLED FR|
00001640: 4F 4D 20 4D 41 49 4E 20 4D 45 4E 55 00 71 1E 84 |OM MAIN MENU.q..|
00001650: 03 99 22 93 22 3A 99 22 20 48 4F 57 20 54 48 45 |..".":." HOW THE|
00001660: 20 55 50 44 41 54 45 20 54 48 45 20 49 4E 44 45 | UPDATE THE INDE|
00001670: 58 00 99 1E 89 03 99 22 20 2D 2D 2D 2D 2D 2D 2D |X......" -------|
00001680: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001690: 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 C3 1E 8E 03 99 22 |---------......"|
000016A0: 20 54 48 45 20 49 4E 44 45 58 20 46 4F 52 20 4A | THE INDEX FOR J|
000016B0: 55 4C 59 20 31 39 39 30 20 49 53 20 4F 4E 4C 59 |ULY 1990 IS ONLY|
000016C0: 20 41 4E 00 EE 1E 93 03 99 22 20 45 53 54 49 4D | AN......" ESTIM|
000016D0: 41 54 45 2C 20 53 4F 20 49 54 20 53 48 4F 55 4C |ATE, SO IT SHOUL|
000016E0: 44 20 42 45 20 43 4F 52 52 45 43 54 45 44 00 19 |D BE CORRECTED..|
000016F0: 1F 98 03 99 22 20 4F 4E 43 45 20 54 48 45 20 41 |...." ONCE THE A|
00001700: 43 54 55 41 4C 20 49 4E 44 45 58 20 42 45 43 4F |CTUAL INDEX BECO|
00001710: 4D 45 53 20 4B 4E 4F 57 4E 00 43 1F 9D 03 99 22 |MES KNOWN.C...."|
00001720: 20 49 4E 20 41 55 47 55 53 54 20 31 39 39 30 2E | IN AUGUST 1990.|
00001730: 20 20 52 45 50 4C 41 43 45 20 54 48 45 20 46 49 | REPLACE THE FI|
00001740: 52 53 54 00 6E 1F A2 03 99 22 20 50 49 45 43 45 |RST.n...." PIECE|
00001750: 20 4F 46 20 44 41 54 41 20 4F 4E 20 4C 49 4E 45 | OF DATA ON LINE|
00001760: 20 31 39 39 30 20 28 31 32 33 2E 36 29 22 00 8F | 1990 (123.6)"..|
00001770: 1F A7 03 99 22 20 57 49 54 48 20 54 48 45 20 43 |...." WITH THE C|
00001780: 4F 52 52 45 43 54 20 49 4E 44 45 58 22 3A 99 00 |ORRECT INDEX":..|
00001790: BD 1F AC 03 99 22 20 49 4E 20 4F 52 44 45 52 20 |....." IN ORDER |
000017A0: 54 4F 20 55 53 45 20 54 48 45 20 50 52 4F 47 52 |TO USE THE PROGR|
000017B0: 41 4D 20 41 46 54 45 52 20 31 39 39 30 00 EA 1F |AM AFTER 1990...|
000017C0: B1 03 99 22 20 59 4F 55 20 57 49 4C 4C 20 4E 45 |..." YOU WILL NE|
000017D0: 45 44 20 54 4F 20 45 53 54 49 4D 41 54 45 20 54 |ED TO ESTIMATE T|
000017E0: 48 45 20 52 50 49 20 46 4F 52 00 18 20 B6 03 99 |HE RPI FOR.. ...|
000017F0: 22 20 4A 55 4C 59 20 4F 46 20 54 48 45 20 59 45 |" JULY OF THE YE|
00001800: 41 52 20 49 4E 20 51 55 45 53 54 49 4F 4E 20 42 |AR IN QUESTION B|
00001810: 59 20 41 44 44 49 4E 47 00 43 20 BB 03 99 22 20 |Y ADDING.C ..." |
00001820: 54 48 45 20 45 53 54 49 4D 41 54 45 44 20 49 4E |THE ESTIMATED IN|
00001830: 46 4C 41 54 49 4F 4E 20 52 41 54 45 20 54 4F 20 |FLATION RATE TO |
00001840: 54 48 45 00 6F 20 C0 03 99 22 20 50 52 45 56 49 |THE.o ..." PREVI|
00001850: 4F 55 53 20 59 45 41 52 27 53 20 49 4E 44 45 58 |OUS YEAR'S INDEX|
00001860: 20 41 4E 44 20 52 45 50 4C 41 43 45 20 2D 31 00 | AND REPLACE -1.|
00001870: 9E 20 C5 03 99 22 20 49 4E 20 54 48 45 20 44 41 |. ..." IN THE DA|
00001880: 54 41 20 53 54 41 54 45 4D 45 4E 54 20 57 49 54 |TA STATEMENT WIT|
00001890: 48 20 54 48 45 20 49 4E 44 45 58 22 3A 99 00 CC |H THE INDEX":...|
000018A0: 20 CA 03 99 22 20 59 4F 55 20 4D 41 59 20 43 4F | ..." YOU MAY CO|
000018B0: 4E 54 49 4E 55 45 20 54 48 45 20 50 52 4F 43 45 |NTINUE THE PROCE|
000018C0: 53 53 20 45 41 43 48 20 59 45 41 52 00 FA 20 CF |SS EACH YEAR.. .|
000018D0: 03 99 22 20 42 59 20 4D 41 4B 49 4E 47 20 41 4E |.." BY MAKING AN|
000018E0: 20 45 53 54 4D 41 54 45 20 4F 46 20 54 48 45 20 | ESTMATE OF THE |
000018F0: 4A 55 4C 59 20 49 4E 44 45 58 00 2D 21 D4 03 99 |JULY INDEX.-!...|
00001900: 22 20 49 4E 20 4A 41 4E 55 41 52 59 20 41 4E 44 |" IN JANUARY AND|
00001910: 20 43 4F 52 52 45 43 54 49 4E 47 20 49 54 20 49 | CORRECTING IT I|
00001920: 4E 20 41 55 47 55 53 54 22 3A 99 3A 99 00 5C 21 |N AUGUST":.:..\!|
00001930: D9 03 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 53 |..." --------- S|
00001940: 50 41 43 45 20 46 4F 52 20 54 48 45 20 4D 45 4E |PACE FOR THE MEN|
00001950: 55 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 71 21 DE |U ---------".q!.|
00001960: 03 A1 4B 24 3A 8B 20 4B 24 B2 22 22 A7 20 39 39 |..K$:. K$."". 99|
00001970: 30 00 77 21 E3 03 8E 00 7D 21 E8 03 3A 00 C4 21 |0.w!....}!..:..!|
00001980: ED 03 8F 20 53 55 42 52 4F 55 54 49 4E 45 20 57 |... SUBROUTINE W|
00001990: 49 54 48 20 34 20 50 41 47 45 53 20 4F 46 20 57 |ITH 4 PAGES OF W|
000019A0: 4F 52 4B 45 44 20 45 58 41 4D 50 4C 45 53 20 43 |ORKED EXAMPLES C|
000019B0: 41 4C 4C 45 44 20 46 52 4F 4D 20 4D 41 49 4E 20 |ALLED FROM MAIN |
000019C0: 4D 45 4E 55 00 E7 21 F2 03 99 22 93 22 3A 99 22 |MENU..!...".":."|
000019D0: 20 48 4F 57 20 54 4F 20 55 53 45 20 54 48 45 20 | HOW TO USE THE |
000019E0: 50 52 4F 47 52 41 4D 00 0F 22 F7 03 99 22 20 2D |PROGRAM.."..." -|
000019F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001A00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 |---------------.|
00001A10: 29 22 FC 03 99 22 20 45 58 41 4D 50 4C 45 20 31 |)"..." EXAMPLE 1|
00001A20: 2E 2E 2E 2E 2E 2E 22 3A 99 00 53 22 01 04 99 22 |......":..S"..."|
00001A30: 20 53 41 59 20 59 4F 55 20 57 41 4E 54 20 54 4F | SAY YOU WANT TO|
00001A40: 20 4B 4E 4F 57 20 48 4F 57 20 4D 55 43 48 20 59 | KNOW HOW MUCH Y|
00001A50: 4F 55 52 00 81 22 06 04 99 22 20 50 4F 43 4B 45 |OUR.."..." POCKE|
00001A60: 54 20 4D 4F 4E 45 59 20 49 4E 20 31 39 36 30 20 |T MONEY IN 1960 |
00001A70: 4F 46 20 32 2F 36 50 20 4F 4C 44 20 4D 4F 4E 45 |OF 2/6P OLD MONE|
00001A80: 59 00 AE 22 0B 04 99 22 20 28 31 32 2E 35 50 20 |Y.."..." (12.5P |
00001A90: 49 4E 20 44 45 43 49 4D 41 4C 20 4D 4F 4E 45 59 |IN DECIMAL MONEY|
00001AA0: 29 20 57 4F 55 4C 44 20 42 55 59 20 41 54 00 C6 |) WOULD BUY AT..|
00001AB0: 22 10 04 99 22 20 54 4F 44 41 59 53 20 50 52 49 |"..." TODAYS PRI|
00001AC0: 43 45 53 22 3A 99 00 EE 22 15 04 99 22 20 46 4F |CES":..."..." FO|
00001AD0: 52 20 4B 4E 4F 57 4E 20 50 52 49 43 45 2E 2E 2E |R KNOWN PRICE...|
00001AE0: 45 4E 54 45 52 20 30 2E 31 32 35 22 3A 99 00 1B |ENTER 0.125":...|
00001AF0: 23 1A 04 99 22 20 46 4F 52 20 59 45 41 52 20 4F |#..." FOR YEAR O|
00001B00: 46 20 4B 4E 4F 57 4E 20 50 52 49 43 45 2E 2E 2E |F KNOWN PRICE...|
00001B10: 45 4E 54 45 52 20 36 30 22 3A 99 00 49 23 1F 04 |ENTER 60":..I#..|
00001B20: 99 22 20 46 4F 52 20 59 45 41 52 20 59 4F 55 20 |." FOR YEAR YOU |
00001B30: 57 49 53 48 20 54 4F 20 4B 4E 4F 57 20 54 48 45 |WISH TO KNOW THE|
00001B40: 20 50 52 49 43 45 2E 2E 2E 00 5C 23 24 04 99 22 | PRICE....\#$.."|
00001B50: 20 45 4E 54 45 52 20 38 39 22 3A 99 00 7F 23 29 | ENTER 89":...#)|
00001B60: 04 99 22 20 54 48 45 20 41 4E 53 57 45 52 20 49 |.." THE ANSWER I|
00001B70: 53 20 5C 31 2E 31 22 3A 99 3A 99 3A 99 3A 99 00 |S \1.1":.:.:.:..|
00001B80: AC 23 2E 04 99 22 20 2D 2D 2D 2D 2D 20 53 50 41 |.#..." ----- SPA|
00001B90: 43 45 20 46 4F 52 20 33 20 4D 4F 52 45 20 45 58 |CE FOR 3 MORE EX|
00001BA0: 41 4D 50 4C 45 53 20 2D 2D 2D 2D 2D 00 C2 23 33 |AMPLES -----..#3|
00001BB0: 04 A1 4B 24 3A 8B 20 4B 24 B2 22 22 A7 20 31 30 |..K$:. K$."". 10|
00001BC0: 37 35 00 C8 23 38 04 3A 00 E9 23 3D 04 99 22 93 |75..#8.:..#=..".|
00001BD0: 22 3A 99 22 20 45 58 41 4D 50 4C 45 20 32 2E 2E |":." EXAMPLE 2..|
00001BE0: 2E 2E 2E 2E 2E 2E 22 3A 99 00 17 24 42 04 99 22 |......":...$B.."|
00001BF0: 20 53 41 59 20 59 4F 55 20 41 52 45 20 54 52 45 | SAY YOU ARE TRE|
00001C00: 41 53 55 52 45 52 20 4F 46 20 41 20 42 52 49 44 |ASURER OF A BRID|
00001C10: 47 45 20 43 4C 55 42 00 42 24 47 04 99 22 20 57 |GE CLUB.B$G.." W|
00001C20: 48 49 43 48 20 48 41 53 20 42 45 45 4E 20 43 48 |HICH HAS BEEN CH|
00001C30: 41 52 47 49 4E 47 20 34 30 50 20 41 20 4E 49 47 |ARGING 40P A NIG|
00001C40: 48 54 00 68 24 4C 04 99 22 20 53 49 4E 43 45 20 |HT.h$L.." SINCE |
00001C50: 31 39 38 30 2E 20 20 59 4F 55 20 41 52 45 20 50 |1980. YOU ARE P|
00001C60: 52 4F 50 4F 53 49 4E 47 00 96 24 51 04 99 22 20 |ROPOSING..$Q.." |
00001C70: 41 4E 20 49 4E 43 52 45 41 53 45 20 54 4F 20 36 |AN INCREASE TO 6|
00001C80: 30 50 20 41 4E 44 20 57 41 4E 54 20 54 4F 20 53 |0P AND WANT TO S|
00001C90: 45 45 20 48 4F 57 00 C4 24 56 04 99 22 20 54 48 |EE HOW..$V.." TH|
00001CA0: 41 54 20 43 4F 4D 50 41 52 45 53 20 57 49 54 48 |AT COMPARES WITH|
00001CB0: 20 54 48 45 20 4F 52 49 47 49 4E 41 4C 20 43 48 | THE ORIGINAL CH|
00001CC0: 41 52 47 45 00 E2 24 5B 04 99 22 20 41 54 20 54 |ARGE..$[.." AT T|
00001CD0: 4F 44 41 59 27 53 20 50 52 49 43 45 53 2E 2E 22 |ODAY'S PRICES.."|
00001CE0: 3A 99 00 0A 25 60 04 99 22 20 46 4F 52 20 4B 4E |:...%`.." FOR KN|
00001CF0: 4F 57 4E 20 50 52 49 43 45 2E 2E 2E 2E 45 4E 54 |OWN PRICE....ENT|
00001D00: 45 52 20 30 2E 34 30 22 3A 99 00 38 25 65 04 99 |ER 0.40":..8%e..|
00001D10: 22 20 46 4F 52 20 59 45 41 52 20 4F 46 20 4B 4E |" FOR YEAR OF KN|
00001D20: 4F 57 4E 20 50 52 49 43 45 2E 2E 2E 2E 45 4E 54 |OWN PRICE....ENT|
00001D30: 45 52 20 38 30 22 3A 99 00 65 25 6A 04 99 22 20 |ER 80":..e%j.." |
00001D40: 46 4F 52 20 59 45 41 52 20 59 4F 55 20 57 49 53 |FOR YEAR YOU WIS|
00001D50: 48 20 54 4F 20 4B 4E 4F 57 20 54 48 45 20 50 52 |H TO KNOW THE PR|
00001D60: 49 43 45 2E 2E 00 78 25 6F 04 99 22 20 45 4E 54 |ICE...x%o.." ENT|
00001D70: 45 52 20 38 39 22 3A 99 00 A4 25 74 04 99 22 20 |ER 89":...%t.." |
00001D80: 54 48 45 20 41 4E 53 57 45 52 20 49 53 20 36 38 |THE ANSWER IS 68|
00001D90: 50 2E 20 20 53 4F 20 59 4F 55 52 20 50 52 4F 50 |P. SO YOUR PROP|
00001DA0: 4F 53 45 44 00 D1 25 79 04 99 22 20 49 4E 43 52 |OSED..%y.." INCR|
00001DB0: 45 41 53 45 20 49 53 20 4C 45 53 53 20 54 48 41 |EASE IS LESS THA|
00001DC0: 4E 20 57 4F 55 4C 44 20 42 45 20 4E 45 45 44 45 |N WOULD BE NEEDE|
00001DD0: 44 00 F2 25 7E 04 99 22 20 54 4F 20 4B 45 45 50 |D..%~.." TO KEEP|
00001DE0: 20 55 50 20 57 49 54 48 20 49 4E 46 4C 41 54 49 | UP WITH INFLATI|
00001DF0: 4F 4E 00 FA 25 83 04 99 3A 99 00 29 26 88 04 99 |ON..%...:..)&...|
00001E00: 22 20 2D 2D 2D 2D 2D 20 53 50 41 43 45 20 46 4F |" ----- SPACE FO|
00001E10: 52 20 32 20 4D 4F 52 45 20 45 58 41 4D 50 4C 45 |R 2 MORE EXAMPLE|
00001E20: 53 20 2D 2D 2D 2D 2D 2D 22 00 3F 26 8D 04 A1 4B |S ------".?&...K|
00001E30: 24 3A 8B 20 4B 24 B2 22 22 A7 20 31 31 36 35 00 |$:. K$."". 1165.|
00001E40: 45 26 92 04 3A 00 66 26 97 04 99 22 93 22 3A 99 |E&..:.f&...".":.|
00001E50: 22 20 45 58 41 4D 50 4C 45 20 33 2E 2E 2E 2E 2E |" EXAMPLE 3.....|
00001E60: 2E 2E 2E 22 3A 99 00 8F 26 9C 04 99 22 20 59 4F |...":...&..." YO|
00001E70: 55 52 20 53 4F 4E 20 48 41 53 20 4A 55 53 54 20 |UR SON HAS JUST |
00001E80: 4C 45 46 54 20 53 43 48 4F 4F 4C 20 41 4E 44 00 |LEFT SCHOOL AND.|
00001E90: BC 26 A1 04 99 22 20 53 54 41 52 54 45 44 20 57 |.&..." STARTED W|
00001EA0: 4F 52 4B 20 49 4E 20 41 4E 20 4F 46 46 49 43 45 |ORK IN AN OFFICE|
00001EB0: 20 41 54 20 41 20 53 41 4C 41 52 59 00 E7 26 A6 | AT A SALARY..&.|
00001EC0: 04 99 22 20 4F 46 20 5C 37 30 30 30 20 50 45 52 |.." OF \7000 PER|
00001ED0: 20 41 4E 4E 55 4D 2E 20 20 59 4F 55 20 57 4F 4E | ANNUM. YOU WON|
00001EE0: 44 45 52 20 48 4F 57 00 13 27 AB 04 99 22 20 54 |DER HOW..'..." T|
00001EF0: 48 41 54 20 43 4F 4D 50 41 52 45 53 20 57 49 54 |HAT COMPARES WIT|
00001F00: 48 20 59 4F 55 52 20 46 49 52 53 54 20 53 41 4C |H YOUR FIRST SAL|
00001F10: 41 52 59 00 3D 27 B0 04 99 22 20 4F 46 20 5C 33 |ARY.='..." OF \3|
00001F20: 35 30 20 50 45 52 20 41 4E 4E 55 4D 20 57 48 45 |50 PER ANNUM WHE|
00001F30: 4E 20 59 4F 55 20 53 54 41 52 54 45 44 00 55 27 |N YOU STARTED.U'|
00001F40: B5 04 99 22 20 57 4F 52 4B 20 49 4E 20 31 39 36 |..." WORK IN 196|
00001F50: 35 2E 22 3A 99 00 7C 27 BA 04 99 22 20 46 4F 52 |5.":..|'..." FOR|
00001F60: 20 4B 4E 4F 57 4E 20 50 52 49 43 45 2E 2E 2E 45 | KNOWN PRICE...E|
00001F70: 4E 54 45 52 20 37 30 30 30 22 3A 99 00 A9 27 BF |NTER 7000":...'.|
00001F80: 04 99 22 20 46 4F 52 20 59 45 41 52 20 4F 46 20 |.." FOR YEAR OF |
00001F90: 4B 4E 4F 57 4E 20 50 52 49 43 45 2E 2E 2E 45 4E |KNOWN PRICE...EN|
00001FA0: 54 45 52 20 38 39 22 3A 99 00 D7 27 C4 04 99 22 |TER 89":...'..."|
00001FB0: 20 46 4F 52 20 59 45 41 52 20 59 4F 55 20 57 49 | FOR YEAR YOU WI|
00001FC0: 53 48 20 54 4F 20 4B 4E 4F 57 20 54 48 45 20 50 |SH TO KNOW THE P|
00001FD0: 52 49 43 45 2E 2E 2E 00 EB 27 C9 04 99 22 20 45 |RICE.....'..." E|
00001FE0: 4E 54 45 52 20 36 35 2E 22 3A 99 00 18 28 CE 04 |NTER 65.":...(..|
00001FF0: 99 22 20 54 48 45 20 41 4E 53 57 45 52 20 49 53 |." THE ANSWER IS|
00002000: 20 5C 38 39 39 2E 20 20 53 4F 20 59 4F 55 20 53 | \899. SO YOU S|
00002010: 4F 4E 20 4D 41 4B 45 53 00 3F 28 D3 04 99 22 20 |ON MAKES.?(..." |
00002020: 54 57 4F 20 41 4E 44 20 41 20 48 41 4C 46 20 54 |TWO AND A HALF T|
00002030: 49 4D 45 53 20 59 4F 55 52 20 46 49 52 53 54 00 |IMES YOUR FIRST.|
00002040: 61 28 D8 04 99 22 20 53 41 4C 41 52 59 20 49 4E |a(..." SALARY IN|
00002050: 20 52 45 41 4C 20 54 45 52 4D 53 21 22 3A 99 3A | REAL TERMS!":.:|
00002060: 99 00 90 28 DD 04 99 22 20 2D 2D 2D 2D 2D 2D 20 |...(..." ------ |
00002070: 53 50 41 43 45 20 46 4F 52 20 31 20 4D 4F 52 45 |SPACE FOR 1 MORE|
00002080: 20 45 58 41 4D 50 4C 45 20 2D 2D 2D 2D 2D 2D 22 | EXAMPLE ------"|
00002090: 00 A6 28 E2 04 A1 4B 24 3A 8B 20 4B 24 B2 22 22 |..(...K$:. K$.""|
000020A0: A7 20 31 32 35 30 00 C7 28 E7 04 99 22 93 22 3A |. 1250..(...".":|
000020B0: 99 22 20 45 58 41 4D 50 4C 45 20 34 2E 2E 2E 2E |." EXAMPLE 4....|
000020C0: 2E 2E 2E 2E 22 3A 99 00 CD 28 EC 04 3A 00 F9 28 |....":...(..:..(|
000020D0: F1 04 99 22 20 59 4F 55 20 50 41 59 20 59 4F 55 |..." YOU PAY YOU|
000020E0: 52 20 47 41 52 44 45 4E 45 52 20 5C 32 2E 33 30 |R GARDENER \2.30|
000020F0: 20 50 45 52 20 48 4F 55 52 00 26 29 F6 04 99 22 | PER HOUR.&)..."|
00002100: 20 41 4E 44 20 48 41 56 45 20 44 4F 4E 45 20 53 | AND HAVE DONE S|
00002110: 4F 20 53 49 4E 43 45 20 31 39 38 35 2E 20 59 4F |O SINCE 1985. YO|
00002120: 55 20 57 41 4E 54 00 49 29 FB 04 99 22 20 54 4F |U WANT.I)..." TO|
00002130: 20 4B 4E 4F 57 20 48 4F 57 20 4D 55 43 48 20 59 | KNOW HOW MUCH Y|
00002140: 4F 55 20 53 48 4F 55 4C 44 00 76 29 00 05 99 22 |OU SHOULD.v)..."|
00002150: 20 49 4E 43 52 45 41 53 45 20 48 49 53 20 53 41 | INCREASE HIS SA|
00002160: 4C 41 52 59 20 54 4F 20 4B 45 45 50 20 49 54 53 |LARY TO KEEP ITS|
00002170: 20 56 41 4C 55 45 00 93 29 05 05 99 22 20 41 54 | VALUE..)..." AT|
00002180: 20 54 4F 44 41 59 27 53 20 50 52 49 43 45 53 2E | TODAY'S PRICES.|
00002190: 22 3A 99 00 BA 29 0A 05 99 22 20 46 4F 52 20 4B |":...)..." FOR K|
000021A0: 4E 4F 57 4E 20 50 52 49 43 45 2E 2E 2E 45 4E 54 |NOWN PRICE...ENT|
000021B0: 45 52 20 32 2E 33 30 22 3A 99 00 E7 29 0F 05 99 |ER 2.30":...)...|
000021C0: 22 20 46 4F 52 20 59 45 41 52 20 4F 46 20 4B 4E |" FOR YEAR OF KN|
000021D0: 4F 57 4E 20 50 52 49 43 45 2E 2E 2E 45 4E 54 45 |OWN PRICE...ENTE|
000021E0: 52 20 38 35 22 3A 99 00 15 2A 14 05 99 22 20 46 |R 85":...*..." F|
000021F0: 4F 52 20 59 45 41 52 20 59 4F 55 20 57 49 53 48 |OR YEAR YOU WISH|
00002200: 20 54 4F 20 4B 4E 4F 57 20 54 48 45 20 50 52 49 | TO KNOW THE PRI|
00002210: 43 45 2E 2E 2E 00 29 2A 19 05 99 22 20 45 4E 54 |CE....)*..." ENT|
00002220: 45 52 20 38 39 2E 22 3A 99 00 53 2A 1E 05 99 22 |ER 89.":..S*..."|
00002230: 20 54 48 45 20 41 4E 53 57 45 52 20 49 53 20 5C | THE ANSWER IS \|
00002240: 32 2E 37 39 20 20 53 4F 20 59 4F 55 20 53 48 4F |2.79 SO YOU SHO|
00002250: 55 4C 44 00 88 2A 23 05 99 22 20 49 4E 43 52 45 |ULD..*#.." INCRE|
00002260: 41 53 45 20 48 49 53 20 57 41 47 45 53 20 54 4F |ASE HIS WAGES TO|
00002270: 20 41 54 20 4C 45 41 53 54 20 54 48 41 54 21 22 | AT LEAST THAT!"|
00002280: 3A 99 3A 99 3A 99 3A 99 00 B7 2A 28 05 99 22 20 |:.:.:.:...*(.." |
00002290: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 53 50 41 |------------ SPA|
000022A0: 43 45 20 46 4F 52 20 4D 45 4E 55 20 2D 2D 2D 2D |CE FOR MENU ----|
000022B0: 2D 2D 2D 2D 2D 2D 22 00 CD 2A 2D 05 A1 4B 24 3A |------"..*-..K$:|
000022C0: 8B 20 4B 24 B2 22 22 A7 20 31 33 32 35 00 D3 2A |. K$."". 1325..*|
000022D0: 32 05 8E 00 D9 2A 37 05 3A 00 03 2B 3C 05 8F 20 |2....*7.:..+<.. |
000022E0: 44 41 54 41 20 53 54 41 54 45 4D 45 4E 54 53 20 |DATA STATEMENTS |
000022F0: 48 4F 4C 44 49 4E 47 20 52 50 49 20 49 4E 44 45 |HOLDING RPI INDE|
00002300: 58 45 53 00 4B 2B 41 05 8F 20 45 41 43 48 20 4C |XES.K+A.. EACH L|
00002310: 49 4E 45 20 47 49 56 45 53 20 52 50 49 20 46 4F |INE GIVES RPI FO|
00002320: 52 20 35 20 59 45 41 52 53 20 53 54 41 52 54 49 |R 5 YEARS STARTI|
00002330: 4E 47 20 57 49 54 48 20 59 45 41 52 20 4F 46 20 |NG WITH YEAR OF |
00002340: 4C 49 4E 45 20 4E 55 4D 42 45 52 00 6F 2B 6C 07 |LINE NUMBER.o+l.|
00002350: 83 20 32 2E 35 36 34 2C 32 2E 35 38 33 2C 32 2E |. 2.564,2.583,2.|
00002360: 36 30 31 2C 32 2E 36 32 30 2C 32 2E 36 33 38 00 |601,2.620,2.638.|
00002370: A3 2B 71 07 83 20 20 20 32 2E 36 35 36 39 2C 20 |.+q.. 2.6569, |
00002380: 32 2E 36 39 32 31 32 2C 20 32 2E 37 32 37 33 34 |2.69212, 2.72734|
00002390: 20 2C 32 2E 37 36 32 35 36 20 2C 32 2E 37 39 37 | ,2.76256 ,2.797|
000023A0: 37 38 36 00 CF 2B 76 07 83 20 32 2E 38 33 33 2C |786..+v.. 2.833,|
000023B0: 20 32 2E 39 38 38 36 20 2C 33 2E 31 34 34 32 20 | 2.9886 ,3.1442 |
000023C0: 2C 33 2E 32 39 39 38 2C 20 33 2E 34 35 35 34 00 |,3.2998, 3.4554.|
000023D0: FB 2B 7B 07 83 20 33 2E 36 31 31 2C 20 34 2E 33 |.+{.. 3.611, 4.3|
000023E0: 35 33 38 2C 20 35 2E 30 39 36 36 2C 20 35 2E 38 |538, 5.0966, 5.8|
000023F0: 33 39 34 20 2C 36 2E 35 38 32 32 00 2B 2C 80 07 |394 ,6.5822.+,..|
00002400: 83 20 20 20 20 20 37 2E 33 32 35 2C 20 36 2E 38 |. 7.325, 6.8|
00002410: 39 35 39 2C 20 36 2E 34 36 36 38 2C 20 36 2E 30 |959, 6.4668, 6.0|
00002420: 33 37 37 20 2C 35 2E 36 30 38 36 00 5B 2C 85 07 |377 ,5.6086.[,..|
00002430: 83 20 20 20 20 35 2E 31 37 39 35 2C 20 35 2E 30 |. 5.1795, 5.0|
00002440: 37 35 39 2C 20 34 2E 39 37 32 33 20 2C 34 2E 38 |759, 4.9723 ,4.8|
00002450: 36 38 37 20 2C 34 2E 37 36 35 31 00 8C 2C 8A 07 |687 ,4.7651..,..|
00002460: 83 20 34 2E 36 36 31 35 20 2C 34 2E 35 36 39 38 |. 4.6615 ,4.5698|
00002470: 32 2C 20 34 2E 34 37 38 31 34 20 2C 34 2E 33 38 |2, 4.47814 ,4.38|
00002480: 36 34 36 20 2C 34 2E 32 39 34 37 38 00 C5 2C 8F |646 ,4.29478..,.|
00002490: 07 83 20 20 20 20 20 20 20 20 20 34 2E 32 30 33 |.. 4.203|
000024A0: 31 20 2C 34 2E 35 31 34 38 38 2C 20 34 2E 38 32 |1 ,4.51488, 4.82|
000024B0: 36 36 36 2C 20 35 2E 31 33 38 34 34 2C 20 35 2E |666, 5.13844, 5.|
000024C0: 34 35 30 32 32 00 FB 2C 94 07 83 20 20 20 20 20 |45022..,... |
000024D0: 20 35 2E 37 36 31 35 20 2C 36 2E 31 31 37 33 36 | 5.7615 ,6.11736|
000024E0: 2C 20 36 2E 34 37 33 32 32 2C 20 36 2E 38 32 39 |, 6.47322, 6.829|
000024F0: 30 38 20 2C 37 2E 31 38 34 39 34 00 30 2D 99 07 |08 ,7.18494.0-..|
00002500: 83 20 37 2E 35 34 30 38 20 2C 37 2E 39 33 31 38 |. 7.5408 ,7.9318|
00002510: 30 32 2C 20 38 2E 33 32 32 38 30 34 20 2C 38 2E |02, 8.322804 ,8.|
00002520: 37 31 33 38 30 36 20 2C 39 2E 31 30 34 38 30 38 |713806 ,9.104808|
00002530: 00 6F 2D 9E 07 83 20 20 20 20 39 2E 34 39 35 38 |.o-... 9.4958|
00002540: 31 30 30 31 2C 20 39 2E 39 32 37 34 34 38 20 2C |1001, 9.927448 ,|
00002550: 31 30 2E 33 35 39 30 38 36 2C 20 31 30 2E 37 39 |10.359086, 10.79|
00002560: 30 37 32 34 2C 20 31 31 2E 32 32 32 33 36 32 00 |0724, 11.222362.|
00002570: A5 2D A3 07 83 20 20 31 31 2E 36 35 34 20 2C 31 |.-... 11.654 ,1|
00002580: 31 2E 39 35 32 38 32 2C 20 31 32 2E 32 35 31 36 |1.95282, 12.2516|
00002590: 34 2C 20 31 32 2E 35 35 30 34 36 20 2C 31 32 2E |4, 12.55046 ,12.|
000025A0: 38 34 39 32 38 00 DA 2D A8 07 83 31 33 2E 31 34 |84928..-...13.14|
000025B0: 38 31 2C 20 31 33 2E 34 38 34 31 38 20 2C 31 33 |81, 13.48418 ,13|
000025C0: 2E 38 32 30 32 36 20 2C 31 34 2E 31 35 36 33 34 |.82026 ,14.15634|
000025D0: 20 2C 31 34 2E 34 39 32 34 32 00 0B 2E AD 07 83 | ,14.49242......|
000025E0: 20 31 34 2E 38 32 38 35 2C 31 35 2E 32 31 31 38 | 14.8285,15.2118|
000025F0: 30 2C 31 35 2E 36 32 31 35 30 2C 31 36 2E 35 32 |0,15.62150,16.52|
00002600: 30 31 30 2C 31 37 2E 34 31 38 38 00 3A 2E B2 07 |010,17.4188.:...|
00002610: 83 20 31 38 2E 36 30 38 33 2C 32 30 2E 35 31 31 |. 18.6083,20.511|
00002620: 34 30 2C 32 31 2E 37 30 30 39 2C 32 33 2E 37 34 |40,21.7009,23.74|
00002630: 39 34 2C 32 37 2E 38 30 36 38 00 69 2E B7 07 83 |94,27.8068.i....|
00002640: 20 33 35 2E 31 30 37 37 2C 33 39 2E 36 31 39 38 | 35.1077,39.6198|
00002650: 2C 34 36 2E 35 39 30 36 30 2C 35 30 2E 32 31 35 |,46.59060,50.215|
00002660: 35 2C 35 38 2E 30 37 33 35 00 97 2E BC 07 83 20 |5,58.0735...... |
00002670: 36 37 2E 39 30 38 37 2C 37 35 2E 33 31 30 35 2C |67.9087,75.3105,|
00002680: 38 31 2E 38 37 35 38 2C 38 35 2E 32 39 37 38 2C |81.8758,85.2978,|
00002690: 38 39 2E 31 30 30 31 00 BF 2E C1 07 83 20 39 35 |89.1001...... 95|
000026A0: 2E 32 33 34 34 2C 39 37 2E 37 39 34 36 2C 31 30 |.2344,97.7946,10|
000026B0: 31 2E 38 2C 31 30 36 2E 37 2C 31 31 35 2E 35 00 |1.8,106.7,115.5.|
000026C0: DA 2E C6 07 83 20 31 32 33 2E 36 2C 2D 31 2C 2D |..... 123.6,-1,-|
000026D0: 31 2C 2D 31 2C 2D 31 2C 2D 31 00 EF 2E CB 07 83 |1,-1,-1,-1......|
000026E0: 20 2D 31 2C 2D 31 2C 2D 31 2C 2D 31 2C 2D 31 00 | -1,-1,-1,-1,-1.|
000026F0: F8 2E D0 07 83 20 2D 31 00 00 00 |..... -1... |
....D.. SAVE"@0:RPI22",8...I.:.9.N.. DIS
K P14A/P14B/BU11B.X.S.. P(100):. DIMENSI
ON ARRAY.^.X.:...}.. 53281,11:.53280,15:
.646,15:. SET SCREEN COLOURS.....:......
OPENING MENU......".":." U.............
.......................I......" . ***
** PRICE CALCULATOR ***** ..<...." ..
.....................................J..
.." . (C) COPYRIGHT IAN L DALZIEL 1989
.... .." .
..F...." . 7 WALKER AVENU
E ......." .
.."...." . TROON,
AYRSHIRE, KA10 6SA ..P...." .
..~...."
........................................
...." .
....C.." . PRESS .I. FOR INSTRUCTIO
NS ....H.." .
..:.M.." . PRESS .U.
TO UPDATE THE INDEX ..H.R.." .
....W.."
. PRESS .T. FOR TECHNICAL EXPLANTION .
.F...." .
......." . PRESS .SPACE. FOR THE
PROGRAM ..$...." .
..R...." J...........
.........................K.X...:.P.... B
RANCHING ROUTINE...... Z$:. Z$."". 250.
.... Z$."I". . 1010:.140...... Z$."U". .
900:.140.R.... Z$."T". . 715:.140......
Z$.." ". 250...... THE MAIN PROGRAM PRO
CEEDS WITH SPACE KEY.....:.N.... READS D
ATA TILL END OF FILE MARKER -1 IS READ..
.".D.D.1:. D..1 . 325:. ENSURES DATA IS
LOADED ONLY ONCE...'..".":." LOADING DAT
A PLEASE WAIT 5 SECONDS....":..P.,.X.0:.
RESET X...1.. LOOP TO READ DATA AND GIV
E CHANGING NUMBER ON SCREEN.-.6.. P(X):.
X".":. P(X)..1 . 330.=.;.X.X.1:. 310.C.
@.:.Z.E.. CALCULATION MENU.C.J.."."...O.
." .....................................
....T.." . ***** PRICE CALCULATOR ***
** ....Y.." .
....^.:.9.C.. X-1 IS THE LAS
T YEAR WHICH THE RPI INDEX IS AVAILABLE
FROM DATA.P.H.." . APPLICABLE TO THE PER
IOD 1900";.(1900.X.1)"."...M.." ........
..............................".R.R.." .
PRESS .M. FOR MAIN MENU .E. TO EXIT
."...W.." J.............................
.......K.1.|..:KC$."":." KNOWN COST OF I
TEM IN \....";KC$.Z.... KC$."M" . 140:.
EXITS TO MAIN MENU.Q.... KC$."E" . .".":
..W...:...... REJECTS WRONG INPUT.C...KC
.E(KC$):. KC.0 . .".".30)" .":.3
80:.I...:......:." YEAR OF KNOWN COST...
........19??..";.....:...... GETS FIRST
DIGIT OF YEAR.2.... K$:.K$."". 430.I...N
.F(K$):. N.48 . N.57 . 430:. ACCEPTS ONL
Y NUMBERS.....N$.K$:.K$;:. FIRST DIGIT R
EPLACES ? ON SCREEN...... GETS SEC0ND DI
GIT OF YEAR.P.B.. K$:.K$."". 450.V.G.:..
.L.M.F(K$):. M.48 . M.57 . 450:. ACCEPTS
ONLY NUMBERS.@.Q.M$.K$:.K$:. SECOND DI
GIT REPLACES ? ON SCREEN.F.V.:.}...YN.E(
N$.M$):.:. CALCULATES THE YEAR OF KNOWN
PRICE...... REJECTS YEAR WHOSE RPI INDEX
IS NOT KNOWN...... P(YN)..0 . ." .INDEX
NOT UPDATED TO INCLUDE THIS YEAR.":.415
.....:.2.... TIME DELAY TO EMPTY BUFFER
TO SEPARATE GET STATEMENTS.F.... I.1 . 1
00:. I.^.... I.1 . 10:. K$:. I.D...:....
.." YEAR YOU WISH TO KNOW COST...19??.."
;.....:...... GETS FIRST DIGIT OF YEAR.K
.... K$:.K$."". 530.....F.F(K$):. F.48 .
F.57 . 430:. ACCEPTS ONLY NUMBERS.4...F
$.K$:.K$;:. FIRST DIGIT REPLACES ? ON SC
REEN.:.!.:.Z.&.. GETS SEC0ND DIGIT OF YE
AR.O.+.. K$:.K$."". 555...0.G.F(K$):. G.
48 . G.57 . 450:. ACCEPTS ONLY NUMBERS.X
.5.G$.K$:.K$:. SECOND DIGIT REPLACES ? O
N SCREEN...:.:...?.YU.E(F$.G$):.:. CACUL
ATES YEAR YOU WANT TO KNOW COST.G.D.. RE
JECTS YEAR WHOSE RPI INDEX IS NOT KNOWN.
..I.. P(YU)..0 . ." .INDEX NOT UPDATED T
O INCLUDE THIS YEAR..":.515...N.:.O.S..
CALCULATES DESIRED PRICE AND ROUNDS TO 2
DECIMAL PLACES...X.Q.KC.P(YN).P(YU):Q..
(Q.100.0.5).100:.9.].. Q.100 . Q..(Q.0.5
):. NO DECIMAL PLACES FOR PRICE OVER \10
0.F.B..:." COST OF ITEM IN"1900.YU"PRICE
S=\"Q:...G.." ..........................
............":..S.L.. TIME DELAY TO EMPT
Y BUFFER TO SEPARATE GET STATEMENTS...Q.
. I.1 . 100:. I...V.. I.1 . 10:. K$:. I.
..{.:...... EXIT MENU.C...." U..........
..........................I.R...." . ---
PRESS SPACE FOR ANOTHER GO --- ."......
" . .
".T...." . .M. FOR MAIN MENU .E. TO
EXIT ."......" J...................
.................K...... K$:.K$."".670.'
.... K$."E" . ..:.... K$."M" . 140.N....
K$.." " . 670.P....330:. SPACE GIVES AN
OTHER GO.V...:...... DATA GIVING RPI IND
EX FOR 5 YEARS STARTING AT YEAR OF LINE
NUMBER.D.A.:...F.. SUBROUTINE FOR TECHNI
CAL DATA INFO...K..".":." HOW THE RPI IN
DEX WAS CALCULATED.B.P.." --------------
------------------.M.U.." THE DATA STATE
MENTS GIVE THE RETAIL...Z.." PRICE INDEX
FOR JULY OF EACH YEAR.F...." FROM 1900
TO 1990 (BASED ON JAN 87=100)"......" EA
CH LINE OF DATA GIVES RPI FOR 5 YEARS.&.
...". STARTING WITH THE YEAR OF LINE NUM
BER":..R...." I HAVE ESTIMATED THE JULY
1990 INDEX.S...." AS +7% OF JULY 1989 IN
DEX......:.:.:.:.:.:.:.:.:......." -----
- SPACE FOR ONE MORE PAGE -------".O....
K$:. K$."". 770.U...:...... SECOND PAGE
OF TECHNICAL INFO.,....".":." PRIOR TO 1
987 THE INDEX WAS CALCULATED.Z...." FROM
THE INDEXES PUBLISHED AT THE TIME.V....
" AS FOLLOWS.......":.... .." FROM 1974-
1986 THE INDEX PUBLISHED WAS.P.%.." JAN
74=100. THIS IS DIVIDED BY 3.945...*.."
(BECAUSE THE JAN 87 INDEX BASED ON.../..
" JAN 74=100 WAS 394.5)...4...K.9.." FRO
M 1962-1973 THE INDEX PUBLISHED WAS.Q.>.
." JAN 62=100. THIS IS DIVIDED BY...C.."
3.945*1.918 (BECAUSE THE JAN74 INDEX.F.
H.." BASED ON JAN 62=100 WAS 191.8)":...
.M.." FROM 1900-1961 I CALCULATED THE IN
DEX...R.." FROM THE BOOK:-BRITAIN IN FIG
URES.K.W.." BY ALAN SILLITOE (PELICAN 19
73) P151":..Q.\.." ANYONE IS WELCOME TO
CHECK THE...A.." CALCULATIONS AND LET ME
KNOW IF YOU...F.." FIND ANY MAJOR ERROR
S":....K.." --------- SPACE FOR THE MENU
---------"...P..K$:. K$."". 880...U....
.Z.:.L... SUBROUTINE ABOUT UPDATING THE
INDEX CALLED FROM MAIN MENU.Q....".":."
HOW THE UPDATE THE INDEX......" -------
-------------------------.C...." THE IND
EX FOR JULY 1990 IS ONLY AN......" ESTIM
ATE, SO IT SHOULD BE CORRECTED......" ON
CE THE ACTUAL INDEX BECOMES KNOWN.C...."
IN AUGUST 1990. REPLACE THE FIRST.N...
." PIECE OF DATA ON LINE 1990 (123.6)"..
...." WITH THE CORRECT INDEX":......." I
N ORDER TO USE THE PROGRAM AFTER 1990...
..." YOU WILL NEED TO ESTIMATE THE RPI F
OR.. ..." JULY OF THE YEAR IN QUESTION B
Y ADDING.C ..." THE ESTIMATED INFLATION
RATE TO THE.O ..." PREVIOUS YEAR'S INDEX
AND REPLACE -1.. E.." IN THE DATA STATE
MENT WITH THE INDEX":..L J.." YOU MAY CO
NTINUE THE PROCESS EACH YEAR.. O.." BY M
AKING AN ESTMATE OF THE JULY INDEX.-!T..
" IN JANUARY AND CORRECTING IT IN AUGUST
":.:..\!Y.." --------- SPACE FOR THE MEN
U ---------".Q!...K$:. K$."". 990.W!....
}!..:.D!... SUBROUTINE WITH 4 PAGES OF W
ORKED EXAMPLES CALLED FROM MAIN MENU..!.
..".":." HOW TO USE THE PROGRAM.."..." -
-------------------------------.)"..." E
XAMPLE 1......":..S"..." SAY YOU WANT TO
KNOW HOW MUCH YOUR.."..." POCKET MONEY
IN 1960 OF 2/6P OLD MONEY.."..." (12.5P
IN DECIMAL MONEY) WOULD BUY AT.F"..." TO
DAYS PRICES":..."..." FOR KNOWN PRICE...
ENTER 0.125":...#..." FOR YEAR OF KNOWN
PRICE...ENTER 60":..I#..." FOR YEAR YOU
WISH TO KNOW THE PRICE....\#$.." ENTER 8
9":..#).." THE ANSWER IS \1.1":.:.:.:..
.#..." ----- SPACE FOR 3 MORE EXAMPLES -
----.B#3..K$:. K$."". 1075.H#8.:..#=..".
":." EXAMPLE 2........":...$B.." SAY YOU
ARE TREASURER OF A BRIDGE CLUB.B$G.." W
HICH HAS BEEN CHARGING 40P A NIGHT.H$L..
" SINCE 1980. YOU ARE PROPOSING..$Q.."
AN INCREASE TO 60P AND WANT TO SEE HOW.D
$V.." THAT COMPARES WITH THE ORIGINAL CH
ARGE..$[.." AT TODAY'S PRICES..":...%`..
" FOR KNOWN PRICE....ENTER 0.40":..8%E..
" FOR YEAR OF KNOWN PRICE....ENTER 80":.
.E%J.." FOR YEAR YOU WISH TO KNOW THE PR
ICE...X%O.." ENTER 89":...%T.." THE ANSW
ER IS 68P. SO YOUR PROPOSED.Q%Y.." INCR
EASE IS LESS THAN WOULD BE NEEDED..%~.."
TO KEEP UP WITH INFLATION..%...:..)&...
" ----- SPACE FOR 2 MORE EXAMPLES ------
".?&...K$:. K$."". 1165.E&..:.F&...".":.
" EXAMPLE 3........":...&..." YOUR SON H
AS JUST LEFT SCHOOL AND..&..." STARTED W
ORK IN AN OFFICE AT A SALARY..&..." OF \
7000 PER ANNUM. YOU WONDER HOW..'..." T
HAT COMPARES WITH YOUR FIRST SALARY.='..
." OF \350 PER ANNUM WHEN YOU STARTED.U'
..." WORK IN 1965.":..|'..." FOR KNOWN P
RICE...ENTER 7000":...'..." FOR YEAR OF
KNOWN PRICE...ENTER 89":..W'D.." FOR YEA
R YOU WISH TO KNOW THE PRICE.....'I.." E
NTER 65.":...(N.." THE ANSWER IS \899.
SO YOU SON MAKES.?(S.." TWO AND A HALF T
IMES YOUR FIRST.A(X.." SALARY IN REAL TE
RMS!":.:...(..." ------ SPACE FOR 1 MORE
EXAMPLE ------"..(...K$:. K$."". 1250.G
(...".":." EXAMPLE 4........":..M(..:..(
..." YOU PAY YOUR GARDENER \2.30 PER HOU
R.&)..." AND HAVE DONE SO SINCE 1985. YO
U WANT.I)..." TO KNOW HOW MUCH YOU SHOUL
D.V)..." INCREASE HIS SALARY TO KEEP ITS
VALUE..)..." AT TODAY'S PRICES.":...)..
." FOR KNOWN PRICE...ENTER 2.30":...)...
" FOR YEAR OF KNOWN PRICE...ENTER 85":..
.*..." FOR YEAR YOU WISH TO KNOW THE PRI
CE....)*..." ENTER 89.":..S*..." THE ANS
WER IS \2.79 SO YOU SHOULD..*#.." INCRE
ASE HIS WAGES TO AT LEAST THAT!":.:.:.:.
..*(.." ------------ SPACE FOR MENU ----
------".M*-..K$:. K$."". 1325.S*2...Y*7.
:..+<.. DATA STATEMENTS HOLDING RPI INDE
XES.K+A.. EACH LINE GIVES RPI FOR 5 YEAR
S STARTING WITH YEAR OF LINE NUMBER.O+L.
. 2.564,2.583,2.601,2.620,2.638..+Q..
2.6569, 2.69212, 2.72734 ,2.76256 ,2.797
786.O+V.. 2.833, 2.9886 ,3.1442 ,3.2998,
3.4554..+{.. 3.611, 4.3538, 5.0966, 5.8
394 ,6.5822.+,... 7.325, 6.8959, 6.4
668, 6.0377 ,5.6086.[,... 5.1795, 5.0
759, 4.9723 ,4.8687 ,4.7651..,... 4.6615
,4.56982, 4.47814 ,4.38646 ,4.29478.E,.
.. 4.2031 ,4.51488, 4.82666, 5.1
3844, 5.45022..,... 5.7615 ,6.11736
, 6.47322, 6.82908 ,7.18494.0-... 7.5408
,7.931802, 8.322804 ,8.713806 ,9.104808
.O-... 9.49581001, 9.927448 ,10.35908
6, 10.790724, 11.222362..-... 11.654 ,1
1.95282, 12.25164, 12.55046 ,12.84928.Z-
...13.1481, 13.48418 ,13.82026 ,14.15634
,14.49242...... 14.8285,15.21180,15.621
50,16.52010,17.4188.:.... 18.6083,20.511
40,21.7009,23.7494,27.8068.I.... 35.1077
,39.6198,46.59060,50.2155,58.0735......
67.9087,75.3105,81.8758,85.2978,89.1001.
..A.. 95.2344,97.7946,101.8,106.7,115.5.
Z.F.. 123.6,-1,-1,-1,-1,-1...K.. -1,-1,-
1,-1,-1...P.. -1...
> CLICK IMAGE PREVIEW FOR FULL MODAL