home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / Misc / HAILSTONES (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  5KB  |  125 lines
  1. 0 REM     FROM PD DISK UNF # 3         .
  2. 1 REM  GRAPHICS,ENHANCEMENTS AND               INSTRUCTIONS BY JIM GREEN       .
  3. 2 POKE53280,5:POKE53281,12:PRINTCHR$(142);
  4. 5 PRINT"[147]                                        [146]";
  5. 6 PRINT"[209][163][183][163][209][183][163][209][183][163][183][209][163] [209][183][183][163][209][163][183][183][209][183][163][183][209][163][183] [209][163] [163] [209][183][163][209]
  6. 7 [153]" (null) (null)   (null)  (null) (null)   (null)    (null) (null)  (null)  (null)  (null)   (null)
  7. 8 PRINT"  [209]  [209]   [209]  [209] [209]    [209]    [209]   [209] [209]  [209]   [209]
  8. 12 [153]"SYS  = (null)SYS = =TANTANTAN= = = (null)   (null) (null) (null)  (null)  (null)   (null)
  9. 16 PRINT"[209][158] [171][192][192][192][179] [171][192][192][192][179] [221] [221]  [209] [209]   [209]  [209]  [209]   [209]  [209]
  10. 20 [153]"SYS  >  (null)SYS> > (null)SYS > > >TANTANTANEXP (null)    (null)   (null) (null)  (null)
  11. 22 PRINT" [209]   [209] [209]   [209]    [209]  [209]   [209] [209]  [209]   [209]  [209][160][209]
  12. 23 [153]"  (null)CLOSE(null)    (null)CLOSE (null)  (null)   (null) (null)    (null)   (null)  (null)  (null)
  13. 24 PRINT" [209] [209]   [209]  [209]     [209]   [209]   [209] [209]  [209]  [209]  [209]  [209]
  14. 30 [153]"SYS  =TANTANTAN^ ORTAN=TAN^ =TANTANTAN^ =TANTANTAN^ =TANTANTAN^ =TANTANTAN^
  15. 34 PRINT" [209][158][173][192][192][192][174]   [221] [209][158] [221][209][158]  [221] [221][209][158]  [221] [171][192][209][158]   [173][192][192][192][174][209]
  16. 38 [153]"(null)SYS /TANTANTANEXP(null)SYS  >   /TANTANTANEXP >  (null)SYS> >TANTANTANEXP /TANTANTANEXP (null)
  17. 39 PRINT" [209]    [209]  [209]  [209]   [209]   [209] [209] [209]   [209]   [209]   [209]
  18. 40 [153]" (null) (null)   (null)  (null)     (null)    (null) (null)  (null)    (null) (null)    (null)
  19. 41 PRINT"  [209]  [209]   [209]  [209] [209]    [209] [209]   [209]  [209] [209] [209]  [209] [209]
  20. 42 [153]" (null)   (null) (null)   (null)    (null)   (null)  (null)    (null)    (null)    (null)
  21. 43 PRINT"[151]                                      ";
  22. 44 PRINT"    T H E    M A T H E M A T I C A L    ";
  23. 45 PRINT"                                        ";
  24. 46 PRINT"       W O N D E R   O F   T H E        ";
  25. 47 PRINT"                                        ";
  26. 48 PRINT"   T W E N T I E T H    C E N T U R Y   ";
  27. 49 PRINT"                                      [146][145]"
  28. 50 FORD=1TO4400:NEXT:PRINT"[147]"
  29. 52 POKE53280,7:POKE53281,7
  30. 54 PRINT"       [208]RESS <[201]> FOR INSTRUCTIONS
  31. 56 [153]"      (null)RESS <LEFT$> TO PLAY LEFT$AILSTONES
  32. 60 GETJ$:IFJ$<>"I"ANDJ$<>"H"THEN60
  33. 64 IFJ$="H"THEN200
  34. 100 POKE53280,12:POKE53281,12:PRINT"[147][155] [212]HERE IS A SIMPLE BUT NEVERTHELESS
  35. 102 [153]" EXTREMELY INTERESTING PROBLEM OF
  36. 104 PRINT" MATHEMATICS WHICH MAY BE STATED AS
  37. 106 [153]" FOLLOWS. CHR$IVEN ANY POSITIVE NUMBER
  38. 108 PRINT" LET'S CALL IT '[206]', TREAT '[206]' IN THE
  39. 110 [153]" IN THE FOLLOWING MANNER - RIGHT$F '(null)' IS
  40. 112 PRINT" ODD, MULTIPLY IT BY 3 AND ADD 1.
  41. 114 [153]" RIGHT$N PEEKASIC IT MAY BE WRITTEN -
  42. 116 PRINT" [206]=[206]*3+1, IF NEW RESULTS IS EVEN THEN
  43. 118 [153]" DIVIDE (null) BY 2 - PEEKASIC (null)=(null)/2 -
  44. 120 PRINT" [212]HE QUESTION. [215]HEN '[206]' IS TREATED
  45. 122 [153]" THIS WAY WHAT HAPPENS TO '(null)' ? ?
  46. 124 PRINT"       [208]RESS <[211][208][193][195][197]> TO CONTINUE[145]
  47. 126 [151]198,0:[146]198,1
  48. 128 [153]"LOAD RIGHT$F WE TAKE THE NUMBER 7 YOU WILL FIND
  49. 130 PRINT" THAT IT EVENTUALLY REACHES THE NO. 1
  50. 132 [153]" BECAUSE 7 IS ODD, AND MULTIPLYING
  51. 134 PRINT" 7 BY 3 AND ADDING 1, ([206]=[206]*3+1), [206]
  52. 136 [153]" BECOMES 22. (null)INCE 22 IS EVEN,IT IS
  53. 138 PRINT" DIVIDED BY 2, ([206]=[206]/2), TO YIELD 11,
  54. 140 [153]" NOW 11 BEING ODD, IS MULTIPLIED BY 3
  55. 142 PRINT" WITH 1 ADDED, GIVING 34. [212]HIS IN TURN
  56. 144 [153]" BECOMES 17,52,26,13,40,20,10,5,16,8
  57. 146 PRINT" 4,2, AND FINALLY 1.
  58. 148 [153]"      (null)RESS <(null)(null)ATNLENVAL> TO CONTINUEON
  59. 150 POKE198,0:WAIT198,1
  60. 152 PRINT"[147] [201]T HAS BEEN SAID THAT ALL POSITIVE
  61. 154 [153]" NUMBERS WHEN TREATED IN THIS FASHION
  62. 156 PRINT" EVENTUALLY CONVERGE TO 1.
  63. 158 [153]" (null)HE FACT IS THAT NOBODY IN THE WORLD
  64. 160 PRINT" HAS YET PROVED THAT THIS IS THE CASE,
  65. 162 [153]" NOR HAS IT BEEN DISPROVED.ATNLL WE CAN
  66. 164 PRINT" BE SURE OF IS THAT NO ONE HAS YET
  67. 166 [153]" FOUND A NUMBER THAT DOES NOT CONVERGE
  68. 168 PRINT" TO 1.
  69. 170 [153]"      (null)RESS <(null)(null)ATNLENVAL> TO CONTINUEON
  70. 172 POKE198,0:WAIT198,1
  71. 178 PRINT"[147] [212]AKE YOUR TRUSTY OLD [195]-64 [195]OMPUTER AND
  72. 180 [153]" TRY TO FIND A NUMBER THAT DOSN'T GO
  73. 182 PRINT" TO 1, IF YOU ARE SUCESSFUL,YOU WILL
  74. 184 [153]" BECOME (null)(null)(null)(null)STR$ ASCATN(null)(null)(null)(null) AND PERHAPS
  75. 186 PRINT" RICH. [215]HEN YOU COLLECT YOUR PRIZE,
  76. 188 [153]" DON'T FORGET TO THANK YOUR OLD
  77. 190 PRINT" FAITHFUL [195]-64 [195][207][205][208][213][212][197][210]. [199][207][207][196][160][204][213][195][203][160]!!
  78. 192 [153]" (null)HE NUMBER 27 IS A GOOD ONE TO TRY.
  79. 194 PRINT"      [208]RESS <[211][208][193][195][197]> TO CONTINUE[145]
  80. 196 [151]198,0:[146]198,1
  81. 200 [143] HAILSTONES ZAPPERS FOR C64  P37 .
  82. 205 [151]53280,5:[151]53281,12:[151]54296,15:[153][199](142):[153]"LOADOPEN";
  83. 210 [129]T[178]1[164]5:[153]"TANTANTANTANTANTANTANTAN";:[130]
  84. 215 [153]"SYS           H A I L S T O N E S          OPEN";
  85. 220 [129]T[178]1[164]5:[153]"TANTANTANTANTANTANTANTAN";:[130]:[153]
  86. 225 [153]"LIST"
  87. 230 [133]"    PICK A NUMBER, ANY NUMBER";N
  88. 235 [139]N[178][181](N)[175]N[177]0[167]245
  89. 240 [153]"    NO NOT THAT NUMBER!":[129]D[178]1[164]600:[130]:[137]225
  90. 245 Q[178]N:IT[178]0:[153]""
  91. 250 [139]Q[178]1[167]295
  92. 255 IT[178]IT[170]1:EVEN[178](Q[173]2[178][181](Q[173]2))
  93. 260 [139]EVEN[167]275
  94. 265 Q[178]Q[172]3[170]1
  95. 270 [137]280
  96. 275 Q[178]Q[173]2
  97. 280 [153]"     OPERATION #"IT;[163]26)Q
  98. 285 [141]340
  99. 290 [137]250
  100. 295 [153]"  YES,"N;
  101. 300 [153]"GOES TO 1 IN"IT"OPERATIONS!
  102. 305 GOSUB370
  103. 310 PRINT"    ANOTHER (Y/N)? ";
  104. 315 GETA$:IFA$<>"Y"ANDA$<>"N"THEN315
  105. 320 PRINTA$:FORD=1TO500:NEXT
  106. 325 IFA$="Y"THEN205
  107. 330 PRINT"FINISHED
  108. 335 [128]
  109. 340 [143] SOUND
  110. 345 FR[178]17167:[139]EVEN [167]FR[178]8291
  111. 350 [151]54272,FR [175] 255
  112. 355 [151]54273,[181](FR[173]256)
  113. 360 [151]54277,34:[151]54278,34:[151]54276,17
  114. 365 [129]I[178]1[164]200:[130]:[151]54276,16:[129]T[178]54272[164]54295:[151]T,0:[130]:[142]
  115. 370 [143] SUCCESS
  116. 375 HI[178]16:LO[178]195
  117. 380 [151]54277,34:[151]54278,34:[151]54277,LO:[151]54273,HI:[151]54276,17
  118. 385 [129]I[178]1[164]16:[151]54276,16:[151]54276,17:LO[178]LO[172]9
  119. 390 [139]LO[179]256[167]400
  120. 395 LO[178]LO[171]256:HI[178]HI[170]1:[137]390
  121. 400 [151]54272,LO:[151]54273,HI:[130]
  122. 405 [151]54276,16:[129]I[178]1[164]200:[130]:[151]54272,15:[151]54273,67
  123. 410 [151]54276,17:[129]I[178]1[164]20:[130]:[151]54276,16:[129]T[178]54272[164]54295:[151]T,0:[130]
  124. 415 [142]
  125.