CAPITALS
FILE INFORMATION
FILENAME(S): CAPITALS
FILE TYPE(S): PRG
FILE SIZE: 2.3K
FIRST SEEN: 2025-11-30 17:31:22
APPEARS ON: 1 disk(s)
FILE HASH
f6b0a28d998744791fee8e394fa240d69868dada08597cf1ccd4e3baf565d8d0
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CDU FEBRUARY 90 | CAPITALS | PRG | UK CD | 9 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 20 08 01 00 97 35 33 32 38 30 2C 31 34 3A |.. ....53280,14:| 00000010: 97 35 33 32 38 31 2C 36 3A 97 36 34 36 2C 31 34 |.53281,6:.646,14| 00000020: 00 30 08 05 00 86 44 41 24 28 31 30 30 2C 32 29 |.0....DA$(100,2)| 00000030: 00 5A 08 06 00 81 4C B2 31 20 A4 20 31 30 30 3A |.Z....L.1 . 100:| 00000040: 44 41 24 28 4C 2C 32 29 B2 22 30 22 3A 44 41 24 |DA$(L,2)."0":DA$| 00000050: 28 4C 2C 30 29 B2 22 22 3A 82 00 64 08 08 00 46 |(L,0)."":..d...F| 00000060: 52 B2 33 31 00 8A 08 0A 00 8F 20 2A 2A 2A 2A 2A |R.31...... *****| 00000070: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 B0 08 14 00 8F |**********......| 00000090: 20 2A 20 20 41 4E 20 45 58 41 4D 50 4C 45 20 4F | * AN EXAMPLE O| 000000A0: 46 20 48 41 53 48 20 54 41 42 4C 45 53 20 20 2A |F HASH TABLES *| 000000B0: 00 D6 08 1E 00 8F 20 2A 20 20 20 20 20 20 20 20 |...... * | 000000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000D0: 20 20 20 20 20 2A 00 FC 08 28 00 8F 20 2A 20 57 | *...(.. * W| 000000E0: 52 49 54 54 45 4E 20 42 59 20 53 54 45 56 45 4E |RITTEN BY STEVEN| 000000F0: 20 50 20 42 55 52 47 45 53 53 20 2A 00 22 09 32 | P BURGESS *.".2| 00000100: 00 8F 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 |.. * | 00000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000120: 20 2A 00 48 09 3C 00 8F 20 2A 20 20 20 20 20 20 | *.H.<.. * | 00000130: 20 43 4F 50 59 52 49 47 48 54 20 31 39 38 39 20 | COPYRIGHT 1989 | 00000140: 20 20 20 20 20 20 20 2A 00 6E 09 46 00 8F 20 2A | *.n.F.. *| 00000150: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000160: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 74 |**************.t| 00000170: 09 50 00 8F 00 7A 09 5A 00 8F 00 84 09 5F 00 8D |.P...z.Z....._..| 00000180: 35 30 30 30 00 91 09 64 00 99 C7 28 31 34 37 29 |5000...d...(147)| 00000190: 3B 00 9F 09 6E 00 99 22 B0 C0 C0 C0 C0 AE 22 00 |;...n.."......".| 000001A0: AD 09 78 00 99 22 DD 4D 45 4E 55 DD 22 00 BB 09 |..x..".MENU."...| 000001B0: 82 00 99 22 AD C0 C0 C0 C0 BD 22 00 D3 09 8C 00 |..."......".....| 000001C0: 99 22 11 11 31 2E 2E 41 44 44 20 52 45 43 4F 52 |."..1..ADD RECOR| 000001D0: 44 53 22 00 F1 09 96 00 99 22 11 11 32 2E 2E 53 |DS"......"..2..S| 000001E0: 45 41 52 43 48 20 46 4F 52 20 52 45 43 4F 52 44 |EARCH FOR RECORD| 000001F0: 22 00 0B 0A A0 00 99 22 11 11 33 2E 2E 44 45 4C |"......"..3..DEL| 00000200: 45 54 45 20 52 45 43 4F 52 44 22 00 23 0A AA 00 |ETE RECORD".#...| 00000210: 99 22 11 11 34 2E 2E 45 4E 44 20 50 52 4F 47 52 |."..4..END PROGR| 00000220: 41 4D 22 00 36 0A B4 00 A1 41 24 3A 8B 41 24 B2 |AM".6....A$:.A$.| 00000230: 22 22 A7 31 38 30 00 50 0A BE 00 8B 20 41 24 B3 |"".180.P.... A$.| 00000240: 22 31 22 20 B0 20 41 24 B1 22 34 22 A7 31 38 30 |"1" . A$."4".180| 00000250: 00 64 0A C8 00 8B 20 41 24 B2 22 31 22 A7 20 8D |.d.... A$."1". .| 00000260: 31 30 30 30 00 78 0A D2 00 8B 20 41 24 B2 22 32 |1000.x.... A$."2| 00000270: 22 A7 20 8D 32 30 30 30 00 8C 0A DC 00 8B 20 41 |". .2000...... A| 00000280: 24 B2 22 33 22 A7 20 8D 33 30 30 30 00 A4 0A E6 |$."3". .3000....| 00000290: 00 8B 20 41 24 B2 22 34 22 A7 20 99 C7 28 31 34 |.. A$."4". ..(14| 000002A0: 37 29 3A 80 00 AE 0A FA 00 89 20 31 30 30 00 C3 |7):....... 100..| 000002B0: 0A 04 01 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |....************| 000002C0: 2A 2A 2A 00 D8 0A 0E 01 8F 2A 48 41 53 48 20 46 |***......*HASH F| 000002D0: 55 4E 43 54 49 4F 4E 2A 00 ED 0A 18 01 8F 2A 2A |UNCTION*......**| 000002E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 17 0B |*************...| 000002F0: 22 01 48 B2 30 3A 54 B2 30 3A 81 45 B2 31 20 A4 |".H.0:T.0:.E.1 .| 00000300: 20 C3 28 41 24 29 3A 54 B2 54 AA C6 28 CA 28 41 | .(A$):T.T..(.(A| 00000310: 24 2C 45 2C 31 29 29 00 1D 0B 2C 01 82 00 2B 0B |$,E,1))...,...+.| 00000320: 36 01 54 B2 54 AD C3 28 41 24 29 00 41 0B 40 01 |6.T.T..(A$).A.@.| 00000330: 48 B2 B5 28 B6 28 BF 28 54 29 29 AC 32 39 29 AA |H..(.(.(T)).29).| 00000340: 31 00 4C 0B 4A 01 48 B2 B5 28 48 29 00 52 0B 54 |1.L.J.H..(H).R.T| 00000350: 01 8E 00 67 0B 5E 01 8F 2A 2A 2A 2A 2A 2A 2A 2A |...g.^..********| 00000360: 2A 2A 2A 2A 2A 2A 2A 00 7C 0B 68 01 8F 2A 41 44 |*******.|.h..*AD| 00000370: 44 20 50 52 4F 43 45 44 55 52 45 2A 00 91 0B 72 |D PROCEDURE*...r| 00000380: 01 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..**************| 00000390: 2A 00 C4 0B 7C 01 49 4E 53 B2 30 3A 8B 20 44 41 |*...|.INS.0:. DA| 000003A0: 24 28 48 2C 30 29 B2 22 22 A7 20 44 41 24 28 48 |$(H,0)."". DA$(H| 000003B0: 2C 30 29 B2 41 24 3A 44 41 24 28 48 2C 31 29 B2 |,0).A$:DA$(H,1).| 000003C0: 42 24 3A 8E 00 0E 0C 86 01 8B 44 41 24 28 48 2C |B$:.......DA$(H,| 000003D0: 32 29 B2 22 30 22 A7 20 44 41 24 28 48 2C 32 29 |2)."0". DA$(H,2)| 000003E0: B2 C4 28 46 52 29 3A 44 41 24 28 46 52 2C 30 29 |..(FR):DA$(FR,0)| 000003F0: B2 41 24 3A 44 41 24 28 46 52 2C 31 29 B2 42 24 |.A$:DA$(FR,1).B$| 00000400: 3A 49 4E 53 B2 31 3A 46 52 B2 46 52 AA 31 00 31 |:INS.1:FR.FR.1.1| 00000410: 0C 90 01 8B 20 49 4E 53 B3 B1 31 20 A7 20 48 B2 |.... INS..1 . H.| 00000420: C5 28 44 41 24 28 48 2C 32 29 29 3A 89 20 33 38 |.(DA$(H,2)):. 38| 00000430: 30 00 37 0C 9A 01 8E 00 4A 0C E8 03 8F 2A 2A 2A |0.7.....J....***| 00000440: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 5D 0C F2 03 8F |**********.]....| 00000450: 2A 41 44 44 20 52 45 43 4F 52 44 53 2A 00 70 0C |*ADD RECORDS*.p.| 00000460: FC 03 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |...*************| 00000470: 00 7D 0C 06 04 99 C7 28 31 34 37 29 3B 00 90 0C |.}.....(147);...| 00000480: 10 04 99 22 41 44 44 20 52 45 43 4F 52 44 53 22 |..."ADD RECORDS"| 00000490: 00 AF 0C 1A 04 99 22 11 11 22 3B 3A 85 22 45 4E |......"..";:."EN| 000004A0: 54 45 52 20 43 4F 55 4E 54 52 59 22 3B 41 24 00 |TER COUNTRY";A$.| 000004B0: CE 0C 24 04 99 22 11 11 22 3B 3A 85 22 45 4E 54 |..$.."..";:."ENT| 000004C0: 45 52 20 43 41 50 49 54 41 4C 22 3B 42 24 00 DC |ER CAPITAL";B$..| 000004D0: 0C 2E 04 8D 32 36 30 3A 8D 33 35 30 00 E2 0C 38 |....260:.350...8| 000004E0: 04 8E 00 F5 0C D0 07 8F 2A 2A 2A 2A 2A 2A 2A 2A |........********| 000004F0: 2A 2A 2A 2A 2A 00 0E 0D DA 07 8F 2A 53 45 41 52 |*****......*SEAR| 00000500: 43 48 20 46 4F 52 20 52 45 43 4F 52 44 2A 00 27 |CH FOR RECORD*.'| 00000510: 0D E4 07 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |....************| 00000520: 2A 2A 2A 2A 2A 2A 2A 00 30 0D E5 07 46 49 B2 30 |*******.0...FI.0| 00000530: 00 56 0D E9 07 8B 20 44 49 24 B3 B1 22 44 45 4C |.V.... DI$.."DEL| 00000540: 45 54 45 22 A7 20 44 49 24 B2 22 53 45 41 52 43 |ETE". DI$."SEARC| 00000550: 48 20 46 4F 52 22 00 63 0D EE 07 99 C7 28 31 34 |H FOR".c.....(14| 00000560: 37 29 3B 00 76 0D F8 07 99 44 49 24 AA 22 20 52 |7);.v....DI$." R| 00000570: 45 43 4F 52 44 22 00 95 0D 02 08 99 22 11 11 22 |ECORD"......".."| 00000580: 3B 3A 85 22 45 4E 54 45 52 20 43 4F 55 4E 54 52 |;:."ENTER COUNTR| 00000590: 59 22 3B 41 24 00 9E 0D 0C 08 8D 32 36 30 00 B6 |Y";A$......260..| 000005A0: 0D 16 08 8B 20 44 41 24 28 48 2C 30 29 B2 41 24 |.... DA$(H,0).A$| 000005B0: 20 A7 20 46 B2 31 00 D0 0D 20 08 8B 20 46 B2 30 | . F.1... .. F.0| 000005C0: 20 A7 20 48 B2 C5 28 44 41 24 28 48 2C 32 29 29 | . H..(DA$(H,2))| 000005D0: 00 E9 0D 2A 08 8B 20 48 B3 B1 30 20 AF 20 46 B3 |...*.. H..0 . F.| 000005E0: B1 31 20 A7 20 32 30 37 30 00 2D 0E 34 08 8B 48 |.1 . 2070.-.4..H| 000005F0: B2 30 AF 46 B2 30 20 A7 20 99 22 93 53 4F 52 52 |.0.F.0 . .".SORR| 00000600: 59 20 42 55 54 20 54 48 45 20 43 4F 55 4E 54 52 |Y BUT THE COUNTR| 00000610: 59 20 59 4F 55 20 45 4E 54 45 52 45 44 20 49 53 |Y YOU ENTERED IS| 00000620: 20 4E 4F 54 20 50 52 45 53 45 4E 54 22 00 66 0E | NOT PRESENT".f.| 00000630: 39 08 8B 20 48 B2 30 20 AF 20 46 B2 30 20 A7 20 |9.. H.0 . F.0 . | 00000640: 99 22 50 52 45 53 53 20 41 4E 59 20 4B 45 59 20 |."PRESS ANY KEY | 00000650: 54 4F 20 52 45 54 55 52 4E 20 54 4F 20 54 48 45 |TO RETURN TO THE| 00000660: 20 4D 45 4E 55 22 00 88 0E 3A 08 8B 20 48 B2 30 | MENU"...:.. H.0| 00000670: 20 AF 20 46 B2 30 20 A7 20 A1 41 24 3A 8B 41 24 | . F.0 . .A$:.A$| 00000680: B2 22 22 A7 32 31 30 36 00 9C 0E 3B 08 8B 20 48 |."".2106...;.. H| 00000690: B2 30 20 AF 20 46 B2 30 20 A7 20 8E 00 A6 0E 3E |.0 . F.0 . ....>| 000006A0: 08 99 22 93 22 3B 00 BF 0E 48 08 99 22 43 4F 55 |..".";...H.."COU| 000006B0: 4E 54 52 59 3A 22 3B 44 41 24 28 48 2C 30 29 00 |NTRY:";DA$(H,0).| 000006C0: D8 0E 52 08 99 22 43 41 50 49 54 41 4C 3A 22 3B |..R.."CAPITAL:";| 000006D0: 44 41 24 28 48 2C 31 29 00 07 0F 5C 08 99 22 C0 |DA$(H,1)...\..".| 000006E0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 000006F0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000700: C0 C0 C0 C0 C0 C0 22 00 2D 0F 66 08 99 22 49 53 |......".-.f.."IS| 00000710: 20 54 48 49 53 20 54 48 45 20 52 45 43 4F 52 44 | THIS THE RECORD| 00000720: 20 59 4F 55 20 52 45 51 55 49 52 45 22 00 5C 0F | YOU REQUIRE".\.| 00000730: 70 08 99 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |p.."............| 00000740: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000750: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 00 70 0F 7A |...........".p.z| 00000760: 08 A1 52 24 3A 8B 52 24 B2 22 22 A7 32 31 37 30 |..R$:.R$."".2170| 00000770: 00 96 0F 84 08 8B 20 52 24 B2 22 4E 22 A7 48 B2 |...... R$."N".H.| 00000780: C5 28 44 41 24 28 48 2C 32 29 29 3A 46 B2 30 3A |.(DA$(H,2)):F.0:| 00000790: 89 20 32 30 37 30 00 C3 0F 8E 08 99 22 91 91 50 |. 2070......"..P| 000007A0: 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 |RESS ANY KEY TO | 000007B0: 52 45 54 55 52 4E 20 20 20 20 20 20 20 20 20 20 |RETURN | 000007C0: 20 20 22 00 D8 0F 98 08 A1 41 24 3A 8B 41 24 B2 | "......A$:.A$.| 000007D0: 22 22 A7 20 32 32 30 30 00 F5 0F 9D 08 8B 20 44 |"". 2200...... D| 000007E0: 49 24 B3 B1 22 44 45 4C 45 54 45 22 A7 20 48 B2 |I$.."DELETE". H.| 000007F0: 30 3A 46 B2 30 00 FB 0F A2 08 8E 00 10 10 B8 0B |0:F.0...........| 00000800: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************| 00000810: 00 25 10 C2 0B 8F 2A 44 45 4C 45 54 45 20 52 45 |.%....*DELETE RE| 00000820: 43 4F 52 44 2A 00 3A 10 CC 0B 8F 2A 2A 2A 2A 2A |CORD*.:....*****| 00000830: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 4B 10 D1 0B 44 |**********.K...D| 00000840: 49 24 B2 22 44 45 4C 45 54 45 22 00 55 10 D6 0B |I$."DELETE".U...| 00000850: 99 22 93 22 3B 00 6A 10 E0 0B 99 22 44 45 4C 45 |.".";.j...."DELE| 00000860: 54 45 20 52 45 43 4F 52 44 22 00 74 10 EA 0B 8D |TE RECORD".t....| 00000870: 32 30 30 30 00 88 10 08 0C 8B 20 48 B2 30 20 AF |2000...... H.0 .| 00000880: 20 46 B2 30 20 A7 20 8E 00 A4 10 12 0C 44 41 24 | F.0 . ......DA$| 00000890: 28 48 2C 30 29 B2 22 22 3A 44 41 24 28 48 2C 31 |(H,0)."":DA$(H,1| 000008A0: 29 B2 22 22 00 AF 10 17 0C 44 49 24 B2 22 22 00 |)."".....DI$."".| 000008B0: BB 10 18 0C 48 B2 30 3A 46 B2 30 00 C1 10 1C 0C |....H.0:F.0.....| 000008C0: 8E 00 D5 10 88 13 81 4C B2 31 20 A4 20 35 3A 87 |.......L.1 . 5:.| 000008D0: 41 24 2C 42 24 00 DE 10 92 13 8D 32 36 30 00 E7 |A$,B$......260..| 000008E0: 10 9C 13 8D 33 35 30 00 ED 10 A6 13 82 00 F3 10 |....350.........| 000008F0: AC 13 8E 00 3F 11 B0 13 83 46 52 41 4E 43 45 2C |....?....FRANCE,| 00000900: 50 41 52 49 53 2C 45 4E 47 4C 41 4E 44 2C 4C 4F |PARIS,ENGLAND,LO| 00000910: 4E 44 4F 4E 2C 52 55 53 53 49 41 2C 4D 4F 53 43 |NDON,RUSSIA,MOSC| 00000920: 4F 57 2C 41 55 53 54 52 41 49 4C 49 41 2C 43 41 |OW,AUSTRAILIA,CA| 00000930: 4E 42 45 52 52 41 2C 45 54 48 49 4F 50 49 41 00 |NBERRA,ETHIOPIA.| 00000940: 50 11 BA 13 83 41 44 44 49 53 20 41 42 41 42 41 |P....ADDIS ABABA| 00000950: 00 00 00 |... |
.. ....53280,14:.53281,6:.646,14.0....DA
$(100,2).Z....L.1 . 100:DA$(L,2)."0":DA$
(L,0)."":..D...FR.31...... *************
******************...... * AN EXAMPLE O
F HASH TABLES *.V.... *
*...(.. * WRITTEN BY STEVEN
P BURGESS *.".2.. *
*.H.<.. * COPYRIGHT 1989
*.N.F.. *************************
******.T.P...Z.Z....._..5000...D..G(147)
;...N.."......"...X..".MENU."......"....
..".S...."..1..ADD RECORDS"......"..2..S
EARCH FOR RECORD"... .."..3..DELETE RECO
RD".#...."..4..END PROGRAM".6....A$:.A$.
"".180.P.... A$."1" . A$."4".180.D.H.. A
$."1". .1000.X.R.. A$."2". .2000...... A
$."3". .3000...... A$."4". .G(147):.....
.. 100.C....***************.X....*HASH F
UNCTION*......***************...".H.0:T.
0:.E.1 . C(A$):T.T.F(J(A$,E,1))...,...+.
6.T.T.C(A$).A.@.H..(.(.(T)).29).1.L.J.H.
.(H).R.T...G.^..***************.|.H..*AD
D PROCEDURE*...R..***************.D.|.IN
S.0:. DA$(H,0)."". DA$(H,0).A$:DA$(H,1).
B$:.......DA$(H,2)."0". DA$(H,2).D(FR):D
A$(FR,0).A$:DA$(FR,1).B$:INS.1:FR.FR.1.1
.... INS..1 . H.E(DA$(H,2)):. 380.7.....
J....*************.]....*ADD RECORDS*.P.
...*************.}....G(147);......"ADD
RECORDS"......"..";:."ENTER COUNTRY";A$.
N.$.."..";:."ENTER CAPITAL";B$......260:
.350...8.....P..*************...Z..*SEAR
CH FOR RECORD*.'....*******************.
0...FI.0.V.... DI$.."DELETE". DI$."SEARC
H FOR".C....G(147);.V....DI$." RECORD"..
...."..";:."ENTER COUNTRY";A$......260..
.... DA$(H,0).A$ . F.1.P. .. F.0 . H.E(D
A$(H,2))...*.. H..0 . F..1 . 2070.-.4..H
.0.F.0 . .".SORRY BUT THE COUNTRY YOU EN
TERED IS NOT PRESENT".F.9.. H.0 . F.0 .
."PRESS ANY KEY TO RETURN TO THE MENU"..
.:.. H.0 . F.0 . .A$:.A$."".2106...;.. H
.0 . F.0 . ....>..".";...H.."COUNTRY:";D
A$(H,0).X.R.."CAPITAL:";DA$(H,1)...\..".
......................................".
-.F.."IS THIS THE RECORD YOU REQUIRE".\.
P.."....................................
...".P.Z..R$:.R$."".2170...... R$."N".H.
E(DA$(H,2)):F.0:. 2070.C...."..PRESS ANY
KEY TO RETURN ".X....A$:.A$.
"". 2200...... DI$.."DELETE". H.0:F.0...
.........***************.%.B..*DELETE RE
CORD*.:.L..***************.K.Q.DI$."DELE
TE".U.V..".";.J...."DELETE RECORD".T....
2000...... H.0 . F.0 . ......DA$(H,0).""
:DA$(H,1)."".....DI$."".....H.0:F.0.A...
..U....L.1 . 5:.A$,B$......260......350.
............?....FRANCE,PARIS,ENGLAND,LO
NDON,RUSSIA,MOSCOW,AUSTRAILIA,CANBERRA,E
THIOPIA.P....ADDIS ABABA...
> CLICK IMAGE PREVIEW FOR FULL MODAL