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