THE GREAT FRED.C
FILE INFORMATION
FILENAME(S): THE GREAT FRED.C
FILE TYPE(S): PRG
FILE SIZE: 4K
FIRST SEEN: 2025-11-30 18:13:13
APPEARS ON: 2 disk(s)
FILE HASH
ba67bbf321319c9ca291ec7515128114e8cadfbf7e22287d2deb14d9f1ac59ff
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TPUG JAN 84 C | THE GREAT FRED.C | PRG | Sailor, Ganheden | 25 | 0 | DOWNLOAD FILE |
| TPUG JAN 84 C | THE GREAT FRED.C | PRG | DuncanTwain | 25 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0B 08 05 00 99 22 43 93 22 00 18 08 06 00 |......."C.".....| 00000010: 97 35 33 32 38 31 2C 31 00 21 08 07 00 8D 37 33 |.53281,1.!....73| 00000020: 30 00 33 08 0A 00 8F 20 4D 49 4E 44 20 52 45 41 |0.3.... MIND REA| 00000030: 44 45 52 00 3E 08 0C 00 81 48 B2 30 A4 35 00 44 |DER.>....H.0.5.D| 00000040: 08 0D 00 99 00 4B 08 0E 00 82 48 00 56 08 0F 00 |.....K....H.V...| 00000050: 99 C7 28 33 30 29 00 63 08 14 00 97 35 33 32 38 |..(30).c....5328| 00000060: 31 2C 31 00 70 08 18 00 97 35 33 32 38 30 2C 32 |1,1.p....53280,2| 00000070: 00 8F 08 19 00 99 A3 31 32 29 22 41 52 45 20 59 |.......12)"ARE Y| 00000080: 4F 55 20 52 45 41 44 59 22 2C C7 28 31 33 29 00 |OU READY",.(13).| 00000090: 95 08 1B 00 99 00 B1 08 1C 00 99 A3 31 34 29 22 |............14)"| 000000A0: 54 4F 20 48 41 56 45 20 4D 45 22 2C C7 28 31 33 |TO HAVE ME",.(13| 000000B0: 29 00 B7 08 1E 00 99 00 D3 08 1F 00 99 A3 31 32 |).............12| 000000C0: 29 22 52 45 41 44 20 59 4F 55 52 20 4D 49 4E 44 |)"READ YOUR MIND| 000000D0: 3F 20 22 00 E8 08 20 00 99 C7 28 33 31 29 3A 99 |? "... ...(31):.| 000000E0: 3A 99 3A 99 3A 99 3A 99 00 09 09 21 00 99 A3 38 |:.:.:.:....!...8| 000000F0: 29 3A 99 22 12 20 50 52 45 53 53 20 27 59 27 20 |):.". PRESS 'Y' | 00000100: 4F 52 20 27 4E 27 20 92 22 00 1B 09 23 00 A1 4A |OR 'N' ."...#..J| 00000110: 24 3A 8B 4A 24 B2 22 22 89 33 35 00 2A 09 28 00 |$:.J$."".35.*.(.| 00000120: 8B 4A 24 B2 22 59 22 89 36 30 00 32 09 32 00 89 |.J$."Y".60.2.2..| 00000130: 20 37 00 46 09 3C 00 53 50 45 45 44 B2 32 35 3A | 7.F.<.SPEED.25:| 00000140: 99 C7 28 31 39 29 00 64 09 46 00 97 35 33 32 38 |..(19).d.F..5328| 00000150: 31 2C 31 3A 97 35 33 32 38 30 2C 37 3A 99 C7 28 |1,1:.53280,7:..(| 00000160: 31 34 37 29 00 70 09 4B 00 99 3A 99 3A 99 3A 99 |147).p.K..:.:.:.| 00000170: 00 86 09 50 00 99 A3 38 29 22 4D 59 20 4E 41 4D |...P...8)"MY NAM| 00000180: 45 20 49 53 20 22 00 9C 09 55 00 99 C7 28 32 38 |E IS "...U...(28| 00000190: 29 3A 99 A3 38 29 3A 99 3A 99 3A 99 00 CD 09 5A |):..8):.:.:....Z| 000001A0: 00 99 A3 38 29 3A 99 22 27 47 20 52 20 45 20 41 |...8):."'G R E A| 000001B0: 20 54 20 20 20 46 20 52 20 45 20 44 27 22 3A 99 | T F R E D'":.| 000001C0: 3A 99 3A 99 3A 99 3A 99 C7 28 33 31 29 00 F4 09 |:.:.:.:..(31)...| 000001D0: 5C 00 99 A3 38 29 22 20 20 20 20 20 54 48 45 20 |\...8)" THE | 000001E0: 57 4F 52 4C 44 27 53 20 47 52 45 41 54 45 53 54 |WORLD'S GREATEST| 000001F0: 20 20 20 22 00 27 0A 5D 00 99 A3 38 29 22 20 20 | ".'.]...8)" | 00000200: 20 20 20 4D 49 4E 44 20 52 45 41 44 49 4E 47 20 | MIND READING | 00000210: 43 4F 4D 50 55 54 45 52 20 20 22 3A 99 3A 99 3A |COMPUTER ":.:.:| 00000220: 99 3A 99 3A 99 3A 99 00 53 0A 5F 00 99 3A 99 A3 |.:.:.:..S._..:..| 00000230: 32 29 3A 99 22 12 20 50 52 45 53 53 20 41 4E 59 |2):.". PRESS ANY| 00000240: 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 | KEY TO CONTINUE| 00000250: 20 92 22 00 67 0A 61 00 A1 4C 24 3A 8B 4C 24 B2 | .".g.a..L$:.L$.| 00000260: 22 22 A7 20 89 39 37 00 81 0A 62 00 99 C7 28 33 |"". .97...b...(3| 00000270: 31 29 3A 99 C7 28 31 39 29 3A 99 C7 28 31 34 37 |1):..(19):..(147| 00000280: 29 00 91 0A 64 00 99 3A 99 3A 99 3A 99 3A 99 3A |)...d..:.:.:.:.:| 00000290: 99 00 B8 0A 66 00 99 C7 28 32 38 29 3A 99 A3 31 |....f...(28):..1| 000002A0: 35 29 3B 41 24 3A 99 C7 28 33 31 29 3A 99 C7 28 |5);A$:..(31):..(| 000002B0: 31 33 29 3A 99 A3 35 29 00 DD 0A 69 00 99 22 59 |13):..5)...i.."Y| 000002C0: 4F 55 20 57 49 4C 4C 20 4E 45 45 44 20 54 4F 20 |OU WILL NEED TO | 000002D0: 44 4F 20 53 4F 4D 45 20 4D 41 54 48 22 00 E9 0A |DO SOME MATH"...| 000002E0: 6A 00 99 3A 99 3A 99 3A 99 00 F2 0A 6E 00 99 A3 |j..:.:.:....n...| 000002F0: 35 29 00 17 0B 70 00 99 22 20 4E 20 4F 20 20 20 |5)...p.." N O | 00000300: 43 20 41 20 4C 20 43 20 55 20 4C 20 41 20 54 20 |C A L C U L A T | 00000310: 4F 20 52 20 53 20 22 00 34 0B 73 00 99 3A 99 3A |O R S ".4.s..:.:| 00000320: 99 3A 99 A3 31 32 29 22 50 20 4C 20 45 20 41 20 |.:..12)"P L E A | 00000330: 53 20 45 22 00 65 0B 74 00 99 3A 99 3A 99 3A 99 |S E".e.t..:.:.:.| 00000340: 3A 99 3A 99 3A 99 22 12 20 50 52 45 53 53 20 41 |:.:.:.". PRESS A| 00000350: 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E |NY KEY TO CONTIN| 00000360: 55 45 20 92 22 00 7A 0B 76 00 A1 4B 24 3A 8B 4B |UE .".z.v..K$:.K| 00000370: 24 B2 22 22 A7 20 89 31 31 38 00 91 0B 78 00 99 |$."". .118...x..| 00000380: C7 28 31 34 37 29 3A 99 3A 99 3A 99 3A 99 A3 35 |.(147):.:.:.:..5| 00000390: 29 00 A9 0B 82 00 58 B2 B5 28 35 AC BB 28 31 29 |).....X..(5..(1)| 000003A0: 29 AA 31 3A 59 B2 58 AA 58 00 C4 0B 8C 00 5A B2 |).1:Y.X.X.....Z.| 000003B0: B5 28 31 30 AC BB 28 31 29 29 AA 31 3A 41 4E 53 |.(10..(1)).1:ANS| 000003C0: B2 58 AA 5A 00 CE 0B A0 00 99 3A 99 3A 99 00 F5 |.X.Z......:.:...| 000003D0: 0B AA 00 99 A3 35 29 3A 99 22 54 48 49 4E 4B 20 |.....5):."THINK | 000003E0: 4F 46 20 41 20 4E 55 4D 42 45 52 22 3A 99 C7 28 |OF A NUMBER":..(| 000003F0: 31 33 29 3A 99 00 1B 0C B4 00 99 A3 35 29 3A 99 |13):........5):.| 00000400: 22 42 45 54 57 45 45 4E 20 31 20 41 4E 44 20 31 |"BETWEEN 1 AND 1| 00000410: 30 22 3A 99 C7 28 31 33 29 3A 99 00 40 0C D2 00 |0":..(13):..@...| 00000420: 99 A3 35 29 3A 99 22 41 44 44 20 54 48 45 20 4E |..5):."ADD THE N| 00000430: 55 4D 42 45 52 20 54 4F 20 49 54 53 45 4C 46 22 |UMBER TO ITSELF"| 00000440: 00 4D 0C DC 00 8D 36 36 30 3A 99 3A 99 00 5E 0C |.M....660:.:..^.| 00000450: E6 00 99 A3 31 35 29 22 41 44 44 22 3B 59 00 6E |....15)"ADD";Y.n| 00000460: 0C F0 00 99 3A 8D 20 36 36 30 3A 99 3A 99 00 84 |....:. 660:.:...| 00000470: 0C FA 00 99 A3 38 29 22 44 49 56 49 44 45 20 42 |.....8)"DIVIDE B| 00000480: 59 20 32 22 00 90 0C 04 01 99 3A 8D 20 36 36 30 |Y 2"......:. 660| 00000490: 00 B8 0C 06 01 99 A3 35 29 22 12 20 50 52 45 53 |.......5)". PRES| 000004A0: 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E |S ANY KEY TO CON| 000004B0: 54 49 4E 55 45 20 92 22 00 CC 0C 07 01 A1 4D 24 |TINUE ."......M$| 000004C0: 3A 8B 4D 24 B2 22 22 A7 89 32 36 33 00 DE 0C 09 |:.M$.""..263....| 000004D0: 01 99 C7 28 31 34 37 29 3A 99 3A 99 3A 99 00 F6 |...(147):.:.:...| 000004E0: 0C 0B 01 99 A3 31 35 29 22 53 55 42 54 52 41 43 |.....15)"SUBTRAC| 000004F0: 54 22 3A 99 3A 99 00 24 0D 0C 01 99 A3 35 29 22 |T":.:..$.....5)"| 00000500: 54 48 45 20 4E 55 4D 42 45 52 20 59 4F 55 20 46 |THE NUMBER YOU F| 00000510: 49 52 53 54 20 54 48 4F 55 47 48 54 20 4F 46 22 |IRST THOUGHT OF"| 00000520: 3A 99 3A 99 00 4F 0D 0D 01 99 A3 38 29 22 46 52 |:.:..O.....8)"FR| 00000530: 4F 4D 20 54 48 45 20 4E 55 4D 42 45 52 20 59 4F |OM THE NUMBER YO| 00000540: 55 20 48 41 56 45 20 4E 4F 57 22 3A 99 3A 99 00 |U HAVE NOW":.:..| 00000550: 60 0D 18 01 99 3A 8D 36 36 30 3A 99 3A 99 3A 99 |`....:.660:.:.:.| 00000560: 00 7C 0D 22 01 99 A3 31 30 29 22 41 44 44 20 54 |.|."...10)"ADD T| 00000570: 48 45 20 4E 55 4D 42 45 52 22 3B 5A 00 8D 0D 27 |HE NUMBER";Z...'| 00000580: 01 99 C7 28 32 38 29 3A 99 3A 99 3A 99 00 9B 0D |...(28):.:.:....| 00000590: 2C 01 8D 36 36 30 3A 8D 36 36 30 00 C5 0D 36 01 |,..660:.660...6.| 000005A0: 99 A3 35 29 22 54 48 45 20 4E 55 4D 42 45 52 20 |..5)"THE NUMBER | 000005B0: 59 4F 55 20 48 41 56 45 20 4E 4F 57 20 49 53 20 |YOU HAVE NOW IS | 000005C0: 22 3B 41 4E 53 00 D9 0D 38 01 99 C7 28 31 35 39 |";ANS...8...(159| 000005D0: 29 3A 99 3A 99 3A 99 3A 99 00 01 0E 39 01 99 A3 |):.:.:.:....9...| 000005E0: 35 29 22 12 20 50 52 45 53 53 20 41 4E 59 20 4B |5)". PRESS ANY K| 000005F0: 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 20 92 |EY TO CONTINUE .| 00000600: 22 00 15 0E 3B 01 A1 4E 24 3A 8B 4E 24 B2 22 22 |"...;..N$:.N$.""| 00000610: A7 89 33 31 35 00 20 0E 3D 01 99 C7 28 33 31 29 |..315. .=...(31)| 00000620: 00 2A 0E 40 01 8D 20 36 36 30 00 55 0E 4A 01 85 |.*.@.. 660.U.J..| 00000630: 22 49 53 20 54 48 49 53 20 54 48 45 20 52 49 47 |"IS THIS THE RIG| 00000640: 48 54 20 41 4E 53 57 45 52 3F 20 28 59 2F 4E 29 |HT ANSWER? (Y/N)| 00000650: 20 22 3B 44 24 00 5B 0E 54 01 99 00 65 0E 5E 01 | ";D$.[.T...e.^.| 00000660: 8D 20 36 38 30 00 79 0E 68 01 8B 20 59 45 53 20 |. 680.y.h.. YES | 00000670: B2 20 30 20 89 20 34 32 36 00 92 0E 72 01 81 20 |. 0 . 426...r.. | 00000680: 57 B2 31 A4 31 32 3A 99 20 C7 28 31 33 29 3A 82 |W.1.12:. .(13):.| 00000690: 20 57 00 BD 0E 7C 01 99 22 20 20 20 20 20 20 54 | W...|.." T| 000006A0: 48 45 20 47 52 45 41 54 20 46 52 45 44 20 49 53 |HE GREAT FRED IS| 000006B0: 20 4E 45 56 45 52 20 57 52 4F 4E 47 22 00 D3 0E | NEVER WRONG"...| 000006C0: 86 01 99 3A 81 57 B2 31 A4 37 3A 99 C7 28 37 29 |...:.W.1.7:..(7)| 000006D0: 3A 82 57 00 E7 0E 87 01 81 48 B2 30 A4 33 3A 99 |:.W......H.0.3:.| 000006E0: C7 28 37 29 3A 82 48 00 13 0F 8A 01 99 A3 33 29 |.(7):.H.......3)| 000006F0: 22 12 20 49 46 20 59 4F 55 20 57 4F 55 4C 44 20 |". IF YOU WOULD | 00000700: 4C 49 4B 45 20 54 4F 20 4B 4E 4F 57 20 20 20 20 |LIKE TO KNOW | 00000710: 20 92 22 00 3F 0F 8B 01 99 A3 33 29 22 12 20 57 | .".?.....3)". W| 00000720: 48 59 20 49 20 41 4D 20 43 41 4C 4C 45 44 20 46 |HY I AM CALLED F| 00000730: 52 45 44 20 50 52 45 53 53 20 46 37 20 92 22 00 |RED PRESS F7 .".| 00000740: 49 0F 8C 01 99 C7 28 37 29 00 5D 0F 8D 01 81 48 |I.....(7).]....H| 00000750: B2 30 A4 33 3A 99 C7 28 37 29 3A 82 48 00 68 0F |.0.3:..(7):.H.h.| 00000760: 8E 01 99 C7 28 33 30 29 00 90 0F 8F 01 99 A3 33 |....(30).......3| 00000770: 29 22 12 20 54 4F 20 43 4F 4E 54 49 4E 55 45 20 |)". TO CONTINUE | 00000780: 50 52 45 53 53 20 41 4E 59 20 4B 45 59 20 92 22 |PRESS ANY KEY ."| 00000790: 00 A4 0F 90 01 A1 44 24 3A 8B 44 24 B2 22 22 A7 |......D$:.D$."".| 000007A0: 89 34 30 30 00 B8 0F 91 01 8B 44 24 B2 C7 28 31 |.400......D$..(1| 000007B0: 33 36 29 A7 89 38 35 30 00 C2 0F 9A 01 CB 20 A4 |36)..850...... .| 000007C0: 20 37 00 CC 0F A4 01 8D 20 36 36 30 00 F3 0F A9 | 7...... 660....| 000007D0: 01 99 A3 31 30 29 22 42 45 43 41 55 53 45 22 3A |...10)"BECAUSE":| 000007E0: 99 C7 28 31 33 29 3A 99 C7 28 37 29 3A 99 C7 28 |..(13):..(7):..(| 000007F0: 32 38 29 00 1B 10 AA 01 99 A3 38 29 22 27 54 48 |28).......8)"'TH| 00000800: 45 20 47 52 45 41 54 20 46 52 45 44 27 22 3A 99 |E GREAT FRED'":.| 00000810: C7 28 37 29 3A 99 C7 28 33 31 29 00 44 10 AB 01 |.(7):..(31).D...| 00000820: 99 A3 38 29 22 41 4C 4D 4F 53 54 20 4E 45 56 45 |..8)"ALMOST NEVE| 00000830: 52 22 3A 99 C7 28 37 29 3A 99 C7 28 37 29 3A 99 |R":..(7):..(7):.| 00000840: C7 28 37 29 00 77 10 AC 01 99 A3 38 29 22 4D 41 |.(7).w.....8)"MA| 00000850: 4B 45 53 20 41 20 4D 41 53 54 41 4B 45 20 4F 4F |KES A MASTAKE OO| 00000860: 50 53 21 21 22 3A 99 C7 28 37 29 3A 99 C7 28 37 |PS!!":..(7):..(7| 00000870: 29 3A 99 C7 28 37 29 00 88 10 AD 01 97 33 37 2C |):..(7)......37,| 00000880: 32 31 3A 99 C7 28 37 29 00 96 10 B8 01 97 20 33 |21:..(7)...... 3| 00000890: 37 2C 32 31 3A 99 00 C2 10 BD 01 99 A3 38 29 22 |7,21:........8)"| 000008A0: 4D 41 4B 45 53 20 41 20 4D 49 53 54 41 4B 45 22 |MAKES A MISTAKE"| 000008B0: 3A 99 C7 28 37 29 3A 99 C7 28 37 29 3A 99 C7 28 |:..(7):..(7):..(| 000008C0: 37 29 00 EF 10 C2 01 99 A3 38 29 22 4C 45 54 27 |7).......8)"LET'| 000008D0: 53 20 43 48 45 43 4B 20 59 4F 55 52 20 4D 41 54 |S CHECK YOUR MAT| 000008E0: 48 22 3A 99 C7 28 37 29 3A 99 C7 28 37 29 3A 00 |H":..(7):..(7):.| 000008F0: F8 10 CC 01 8D 36 36 30 00 1F 11 D6 01 85 22 57 |.....660......"W| 00000900: 48 41 54 20 4E 55 4D 42 45 52 20 44 49 44 20 59 |HAT NUMBER DID Y| 00000910: 4F 55 20 54 48 49 4E 4B 20 4F 46 20 22 3B 54 00 |OU THINK OF ";T.| 00000920: 29 11 E0 01 52 B2 54 AA 54 00 33 11 EA 01 8D 20 |)...R.T.T.3.... | 00000930: 36 36 30 00 5D 11 F4 01 99 22 4E 4F 57 20 22 3B |660.]...."NOW ";| 00000940: 54 3B 22 20 41 44 44 45 44 20 54 4F 20 22 3B 54 |T;" ADDED TO ";T| 00000950: 3B 22 20 45 51 55 41 4C 53 20 22 3B 52 00 67 11 |;" EQUALS ";R.g.| 00000960: FE 01 53 B2 52 AA 59 00 71 11 08 02 8D 20 36 36 |..S.R.Y.q.... 66| 00000970: 30 00 97 11 12 02 99 A3 35 29 22 49 20 41 53 4B |0.......5)"I ASK| 00000980: 20 59 4F 55 20 54 4F 20 41 44 44 20 22 3B 59 3B | YOU TO ADD ";Y;| 00000990: 22 20 41 4E 44 20 22 00 B1 11 14 02 99 A3 38 29 |" AND ".......8)| 000009A0: 52 3B 22 20 2B 20 22 3B 59 3B 22 20 3D 20 22 3B |R;" + ";Y;" = ";| 000009B0: 53 00 BD 11 1C 02 55 20 B2 20 53 AD 32 00 C7 11 |S.....U . S.2...| 000009C0: 26 02 8D 20 36 36 30 00 ED 11 30 02 99 20 22 49 |&.. 660...0.. "I| 000009D0: 20 41 53 4B 20 59 4F 55 20 54 4F 20 44 49 56 49 | ASK YOU TO DIVI| 000009E0: 44 45 20 42 59 20 32 20 41 4E 44 20 22 00 0E 12 |DE BY 2 AND "...| 000009F0: 3A 02 99 20 53 3B 22 44 49 56 49 44 45 44 20 42 |:.. S;"DIVIDED B| 00000A00: 59 20 32 20 45 51 55 41 4C 53 20 22 3B 55 00 18 |Y 2 EQUALS ";U..| 00000A10: 12 44 02 56 B2 55 AB 54 00 22 12 4E 02 8D 20 36 |.D.V.U.T.".N.. 6| 00000A20: 36 30 00 4A 12 58 02 99 22 49 20 41 53 4B 20 59 |60.J.X.."I ASK Y| 00000A30: 4F 55 20 54 4F 20 53 55 42 54 52 41 43 54 20 54 |OU TO SUBTRACT T| 00000A40: 48 45 20 4E 55 4D 42 45 52 22 00 6D 12 59 02 99 |HE NUMBER".m.Y..| 00000A50: 22 20 59 4F 55 20 46 49 52 53 54 20 54 48 4F 55 |" YOU FIRST THOU| 00000A60: 47 48 54 20 4F 46 20 57 48 49 43 48 22 00 7E 12 |GHT OF WHICH".~.| 00000A70: 5A 02 99 22 20 20 20 57 41 53 22 3B 54 3B 00 9C |Z.." WAS";T;..| 00000A80: 12 62 02 99 22 20 41 4E 44 22 3B 55 3B 22 20 2D |.b.." AND";U;" -| 00000A90: 20 22 3B 54 3B 22 20 3D 20 22 3B 56 00 A6 12 6C | ";T;" = ";V...l| 00000AA0: 02 51 B2 56 AA 5A 00 B0 12 76 02 8D 20 36 36 30 |.Q.V.Z...v.. 660| 00000AB0: 00 D6 12 80 02 99 A3 38 29 22 49 20 41 53 4B 20 |.......8)"I ASK | 00000AC0: 59 4F 55 20 54 4F 20 41 44 44 20 22 3B 5A 3B 22 |YOU TO ADD ";Z;"| 00000AD0: 20 41 4E 44 20 22 00 F0 12 82 02 99 A3 38 29 56 | AND ".......8)V| 00000AE0: 3B 22 20 2B 20 22 3B 5A 3B 22 20 3D 20 22 3B 51 |;" + ";Z;" = ";Q| 00000AF0: 00 00 13 85 02 8D 20 36 36 30 3B 8D 20 36 36 30 |...... 660;. 660| 00000B00: 00 0A 13 8A 02 89 20 33 37 30 00 1A 13 94 02 81 |...... 370......| 00000B10: 49 B2 31 20 A4 20 33 30 30 30 00 22 13 96 02 82 |I.1 . 3000."....| 00000B20: 20 49 00 2D 13 98 02 99 20 C7 28 37 29 00 33 13 | I.-.... .(7).3.| 00000B30: 9E 02 8E 00 49 13 A8 02 8B 20 44 24 B2 22 59 22 |....I.... D$."Y"| 00000B40: A7 20 59 45 53 B2 31 3A 8E 00 5F 13 B2 02 8B 20 |. YES.1:.._.... | 00000B50: 44 24 B2 22 4E 22 A7 20 59 45 53 B2 30 3A 8E 00 |D$."N". YES.0:..| 00000B60: 86 13 BC 02 99 22 50 52 45 53 53 20 27 59 27 20 |....."PRESS 'Y' | 00000B70: 4F 52 20 27 4E 27 20 20 20 22 3B 4E B0 4D 41 4C |OR 'N' ";N.MAL| 00000B80: 3A 89 20 33 33 30 00 8C 13 C6 02 80 00 98 13 DA |:. 330..........| 00000B90: 02 99 C7 28 31 34 37 29 00 AC 13 E4 02 81 50 B2 |...(147)......P.| 00000BA0: 30 A4 35 3A 99 C7 28 37 29 3A 82 50 00 D6 13 EE |0.5:..(7):.P....| 00000BB0: 02 99 C7 28 32 38 29 3A 97 35 33 32 37 31 2C 31 |...(28):.53271,1| 00000BC0: 3A 99 A3 31 32 29 22 54 48 45 20 47 52 45 41 54 |:..12)"THE GREAT| 00000BD0: 20 46 52 45 44 22 00 F3 13 F8 02 99 C7 28 37 29 | FRED".......(7)| 00000BE0: 3A 99 C7 28 37 29 3A 99 C7 28 37 29 3A 99 C7 28 |:..(7):..(7):..(| 00000BF0: 33 31 29 00 0F 14 02 03 99 A3 31 32 29 22 42 59 |31).......12)"BY| 00000C00: 20 47 45 4F 52 47 45 20 48 49 4C 54 4F 4E 22 00 | GEORGE HILTON".| 00000C10: 37 14 04 03 99 C7 28 37 29 3A 99 C7 28 37 29 3A |7.....(7):..(7):| 00000C20: 99 C7 28 37 29 3A 99 C7 28 37 29 3A 99 C7 28 37 |..(7):..(7):..(7| 00000C30: 29 3A 99 A3 31 32 29 00 4A 14 05 03 99 C7 28 31 |):..12).J.....(1| 00000C40: 35 36 29 3A 99 C7 28 31 38 29 00 7E 14 06 03 99 |56):..(18).~....| 00000C50: A3 31 29 22 12 20 50 52 45 53 53 20 41 4E 59 20 |.1)". PRESS ANY | 00000C60: 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 2C |KEY TO CONTINUE,| 00000C70: 20 46 31 20 54 4F 20 53 54 4F 50 20 92 22 00 92 | F1 TO STOP ."..| 00000C80: 14 07 03 A1 51 24 3A 8B 51 24 B2 22 22 A7 89 37 |....Q$:.Q$.""..7| 00000C90: 37 35 00 A5 14 08 03 99 C7 28 31 34 37 29 3A 99 |75.......(147):.| 00000CA0: C7 28 33 31 29 00 BA 14 09 03 8B 51 24 B2 C7 28 |.(31)......Q$..(| 00000CB0: 31 33 33 29 A7 20 89 37 31 30 00 CE 14 0A 03 8B |133). .710......| 00000CC0: 51 24 B2 C7 28 31 33 39 29 A7 89 39 37 35 00 E4 |Q$..(139)..975..| 00000CD0: 14 0C 03 97 35 33 32 38 30 2C 39 3A 97 35 33 32 |....53280,9:.532| 00000CE0: 38 31 2C 31 00 05 15 11 03 99 C7 28 37 29 3A 99 |81,1.......(7):.| 00000CF0: C7 28 37 29 3A 99 C7 28 37 29 3A 99 C7 28 37 29 |.(7):..(7):..(7)| 00000D00: 3A 99 A3 38 29 00 29 15 16 03 99 22 50 4C 45 41 |:..8).)...."PLEA| 00000D10: 53 45 20 49 4E 50 55 54 20 59 4F 55 52 20 4E 41 |SE INPUT YOUR NA| 00000D20: 4D 45 22 3B C7 28 31 33 29 00 54 15 1B 03 99 A3 |ME";.(13).T.....| 00000D30: 38 29 22 46 4F 4C 4C 4F 57 45 44 20 42 59 20 41 |8)"FOLLOWED BY A| 00000D40: 20 52 45 54 55 52 4E 22 3A 99 C7 28 31 33 29 3A | RETURN":..(13):| 00000D50: 99 A3 38 29 00 5D 15 1C 03 85 20 41 24 00 69 15 |..8).].... A$.i.| 00000D60: 20 03 99 C7 28 31 34 37 29 00 8A 15 2A 03 99 C7 | ...(147)...*...| 00000D70: 28 37 29 3A 99 C7 28 37 29 3A 99 C7 28 37 29 3A |(7):..(7):..(7):| 00000D80: 99 C7 28 37 29 3A 99 A3 38 29 00 A2 15 34 03 99 |..(7):..8)...4..| 00000D90: 22 48 45 4C 4C 4F 20 22 3B 41 24 3A 99 C7 28 31 |"HELLO ";A$:..(1| 00000DA0: 33 29 00 C9 15 39 03 99 A3 38 29 22 4D 59 20 4E |3)...9...8)"MY N| 00000DB0: 41 4D 45 20 49 53 20 46 52 45 44 22 3A 99 C7 28 |AME IS FRED":..(| 00000DC0: 31 33 29 3A 99 C7 28 37 29 00 0A 16 3E 03 99 A3 |13):..(7)...>...| 00000DD0: 38 29 22 49 20 41 4D 20 50 4C 45 41 53 45 44 20 |8)"I AM PLEASED | 00000DE0: 54 4F 20 4D 45 45 54 20 59 4F 55 22 3A 99 C7 28 |TO MEET YOU":..(| 00000DF0: 37 29 3A 99 C7 28 37 29 3A 99 C7 28 37 29 3A 99 |7):..(7):..(7):.| 00000E00: C7 28 37 29 3A 99 C7 28 37 29 00 1F 16 40 03 99 |.(7):..(7)...@..| 00000E10: C7 28 37 29 3A 99 C7 28 37 29 3A 99 A3 34 29 00 |.(7):..(7):..4).| 00000E20: 4C 16 42 03 99 C7 28 31 35 36 29 3A 99 22 12 20 |L.B...(156):.". | 00000E30: 50 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 4F |PRESS ANY KEY TO| 00000E40: 20 43 4F 4E 54 49 4E 55 45 20 20 22 00 55 16 43 | CONTINUE ".U.C| 00000E50: 03 99 A3 38 29 00 6A 16 44 03 A1 43 24 3A 8B 43 |...8).j.D..C$:.C| 00000E60: 24 B2 22 22 A7 20 89 38 33 36 00 78 16 48 03 99 |$."". .836.x.H..| 00000E70: C7 28 31 34 37 29 3A 8E 00 95 16 52 03 97 35 33 |.(147):....R..53| 00000E80: 32 38 30 2C 39 3A 97 35 33 32 38 31 2C 31 3A 99 |280,9:.53281,1:.| 00000E90: C7 28 32 38 29 00 B1 16 5C 03 99 C7 28 31 34 37 |.(28)...\...(147| 00000EA0: 29 3A 81 48 B2 30 A4 33 3A 99 C7 28 37 29 3A 82 |):.H.0.3:..(7):.| 00000EB0: 48 00 DF 16 66 03 99 A3 35 29 22 46 22 3A 99 C7 |H...f...5)"F":..| 00000EC0: 28 33 31 29 3A 99 A3 38 29 22 53 4F 4D 45 54 49 |(31):..8)"SOMETI| 00000ED0: 4D 45 53 20 49 20 41 4D 20 46 55 4E 4E 59 22 00 |MES I AM FUNNY".| 00000EE0: E9 16 70 03 99 C7 28 37 29 00 F4 16 7A 03 99 C7 |..p...(7)...z...| 00000EF0: 28 32 38 29 00 2A 17 84 03 99 A3 35 29 22 52 22 |(28).*.....5)"R"| 00000F00: 3A 99 C7 28 33 31 29 3A 99 A3 38 29 22 4F 43 43 |:..(31):..8)"OCC| 00000F10: 41 53 49 4F 4E 41 4C 4C 59 20 49 20 41 4D 20 52 |ASIONALLY I AM R| 00000F20: 45 44 49 43 55 4C 4F 55 53 22 00 3B 17 8E 03 99 |EDICULOUS".;....| 00000F30: C7 28 37 29 3A 99 C7 28 32 38 29 00 77 17 98 03 |.(7):..(28).w...| 00000F40: 99 A3 35 29 22 45 20 44 22 3A 99 C7 28 33 31 29 |..5)"E D":..(31)| 00000F50: 3A 99 A3 38 29 22 41 4C 57 41 59 53 20 49 20 41 |:..8)"ALWAYS I A| 00000F60: 4D 20 41 4E 20 45 4C 45 43 54 52 4F 4E 49 43 20 |M AN ELECTRONIC | 00000F70: 44 45 56 49 43 45 22 00 8B 17 A2 03 81 48 B2 30 |DEVICE"......H.0| 00000F80: A4 35 3A 99 C7 28 37 29 3A 82 48 00 B0 17 C0 03 |.5:..(7):.H.....| 00000F90: 99 22 12 20 54 4F 20 43 4F 4E 54 49 4E 55 45 20 |.". TO CONTINUE | 00000FA0: 50 52 45 53 53 20 41 4E 59 20 4B 45 59 20 92 22 |PRESS ANY KEY ."| 00000FB0: 00 C4 17 CA 03 A1 44 24 3A 8B 44 24 B2 22 22 A7 |......D$:.D$."".| 00000FC0: 89 39 37 30 00 CC 17 D4 03 89 20 37 00 00 00 |.970...... 7... |
......."C."......53281,1.!....730.3.... MIND READER.>....H.0.5.D.....K....H.V... .G(30).C....53281,1.P....53280,2.......1 2)"ARE YOU READY",G(13).............14)" TO HAVE ME",G(13).......S.....12)"READ Y OUR MIND? "... ..G(31):.:.:.:.:....!...8 ):.". PRESS 'Y' OR 'N' ."...#..J$:.J$."" .35.*.(..J$."Y".60.2.2.. 7.F.<.SPEED.25: .G(19).D.F..53281,1:.53280,7:.G(147).P.K ..:.:.:....P...8)"MY NAME IS "...U..G(28 ):..8):.:.:..M.Z...8):."'G R E A T F R E D'":.:.:.:.:.G(31)...\...8)" THE WORLD'S GREATEST ".'.]...8)" MIND READING COMPUTER ":.:.:.:.:.:..S._..:.. 2):.". PRESS ANY KEY TO CONTINUE .".G.A. .L$:.L$."". .97...B..G(31):.G(19):.G(147 )...D..:.:.:.:.:....F..G(28):..15);A$:.G (31):.G(13):..5)...I.."YOU WILL NEED TO DO SOME MATH"...J..:.:.:....N...5)...P.. " N O C A L C U L A T O R S ".4.S..:.: .:..12)"P L E A S E".E.T..:.:.:.:.:.:.". PRESS ANY KEY TO CONTINUE .".Z.V..K$:.K $."". .118...X..G(147):.:.:.:..5).....X. .(5..(1)).1:Y.X.X.D...Z..(10..(1)).1:ANS .X.Z.N. ..:.:........5):."THINK OF A NUM BER":.G(13):........5):."BETWEEN 1 AND 1 0":.G(13):..@.R...5):."ADD THE NUMBER TO ITSELF".M....660:.:..^.....15)"ADD";Y.N ....:. 660:.:........8)"DIVIDE BY 2".... ..:. 660.......5)". PRESS ANY KEY TO CON TINUE .".L....M$:.M$.""..263......G(147) :.:.:........15)"SUBTRACT":.:..$.....5)" THE NUMBER YOU FIRST THOUGHT OF":.:..O.. ...8)"FROM THE NUMBER YOU HAVE NOW":.:.. `....:.660:.:.:..|."...10)"ADD THE NUMBE R";Z...'..G(28):.:.:....,..660:.660.E.6. ..5)"THE NUMBER YOU HAVE NOW IS ";ANS.Y. 8..G(159):.:.:.:....9...5)". PRESS ANY K EY TO CONTINUE ."...;..N$:.N$.""..315. . =..G(31).*.@.. 660.U.J.."IS THIS THE RIG HT ANSWER? (Y/N) ";D$.[.T...E.^.. 680.Y. H.. YES . 0 . 426...R.. W.1.12:. G(13):. W...|.." THE GREAT FRED IS NEVER W RONG".S....:.W.1.7:.G(7):.W......H.0.3:. G(7):.H.......3)". IF YOU WOULD LIKE TO KNOW .".?.....3)". WHY I AM CALLED F RED PRESS F7 .".I....G(7).]....H.0.3:.G( 7):.H.H....G(30).......3)". TO CONTINUE PRESS ANY KEY ."......D$:.D$.""..400.... ..D$.G(136)..850.B...K . 7.L.... 660.... ...10)"BECAUSE":.G(13):.G(7):.G(28)..... ..8)"'THE GREAT FRED'":.G(7):.G(31).D... ..8)"ALMOST NEVER":.G(7):.G(7):.G(7).W.. ...8)"MAKES A MASTAKE OOPS!!":.G(7):.G(7 ):.G(7)......37,21:.G(7)...... 37,21:..B .....8)"MAKES A MISTAKE":.G(7):.G(7):.G( 7)...B...8)"LET'S CHECK YOUR MATH":.G(7) :.G(7):...L..660...V.."WHAT NUMBER DID Y OU THINK OF ";T.)...R.T.T.3.... 660.]... ."NOW ";T;" ADDED TO ";T;" EQUALS ";R.G. ..S.R.Y.Q.... 660.......5)"I ASK YOU TO ADD ";Y;" AND ".......8)R;" + ";Y;" = "; S.....U . S.2.G.&.. 660...0.. "I ASK YOU TO DIVIDE BY 2 AND "...:.. S;"DIVIDED B Y 2 EQUALS ";U...D.V.U.T.".N.. 660.J.X.. "I ASK YOU TO SUBTRACT THE NUMBER".M.Y.. " YOU FIRST THOUGHT OF WHICH".~.Z.." W AS";T;...B.." AND";U;" - ";T;" = ";V...L .Q.V.Z...V.. 660.V.....8)"I ASK YOU TO A DD ";Z;" AND ".......8)V;" + ";Z;" = ";Q ...... 660;. 660...... 370......I.1 . 30 00.".... I.-.... G(7).3.....I.... D$."Y" . YES.1:.._.... D$."N". YES.0:......."PR ESS 'Y' OR 'N' ";N.MAL:. 330...F.....Z ..G(147)......P.0.5:.G(7):.P.V....G(28): .53271,1:..12)"THE GREAT FRED"......G(7) :.G(7):.G(7):.G(31).......12)"BY GEORGE HILTON".7....G(7):.G(7):.G(7):.G(7):.G(7 ):..12).J....G(156):.G(18).~.....1)". PR ESS ANY KEY TO CONTINUE, F1 TO STOP .".. ....Q$:.Q$.""..775......G(147):.G(31)... ...Q$.G(133). .710.N....Q$.G(139)..975.. ....53280,9:.53281,1......G(7):.G(7):.G( 7):.G(7):..8).)...."PLEASE INPUT YOUR NA ME";G(13).T.....8)"FOLLOWED BY A RETURN" :.G(13):..8).].... A$.I. ..G(147)...*..G (7):.G(7):.G(7):.G(7):..8)...4.."HELLO " ;A$:.G(13).I.9...8)"MY NAME IS FRED":.G( 13):.G(7)...>...8)"I AM PLEASED TO MEET YOU":.G(7):.G(7):.G(7):.G(7):.G(7)...@.. G(7):.G(7):..4).L.B..G(156):.". PRESS AN Y KEY TO CONTINUE ".U.C...8).J.D..C$:.C $."". .836.X.H..G(147):....R..53280,9:.5 3281,1:.G(28)...\..G(147):.H.0.3:.G(7):. H...F...5)"F":.G(31):..8)"SOMETIMES I AM FUNNY"...P..G(7)...Z..G(28).*.....5)"R" :.G(31):..8)"OCCASIONALLY I AM REDICULOU S".;....G(7):.G(28).W.....5)"E D":.G(31) :..8)"ALWAYS I AM AN ELECTRONIC DEVICE". .....H.0.5:.G(7):.H......". TO CONTINUE PRESS ANY KEY .".D.J..D$:.D$.""..970.L.T .. 7...
> CLICK IMAGE PREVIEW FOR FULL MODAL