home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / Misc / BEALE-TREASURE (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  5.1 KB  |  95 lines
  1. 1 PRINTCHR$(147)
  2. 2 PRINTCHR$(14)
  3. 5 POKE53281,6:POKE53280,10:POKE646,7
  4. 10 PRINT"     [212]HE [212]HOMAS [194]EALE [212]REASURE[146]     "
  5. 15 PRINT:PRINT
  6. 20 PRINT"[201]N 1818 A PARTY OF THIRTY MEN WENT ON A HUNTING EXPEDITION IN ";
  7. 30 PRINT"[211]OUTHWESTERN [213]NITED [211]TATES.";
  8. 40 PRINT"[212]HOMAS [202]EFFERSON [194]EALE WAS THE LEADER OF THIS PARTY OF MEN. ";
  9. 50 PRINT"[215]HILE HUNTING THEY DISCOVERED AND MINED A GREAT QUANITITY OF GOLD. ";
  10. 60 PRINT"[194]EALE WAS CHOSEN TO TAKE THE GOLD BACK TO [214]IRGINIA NEAR THEIR HOMES ";
  11. 80 PRINT"FROM THEIR FIND IN CASE OF MISFORTUNE FROM HOSTILE ELEMENTS. ";
  12. 90 PRINT"[207]N THE WAY BACK [194]EALE EXCHANGED SOME OF THE GOLD FOR JEWELS IN ";
  13. 100 PRINT"[211]T.[204]OUIS,[205]ISSOURI TO LIGHTEN THE LOAD. [198]ROM [211]T.[204]OUIS HE MOVED THE ";
  14. 110 PRINT"GOLD AND JEWELS TO [194]EDFORD [195]OUNTY,[214]IRGINIA. ";
  15. 120 PRINT"[212]HERE IN [194]EDFORD [195]O. HE PLACED THE GOLD AND JEWELS IN A NATURAL ";
  16. 130 PRINT"VAULT. [200]E THEN WENT TO [204]YNCHBURG,[214]A. AND STAYED AT AN INN RUN BY A ";
  17. 140 PRINT"[210]OBERT [205]ORRIS. [200]E LEFT WITH [205]ORRIS A LETTER FOR SAFE KEEPING. "
  18. 143 PRINT
  19. 144 PRINT"*******[200]IT [193]NY [204]ETTER TO [195]ONTINUE*******"
  20. 145 GETA$:IFA$=""THEN145
  21. 146 PRINT:PRINT
  22. 150 PRINT"[194]EALE LEFT AND WASN'T HEARD FROM AGAIN UNTIL A LETTER FROM ";
  23. 160 PRINT"[211]T.[204]OUIS ARRIVED IN [205]AY 9,1822. ";
  24. 170 PRINT"[201]N THIS LETTER TO [205]ORRIS HE GAVE INSTRUCTIONS TO [205]ORRIS;THAT IF HE ";
  25. 180 PRINT"([194]EALE)DIDN'T COME AND GET THE LETTER THAT [205]ORRIS WAS KEEPING BY ";
  26. 190 PRINT"THE YEAR 1832 THAT [205]ORRIS WOULD THEN RECEIVE A KEY FROM A FRIEND ";
  27. 200 PRINT"TO DECODE AND RETRIEVE THE TREASURE DESCRIBED IN THE ORIGINAL ";
  28. 210 PRINT"LETTER LEFT BY [194]EALE. ";
  29. 220 PRINT"[206]EITHER [194]EALE NOR ANY OF HIS FRIENDS WERE HEARD OF AGAIN. [211]O IN ";
  30. 230 PRINT"1845 [210]OBERT [205]ORRIS OPENED THE IRON BOX HE KEPT THE LETTER. [201]N THE ";
  31. 240 PRINT"LETTER WAS A NOTE FROM [194]EALE AND THREE CODED NOTES. [212]HE NOTE FROM ";
  32. 250 PRINT"[194]EALE STATED THE CONTENTS OF EACH CODED NOTE. [212]HE FIRST CODED NOTE ";
  33. 260 PRINT"INVENTORIED THE TREASURE. [212]HE SECOND GAVE THE NAMES AND ADDRESSES ";
  34. 270 PRINT"OF THE OWNERS AND CLOSE KIN OF THE TREASURE AND THE THIRD CODED ";
  35. 280 PRINT"NOTE THE DIRECTIONS TO THE VAULT THAT CONTAINED THE TREASURE. ";
  36. 283 PRINT:PRINT
  37. 284 PRINT"*******[200]IT [193]NY [204]ETTER TO [195]ONTINUE*******"
  38. 285 GETB$:IFB$=""THEN285
  39. 286 PRINT:PRINT:PRINT:PRINT:PRINT
  40. 290 PRINT"[210]OBERT [205]ORRIS COULDN'T MAKE ANY SENSE OF THE CODES. [194]UT IN 1885 A ";
  41. 300 PRINT"FRIEND OF [205]ORRIS DECODED THE INVENTORY CODE USING THE '[196]ECLARATION ";
  42. 310 PRINT"OF [201]NDEPENDENCE' AS A KEY. [200]E SUBSTITUTED THE FIRST LETTER OF EACH ";
  43. 320 PRINT"WORD FOR THE CORRESPONDING NUMBER IN THE CODE. [212]HIS METHOD PROVED ";
  44. 330 PRINT"FRUITLESS FOR THE OTHER CODES HOWEVER. [212]O THIS DAY NO ONE HAS ";
  45. 340 PRINT"BROKEN THE OTHER CODED NOTES AND FOUND THE TREASURE. "
  46. 350 PRINT"     [212]HE TREASURE WOULD BE WORTH AN ESTIMATED $30,000,000 TODAY! ";
  47. 360 PRINT"[212]HE THIRD CODED NOTE IS GIVEN BELOW FOR ANY INTERESTED PERSONS. "
  48. 363 PRINT:PRINT
  49. 364 PRINT"*******[200]IT [193]NY [204]ETTER TO [195]ONTINUE*******"
  50. 365 GETC$:IFC$=""THEN365
  51. 366 PRINT:PRINT
  52. 370 PRINT"71,194,38,1701,89,76,11,83,1629,48,94,63,132,16,111,95,84,341,975,";
  53. 380 PRINT"14,40,64,27,81,139,213,63,90,1120,8,15,3,126,2018,40,74,758,485,604,";
  54. 390 PRINT"230,436,664,582,150,251,284,308,231,124,211,486,225,401,370,11,101,";
  55. 400 PRINT"305,139,189,17,33,88,208,193,145,1,94,73,416,918,263,28,500,538,356,";
  56. 410 PRINT"117,136,219,27,176,130,10,460,25,485,18,436,65,84,200,283,118,320,";
  57. 420 PRINT"138,36,416,280,15,71,224,961,44,16,401,39,88,61,304,12,21,24,283,";
  58. 430 PRINT"134,92,63,246,486,682,7,219,184,360,780,18,64,463,474,131,160,79,";
  59. 440 PRINT"73,440,95,18,64,581,34,69,128,367,460,17,81,12,103,820,62,116,97,";
  60. 450 PRINT"103,862,70,60,1317,471,540,208,121,890,346,36,150,59,568,614,13,120,";
  61. 460 PRINT"63,219,812,2160,1780,99,35,18,21,136,872,15,28,170,88,4,30,44,112,";
  62. 470 PRINT"18,147,436,195,320,37,122,113,6,140,8,120,305,42,58,461,44,106,301,";
  63. 480 PRINT"13,408,680,93,86,116,530,82,568,9,102,38,416,89,71,216,728,965,818,";
  64. 483 PRINT:PRINT:PRINT
  65. 484 PRINT"*******[200]IT [193]NY [204]ETTER TO [195]ONTINUE*******"
  66. 485 GETD$:IFD$=""THEN485
  67. 486 PRINT
  68. 490 PRINT"2,38,121,195,14,326,148,234,18,55,131,234,361,824,5,81,623,48,961,";
  69. 500 PRINT"19,26,33,10,1101,365,,92,88,181,275,346,201,206,86,36,219,320,829,";
  70. 510 PRINT"840,68,326,19,48,122,85,216,284,919,861,326,985,233,64,68,232,431,";
  71. 520 PRINT"960,50,29,81,216,321,603,14,612,81,360,36,51,62,194,78,60,200,314,";
  72. 530 PRINT"676,112,4,28,18,61,136,247,819,921,1060,464,895,10,6,66,119,38,41,";
  73. 540 PRINT"49,602,423,962,302,294,875,78,14,23,111,109,62,31,501,823,216,280,";
  74. 550 PRINT"34,24,150,1000,162,286,19,21,17,340,19,242,31,86,234,140,607,115,33,";
  75. 560 PRINT"191,67,104,86,52,88,16,80,121,67,95,122,216,548,96,11,201,77,364,";
  76. 570 PRINT"218,65,667,890,236,154,211,10,98,34,119,56,216,119,71,218,1164,1496,";
  77. 580 PRINT"1817,51,39,210,36,3,19,540,232,22,141,617,84,290,80,46,207,411,150,";
  78. 590 PRINT"29,38,46,172,85,194,36,261,543,897,624,18,212,416,127,931,19,4,63,";
  79. 600 PRINT"96,12,101,418,16,140,230,460,538,19,27,88,612,1431,90,716,275,74,83,";
  80. 603 PRINT:PRINT
  81. 604 PRINT"*******[200]IT [193]NY [204]ETTER TO [195]ONTINUE*******"
  82. 605 GETE$:IFE$=""THEN605
  83. 606 PRINTCHR$(147)
  84. 610 PRINT"11,426,89,72,84,1300,1706,814,221,132,40,102,34,858,975,1101,84,16,";
  85. 620 PRINT"79,23,16,81,122,324,403,912,227,936,447,55,86,34,43,212,107,96,314,";
  86. 630 PRINT"264,1065,323,428,601,203,124,95,216,814,2906,654,820,2,301,112,176,";
  87. 640 PRINT"213,71,87,96,202,35,10,2,41,17,84,221,736,820,214,11,60,760."
  88. 645 PRINT:PRINT:PRINT
  89. 650 PRINT"        $$$$$[197]ND OF [195]ODE$$$$$"
  90. 660 PRINT:PRINT
  91. 670 PRINT"[201]F YOU FIND THE TREASURE USING THE CODE SEND ME A BUCK OR TWO.";
  92. 680 PRINT"[211]END A LETTER BY [197]-[205][193][201][204] AND LET ME KNOW."
  93. 690 PRINT
  94. 720 PRINT"[212]HIS PROGRAM WRITTEN BY [200].[211]ELDEN([210]ELICMAN)AND IS IN PUBLIC DOMAIN."
  95.