BORN.US
FILE INFORMATION
FILENAME(S): BORN.US
FILE TYPE(S): PRG
FILE SIZE: 3.8K
FIRST SEEN: 2025-11-30 18:12:17
APPEARS ON: 1 disk(s)
FILE HASH
9b858490bd62331a651a2f379a88edb04a57a2d76b8c3dc64d1f9cf0ecb0e1bb
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOADSTAR 32 S 2 | BORN.US | PRG | Sailor, Ganheden | 28 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 27 08 05 00 8B 58 B2 30 A7 97 35 36 2C 36 |..'....X.0..56,6|
00000010: 34 3A 9C 3A 58 B2 31 3A 93 22 42 4F 52 4E 2E 4C |4:.:X.1:."BORN.L|
00000020: 4E 4B 22 2C 38 2C 31 00 2D 08 0A 00 3A 00 75 08 |NK",8,1.-...:.u.|
00000030: 14 00 4E 51 B2 33 35 3A 86 51 25 28 4E 51 29 2C |..NQ.35:.Q%(NQ),|
00000040: 51 24 28 4E 51 29 2C 41 24 28 4E 51 29 2C 41 42 |Q$(NQ),A$(NQ),AB|
00000050: 24 28 4E 51 29 2C 41 52 24 28 4E 51 29 2C 41 57 |$(NQ),AR$(NQ),AW|
00000060: 24 28 4E 51 29 2C 51 53 25 28 4E 51 29 2C 41 53 |$(NQ),QS%(NQ),AS|
00000070: 25 28 4E 51 29 00 84 08 15 00 86 20 50 25 28 32 |%(NQ)...... P%(2|
00000080: 39 2C 31 29 00 8A 08 1E 00 3A 00 92 08 28 00 51 |9,1).....:...(.Q|
00000090: B2 36 00 98 08 32 00 3A 00 9E 08 5A 00 3A 00 D3 |.6...2.:...Z.:..|
000000A0: 08 64 00 9F 32 2C 38 2C 32 2C 22 42 4F 52 4E 2E |.d..2,8,2,"BORN.|
000000B0: 58 59 22 3A 81 50 B2 31 A4 32 39 3A 84 32 2C 50 |XY":.P.1.29:.2,P|
000000C0: 25 28 50 2C 30 29 2C 50 25 28 50 2C 31 29 3A 82 |%(P,0),P%(P,1):.|
000000D0: 3A A0 32 00 FD 08 65 00 9F 32 2C 38 2C 32 2C 22 |:.2...e..2,8,2,"|
000000E0: 42 4F 52 4E 2E 51 55 45 53 54 49 4F 4E 53 22 3A |BORN.QUESTIONS":|
000000F0: 84 32 2C 44 44 3A 81 50 B2 31 A4 4E 51 00 3F 09 |.2,DD:.P.1.NQ.?.|
00000100: 66 00 84 32 2C 51 24 28 50 29 2C 41 24 28 50 29 |f..2,Q$(P),A$(P)|
00000110: 2C 41 42 24 28 50 29 2C 41 52 24 28 50 29 2C 41 |,AB$(P),AR$(P),A|
00000120: 57 24 28 50 29 2C 51 53 25 28 50 29 2C 41 53 25 |W$(P),QS%(P),AS%|
00000130: 28 50 29 3A 8D 31 30 30 30 30 3A 82 3A A0 32 00 |(P):.10000:.:.2.|
00000140: 62 09 67 00 9E 35 30 37 35 39 2C 22 50 52 45 53 |b.g..50759,"PRES|
00000150: 53 20 41 20 4B 45 59 22 2C 31 34 AC 38 2C 32 34 |S A KEY",14.8,24|
00000160: AC 38 00 68 09 68 00 3A 00 73 09 69 00 8D 31 31 |.8.h.h.:.s.i..11|
00000170: 30 30 30 00 89 09 6C 00 97 31 39 38 2C 30 3A 92 |000...l..198,0:.|
00000180: 31 39 38 2C 31 3A A1 4B 24 00 93 09 6D 00 8D 20 |198,1:.K$...m.. |
00000190: 39 34 30 00 A0 09 6E 00 8D 37 35 30 3A 43 B2 30 |940...n..750:C.0|
000001A0: 00 A9 09 82 00 8D 39 34 30 00 C0 09 8C 00 81 51 |......940......Q|
000001B0: 58 B2 31 A4 4E 51 3A 51 55 B2 51 25 28 51 58 29 |X.1.NQ:QU.Q%(QX)|
000001C0: 00 D2 09 96 00 8D 39 34 30 3A 8F 50 4C 4F 54 55 |......940:.PLOTU|
000001D0: 53 41 00 02 0A A0 00 41 47 B2 39 39 3A 8B 51 53 |SA.....AG.99:.QS|
000001E0: 25 28 51 55 29 B3 B1 30 A7 8D 31 33 30 30 30 3A |%(QU)..0..13000:|
000001F0: 8F 50 4C 4F 54 51 55 45 53 54 49 4F 4E 53 48 41 |.PLOTQUESTIONSHA|
00000200: 50 45 00 0B 0A A5 00 8D 37 34 30 00 15 0A AA 00 |PE......740.....|
00000210: 41 47 B2 39 39 00 52 0A AC 00 8B 20 41 42 24 28 |AG.99.R.... AB$(|
00000220: 51 55 29 B2 22 43 41 50 22 A7 9E 35 30 37 35 39 |QU)."CAP"..50759|
00000230: 2C 22 57 48 41 54 20 49 53 20 54 48 45 20 43 41 |,"WHAT IS THE CA|
00000240: 50 49 54 41 4C 20 4F 46 22 2C 32 AC 38 2C 32 31 |PITAL OF",2.8,21|
00000250: AC 38 00 6D 0A AD 00 9E 35 30 37 35 39 2C 51 24 |.8.m....50759,Q$|
00000260: 28 51 55 29 2C 32 AC 38 2C 32 32 AC 38 00 86 0A |(QU),2.8,22.8...|
00000270: B4 00 8D 39 35 30 3A 8D 39 31 30 3A 8F 47 45 54 |...950:.910:.GET|
00000280: 41 4E 53 57 45 52 00 A0 0A BE 00 8D 32 30 30 30 |ANSWER......2000|
00000290: 30 3A 8F 50 52 4F 43 45 53 53 41 4E 53 57 45 52 |0:.PROCESSANSWER|
000002A0: 00 E3 0A BF 00 8B 41 24 B2 22 22 B0 41 24 B2 22 |......A$."".A$."|
000002B0: 20 22 A7 9E 35 30 37 35 39 2C 22 2A 2A 2A 2A 20 | "..50759,"**** |
000002C0: 42 45 20 52 45 41 4C 49 53 54 49 43 2E 2E 2E 20 |BE REALISTIC... |
000002D0: 2A 2A 2A 2A 22 2C 38 AC 38 2C 32 34 AC 38 3A 89 |****",8.8,24.8:.|
000002E0: 31 37 30 00 11 0B C0 00 8B 58 52 B2 32 A7 8B 28 |170......XR.2..(|
000002F0: C3 28 41 24 29 B3 33 B0 41 24 B2 41 24 28 51 55 |.(A$).3.A$.A$(QU|
00000300: 29 B0 41 24 B2 41 42 24 28 51 55 29 29 A7 32 30 |).A$.AB$(QU)).20|
00000310: 30 00 4D 0B C2 00 8B 58 52 B1 2E 35 A7 9E 35 30 |0.M....XR..5..50|
00000320: 37 35 39 2C 22 54 48 41 54 27 53 20 43 4C 4F 53 |759,"THAT'S CLOS|
00000330: 45 2E 20 20 54 52 59 20 41 47 41 49 4E 2E 22 2C |E. TRY AGAIN.",|
00000340: 38 AC 38 2C 32 34 AC 38 3A 89 31 37 30 00 87 0B |8.8,24.8:.170...|
00000350: C8 00 8B 41 24 B2 41 24 28 51 55 29 B0 41 24 B2 |...A$.A$(QU).A$.|
00000360: 41 42 24 28 51 55 29 A7 8D 31 35 30 30 30 3A 8F |AB$(QU)..15000:.|
00000370: 53 48 4F 57 52 49 47 48 54 41 4E 53 57 45 52 52 |SHOWRIGHTANSWERR|
00000380: 45 53 50 4F 4E 53 45 00 C4 0B CD 00 8B 41 24 B3 |ESPONSE......A$.|
00000390: B1 41 24 28 51 55 29 A7 8B 41 24 B3 B1 41 42 24 |.A$(QU)..A$..AB$|
000003A0: 28 51 55 29 A7 8D 31 36 30 30 30 3A 8F 53 48 4F |(QU)..16000:.SHO|
000003B0: 57 57 52 4F 4E 47 41 4E 53 57 45 52 52 45 53 50 |WWRONGANSWERRESP|
000003C0: 4F 4E 53 45 00 EC 0B D2 00 8B 41 53 25 28 51 55 |ONSE......AS%(QU|
000003D0: 29 B3 B1 30 A7 8D 31 34 30 30 30 3A 8F 53 48 4F |)..0..14000:.SHO|
000003E0: 57 41 4E 53 57 45 52 53 48 41 50 45 00 FB 0B D7 |WANSWERSHAPE....|
000003F0: 00 8D 31 30 38 32 3A 8D 39 34 30 00 09 0C F4 01 |..1082:.940.....|
00000400: 82 51 58 3A 51 58 B2 4E 51 00 16 0C 58 02 99 22 |.QX:QX.NQ...X.."|
00000410: 93 11 11 11 9E 22 00 21 0C 5A 02 9E 35 31 34 35 |.....".!.Z..5145|
00000420: 39 00 65 0C 5C 02 99 22 0E 11 11 1D 1D D9 4F 55 |9.e.\.."......OU|
00000430: 20 48 41 56 45 20 43 4F 52 52 45 43 54 4C 59 20 | HAVE CORRECTLY |
00000440: 41 4E 53 57 45 52 45 44 22 3A 99 3A 99 43 22 51 |ANSWERED":.:.C"Q|
00000450: 55 45 53 54 49 4F 4E 53 20 4F 55 54 20 4F 46 22 |UESTIONS OUT OF"|
00000460: 51 58 22 2E 22 00 8D 0C 5E 02 99 22 11 1D 1D D4 |QX"."...^.."....|
00000470: 48 41 54 27 53 22 B5 28 28 43 AD 51 58 29 AC 31 |HAT'S".((C.QX).1|
00000480: 30 30 29 22 9D 25 22 3A 99 3A 99 3A 99 00 97 0C |00)".%":.:.:....|
00000490: 62 02 89 31 30 39 30 00 9D 0C E4 02 8E 00 B8 0C |b..1090.........|
000004A0: EE 02 8F 20 2A 2A 2A 20 53 4F 55 4E 44 20 45 46 |... *** SOUND EF|
000004B0: 46 45 43 54 20 2A 2A 2A 00 BE 0C F8 02 8E 00 D9 |FECT ***........|
000004C0: 0C 7A 03 8F 20 2A 2A 2A 20 53 4F 55 4E 44 20 45 |.z.. *** SOUND E|
000004D0: 46 46 45 43 54 20 2A 2A 2A 00 F4 0C 84 03 8F 20 |FFECT ***...... |
000004E0: 2A 2A 2A 20 53 4F 55 4E 44 20 45 46 46 45 43 54 |*** SOUND EFFECT|
000004F0: 20 2A 2A 2A 00 32 0D 8E 03 8B 41 24 B2 22 51 55 | ***.2....A$."QU|
00000500: 49 54 22 A7 9E 35 31 34 35 39 3A 99 22 93 11 11 |IT"..51459:."...|
00000510: 11 11 0E D4 48 41 4E 4B 20 59 4F 55 20 46 4F 52 |....HANK YOU FOR|
00000520: 20 50 4C 41 59 49 4E 47 2E 2E 2E 22 3A 89 31 30 | PLAYING...":.10|
00000530: 39 30 00 38 0D 98 03 8E 00 5D 0D A2 03 97 32 34 |90.8.....]....24|
00000540: 39 2C 32 32 34 3A 97 32 35 30 2C 32 30 34 3A 97 |9,224:.250,204:.|
00000550: 32 35 31 2C 30 3A 97 32 35 32 2C 36 34 00 7B 0D |251,0:.252,64.{.|
00000560: A4 03 97 32 35 33 2C 50 25 28 50 2C 30 29 3A 97 |...253,P%(P,0):.|
00000570: 32 35 34 2C 50 25 28 50 2C 31 29 00 8F 0D A6 03 |254,P%(P,1).....|
00000580: 97 32 35 35 2C 50 AB 31 3A 9E 35 31 34 36 32 00 |.255,P.1:.51462.|
00000590: 95 0D A8 03 8E 00 9B 0D AA 03 3A 00 B2 0D AC 03 |..........:.....|
000005A0: 48 B2 30 3A 56 B2 30 3A 50 B2 31 3A 8D 39 33 30 |H.0:V.0:P.1:.930|
000005B0: 3A 8E 00 B8 0D B1 03 3A 00 C2 0D B6 03 41 24 B2 |:......:.....A$.|
000005C0: 22 22 00 D1 0D C0 03 58 50 B2 32 3A 59 50 B2 32 |"".....XP.2:YP.2|
000005D0: 33 00 E5 0D C2 03 A1 4B 24 3A 8B 4B 24 B3 B1 22 |3......K$:.K$.."|
000005E0: 22 A7 39 37 30 00 FF 0D C5 03 8B 43 52 24 B2 22 |".970......CR$."|
000005F0: 28 22 A7 43 52 24 B2 22 29 22 3A 89 39 36 37 00 |(".CR$.")":.967.|
00000600: 0B 0E C6 03 43 52 24 B2 22 28 22 00 29 0E C7 03 |....CR$."(".)...|
00000610: 9E 35 30 37 35 39 2C 43 52 24 2C 58 50 AC 38 2C |.50759,CR$,XP.8,|
00000620: 59 50 AC 38 3A 89 39 36 32 00 3C 0E CA 03 8B 4B |YP.8:.962.<....K|
00000630: 24 B2 C7 28 31 33 29 A7 31 30 31 30 00 55 0E CF |$..(13).1010.U..|
00000640: 03 8B 4B 24 B3 B1 22 9D 22 AF 4B 24 B3 B1 22 14 |..K$..".".K$..".|
00000650: 22 A7 39 38 30 00 93 0E D0 03 8B 58 50 B1 32 A7 |".980......XP.2.|
00000660: 58 50 B2 58 50 AB 31 3A 9E 35 30 37 35 39 2C 22 |XP.XP.1:.50759,"|
00000670: 20 20 22 2C 58 50 AC 38 2C 59 50 AC 38 3A 41 24 | ",XP.8,YP.8:A$|
00000680: B2 C8 28 41 24 2C C3 28 41 24 29 AB 31 29 3A 89 |..(A$,.(A$).1):.|
00000690: 39 36 32 00 BC 0E D4 03 8B 28 4B 24 B1 22 5A 22 |962......(K$."Z"|
000006A0: B0 4B 24 B3 22 41 22 29 AF 4B 24 B3 B1 22 20 22 |.K$."A").K$.." "|
000006B0: AF 4B 24 B3 B1 22 2E 22 A7 39 36 32 00 CB 0E D5 |.K$..".".962....|
000006C0: 03 8B 58 50 B2 33 38 A7 39 36 32 00 EB 0E D6 03 |..XP.38.962.....|
000006D0: 9E 35 30 37 35 39 2C 4B 24 2C 58 50 AC 38 2C 59 |.50759,K$,XP.8,Y|
000006E0: 50 AC 38 3A 58 50 B2 58 50 AA 31 00 F8 0E D9 03 |P.8:XP.XP.1.....|
000006F0: 41 24 B2 41 24 AA 4B 24 00 01 0F DE 03 89 39 36 |A$.A$.K$......96|
00000700: 32 00 0D 0F F2 03 8D 31 30 36 30 3A 8E 00 26 0F |2......1060:..&.|
00000710: FC 03 8B C3 28 41 24 29 B3 32 A7 41 24 B2 22 22 |....(A$).2.A$.""|
00000720: 3A 89 31 30 34 30 00 3B 0F 06 04 41 24 B2 C8 28 |:.1040.;...A$..(|
00000730: 41 24 2C C3 28 41 24 29 AB 31 29 00 54 0F 10 04 |A$,.(A$).1).T...|
00000740: 48 54 B2 31 3A 99 41 24 22 20 22 42 24 3B 3A 4B |HT.1:.A$" "B$;:K|
00000750: 24 B2 22 22 00 5A 0F 1A 04 8E 00 70 0F 24 04 8B |$."".Z.....p.$..|
00000760: C3 28 41 24 29 B3 31 B0 41 24 B2 22 20 22 A7 8E |.(A$).1.A$." "..|
00000770: 00 98 0F 2E 04 8B C9 28 41 24 2C 31 29 B2 22 20 |.......(A$,1)." |
00000780: 22 A7 41 24 B2 C8 28 41 24 2C C3 28 41 24 29 AB |".A$..(A$,.(A$).|
00000790: 31 29 3A 89 31 30 36 30 00 BA 0F 33 04 8B C8 28 |1):.1060...3...(|
000007A0: 41 24 2C 31 29 B2 22 20 22 A7 41 24 B2 CA 28 41 |A$,1)." ".A$..(A|
000007B0: 24 2C 32 29 3A 89 31 30 36 30 00 C0 0F 38 04 8E |$,2):.1060...8..|
000007C0: 00 F7 0F 3A 04 9E 35 30 37 35 39 2C 22 20 20 20 |...:..50759," |
000007D0: 20 20 20 20 50 52 45 53 53 20 41 20 4B 45 59 20 | PRESS A KEY |
000007E0: 28 20 27 51 27 20 54 4F 20 51 55 49 54 20 29 22 |( 'Q' TO QUIT )"|
000007F0: 2C 30 2C 32 34 AC 38 00 19 10 3B 04 97 31 39 38 |,0,24.8...;..198|
00000800: 2C 30 3A 92 31 39 38 2C 31 3A A1 4B 24 3A 8B 4B |,0:.198,1:.K$:.K|
00000810: 24 B2 22 51 22 A7 36 30 30 00 1F 10 3C 04 8E 00 |$."Q".600...<...|
00000820: 4D 10 42 04 56 54 B2 32 31 3A 99 22 C4 4F 20 59 |M.B.VT.21:.".O Y|
00000830: 4F 55 20 57 41 4E 54 20 54 4F 20 54 52 59 20 41 |OU WANT TO TRY A|
00000840: 47 41 49 4E 3F 20 28 D9 2F CE 29 22 3B 00 63 10 |GAIN? (./.)";.c.|
00000850: 4C 04 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 3A |L..198,0:.198,1:|
00000860: A1 4B 24 00 95 10 56 04 8B 4B 24 B2 22 59 22 A7 |.K$...V..K$."Y".|
00000870: 8C 3A 99 3A 99 22 CF CB C1 D9 2E 20 20 CA 55 53 |.:.:."..... .US|
00000880: 54 20 41 20 53 45 43 4F 4E 44 2E 2E 2E 22 3A 8D |T A SECOND...":.|
00000890: 31 31 30 30 30 00 AD 10 58 04 8B 4B 24 B2 22 59 |11000...X..K$."Y|
000008A0: 22 A7 9E 35 31 34 35 39 3A 89 31 31 30 00 CE 10 |"..51459:.110...|
000008B0: 60 04 8B 4B 24 B3 B1 22 CE 22 A7 8B 4B 24 B3 B1 |`..K$.."."..K$..|
000008C0: 22 4E 22 A7 8D 39 30 30 3A 89 31 30 39 30 00 D4 |"N"..900:.1090..|
000008D0: 10 6A 04 3A 00 12 11 74 04 99 22 93 22 3A 9F 31 |.j.:...t..".":.1|
000008E0: 35 2C 38 2C 31 35 2C 22 52 30 3A 48 45 4C 4C 4F |5,8,15,"R0:HELLO|
000008F0: 20 43 4F 4E 4E 45 43 54 3D 48 45 4C 4C 4F 20 43 | CONNECT=HELLO C|
00000900: 4F 4E 4E 45 43 54 22 3A 84 31 35 2C 45 52 3A A0 |ONNECT":.15,ER:.|
00000910: 31 35 00 20 11 76 04 8B 45 52 B3 B1 36 33 A7 80 |15. .v..ER..63..|
00000920: 00 37 11 79 04 93 22 48 45 4C 4C 4F 20 43 4F 4E |.7.y.."HELLO CON|
00000930: 4E 45 43 54 22 2C 38 00 3D 11 7E 04 80 00 43 11 |NECT",8.=.~...C.|
00000940: 10 27 8E 00 58 11 15 27 8B 41 42 24 28 50 29 B3 |.'..X..'.AB$(P).|
00000950: B1 22 43 41 50 22 A7 8E 00 84 11 1A 27 41 52 24 |."CAP"......'AR$|
00000960: 28 50 29 B2 22 59 4F 55 20 41 52 45 20 52 49 47 |(P)."YOU ARE RIG|
00000970: 48 54 21 20 54 48 45 20 43 41 50 49 54 41 4C 20 |HT! THE CAPITAL |
00000980: 4F 46 20 22 00 C0 11 1C 27 8B C3 28 41 52 24 28 |OF "....'..(AR$(|
00000990: 50 29 29 B3 34 30 A7 41 52 24 28 50 29 B2 41 52 |P)).40.AR$(P).AR|
000009A0: 24 28 50 29 AA 22 20 22 3A 97 35 33 32 38 30 2C |$(P)." ":.53280,|
000009B0: BB 28 31 29 AC 31 35 3A 20 20 89 31 30 30 31 32 |.(1).15: .10012|
000009C0: 00 E9 11 1E 27 41 52 24 28 50 29 B2 41 52 24 28 |....'AR$(P).AR$(|
000009D0: 50 29 AA 51 24 28 50 29 AA 22 20 49 53 20 22 AA |P).Q$(P)." IS ".|
000009E0: 41 24 28 50 29 AA 22 2E 22 00 0D 12 24 27 41 57 |A$(P)."."...$'AW|
000009F0: 24 28 50 29 B2 22 53 4F 52 52 59 21 20 54 48 45 |$(P)."SORRY! THE|
00000A00: 20 43 41 50 49 54 41 4C 20 4F 46 20 22 00 49 12 | CAPITAL OF ".I.|
00000A10: 26 27 8B C3 28 41 57 24 28 50 29 29 B3 34 30 A7 |&'..(AW$(P)).40.|
00000A20: 41 57 24 28 50 29 B2 41 57 24 28 50 29 AA 22 20 |AW$(P).AW$(P)." |
00000A30: 22 3A 97 35 33 32 38 30 2C BB 28 31 29 AC 31 35 |":.53280,.(1).15|
00000A40: 3A 20 20 89 31 30 30 32 32 00 72 12 28 27 41 57 |: .10022.r.('AW|
00000A50: 24 28 50 29 B2 41 57 24 28 50 29 AA 51 24 28 50 |$(P).AW$(P).Q$(P|
00000A60: 29 AA 22 20 49 53 20 22 AA 41 24 28 50 29 AA 22 |)." IS ".A$(P)."|
00000A70: 2E 22 00 A1 12 2E 27 51 24 28 50 29 B2 22 57 48 |."....'Q$(P)."WH|
00000A80: 41 54 20 49 53 20 54 48 45 20 43 41 50 49 54 41 |AT IS THE CAPITA|
00000A90: 4C 20 4F 46 20 54 48 49 53 20 53 54 41 54 45 3F |L OF THIS STATE?|
00000AA0: 22 00 B2 12 38 27 41 42 24 28 50 29 B2 41 24 28 |"...8'AB$(P).A$(|
00000AB0: 50 29 00 B8 12 42 27 8E 00 E1 12 F8 2A 81 50 B2 |P)...B'.....*.P.|
00000AC0: 31 A4 4E 51 3A 51 25 28 50 29 B2 50 3A 82 3A 81 |1.NQ:Q%(P).P:.:.|
00000AD0: 50 B2 31 A4 4E 51 3A 8D 31 31 30 31 30 3A 82 3A |P.1.NQ:.11010:.:|
00000AE0: 8E 00 F2 12 02 2B 51 44 B2 BB 28 31 29 AC 4E 51 |.....+QD..(1).NQ|
00000AF0: AA 31 00 14 13 0C 2B 54 B2 51 25 28 50 29 3A 51 |.1....+T.Q%(P):Q|
00000B00: 25 28 50 29 B2 51 25 28 51 44 29 3A 51 25 28 51 |%(P).Q%(QD):Q%(Q|
00000B10: 44 29 B2 54 00 1A 13 2A 2B 8E 00 2F 13 C8 32 50 |D).T...*+../..2P|
00000B20: B2 51 53 25 28 51 55 29 3A 8D 39 33 30 3A 8E 00 |.QS%(QU):.930:..|
00000B30: 53 13 B0 36 81 43 5A B2 31 A4 51 3A 8D 39 34 30 |S..6.CZ.1.Q:.940|
00000B40: 3A 50 B2 41 53 25 28 51 55 29 3A 8D 39 33 30 3A |:P.AS%(QU):.930:|
00000B50: 82 3A 8E 00 62 13 98 3A 43 B2 43 AA 31 3A 8D 38 |.:..b..:C.C.1:.8|
00000B60: 39 30 00 7C 13 9D 3A 8F 49 46 41 53 25 28 51 55 |90.|..:.IFAS%(QU|
00000B70: 29 3D 30 54 48 45 4E 31 35 30 31 35 00 AD 13 A2 |)=0THEN15015....|
00000B80: 3A 8F 46 4F 52 43 5A 3D 31 54 4F 51 3A 47 4F 53 |:.FORCZ=1TOQ:GOS|
00000B90: 55 42 39 34 30 3A 50 3D 41 53 25 28 51 55 29 3A |UB940:P=AS%(QU):|
00000BA0: 47 4F 53 55 42 39 33 30 3A 4E 45 58 54 00 E7 13 |GOSUB930:NEXT...|
00000BB0: A4 3A 9E 35 30 37 35 39 2C 22 20 20 20 20 20 20 |.:.50759," |
00000BC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000BD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2C 32 | ",2|
00000BE0: AC 38 2C 32 31 AC 38 00 21 14 A7 3A 9E 35 30 37 |.8,21.8.!..:.507|
00000BF0: 35 39 2C 22 20 20 20 20 20 54 48 41 54 27 53 20 |59," THAT'S |
00000C00: 41 42 53 4F 4C 55 54 45 4C 59 20 52 49 47 48 54 |ABSOLUTELY RIGHT|
00000C10: 21 21 20 20 20 20 20 22 2C 32 AC 38 2C 32 32 AC |!! ",2.8,22.|
00000C20: 38 00 5B 14 A9 3A 9E 35 30 37 35 39 2C 22 20 20 |8.[..:.50759," |
00000C30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000C40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000C50: 20 22 2C 32 AC 38 2C 32 33 AC 38 00 95 14 AA 3A | ",2.8,23.8....:|
00000C60: 9E 35 30 37 35 39 2C 22 20 20 20 20 20 20 20 20 |.50759," |
00000C70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000C80: 20 20 20 20 20 20 20 20 20 20 20 22 2C 32 AC 38 | ",2.8|
00000C90: 2C 32 34 AC 38 00 A6 14 AB 3A 81 44 4C B2 31 A4 |,24.8....:.DL.1.|
00000CA0: 31 30 30 30 3A 82 00 AC 14 AC 3A 8E 00 BA 14 80 |1000:.....:.....|
00000CB0: 3E 50 B2 31 3A 8D 20 39 33 30 00 FC 14 81 3E 8D |>P.1:. 930....>.|
00000CC0: 39 30 30 3A 41 24 B2 22 4E 4F 50 45 2C 20 54 48 |900:A$."NOPE, TH|
00000CD0: 41 54 27 53 20 4E 4F 54 20 49 54 21 22 3A 9E 35 |AT'S NOT IT!":.5|
00000CE0: 30 37 35 39 2C 41 24 2C B5 28 32 30 AB C3 28 41 |0759,A$,.(20..(A|
00000CF0: 24 29 AD 32 29 AC 38 2C 32 31 AC 38 00 17 15 82 |$).2).8,21.8....|
00000D00: 3E 8B 20 41 42 24 28 51 55 29 B3 B1 22 43 41 50 |>. AB$(QU).."CAP|
00000D10: 22 A7 31 36 30 30 37 00 2B 15 83 3E 50 B2 51 53 |".16007.+..>P.QS|
00000D20: 25 28 51 55 29 3A 8D 20 39 33 30 00 6A 15 84 3E |%(QU):. 930.j..>|
00000D30: 41 24 B2 22 54 48 45 20 43 41 50 49 54 41 4C 20 |A$."THE CAPITAL |
00000D40: 4F 46 20 22 AA 51 24 28 51 55 29 3A 9E 35 30 37 |OF ".Q$(QU):.507|
00000D50: 35 39 2C 41 24 2C B5 28 32 30 AB C3 28 41 24 29 |59,A$,.(20..(A$)|
00000D60: AD 32 29 AC 38 2C 32 32 AC 38 00 A4 15 85 3E 41 |.2).8,22.8....>A|
00000D70: 24 B2 22 49 53 20 22 AA 41 24 28 51 55 29 3A 9E |$."IS ".A$(QU):.|
00000D80: 35 30 37 35 39 2C 41 24 2C B5 28 32 30 AB C3 28 |50759,A$,.(20..(|
00000D90: 41 24 29 AD 32 29 AC 38 2C 32 33 AC 38 3A 89 31 |A$).2).8,23.8:.1|
00000DA0: 36 30 31 30 00 E4 15 87 3E 41 24 B2 22 54 48 45 |6010....>A$."THE|
00000DB0: 20 43 4F 52 52 45 43 54 20 41 4E 53 57 45 52 20 | CORRECT ANSWER |
00000DC0: 49 53 20 2D 22 3A 9E 35 30 37 35 39 2C 41 24 2C |IS -":.50759,A$,|
00000DD0: B5 28 32 30 AB C3 28 41 24 29 AD 32 29 AC 38 2C |.(20..(A$).2).8,|
00000DE0: 32 32 AC 38 00 0F 16 88 3E 9E 35 30 37 35 39 2C |22.8....>.50759,|
00000DF0: 41 24 28 51 55 29 2C B5 28 32 30 AB C3 28 41 24 |A$(QU),.(20..(A$|
00000E00: 28 51 55 29 29 AD 32 29 AC 38 2C 32 33 AC 38 00 |(QU)).2).8,23.8.|
00000E10: 20 16 89 3E 81 44 4C B2 31 A4 31 30 30 30 3A 82 | ..>.DL.1.1000:.|
00000E20: 00 26 16 8A 3E 8E 00 4F 16 20 4E 8B C3 28 41 24 |.&..>..O. N..(A$|
00000E30: 29 B3 33 A7 58 52 B2 32 3A 8E 3A 8F 49 46 41 42 |).3.XR.2:.:.IFAB|
00000E40: 42 52 45 56 4D 55 53 54 42 45 52 49 47 48 54 00 |BREVMUSTBERIGHT.|
00000E50: 7C 16 2A 4E 58 30 B2 30 3A 58 4C B2 C3 28 41 24 ||.*NX0.0:XL..(A$|
00000E60: 29 3A 8B C3 28 41 24 28 51 55 29 29 B3 58 4C A7 |):..(A$(QU)).XL.|
00000E70: 58 4C B2 C3 28 41 24 28 51 55 29 29 00 89 16 2C |XL..(A$(QU))...,|
00000E80: 4E 81 58 31 B2 31 A4 58 4C 00 B0 16 34 4E 8B CA |N.X1.1.XL...4N..|
00000E90: 28 41 24 2C 58 31 2C 31 29 B2 CA 28 41 24 28 51 |(A$,X1,1)..(A$(Q|
00000EA0: 55 29 2C 58 31 2C 31 29 A7 58 30 B2 58 30 AA 31 |U),X1,1).X0.X0.1|
00000EB0: 00 B6 16 3E 4E 82 00 DA 16 48 4E 81 58 31 B2 C3 |...>N....HN.X1..|
00000EC0: 28 41 24 28 51 55 29 29 A4 C3 28 41 24 28 51 55 |(A$(QU))..(A$(QU|
00000ED0: 29 29 AB 58 4C AA 31 A9 AB 31 00 01 17 52 4E 8B |)).XL.1..1...RN.|
00000EE0: CA 28 41 24 2C 58 31 2C 31 29 B2 CA 28 41 24 28 |.(A$,X1,1)..(A$(|
00000EF0: 51 55 29 2C 58 31 2C 31 29 A7 58 30 B2 58 30 AA |QU),X1,1).X0.X0.|
00000F00: 31 00 07 17 5C 4E 82 00 1B 17 66 4E 58 52 B2 58 |1...\N....fNXR.X|
00000F10: 30 AD C3 28 41 24 28 51 55 29 29 00 21 17 70 4E |0..(A$(QU)).!.pN|
00000F20: 8E 00 00 00 |.... |
..'....X.0..56,64:.:X.1:."BORN.LNK",8,1.
-...:.U...NQ.35:.Q%(NQ),Q$(NQ),A$(NQ),AB
$(NQ),AR$(NQ),AW$(NQ),QS%(NQ),AS%(NQ)...
... P%(29,1).....:...(.Q.6...2.:...Z.:.S
.D..2,8,2,"BORN.XY":.P.1.29:.2,P%(P,0),P
%(P,1):.: 2...E..2,8,2,"BORN.QUESTIONS":
.2,DD:.P.1.NQ.?.F..2,Q$(P),A$(P),AB$(P),
AR$(P),AW$(P),QS%(P),AS%(P):.10000:.: 2.
B.G..50759,"PRESS A KEY",14.8,24.8.H.H.:
.S.I..11000...L..198,0:.198,1:.K$...M..
940. .N..750:C.0......940......QX.1.NQ:Q
U.Q%(QX).R....940:.PLOTUSA... .AG.99:.QS
%(QU)..0..13000:.PLOTQUESTIONSHAPE......
740.....AG.99.R.... AB$(QU)."CAP"..50759
,"WHAT IS THE CAPITAL OF",2.8,21.8.M....
50759,Q$(QU),2.8,22.8......950:.910:.GET
ANSWER. ....20000:.PROCESSANSWER......A$
."".A$." "..50759,"**** BE REALISTIC...
****",8.8,24.8:.170......XR.2..(C(A$).3.
A$.A$(QU).A$.AB$(QU)).200.M.B..XR..5..50
759,"THAT'S CLOSE. TRY AGAIN.",8.8,24.8
:.170...H..A$.A$(QU).A$.AB$(QU)..15000:.
SHOWRIGHTANSWERRESPONSE.D.M..A$..A$(QU).
.A$..AB$(QU)..16000:.SHOWWRONGANSWERRESP
ONSE...R..AS%(QU)..0..14000:.SHOWANSWERS
HAPE...W..1082:.940......QX:QX.NQ...X.."
.....".!.Z..51459.E.\..".....YOU HAVE CO
RRECTLY ANSWERED":.:.C"QUESTIONS OUT OF"
QX"."...^.."...THAT'S".((C.QX).100)".%":
.:.:....B..1090............ *** SOUND EF
FECT ***.......Y.Z.. *** SOUND EFFECT **
*...... *** SOUND EFFECT ***.2....A$."QU
IT"..51459:."......THANK YOU FOR PLAYING
...":.1090.8.....]....249,224:.250,204:.
251,0:.252,64.{....253,P%(P,0):.254,P%(P
,1)......255,P.1:.51462...........:.....
H.0:V.0:P.1:.930:......:.B...A$."".Q...X
P.2:YP.23...B..K$:.K$.."".970...E..CR$."
(".CR$.")":.967...F.CR$."(".).G..50759,C
R$,XP.8,YP.8:.962.<.J..K$.G(13).1010.U.O
..K$..".".K$..".".980...P..XP.2.XP.XP.1:
.50759," ",XP.8,YP.8:A$.H(A$,C(A$).1):.
962...T..(K$."Z".K$."A").K$.." ".K$.."."
.962.K.U..XP.38.962...V..50759,K$,XP.8,Y
P.8:XP.XP.1...Y.A$.A$.K$......962......1
060:..&....C(A$).2.A$."":.1040.;...A$.H(
A$,C(A$).1).T...HT.1:.A$" "B$;:K$."".Z..
...P.$..C(A$).1.A$." "........I(A$,1)."
".A$.H(A$,C(A$).1):.1060...3..H(A$,1)."
".A$.J(A$,2):.1060...8.....:..50759,"
PRESS A KEY ( 'Q' TO QUIT )",0,24.8.
..;..198,0:.198,1:.K$:.K$."Q".600...<...
M.B.VT.21:."DO YOU WANT TO TRY AGAIN? (Y
/N)";.C.L..198,0:.198,1:.K$...V..K$."Y".
.:.:."OKAY. JUST A SECOND...":.11000...
X..K$."Y"..51459:.110.N.`..K$.."N"..K$..
"N"..900:.1090.T.J.:...T..".":.15,8,15,"
R0:HELLO CONNECT=HELLO CONNECT":.15,ER:
15. .V..ER..63...7.Y.."HELLO CONNECT",8.
=.~...C..'..X..'.AB$(P).."CAP"......'AR$
(P)."YOU ARE RIGHT! THE CAPITAL OF "....
'.C(AR$(P)).40.AR$(P).AR$(P)." ":.53280,
.(1).15: .10012....'AR$(P).AR$(P).Q$(P)
." IS ".A$(P)."."...$'AW$(P)."SORRY! THE
CAPITAL OF ".I.&'.C(AW$(P)).40.AW$(P).A
W$(P)." ":.53280,.(1).15: .10022.R.('AW
$(P).AW$(P).Q$(P)." IS ".A$(P)."."....'Q
$(P)."WHAT IS THE CAPITAL OF THIS STATE?
"...8'AB$(P).A$(P)...B'.....*.P.1.NQ:Q%(
P).P:.:.P.1.NQ:.11010:.:.....+QD..(1).NQ
.1....+T.Q%(P):Q%(P).Q%(QD):Q%(QD).T...*
+../.H2P.QS%(QU):.930:..S..6.CZ.1.Q:.940
:P.AS%(QU):.930:.:..B..:C.C.1:.890.|..:.
IFAS%(QU)=0THEN15015....:.FORCZ=1TOQ:GOS
UB940:P=AS%(QU):GOSUB930:NEXT....:.50759
," ",2
.8,21.8.!..:.50759," THAT'S ABSOLUTE
LY RIGHT!! ",2.8,22.8.[..:.50759,"
",2.8,2
3.8....:.50759,"
",2.8,24.8....:.DL.1.1000:...
..:.....>P.1:. 930....>.900:A$."NOPE, TH
AT'S NOT IT!":.50759,A$,.(20.C(A$).2).8,
21.8....>. AB$(QU).."CAP".16007.+..>P.QS
%(QU):. 930.J..>A$."THE CAPITAL OF ".Q$(
QU):.50759,A$,.(20.C(A$).2).8,22.8....>A
$."IS ".A$(QU):.50759,A$,.(20.C(A$).2).8
,23.8:.16010....>A$."THE CORRECT ANSWER
IS -":.50759,A$,.(20.C(A$).2).8,22.8....
>.50759,A$(QU),.(20.C(A$(QU)).2).8,23.8.
..>.DL.1.1000:..&..>..O. N.C(A$).3.XR.2
:.:.IFABBREVMUSTBERIGHT.|.*NX0.0:XL.C(A$
):.C(A$(QU)).XL.XL.C(A$(QU))...,N.X1.1.X
L...4N.J(A$,X1,1).J(A$(QU),X1,1).X0.X0.1
...>N..Z.HN.X1.C(A$(QU)).C(A$(QU)).XL.1.
.1...RN.J(A$,X1,1).J(A$(QU),X1,1).X0.X0.
1...\N....FNXR.X0.C(A$(QU)).!.PN....
> CLICK IMAGE PREVIEW FOR FULL MODAL