STATES
FILE INFORMATION
FILENAME(S): STATES
FILE TYPE(S): PRG
FILE SIZE: 4.1K
FIRST SEEN: 2025-11-30 21:23:56
APPEARS ON: 1 disk(s)
FILE HASH
4be2572f37e08dd98699b67773d6c5bdc3191bd6150f5010e7bc3577c597435a
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 HULP 31 1 | STATES | PRG | DuncanTwain | 17 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 22 08 73 00 4D 58 B2 35 31 3A 8F 20 54 4F |..".s.MX.51:. TO| 00000010: 54 41 4C 20 53 54 41 54 45 53 2F 43 41 50 49 54 |TAL STATES/CAPIT| 00000020: 41 4C 00 41 08 78 00 86 20 41 28 4D 58 29 2C 42 |AL.A.x.. A(MX),B| 00000030: 28 34 29 2C 43 24 28 4D 58 29 2C 53 24 28 4D 58 |(4),C$(MX),S$(MX| 00000040: 29 00 62 08 82 00 8F 20 53 45 54 20 55 50 20 53 |).b.... SET UP S| 00000050: 54 41 54 45 2F 43 41 50 49 54 41 4C 20 41 52 52 |TATE/CAPITAL ARR| 00000060: 41 59 00 80 08 8C 00 81 20 49 B2 31 A4 4D 58 3A |AY...... I.1.MX:| 00000070: 87 20 53 24 28 49 29 2C 43 24 28 49 29 3A 82 49 |. S$(I),C$(I):.I| 00000080: 00 9F 08 A0 00 81 20 49 B2 31 A4 4D 58 3A 41 28 |...... I.1.MX:A(| 00000090: 49 29 B2 30 3A 82 49 3A 47 B2 30 3A 4E B2 30 00 |I).0:.I:G.0:N.0.| 000000A0: B5 08 A3 00 97 35 33 32 38 31 2C 32 3A 97 35 33 |.....53281,2:.53| 000000B0: 32 38 30 2C 36 00 E0 08 A5 00 99 22 93 11 1D 1D |280,6......"....| 000000C0: 1D 1D 1D 1D 1D 05 2A 2A 2A 53 54 41 54 45 53 20 |......***STATES | 000000D0: 41 4E 44 20 43 41 50 49 54 41 4C 53 2A 2A 2A 22 |AND CAPITALS***"| 000000E0: 00 10 09 AA 00 99 22 11 11 11 20 20 20 54 48 49 |......"... THI| 000000F0: 53 20 49 53 20 41 20 47 41 4D 45 20 57 48 45 52 |S IS A GAME WHER| 00000100: 45 20 59 4F 55 20 41 52 45 20 41 53 4B 45 44 22 |E YOU ARE ASKED"| 00000110: 00 38 09 AC 00 99 22 11 20 20 20 20 20 20 20 20 |.8....". | 00000120: 20 54 4F 20 4D 41 54 43 48 20 55 50 20 54 48 45 | TO MATCH UP THE| 00000130: 20 50 52 4F 50 45 52 22 00 5F 09 AD 00 99 22 11 | PROPER"._....".| 00000140: 20 20 20 20 20 20 20 20 20 20 53 54 41 54 45 53 | STATES| 00000150: 20 41 4E 44 20 43 41 50 49 54 41 4C 53 2E 22 00 | AND CAPITALS.".| 00000160: 84 09 B0 00 99 22 11 11 11 11 53 45 4C 45 43 54 |....."....SELECT| 00000170: 20 59 4F 55 52 20 54 59 50 45 20 4F 46 20 47 41 | YOUR TYPE OF GA| 00000180: 4D 45 2E 22 00 AB 09 B1 00 99 22 11 31 20 2D 20 |ME."......".1 - | 00000190: 4D 55 4C 54 49 50 4C 45 20 43 48 4F 49 43 45 20 |MULTIPLE CHOICE | 000001A0: 51 55 45 53 54 49 4F 4E 53 2E 22 00 CB 09 B2 00 |QUESTIONS.".....| 000001B0: 99 22 11 32 20 2D 20 46 49 4C 4C 2D 49 4E 20 54 |.".2 - FILL-IN T| 000001C0: 48 45 20 42 4C 41 4E 4B 53 2E 22 00 E1 09 B4 00 |HE BLANKS.".....| 000001D0: A1 5A 24 3A 8B 20 5A 24 B2 22 22 20 A7 20 31 38 |.Z$:. Z$."" . 18| 000001E0: 30 00 F4 09 BE 00 8B 20 5A 24 B2 22 32 22 20 A7 |0...... Z$."2" .| 000001F0: 20 32 33 30 00 08 0A C3 00 8B 20 5A 24 B3 B1 22 | 230...... Z$.."| 00000200: 31 22 20 A7 20 31 38 30 00 30 0A C8 00 99 22 93 |1" . 180.0....".| 00000210: 1D 1D 1D 1D 1D 1D 1D 1D 2A 2A 2A 20 4D 55 4C 54 |........*** MULT| 00000220: 49 50 4C 45 20 43 48 4F 49 43 45 20 2A 2A 2A 22 |IPLE CHOICE ***"| 00000230: 00 5D 0A C9 00 99 22 11 11 41 4E 53 57 45 52 20 |.]...."..ANSWER | 00000240: 54 48 45 20 51 55 45 53 54 49 4F 4E 53 20 41 53 |THE QUESTIONS AS| 00000250: 20 31 2C 32 2C 33 20 4F 52 20 34 2E 22 00 90 0A | 1,2,3 OR 4."...| 00000260: D2 00 58 B2 31 3A 99 22 11 54 4F 20 53 54 4F 50 |..X.1:.".TO STOP| 00000270: 20 54 48 45 20 47 41 4D 45 2C 20 41 4E 53 57 45 | THE GAME, ANSWE| 00000280: 52 20 57 49 54 48 20 30 2E 22 3A 89 20 32 35 30 |R WITH 0.":. 250| 00000290: 00 B4 0A E6 00 99 22 93 1D 1D 1D 1D 1D 1D 1D 1D |......".........| 000002A0: 1D 1D 1D 1D 2A 2A 2A 20 46 49 4C 4C 2D 49 4E 20 |....*** FILL-IN | 000002B0: 2A 2A 2A 22 00 DE 0A E7 00 99 22 11 11 59 4F 55 |***"......"..YOU| 000002C0: 20 4D 55 53 54 20 53 50 45 4C 4C 20 54 48 45 20 | MUST SPELL THE | 000002D0: 57 4F 52 44 20 45 58 41 43 54 4C 59 2E 22 00 10 |WORD EXACTLY."..| 000002E0: 0B E8 00 99 22 11 49 46 20 54 48 45 20 57 4F 52 |....".IF THE WOR| 000002F0: 44 20 42 45 47 49 4E 53 20 57 49 54 48 20 12 53 |D BEGINS WITH .S| 00000300: 41 49 4E 54 92 20 55 53 45 20 12 53 54 92 2E 22 |AINT. USE .ST.."| 00000310: 00 42 0B F0 00 58 B2 32 3A 99 22 11 54 4F 20 53 |.B...X.2:.".TO S| 00000320: 54 4F 50 20 54 48 45 20 47 41 4D 45 2C 20 41 4E |TOP THE GAME, AN| 00000330: 53 57 45 52 20 57 49 54 48 20 41 4E 20 27 30 27 |SWER WITH AN '0'| 00000340: 2E 22 00 64 0B FA 00 99 22 11 11 11 57 4F 55 4C |.".d...."...WOUL| 00000350: 44 20 59 4F 55 20 4C 49 4B 45 20 54 4F 20 47 55 |D YOU LIKE TO GU| 00000360: 45 53 53 22 00 77 0B FF 00 99 22 11 31 20 2D 20 |ESS".w....".1 - | 00000370: 53 54 41 54 45 53 22 00 8C 0B 04 01 99 22 11 32 |STATES"......".2| 00000380: 20 2D 20 43 41 50 49 54 41 4C 53 22 00 A2 0B 09 | - CAPITALS"....| 00000390: 01 A1 5A 24 3A 8B 20 5A 24 B2 22 22 20 A7 20 32 |..Z$:. Z$."" . 2| 000003A0: 36 35 00 BF 0B 18 01 59 B2 32 3A 8B 20 5A 24 B2 |65.....Y.2:. Z$.| 000003B0: 22 32 22 20 A7 20 59 B2 31 3A 89 20 33 31 30 00 |"2" . Y.1:. 310.| 000003C0: D3 0B 1D 01 8B 20 5A 24 B3 B1 22 31 22 20 A7 20 |..... Z$.."1" . | 000003D0: 32 36 35 00 E6 0B 36 01 8F 20 50 49 43 4B 20 41 |265...6.. PICK A| 000003E0: 20 53 54 41 54 45 00 12 0C 40 01 81 20 49 B2 31 | STATE...@.. I.1| 000003F0: A4 31 30 3A 52 B2 B5 28 BB 28 31 29 AC 4D 58 29 |.10:R..(.(1).MX)| 00000400: AA 31 3A 8B 20 41 28 52 29 B3 B1 32 20 A7 20 34 |.1:. A(R)..2 . 4| 00000410: 30 30 00 19 0C 5E 01 82 49 00 3C 0C 68 01 8F 20 |00...^..I.<.h.. | 00000420: 44 4F 4E 27 54 20 57 41 53 54 45 20 54 49 4D 45 |DON'T WASTE TIME| 00000430: 20 50 49 43 4B 49 4E 47 20 4F 4E 45 00 59 0C 72 | PICKING ONE.Y.r| 00000440: 01 81 20 52 B2 31 A4 4D 58 3A 8B 20 41 28 52 29 |.. R.1.MX:. A(R)| 00000450: B3 B1 32 20 A7 20 34 30 30 00 65 0C 86 01 82 52 |..2 . 400.e....R| 00000460: 3A 89 38 35 30 00 96 0C 90 01 52 50 B2 30 3A 8B |:.850.....RP.0:.| 00000470: 20 41 28 52 29 B2 31 20 A7 20 99 22 93 54 52 59 | A(R).1 . .".TRY| 00000480: 20 54 48 49 53 20 4F 4E 45 20 41 47 41 49 4E 2E | THIS ONE AGAIN.| 00000490: 22 3A 52 50 B2 31 00 A6 0C 9A 01 8B 20 58 B2 31 |":RP.1...... X.1| 000004A0: 20 A7 20 35 32 30 00 C4 0C A4 01 8F 20 41 53 4B | . 520...... ASK| 000004B0: 20 46 4F 52 20 46 49 4C 4C 2D 49 4E 20 41 4E 53 | FOR FILL-IN ANS| 000004C0: 57 45 52 53 00 DA 0C AE 01 8D 20 39 33 35 3A 8B |WERS...... 935:.| 000004D0: 20 59 B2 32 20 A7 20 34 37 30 00 E7 0C B8 01 41 | Y.2 . 470.....A| 000004E0: 24 B2 43 24 28 52 29 00 19 0D C2 01 99 22 57 48 |$.C$(R)......"WH| 000004F0: 41 54 20 49 53 20 54 48 45 20 43 41 50 49 54 41 |AT IS THE CAPITA| 00000500: 4C 20 4F 46 20 12 22 3B 53 24 28 52 29 3B 22 92 |L OF .";S$(R);".| 00000510: 3F 11 22 3A 89 20 34 39 30 00 54 0D D6 01 41 24 |?.":. 490.T...A$| 00000520: B2 53 24 28 52 29 3A 99 22 12 22 3B 43 24 28 52 |.S$(R):.".";C$(R| 00000530: 29 3B 22 92 20 49 53 20 54 48 45 20 43 41 50 49 |);". IS THE CAPI| 00000540: 54 41 4C 20 4F 46 20 57 48 41 54 20 53 54 41 54 |TAL OF WHAT STAT| 00000550: 45 3F 11 22 00 65 0D EA 01 85 22 A0 A0 A0 9D 9D |E?.".e....".....| 00000560: 9D 22 3B 5A 24 00 80 0D EF 01 8B 20 5A 24 B2 22 |.";Z$...... Z$."| 00000570: 54 22 20 A7 20 8D 20 39 37 35 3A 89 20 38 33 30 |T" . . 975:. 830| 00000580: 00 93 0D F4 01 8B 20 5A 24 B2 22 30 22 20 A7 20 |...... Z$."0" . | 00000590: 38 31 30 00 A6 0D F9 01 8B 20 5A 24 B2 22 A0 22 |810...... Z$."."| 000005A0: 20 A7 20 34 39 30 00 BA 0D FE 01 8B 20 5A 24 B2 | . 490...... Z$.| 000005B0: 41 24 20 A7 20 89 20 37 37 30 00 C4 0D 03 02 89 |A$ . . 770......| 000005C0: 20 37 36 30 00 E2 0D 08 02 8F 20 41 53 4B 20 46 | 760...... ASK F| 000005D0: 4F 52 20 4D 55 4C 54 49 50 4C 45 20 43 48 4F 49 |OR MULTIPLE CHOI| 000005E0: 43 45 00 05 0E 12 02 8F 20 54 48 45 20 56 41 4C |CE...... THE VAL| 000005F0: 55 45 20 4F 46 20 43 20 49 53 20 54 48 45 20 41 |UE OF C IS THE A| 00000600: 4E 53 57 45 52 00 17 0E 1C 02 43 B2 B5 28 BB 28 |NSWER.....C..(.(| 00000610: 31 29 AC 34 29 AA 31 00 3B 0E 26 02 8F 20 50 49 |1).4).1.;.&.. PI| 00000620: 43 4B 20 34 20 53 54 41 54 45 53 20 46 4F 52 20 |CK 4 STATES FOR | 00000630: 54 48 45 20 43 48 4F 49 43 45 53 00 5B 0E 30 02 |THE CHOICES.[.0.| 00000640: 81 49 B2 31 A4 34 3A 42 28 49 29 B2 B5 28 BB 28 |.I.1.4:B(I)..(.(| 00000650: 31 29 AC 4D 58 29 AA 31 3A 82 49 00 66 0E 4E 02 |1).MX).1:.I.f.N.| 00000660: 42 28 43 29 B2 52 00 88 0E 58 02 8F 20 4D 41 4B |B(C).R...X.. MAK| 00000670: 45 20 53 55 52 45 20 4E 4F 4E 45 20 41 52 45 20 |E SURE NONE ARE | 00000680: 54 48 45 20 53 41 4D 45 00 B6 0E 62 02 8B 20 42 |THE SAME...b.. B| 00000690: 28 31 29 B2 42 28 32 29 20 B0 20 42 28 31 29 B2 |(1).B(2) . B(1).| 000006A0: 42 28 33 29 20 B0 20 42 28 31 29 B2 42 28 34 29 |B(3) . B(1).B(4)| 000006B0: 20 A7 20 35 36 30 00 E4 0E 6C 02 8B 20 42 28 32 | . 560...l.. B(2| 000006C0: 29 B2 42 28 33 29 20 B0 20 42 28 32 29 B2 42 28 |).B(3) . B(2).B(| 000006D0: 34 29 20 B0 20 42 28 33 29 B2 42 28 34 29 20 A7 |4) . B(3).B(4) .| 000006E0: 20 35 36 30 00 FA 0E 76 02 8D 20 39 33 35 3A 8B | 560...v.. 935:.| 000006F0: 20 59 B2 32 20 A7 20 36 39 30 00 16 0F 80 02 8F | Y.2 . 690......| 00000700: 20 50 52 49 4E 54 20 43 41 50 49 54 41 4C 20 43 | PRINT CAPITAL C| 00000710: 48 4F 49 43 45 53 00 49 0F 8A 02 99 22 57 48 41 |HOICES.I...."WHA| 00000720: 54 20 49 53 20 54 48 45 20 43 41 50 49 54 41 4C |T IS THE CAPITAL| 00000730: 20 4F 46 20 12 22 3B 53 24 28 52 29 3B 22 3F 22 | OF .";S$(R);"?"| 00000740: 3A 41 24 B2 43 24 28 52 29 00 71 0F 94 02 99 22 |:A$.C$(R).q...."| 00000750: 11 11 31 2E 22 3B 43 24 28 42 28 31 29 29 3B A3 |..1.";C$(B(1));.| 00000760: 32 30 29 3B 22 33 2E 22 3B 43 24 28 42 28 33 29 |20);"3.";C$(B(3)| 00000770: 29 00 9E 0F 9E 02 99 22 11 32 2E 22 3B 43 24 28 |)......".2.";C$(| 00000780: 42 28 32 29 29 3B A3 32 30 29 3B 22 34 2E 22 3B |B(2));.20);"4.";| 00000790: 43 24 28 42 28 34 29 29 3A 89 20 37 33 30 00 B8 |C$(B(4)):. 730..| 000007A0: 0F B2 02 8F 20 50 52 49 4E 54 20 53 54 41 54 45 |.... PRINT STATE| 000007B0: 20 43 48 4F 49 43 45 53 00 F3 0F BC 02 99 20 22 | CHOICES...... "| 000007C0: 12 22 3B 43 24 28 52 29 3B 22 92 20 49 53 20 54 |.";C$(R);". IS T| 000007D0: 48 45 20 43 41 50 49 54 41 4C 20 4F 46 20 57 48 |HE CAPITAL OF WH| 000007E0: 41 54 20 53 54 41 54 45 3F 22 3A 41 24 B2 53 24 |AT STATE?":A$.S$| 000007F0: 28 52 29 00 1B 10 C6 02 99 22 11 11 31 2E 22 3B |(R)......"..1.";| 00000800: 53 24 28 42 28 31 29 29 3B A3 32 30 29 3B 22 33 |S$(B(1));.20);"3| 00000810: 2E 22 3B 53 24 28 42 28 33 29 29 00 42 10 D0 02 |.";S$(B(3)).B...| 00000820: 99 22 11 32 2E 22 3B 53 24 28 42 28 32 29 29 3B |.".2.";S$(B(2));| 00000830: A3 32 30 29 3B 22 34 2E 22 3B 53 24 28 42 28 34 |.20);"4.";S$(B(4| 00000840: 29 29 00 59 10 DA 02 A1 20 5A 24 3A 8B 20 5A 24 |)).Y.... Z$:. Z$| 00000850: B2 22 22 20 89 20 37 33 30 00 6C 10 DE 02 8B 20 |."" . 730.l.... | 00000860: 5A 24 B2 22 30 22 20 A7 20 38 31 30 00 78 10 DF |Z$."0" . 810.x..| 00000870: 02 5A B2 C5 28 5A 24 29 00 8E 10 E4 02 8B 20 5A |.Z..(Z$)...... Z| 00000880: B3 31 20 B0 20 5A B1 34 20 A7 20 37 33 30 00 9E |.1 . Z.4 . 730..| 00000890: 10 EE 02 8B 20 5A B2 43 20 A7 20 37 37 30 00 CD |.... Z.C . 770..| 000008A0: 10 F8 02 41 28 52 29 B2 31 3A 99 22 11 12 57 52 |...A(R).1:."..WR| 000008B0: 4F 4E 47 92 2C 20 49 54 20 57 41 53 20 12 22 3B |ONG., IT WAS .";| 000008C0: 41 24 3B 22 92 2E 22 3A 89 20 37 39 30 00 DE 10 |A$;"..":. 790...| 000008D0: 02 03 41 28 52 29 B2 32 3A 4E B2 4E AA 31 00 1B |..A(R).2:N.N.1..| 000008E0: 11 0C 03 99 22 11 12 52 49 47 48 54 92 21 2C 20 |...."..RIGHT.!, | 000008F0: 49 54 20 57 41 53 20 12 22 3B 41 24 3B 22 92 2E |IT WAS .";A$;"..| 00000900: 22 3A 99 22 11 59 4F 55 20 48 41 56 45 22 3B 4E |":.".YOU HAVE";N| 00000910: 3B 22 43 4F 52 52 45 43 54 2E 22 00 33 11 16 03 |;"CORRECT.".3...| 00000920: 81 20 4C B2 31 A4 31 32 30 30 3A 82 4C 3A 47 B2 |. L.1.1200:.L:G.| 00000930: 47 AA 31 00 44 11 20 03 8B 20 4E B3 4D 58 20 A7 |G.1.D. .. N.MX .| 00000940: 20 33 31 30 00 52 11 25 03 8D 39 35 30 3A 89 38 | 310.R.%..950:.8| 00000950: 37 30 00 75 11 2A 03 99 22 11 44 4F 20 59 4F 55 |70.u.*..".DO YOU| 00000960: 20 57 41 4E 54 20 54 4F 20 53 54 4F 50 3F 20 28 | WANT TO STOP? (| 00000970: 59 2F 4E 29 22 00 8B 11 2F 03 A1 5A 24 3A 8B 20 |Y/N)".../..Z$:. | 00000980: 5A 24 B2 22 22 20 A7 20 38 31 35 00 A1 11 34 03 |Z$."" . 815...4.| 00000990: 8B 5A 24 B2 22 59 22 A7 8D 39 35 30 3A 89 38 37 |.Z$."Y"..950:.87| 000009A0: 30 00 B5 11 39 03 8B 20 5A 24 B3 B1 22 4E 22 20 |0...9.. Z$.."N" | 000009B0: A7 20 38 31 35 00 BE 11 3E 03 99 22 93 22 00 E5 |. 815...>.."."..| 000009C0: 11 43 03 99 22 49 20 57 49 4C 4C 20 52 45 50 45 |.C.."I WILL REPE| 000009D0: 41 54 20 4D 59 20 51 55 45 53 54 49 4F 4E 2E 22 |AT MY QUESTION."| 000009E0: 3A 52 50 B2 31 00 F7 11 48 03 91 20 58 20 89 20 |:RP.1...H.. X . | 000009F0: 36 33 30 2C 34 33 30 00 23 12 66 03 99 22 11 11 |630,430.#.f.."..| 00000A00: 57 4F 55 4C 44 20 59 4F 55 20 4C 49 4B 45 20 54 |WOULD YOU LIKE T| 00000A10: 4F 20 54 52 59 20 41 47 41 49 4E 3F 20 28 59 2F |O TRY AGAIN? (Y/| 00000A20: 4E 29 22 00 39 12 6B 03 A1 5A 24 3A 8B 20 5A 24 |N)".9.k..Z$:. Z$| 00000A30: B2 22 22 20 A7 20 38 37 35 00 54 12 70 03 8B 20 |."" . 875.T.p.. | 00000A40: 5A 24 B2 22 59 22 20 A7 20 99 22 93 22 3A 20 89 |Z$."Y" . .".": .| 00000A50: 20 31 36 30 00 68 12 71 03 8B 20 5A 24 B3 B1 22 | 160.h.q.. Z$.."| 00000A60: 4E 22 20 A7 20 38 37 35 00 8E 12 72 03 99 20 22 |N" . 875...r.. "| 00000A70: 93 22 3B A3 39 29 3B 22 54 48 41 4E 4B 20 59 4F |.";.9);"THANK YO| 00000A80: 55 20 46 4F 52 20 50 4C 41 59 49 4E 47 22 00 B1 |U FOR PLAYING"..| 00000A90: 12 73 03 99 20 A3 31 30 29 3B 22 11 12 53 54 41 |.s.. .10);"..STA| 00000AA0: 54 45 53 20 41 4E 44 20 43 41 50 49 54 41 4C 53 |TES AND CAPITALS| 00000AB0: 22 00 D4 12 75 03 97 35 33 32 38 30 2C 31 34 3A |"...u..53280,14:| 00000AC0: 97 35 33 32 38 31 2C 36 3A 99 22 93 22 3A 89 35 |.53281,6:.".":.5| 00000AD0: 30 30 30 30 00 EB 12 A7 03 8F 20 43 48 45 43 4B |0000...... CHECK| 00000AE0: 20 46 4F 52 20 52 45 50 45 41 54 00 03 13 AC 03 | FOR REPEAT.....| 00000AF0: 99 22 11 22 3A 8B 20 52 50 B3 B1 31 20 A7 20 99 |.".":. RP..1 . .| 00000B00: 22 93 22 00 09 13 B1 03 8E 00 1B 13 B6 03 8F 20 |"."............ | 00000B10: 50 52 49 4E 54 20 53 43 4F 52 45 00 38 13 B7 03 |PRINT SCORE.8...| 00000B20: 8B 20 4E B2 30 20 B0 20 47 B2 30 20 A7 20 50 B2 |. N.0 . G.0 . P.| 00000B30: 30 3A 20 89 20 39 35 35 00 4B 13 B8 03 50 B2 B5 |0: . 955.K...P..| 00000B40: 28 28 4E AD 47 29 AC 31 30 30 29 00 68 13 BB 03 |((N.G).100).h...| 00000B50: 99 22 93 59 4F 55 52 20 53 43 4F 52 45 20 49 53 |.".YOUR SCORE IS| 00000B60: 22 3B 50 3B 22 25 2E 22 00 93 13 C0 03 99 22 11 |";P;"%."......".| 00000B70: 59 4F 55 20 48 41 56 45 22 3B 4E 3B 22 52 49 47 |YOU HAVE";N;"RIG| 00000B80: 48 54 20 49 4E 22 3B 47 3B 22 47 55 45 53 53 45 |HT IN";G;"GUESSE| 00000B90: 53 2E 22 00 99 13 CA 03 8E 00 AA 13 E8 03 8F 20 |S."............ | 00000BA0: 2A 2A 2A 44 41 54 41 2A 2A 2A 00 F7 13 F2 03 83 |***DATA***......| 00000BB0: 41 4C 41 42 41 4D 41 2C 4D 4F 4E 54 47 4F 4D 45 |ALABAMA,MONTGOME| 00000BC0: 52 59 2C 41 4C 41 53 4B 41 2C 4A 55 4E 45 41 55 |RY,ALASKA,JUNEAU| 00000BD0: 2C 41 52 49 5A 4F 4E 41 2C 50 48 4F 45 4E 49 58 |,ARIZONA,PHOENIX| 00000BE0: 2C 41 52 4B 41 4E 53 41 53 2C 22 4C 49 54 54 4C |,ARKANSAS,"LITTL| 00000BF0: 45 20 52 4F 43 4B 22 00 40 14 FC 03 83 43 41 4C |E ROCK".@....CAL| 00000C00: 49 46 4F 52 4E 49 41 2C 53 41 43 52 41 4D 45 4E |IFORNIA,SACRAMEN| 00000C10: 54 4F 2C 43 4F 4C 4F 52 41 44 4F 2C 44 45 4E 56 |TO,COLORADO,DENV| 00000C20: 45 52 2C 43 4F 4E 4E 45 43 54 49 43 55 54 2C 48 |ER,CONNECTICUT,H| 00000C30: 41 52 54 46 4F 52 44 2C 44 45 4C 41 57 41 52 45 |ARTFORD,DELAWARE| 00000C40: 00 84 14 06 04 83 44 4F 56 45 52 2C 22 44 49 53 |......DOVER,"DIS| 00000C50: 54 2E 20 4F 46 20 43 4F 4C 55 4D 2E 22 2C 57 41 |T. OF COLUM.",WA| 00000C60: 53 48 49 4E 47 54 4F 4E 2C 46 4C 4F 52 49 44 41 |SHINGTON,FLORIDA| 00000C70: 2C 54 41 4C 4C 41 48 41 53 53 45 45 2C 47 45 4F |,TALLAHASSEE,GEO| 00000C80: 52 47 49 41 00 CA 14 10 04 83 41 54 4C 41 4E 54 |RGIA......ATLANT| 00000C90: 41 2C 48 41 57 41 49 49 2C 48 4F 4E 4F 4C 55 4C |A,HAWAII,HONOLUL| 00000CA0: 55 2C 49 44 41 48 4F 2C 42 4F 49 53 45 2C 49 4C |U,IDAHO,BOISE,IL| 00000CB0: 4C 49 4E 4F 49 53 2C 53 50 52 49 4E 47 46 49 45 |LINOIS,SPRINGFIE| 00000CC0: 4C 44 2C 49 4E 44 49 41 4E 41 00 0F 15 1A 04 83 |LD,INDIANA......| 00000CD0: 49 4E 44 49 41 4E 41 50 4F 4C 49 53 2C 49 4F 57 |INDIANAPOLIS,IOW| 00000CE0: 41 2C 22 44 45 53 20 4D 4F 49 4E 45 53 22 2C 4B |A,"DES MOINES",K| 00000CF0: 41 4E 53 41 53 2C 54 4F 50 45 4B 41 2C 4B 45 4E |ANSAS,TOPEKA,KEN| 00000D00: 54 55 43 4B 59 2C 46 52 41 4E 4B 46 4F 52 54 00 |TUCKY,FRANKFORT.| 00000D10: 5B 15 24 04 83 4C 4F 55 49 53 49 41 4E 41 2C 22 |[.$..LOUISIANA,"| 00000D20: 42 41 54 4F 4E 20 52 4F 55 47 45 22 2C 4D 41 49 |BATON ROUGE",MAI| 00000D30: 4E 45 2C 41 55 47 55 53 54 41 2C 4D 41 52 59 4C |NE,AUGUSTA,MARYL| 00000D40: 41 4E 44 2C 41 4E 4E 41 50 4F 4C 49 53 2C 4D 41 |AND,ANNAPOLIS,MA| 00000D50: 53 53 41 43 48 55 53 45 54 54 53 00 A0 15 2E 04 |SSACHUSETTS.....| 00000D60: 83 42 4F 53 54 4F 4E 2C 4D 49 43 48 49 47 41 4E |.BOSTON,MICHIGAN| 00000D70: 2C 4C 41 4E 53 49 4E 47 2C 4D 49 4E 4E 45 53 4F |,LANSING,MINNESO| 00000D80: 54 41 2C 22 53 54 20 50 41 55 4C 22 2C 4D 49 53 |TA,"ST PAUL",MIS| 00000D90: 53 49 53 53 49 50 50 49 2C 4A 41 43 4B 53 4F 4E |SISSIPPI,JACKSON| 00000DA0: 00 E6 15 38 04 83 4D 49 53 53 4F 55 52 49 2C 22 |...8..MISSOURI,"| 00000DB0: 4A 45 46 46 45 52 53 4F 4E 20 43 49 54 59 22 2C |JEFFERSON CITY",| 00000DC0: 4D 4F 4E 54 41 4E 41 2C 48 45 4C 45 4E 41 2C 4E |MONTANA,HELENA,N| 00000DD0: 45 42 52 41 53 4B 41 2C 4C 49 4E 43 4F 4C 4E 2C |EBRASKA,LINCOLN,| 00000DE0: 4E 45 56 41 44 41 00 33 16 42 04 83 22 43 41 52 |NEVADA.3.B.."CAR| 00000DF0: 53 4F 4E 20 43 49 54 59 22 2C 22 4E 45 57 20 48 |SON CITY","NEW H| 00000E00: 41 4D 50 53 48 49 52 45 22 2C 43 4F 4E 43 4F 52 |AMPSHIRE",CONCOR| 00000E10: 44 2C 22 4E 45 57 20 4A 45 52 53 45 59 22 2C 54 |D,"NEW JERSEY",T| 00000E20: 52 45 4E 54 4F 4E 2C 22 4E 45 57 20 4D 45 58 49 |RENTON,"NEW MEXI| 00000E30: 43 4F 22 00 6E 16 4C 04 83 22 53 41 4E 54 41 20 |CO".n.L.."SANTA | 00000E40: 46 45 22 2C 22 4E 45 57 20 59 4F 52 4B 22 2C 41 |FE","NEW YORK",A| 00000E50: 4C 42 41 4E 59 2C 22 4E 4F 52 54 48 20 43 41 52 |LBANY,"NORTH CAR| 00000E60: 4F 4C 49 4E 41 22 2C 52 41 4C 45 49 47 48 00 99 |OLINA",RALEIGH..| 00000E70: 16 51 04 83 22 4E 4F 52 54 48 20 44 41 4B 4F 54 |.Q.."NORTH DAKOT| 00000E80: 41 22 2C 42 49 53 4D 41 52 43 4B 2C 4F 48 49 4F |A",BISMARCK,OHIO| 00000E90: 2C 43 4F 4C 55 4D 42 55 53 00 DC 16 56 04 83 4F |,COLUMBUS...V..O| 00000EA0: 4B 4C 41 48 4F 4D 41 2C 22 4F 4B 4C 41 48 4F 4D |KLAHOMA,"OKLAHOM| 00000EB0: 41 20 43 49 54 59 22 2C 4F 52 45 47 4F 4E 2C 53 |A CITY",OREGON,S| 00000EC0: 41 4C 45 4D 2C 50 45 4E 4E 53 59 4C 56 41 4E 49 |ALEM,PENNSYLVANI| 00000ED0: 41 2C 48 41 52 52 49 53 42 55 52 47 00 24 17 60 |A,HARRISBURG.$.`| 00000EE0: 04 83 22 52 48 4F 44 45 20 49 53 4C 41 4E 44 22 |.."RHODE ISLAND"| 00000EF0: 2C 50 52 4F 56 49 44 45 4E 43 45 2C 22 53 4F 55 |,PROVIDENCE,"SOU| 00000F00: 54 48 20 43 41 52 4F 4C 49 4E 41 22 2C 43 4F 4C |TH CAROLINA",COL| 00000F10: 55 4D 42 49 41 2C 22 53 4F 55 54 48 20 44 41 4B |UMBIA,"SOUTH DAK| 00000F20: 4F 54 41 22 00 6F 17 6A 04 83 50 49 45 52 52 45 |OTA".o.j..PIERRE| 00000F30: 2C 54 45 4E 4E 45 53 53 45 45 2C 4E 41 53 48 56 |,TENNESSEE,NASHV| 00000F40: 49 4C 4C 45 2C 54 45 58 41 53 2C 41 55 53 54 49 |ILLE,TEXAS,AUSTI| 00000F50: 4E 2C 55 54 41 48 2C 22 53 41 4C 54 20 4C 41 4B |N,UTAH,"SALT LAK| 00000F60: 45 20 43 49 54 59 22 2C 56 45 52 4D 4F 4E 54 00 |E CITY",VERMONT.| 00000F70: B4 17 74 04 83 4D 4F 4E 54 50 45 4C 49 45 52 2C |..t..MONTPELIER,| 00000F80: 56 49 52 47 49 4E 49 41 2C 52 49 43 48 4D 4F 4E |VIRGINIA,RICHMON| 00000F90: 44 2C 57 41 53 48 49 4E 47 54 4F 4E 2C 4F 4C 59 |D,WASHINGTON,OLY| 00000FA0: 4D 50 49 41 2C 22 57 45 53 54 20 56 49 52 47 49 |MPIA,"WEST VIRGI| 00000FB0: 4E 49 41 22 00 E7 17 7E 04 83 43 48 41 52 4C 45 |NIA"...~..CHARLE| 00000FC0: 53 54 4F 4E 2C 57 49 53 43 4F 4E 53 49 4E 2C 4D |STON,WISCONSIN,M| 00000FD0: 41 44 49 53 4F 4E 2C 57 59 4F 4D 49 4E 47 2C 43 |ADISON,WYOMING,C| 00000FE0: 48 45 59 45 4E 4E 45 00 25 18 50 C3 4B B2 36 33 |HEYENNE.%.P.K.63| 00000FF0: 31 3A 41 24 B2 22 43 36 34 20 50 41 4B 22 3A 97 |1:A$."C64 PAK":.| 00001000: 4B 2C 37 36 3A 97 4B AA 31 2C 32 30 37 3A 97 4B |K,76:.K.1,207:.K| 00001010: AA 32 2C 36 35 3A 97 4B AA 33 2C 33 36 3A 97 4B |.2,65:.K.3,36:.K| 00001020: AA 34 2C 34 34 00 5C 18 38 C7 97 4B AA 35 2C 35 |.4,44.\.8..K.5,5| 00001030: 36 3A 97 4B AA 36 2C 31 33 3A 97 4B AA 37 2C 38 |6:.K.6,13:.K.7,8| 00001040: 32 3A 97 4B AA 38 2C 32 31 33 3A 97 4B AA 39 2C |2:.K.8,213:.K.9,| 00001050: 31 33 3A 97 31 39 38 2C 31 30 3A 80 00 00 00 2E |13:.198,10:.....|
..".S.MX.51:. TOTAL STATES/CAPITAL.A.X..
A(MX),B(4),C$(MX),S$(MX).B.... SET UP S
TATE/CAPITAL ARRAY...... I.1.MX:. S$(I),
C$(I):.I... .. I.1.MX:A(I).0:.I:G.0:N.0.
.....53281,2:.53280,6......"..........**
*STATES AND CAPITALS***"......"... THI
S IS A GAME WHERE YOU ARE ASKED".8....".
TO MATCH UP THE PROPER"._....".
STATES AND CAPITALS."......"..
..SELECT YOUR TYPE OF GAME."......".1 -
MULTIPLE CHOICE QUESTIONS.".K....".2 - F
ILL-IN THE BLANKS."......Z$:. Z$."" . 18
0...... Z$."2" . 230...C.. Z$.."1" . 180
.0.H..".........*** MULTIPLE CHOICE ***"
.].I.."..ANSWER THE QUESTIONS AS 1,2,3 O
R 4."...R.X.1:.".TO STOP THE GAME, ANSWE
R WITH 0.":. 250......".............***
FILL-IN ***"......"..YOU MUST SPELL THE
WORD EXACTLY."......".IF THE WORD BEGINS
WITH .SAINT. USE .ST..".B...X.2:.".TO S
TOP THE GAME, ANSWER WITH AN '0'.".D....
"...WOULD YOU LIKE TO GUESS".W....".1 -
STATES"......".2 - CAPITALS"......Z$:. Z
$."" . 265.....Y.2:. Z$."2" . Y.1:. 310.
S.... Z$.."1" . 265...6.. PICK A STATE..
.@.. I.1.10:R..(.(1).MX).1:. A(R)..2 . 4
00...^..I.<.H.. DON'T WASTE TIME PICKING
ONE.Y.R.. R.1.MX:. A(R)..2 . 400.E....R
:.850.....RP.0:. A(R).1 . .".TRY THIS ON
E AGAIN.":RP.1...... X.1 . 520.D.... ASK
FOR FILL-IN ANSWERS.Z.... 935:. Y.2 . 4
70.....A$.C$(R)...B.."WHAT IS THE CAPITA
L OF .";S$(R);".?.":. 490.T.V.A$.S$(R):.
".";C$(R);". IS THE CAPITAL OF WHAT STAT
E?.".E...." ...";Z$...... Z$."T" . . 9
75:. 830...... Z$."0" . 810...... Z$." "
. 490...... Z$.A$ . . 770.D.... 760....
.. ASK FOR MULTIPLE CHOICE...... THE VAL
UE OF C IS THE ANSWER.....C..(.(1).4).1.
;.&.. PICK 4 STATES FOR THE CHOICES.[.0.
.I.1.4:B(I)..(.(1).MX).1:.I.F.N.B(C).R..
.X.. MAKE SURE NONE ARE THE SAME...B.. B
(1).B(2) . B(1).B(3) . B(1).B(4) . 560..
.L.. B(2).B(3) . B(2).B(4) . B(3).B(4) .
560...V.. 935:. Y.2 . 690...... PRINT C
APITAL CHOICES.I...."WHAT IS THE CAPITAL
OF .";S$(R);"?":A$.C$(R).Q...."..1.";C$
(B(1));.20);"3.";C$(B(3))......".2.";C$(
B(2));.20);"4.";C$(B(4)):. 730...... PRI
NT STATE CHOICES...... ".";C$(R);". IS T
HE CAPITAL OF WHAT STATE?":A$.S$(R)...F.
."..1.";S$(B(1));.20);"3.";S$(B(3)).B.P.
.".2.";S$(B(2));.20);"4.";S$(B(4)).Y.Z..
Z$:. Z$."" . 730.L.... Z$."0" . 810.X..
.Z.E(Z$)...... Z.1 . Z.4 . 730...... Z.C
. 770.M...A(R).1:."..WRONG., IT WAS .";
A$;"..":. 790.....A(R).2:N.N.1......"..R
IGHT.!, IT WAS .";A$;"..":.".YOU HAVE";N
;"CORRECT.".3.... L.1.1200:.L:G.G.1.D. .
. N.MX . 310.R.%..950:.870.U.*..".DO YOU
WANT TO STOP? (Y/N)".../..Z$:. Z$."" .
815...4..Z$."Y"..950:.870...9.. Z$.."N"
. 815...>.."."...C.."I WILL REPEAT MY QU
ESTION.":RP.1...H.. X . 630,430.#.F.."..
WOULD YOU LIKE TO TRY AGAIN? (Y/N)".9.K.
.Z$:. Z$."" . 875.T.P.. Z$."Y" . .".": .
160.H.Q.. Z$.."N" . 875...R.. ".";.9);"
THANK YOU FOR PLAYING"...S.. .10);"..STA
TES AND CAPITALS".T.U..53280,14:.53281,6
:.".":.50000...... CHECK FOR REPEAT.....
.".":. RP..1 . ."."............ PRINT SC
ORE.8.... N.0 . G.0 . P.0: . 955.K...P..
((N.G).100).H....".YOUR SCORE IS";P;"%."
......".YOU HAVE";N;"RIGHT IN";G;"GUESSE
S."...J........ ***DATA***......ALABAMA,
MONTGOMERY,ALASKA,JUNEAU,ARIZONA,PHOENIX
,ARKANSAS,"LITTLE ROCK".@....CALIFORNIA,
SACRAMENTO,COLORADO,DENVER,CONNECTICUT,H
ARTFORD,DELAWARE......DOVER,"DIST. OF CO
LUM.",WASHINGTON,FLORIDA,TALLAHASSEE,GEO
RGIA.J....ATLANTA,HAWAII,HONOLULU,IDAHO,
BOISE,ILLINOIS,SPRINGFIELD,INDIANA......
INDIANAPOLIS,IOWA,"DES MOINES",KANSAS,TO
PEKA,KENTUCKY,FRANKFORT.[.$..LOUISIANA,"
BATON ROUGE",MAINE,AUGUSTA,MARYLAND,ANNA
POLIS,MASSACHUSETTS. ....BOSTON,MICHIGAN
,LANSING,MINNESOTA,"ST PAUL",MISSISSIPPI
,JACKSON...8..MISSOURI,"JEFFERSON CITY",
MONTANA,HELENA,NEBRASKA,LINCOLN,NEVADA.3
.B.."CARSON CITY","NEW HAMPSHIRE",CONCOR
D,"NEW JERSEY",TRENTON,"NEW MEXICO".N.L.
."SANTA FE","NEW YORK",ALBANY,"NORTH CAR
OLINA",RALEIGH...Q.."NORTH DAKOTA",BISMA
RCK,OHIO,COLUMBUS...V..OKLAHOMA,"OKLAHOM
A CITY",OREGON,SALEM,PENNSYLVANIA,HARRIS
BURG.$.`.."RHODE ISLAND",PROVIDENCE,"SOU
TH CAROLINA",COLUMBIA,"SOUTH DAKOTA".O.J
..PIERRE,TENNESSEE,NASHVILLE,TEXAS,AUSTI
N,UTAH,"SALT LAKE CITY",VERMONT...T..MON
TPELIER,VIRGINIA,RICHMOND,WASHINGTON,OLY
MPIA,"WEST VIRGINIA"...~..CHARLESTON,WIS
CONSIN,MADISON,WYOMING,CHEYENNE.%.PCK.63
1:A$."C64 PAK":.K,76:.K.1,207:.K.2,65:.K
.3,36:.K.4,44.\.8G.K.5,56:.K.6,13:.K.7,8
2:.K.8,213:.K.9,13:.198,10:.....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL