MIND READ.C
FILE INFORMATION
FILENAME(S): MIND READ.C
FILE TYPE(S): PRG
FILE SIZE: 3.8K
FIRST SEEN: 2025-11-30 21:07:08
APPEARS ON: 1 disk(s)
FILE HASH
8a01e3495e963278ba95aa0cc2290cd49b5683f004c257679d5bd2fdd571933c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TPUG DEC 84 C | MIND READ.C | PRG | DuncanTwain | 27 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 27 08 64 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..'.d.. ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 00 4D 08 6E 00 8F 20 2A 2A |*******.M.n.. **|
00000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 73 08 |*************.s.|
00000050: 78 00 8F 20 2A 2A 2A 2A 20 20 20 20 20 20 20 20 |x.. **** |
00000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A | *|
00000070: 2A 2A 2A 00 99 08 82 00 8F 20 2A 2A 2A 2A 20 20 |***...... **** |
00000080: 42 59 20 42 52 49 41 4E 20 41 2E 4D 49 54 43 48 |BY BRIAN A.MITCH|
00000090: 45 4C 4C 20 20 2A 2A 2A 2A 00 BF 08 8C 00 8F 20 |ELL ****...... |
000000A0: 2A 2A 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 |**** |
000000B0: 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 2A 00 | ****.|
000000C0: E5 08 96 00 8F 20 2A 2A 2A 2A 20 20 42 52 4F 43 |..... **** BROC|
000000D0: 4B 56 49 4C 4C 45 2C 20 4F 4E 54 41 52 49 4F 20 |KVILLE, ONTARIO |
000000E0: 20 2A 2A 2A 2A 00 0B 09 A0 00 8F 20 2A 2A 2A 2A | ****...... ****|
000000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000100: 20 20 20 20 20 20 20 2A 2A 2A 2A 00 31 09 AA 00 | ****.1...|
00000110: 8F 20 2A 2A 2A 2A 20 20 20 20 20 36 31 33 2D 33 |. **** 613-3|
00000120: 34 32 2D 30 37 33 33 20 20 20 20 20 20 2A 2A 2A |42-0733 ***|
00000130: 2A 00 57 09 B4 00 8F 20 2A 2A 2A 2A 20 20 20 20 |*.W.... **** |
00000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000150: 20 20 20 2A 2A 2A 2A 00 7D 09 BE 00 8F 20 2A 2A | ****.}.... **|
00000160: 2A 2A 20 20 20 20 20 20 20 46 45 42 20 31 39 38 |** FEB 198|
00000170: 34 20 20 20 20 20 20 20 20 2A 2A 2A 2A 00 A3 09 |4 ****...|
00000180: C8 00 8F 20 2A 2A 2A 2A 20 20 20 20 20 20 20 20 |... **** |
00000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A | *|
000001A0: 2A 2A 2A 00 C9 09 D2 00 8F 20 2A 2A 2A 2A 20 20 |***...... **** |
000001B0: 20 20 20 20 54 50 55 47 23 20 32 39 32 33 20 20 | TPUG# 2923 |
000001C0: 20 20 20 20 20 2A 2A 2A 2A 00 EF 09 DC 00 8F 20 | ****...... |
000001D0: 2A 2A 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 |**** |
000001E0: 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 2A 00 | ****.|
000001F0: 15 0A E6 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..... **********|
00000200: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000210: 2A 2A 2A 2A 2A 00 3B 0A F0 00 8F 20 2A 2A 2A 2A |*****.;.... ****|
00000220: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000230: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 41 0A FA 00 |***********.A...|
00000240: 8F 00 5F 0A 04 01 81 4C B2 35 34 32 37 32 A4 35 |.._....L.54272.5|
00000250: 34 32 39 36 3A 97 4C 2C 30 3A 82 3A 4C B2 30 00 |4296:.L,0:.:L.0.|
00000260: 7B 0A 0E 01 99 22 93 98 22 3A 97 35 33 32 38 30 |{...."..":.53280|
00000270: 2C 30 3A 97 35 33 32 38 31 2C 30 00 A8 0A 18 01 |,0:.53281,0.....|
00000280: 97 35 34 32 39 36 2C 31 35 3A 97 35 34 32 37 37 |.54296,15:.54277|
00000290: 2C 31 36 3A 97 35 34 32 37 38 2C 31 32 35 3A 97 |,16:.54278,125:.|
000002A0: 35 34 32 37 36 2C 31 37 00 C3 0A 22 01 8D 31 34 |54276,17..."..14|
000002B0: 39 30 3A 8B C2 28 31 38 35 34 29 B3 B1 31 33 A7 |90:..(1854)..13.|
000002C0: 37 39 30 00 E2 0A 2C 01 99 22 93 22 3A 99 A3 31 |790...,..".":..1|
000002D0: 33 29 22 12 20 20 4D 49 4E 44 20 52 45 41 44 20 |3)". MIND READ |
000002E0: 20 22 00 F8 0A 36 01 99 3A 99 22 49 4E 53 54 52 | "...6..:."INSTR|
000002F0: 55 43 54 49 4F 4E 53 22 00 0C 0B 40 01 99 22 B7 |UCTIONS"...@..".|
00000300: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 22 00 14 0B 4A |..........."...J|
00000310: 01 99 3A 99 00 5B 0B 54 01 99 22 54 48 45 20 43 |..:..[.T.."THE C|
00000320: 4F 4D 50 55 54 45 52 20 57 49 4C 4C 20 41 53 4B |OMPUTER WILL ASK|
00000330: 20 59 4F 55 20 54 4F 20 53 45 4C 45 43 54 20 41 | YOU TO SELECT A|
00000340: 20 4E 55 4D 42 45 52 20 42 45 54 57 45 45 4E 20 | NUMBER BETWEEN |
00000350: 31 20 41 4E 44 20 31 30 30 2E 22 00 61 0B 5E 01 |1 AND 100.".a.^.|
00000360: 99 00 A5 0B 68 01 99 22 59 4F 55 20 57 49 4C 4C |....h.."YOU WILL|
00000370: 20 54 48 45 4E 20 42 45 20 52 45 51 55 49 52 45 | THEN BE REQUIRE|
00000380: 44 20 54 4F 20 50 45 52 46 4F 52 4D 20 53 4F 4D |D TO PERFORM SOM|
00000390: 45 20 53 49 4D 50 4C 45 20 41 52 49 54 48 4D 45 |E SIMPLE ARITHME|
000003A0: 54 49 43 22 3B 00 DC 0B 72 01 99 22 20 4F 4E 20 |TIC";...r.." ON |
000003B0: 50 41 50 45 52 2C 20 55 53 49 4E 47 20 54 48 45 |PAPER, USING THE|
000003C0: 20 4E 55 4D 42 45 52 20 59 4F 55 20 48 41 56 45 | NUMBER YOU HAVE|
000003D0: 20 53 45 4C 45 43 54 45 44 20 2E 22 00 E2 0B 7C | SELECTED ."...||
000003E0: 01 99 00 2C 0C 86 01 99 22 4F 4E 20 43 4F 4D 50 |...,...."ON COMP|
000003F0: 4C 45 54 49 4F 4E 20 54 48 45 20 43 4F 4D 50 55 |LETION THE COMPU|
00000400: 54 45 52 20 57 49 4C 4C 20 47 49 56 45 20 59 4F |TER WILL GIVE YO|
00000410: 55 54 48 45 20 41 4E 53 57 45 52 2C 20 57 49 54 |UTHE ANSWER, WIT|
00000420: 48 4F 55 54 20 45 56 45 52 20 22 3B 00 53 0C 90 |HOUT EVER ";.S..|
00000430: 01 99 22 48 41 56 49 4E 47 20 53 45 45 4E 20 54 |.."HAVING SEEN T|
00000440: 48 45 4F 52 49 47 49 4E 41 4C 20 4E 55 4D 42 45 |HEORIGINAL NUMBE|
00000450: 52 2E 22 00 5C 0C 9A 01 8D 38 31 30 00 65 0C A4 |R.".\....810.e..|
00000460: 01 99 22 93 22 00 9D 0C AE 01 41 24 B2 22 31 2E |..".".....A$."1.|
00000470: 53 45 4C 45 43 54 20 41 20 4E 55 4D 42 45 52 20 |SELECT A NUMBER |
00000480: 42 45 54 57 45 45 4E 20 31 20 41 4E 44 20 31 30 |BETWEEN 1 AND 10|
00000490: 30 2E 22 3A 50 24 B2 22 13 11 11 11 22 00 A6 0C |0.":P$."...."...|
000004A0: B8 01 8D 38 35 30 00 B6 0C C2 01 81 54 B2 31 A4 |...850......T.1.|
000004B0: 36 30 30 3A 82 54 00 F3 0C CC 01 41 24 B2 22 32 |600:.T.....A$."2|
000004C0: 2E 57 52 49 54 45 20 54 48 45 20 4E 55 4D 42 45 |.WRITE THE NUMBE|
000004D0: 52 20 4F 4E 20 41 20 50 49 45 43 45 20 4F 46 20 |R ON A PIECE OF |
000004E0: 50 41 50 45 52 2E 22 3A 50 24 B2 22 13 11 11 11 |PAPER.":P$."....|
000004F0: 11 11 22 00 01 0D D6 01 8D 38 35 30 3A 8D 38 31 |.."......850:.81|
00000500: 30 00 35 0D E0 01 41 24 B2 22 33 2E 4D 55 4C 54 |0.5...A$."3.MULT|
00000510: 49 50 4C 59 20 59 4F 55 52 20 4E 55 4D 42 45 52 |IPLY YOUR NUMBER|
00000520: 20 42 59 20 32 2E 22 3A 50 24 B2 22 13 11 11 11 | BY 2.":P$."....|
00000530: 11 11 11 11 22 00 43 0D EA 01 8D 38 35 30 3A 8D |....".C....850:.|
00000540: 38 31 30 00 4C 0D F4 01 8D 39 34 30 00 79 0D FE |810.L....940.y..|
00000550: 01 41 24 B2 22 34 2E 54 4F 20 54 48 41 54 20 54 |.A$."4.TO THAT T|
00000560: 4F 54 41 4C 20 41 44 44 22 3A 50 24 B2 22 13 11 |OTAL ADD":P$."..|
00000570: 11 11 11 11 11 11 11 11 22 00 82 0D 08 02 8D 38 |........"......8|
00000580: 35 30 00 A0 0D 12 02 99 22 13 11 11 11 11 11 11 |50......".......|
00000590: 11 11 11 22 3B A3 31 39 29 3B 4E 42 3B 22 2E 22 |...";.19);NB;"."|
000005A0: 00 A9 0D 1C 02 8D 38 31 30 00 DE 0D 26 02 41 24 |......810...&.A$|
000005B0: B2 22 35 2E 44 49 56 49 44 45 20 59 4F 55 52 20 |."5.DIVIDE YOUR |
000005C0: 54 4F 54 41 4C 20 42 59 20 32 2E 22 3A 50 24 B2 |TOTAL BY 2.":P$.|
000005D0: 22 13 11 11 11 11 11 11 11 11 11 11 11 22 00 EC |"............"..|
000005E0: 0D 30 02 8D 38 35 30 3A 8D 38 31 30 00 2E 0E 3A |.0..850:.810...:|
000005F0: 02 41 24 B2 22 36 2E 53 55 42 54 52 41 43 54 20 |.A$."6.SUBTRACT |
00000600: 59 4F 55 52 20 53 45 4C 45 43 54 45 44 20 4E 55 |YOUR SELECTED NU|
00000610: 4D 42 45 52 20 46 52 4F 4D 20 54 48 45 20 20 50 |MBER FROM THE P|
00000620: 52 45 53 45 4E 54 20 54 4F 54 41 4C 2E 22 00 46 |RESENT TOTAL.".F|
00000630: 0E 44 02 50 24 B2 22 13 11 11 11 11 11 11 11 11 |.D.P$.".........|
00000640: 11 11 11 11 11 22 00 54 0E 4E 02 8D 38 35 30 3A |.....".T.N..850:|
00000650: 8D 38 31 30 00 9A 0E 58 02 41 24 B2 22 37 2E 50 |.810...X.A$."7.P|
00000660: 52 45 53 53 20 53 50 41 43 45 20 42 41 52 20 54 |RESS SPACE BAR T|
00000670: 4F 20 53 45 45 20 54 48 45 20 41 4E 53 57 45 52 |O SEE THE ANSWER|
00000680: 20 21 22 3A 50 24 B2 22 13 11 11 11 11 11 11 11 | !":P$."........|
00000690: 11 11 11 11 11 11 11 11 11 22 00 A8 0E 62 02 8D |........."...b..|
000006A0: 38 35 30 3A 8D 38 31 30 00 B1 0E 6C 02 99 22 93 |850:.810...l..".|
000006B0: 22 00 D9 0E 76 02 41 24 B2 22 54 48 45 20 43 4F |"...v.A$."THE CO|
000006C0: 52 52 45 43 54 20 41 4E 53 57 45 52 20 49 53 22 |RRECT ANSWER IS"|
000006D0: 3A 50 24 B2 22 13 11 11 22 00 E2 0E 80 02 8D 38 |:P$."..."......8|
000006E0: 35 30 00 F6 0E 8A 02 99 22 13 11 11 22 A3 32 31 |50......"...".21|
000006F0: 29 3B 4E 42 AD 32 00 31 0F 94 02 41 24 B2 22 2D |);NB.2.1...A$."-|
00000700: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000710: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000720: 2D 2D 2D 2D 2D 2D 22 3A 50 24 B2 22 13 11 11 11 |------":P$."....|
00000730: 22 00 3A 0F 9E 02 8D 38 35 30 00 4B 0F A8 02 81 |".:....850.K....|
00000740: 54 B2 31 A4 31 30 30 30 3A 82 54 00 75 0F B2 02 |T.1.1000:.T.u...|
00000750: 41 24 B2 22 49 46 20 59 4F 55 52 20 54 4F 54 41 |A$."IF YOUR TOTA|
00000760: 4C 20 44 49 46 46 45 52 53 20 50 52 45 53 53 20 |L DIFFERS PRESS |
00000770: 27 48 27 2E 22 00 85 0F BC 02 50 24 B2 22 13 11 |'H'.".....P$."..|
00000780: 11 11 11 11 22 00 8E 0F C6 02 8D 38 35 30 00 B0 |...."......850..|
00000790: 0F D0 02 41 24 B2 22 12 20 50 52 45 53 53 20 27 |...A$.". PRESS '|
000007A0: 43 27 20 54 4F 20 43 4F 4E 54 49 4E 55 45 20 22 |C' TO CONTINUE "|
000007B0: 00 D9 0F DA 02 50 24 B2 22 13 11 11 11 11 11 11 |.....P$.".......|
000007C0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 1D |................|
000007D0: 1D 1D 1D 1D 1D 1D 1D 1D 22 00 E2 0F E4 02 8D 38 |........"......8|
000007E0: 35 30 00 F7 0F EE 02 A1 41 4E 24 3A 8B 41 4E 24 |50......AN$:.AN$|
000007F0: B2 22 22 A7 37 35 30 00 08 10 F8 02 8B 41 4E 24 |."".750......AN$|
00000800: B2 22 48 22 A7 39 37 30 00 1A 10 02 03 8B 41 4E |."H".970......AN|
00000810: 24 B3 B1 22 43 22 A7 37 35 30 00 23 10 0C 03 89 |$.."C".750.#....|
00000820: 34 32 30 00 2E 10 16 03 9E 36 34 37 33 38 00 34 |420......64738.4|
00000830: 10 20 03 80 00 6A 10 2A 03 99 22 13 11 11 11 11 |. ...j.*..".....|
00000840: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000850: 11 22 A3 31 32 29 22 12 20 50 52 45 53 53 20 53 |.".12)". PRESS S|
00000860: 50 41 43 45 20 42 41 52 20 22 00 83 10 34 03 A1 |PACE BAR "...4..|
00000870: 41 4E 24 3A 8B 41 4E 24 B3 B1 C7 28 33 32 29 A7 |AN$:.AN$...(32).|
00000880: 38 32 30 00 B9 10 3E 03 99 22 13 11 11 11 11 11 |820...>.."......|
00000890: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000008A0: 22 A3 31 32 29 22 20 20 20 20 20 20 20 20 20 20 |".12)" |
000008B0: 20 20 20 20 20 20 20 20 22 00 BF 10 48 03 8E 00 | "...H...|
000008C0: CE 10 52 03 81 4C B2 31 A4 C3 28 41 24 29 00 DE |..R..L.1..(A$)..|
000008D0: 10 5C 03 99 50 24 3B C8 28 41 24 2C 4C 29 00 EC |.\..P$;.(A$,L)..|
000008E0: 10 66 03 97 35 34 32 37 33 2C 38 38 00 FB 10 70 |.f..54273,88...p|
000008F0: 03 81 54 B2 31 A4 31 30 3A 82 54 00 09 11 7A 03 |..T.1.10:.T...z.|
00000900: 97 35 34 32 37 33 2C 33 34 00 17 11 84 03 81 54 |.54273,34......T|
00000910: B2 31 A4 35 3A 82 54 00 1E 11 8E 03 82 4C 00 2B |.1.5:.T......L.+|
00000920: 11 98 03 97 35 34 32 37 33 2C 30 00 31 11 A2 03 |....54273,0.1...|
00000930: 8E 00 46 11 AC 03 4E 42 B2 B5 28 31 30 30 AC BB |..F...NB..(100..|
00000940: 28 31 29 29 AA 31 00 5F 11 B6 03 8B 4E 42 AD 32 |(1)).1._....NB.2|
00000950: AB B5 28 4E 42 AD 32 29 B2 2E 35 A7 39 34 30 00 |..(NB.2)..5.940.|
00000960: 65 11 C0 03 8E 00 6D 11 CA 03 87 41 24 00 80 11 |e.....m....A$...|
00000970: D4 03 8B 41 24 B2 22 30 22 A7 8C 3A 89 39 37 30 |...A$."0"..:.970|
00000980: 00 93 11 DE 03 50 24 B2 22 13 11 11 11 11 11 11 |.....P$.".......|
00000990: 11 11 22 00 9C 11 E8 03 8D 38 35 30 00 AD 11 F2 |.."......850....|
000009A0: 03 81 54 B2 31 A4 31 35 30 30 3A 82 54 00 B6 11 |..T.1.1500:.T...|
000009B0: FC 03 99 22 93 22 00 DB 11 06 04 41 24 B2 22 12 |...".".....A$.".|
000009C0: 20 43 4F 4D 50 55 54 45 52 53 20 41 4E 53 57 45 | COMPUTERS ANSWE|
000009D0: 52 20 92 22 3A 50 24 B2 22 13 22 00 E4 11 10 04 |R .":P$.".".....|
000009E0: 8D 38 35 30 00 F6 11 1A 04 99 22 13 22 A3 31 38 |.850......".".18|
000009F0: 29 3B 4E 42 AD 32 00 1A 12 24 04 41 24 B2 22 45 |);NB.2...$.A$."E|
00000A00: 4E 54 45 52 20 59 4F 55 52 20 53 45 4C 45 43 54 |NTER YOUR SELECT|
00000A10: 45 44 20 4E 55 4D 42 45 52 22 00 28 12 2E 04 50 |ED NUMBER".(...P|
00000A20: 24 B2 22 13 11 11 11 22 00 31 12 38 04 8D 38 35 |$."....".1.8..85|
00000A30: 30 00 47 12 42 04 99 22 13 11 11 11 22 A3 32 37 |0.G.B.."....".27|
00000A40: 29 3B 3A 85 41 4E 24 00 55 12 4C 04 41 4E B2 C5 |);:.AN$.U.L.AN..|
00000A50: 28 41 4E 24 29 00 6B 12 56 04 8B 41 4E B2 30 A7 |(AN$).k.V..AN.0.|
00000A60: 8D 31 33 34 30 3A 89 31 30 36 30 00 82 12 60 04 |.1340:.1060...`.|
00000A70: 8B 41 4E B3 31 B0 41 4E B1 31 30 30 A7 89 31 33 |.AN.1.AN.100..13|
00000A80: 39 30 00 93 12 6A 04 99 22 13 11 11 11 11 11 22 |90...j.."......"|
00000A90: 3B 41 4E 00 B5 12 74 04 41 24 B2 22 1D 1D 1D 1D |;AN...t.A$."....|
00000AA0: 1D 1D 1D 54 49 4D 45 53 22 3A 50 24 B2 22 13 11 |...TIMES":P$."..|
00000AB0: 11 11 11 11 22 00 BE 12 7E 04 8D 38 35 30 00 DC |...."...~..850..|
00000AC0: 12 88 04 99 22 13 11 11 11 11 11 22 A3 31 32 29 |...."......".12)|
00000AD0: 3B 22 20 32 20 3D 22 3B 32 AC 41 4E 00 F0 12 92 |;" 2 =";2.AN....|
00000AE0: 04 99 22 13 11 11 11 11 11 11 11 22 32 AC 41 4E |.."........"2.AN|
00000AF0: 00 05 13 9C 04 41 24 B2 22 1D 1D 1D 1D 1D 1D 1D |.....A$.".......|
00000B00: 50 4C 55 53 22 00 17 13 A6 04 50 24 B2 22 13 11 |PLUS".....P$."..|
00000B10: 11 11 11 11 11 11 22 00 20 13 B0 04 8D 38 35 30 |......". ....850|
00000B20: 00 42 13 BA 04 99 22 13 11 11 11 11 11 11 11 22 |.B...."........"|
00000B30: A3 31 32 29 3B 4E 42 22 3D 22 3B 32 AC 41 4E AA |.12);NB"=";2.AN.|
00000B40: 4E 42 00 5B 13 C4 04 99 22 13 11 11 11 11 11 11 |NB.[....".......|
00000B50: 11 11 11 22 32 AC 41 4E AA 4E 42 00 88 13 CE 04 |..."2.AN.NB.....|
00000B60: 41 24 B2 22 1D 1D 1D 1D 1D 1D 1D 44 49 56 49 44 |A$.".......DIVID|
00000B70: 45 44 20 42 59 20 32 22 3A 50 24 B2 22 13 11 11 |ED BY 2":P$."...|
00000B80: 11 11 11 11 11 11 11 22 00 91 13 D8 04 8D 38 35 |......."......85|
00000B90: 30 00 B6 13 E2 04 99 22 13 11 11 11 11 11 11 11 |0......"........|
00000BA0: 11 11 22 A3 32 30 29 3B 22 3D 22 28 32 AC 41 4E |..".20);"="(2.AN|
00000BB0: AA 4E 42 29 AD 32 00 D5 13 EC 04 99 22 13 11 11 |.NB).2......"...|
00000BC0: 11 11 11 11 11 11 11 11 11 22 28 32 AC 41 4E AA |........."(2.AN.|
00000BD0: 4E 42 29 AD 32 00 0D 14 F6 04 41 24 B2 22 1D 1D |NB).2.....A$."..|
00000BE0: 1D 1D 1D 1D 1D 4D 49 4E 55 53 20 53 45 4C 45 43 |.....MINUS SELEC|
00000BF0: 54 45 44 20 4E 55 4D 42 45 52 22 3A 50 24 B2 22 |TED NUMBER":P$."|
00000C00: 13 11 11 11 11 11 11 11 11 11 11 11 22 00 16 14 |............"...|
00000C10: 00 05 8D 38 35 30 00 42 14 0A 05 99 22 13 11 11 |...850.B...."...|
00000C20: 11 11 11 11 11 11 11 11 11 22 3B A3 32 39 29 3B |.........";.29);|
00000C30: 22 3D 22 3B 28 32 AC 41 4E AA 4E 42 29 AD 32 AB |"=";(2.AN.NB).2.|
00000C40: 41 4E 00 8B 14 14 05 41 24 B2 22 12 20 50 52 45 |AN.....A$.". PRE|
00000C50: 53 53 20 53 50 41 43 45 20 42 41 52 20 54 4F 20 |SS SPACE BAR TO |
00000C60: 43 4F 4E 54 49 4E 55 45 20 92 22 3A 50 24 B2 22 |CONTINUE .":P$."|
00000C70: 13 1D 1D 1D 1D 1D 11 11 11 11 11 11 11 11 11 11 |................|
00000C80: 11 11 11 11 11 11 11 11 11 11 22 00 94 14 1E 05 |..........".....|
00000C90: 8D 38 35 30 00 AE 14 28 05 A1 41 4E 24 3A 8B 41 |.850...(..AN$:.A|
00000CA0: 4E 24 B3 B1 C7 28 33 32 29 A7 31 33 32 30 00 B7 |N$...(32).1320..|
00000CB0: 14 32 05 89 33 30 30 00 DC 14 3C 05 41 24 B2 22 |.2..300...<.A$."|
00000CC0: 12 53 4F 52 52 59 2C 54 48 41 54 27 53 20 4E 4F |.SORRY,THAT'S NO|
00000CD0: 54 20 41 20 4E 55 4D 42 45 52 21 22 00 EA 14 46 |T A NUMBER!"...F|
00000CE0: 05 50 24 B2 22 13 11 11 11 22 00 F3 14 50 05 8D |.P$."...."...P..|
00000CF0: 38 35 30 00 04 15 5A 05 81 54 B2 31 A4 31 32 30 |850...Z..T.1.120|
00000D00: 30 3A 82 54 00 0A 15 64 05 8E 00 2F 15 6E 05 41 |0:.T...d.../.n.A|
00000D10: 24 B2 22 12 20 4F 55 54 20 4F 46 20 52 45 51 55 |$.". OUT OF REQU|
00000D20: 45 53 54 45 44 20 52 41 4E 47 45 20 21 21 22 00 |ESTED RANGE !!".|
00000D30: 3D 15 78 05 50 24 B2 22 13 11 11 11 22 00 46 15 |=.x.P$."....".F.|
00000D40: 82 05 8D 38 35 30 00 57 15 8C 05 81 54 B2 31 A4 |...850.W....T.1.|
00000D50: 31 32 30 30 3A 82 54 00 83 15 96 05 41 24 B2 22 |1200:.T.....A$."|
00000D60: 42 45 54 54 45 52 20 4C 45 41 52 4E 20 48 4F 57 |BETTER LEARN HOW|
00000D70: 20 54 4F 20 52 45 41 44 20 46 49 52 53 54 20 21 | TO READ FIRST !|
00000D80: 21 21 22 00 9C 15 A0 05 50 24 B2 22 13 11 11 11 |!!".....P$."....|
00000D90: 11 11 11 11 11 11 11 11 1D 1D 1D 22 00 A5 15 AA |..........."....|
00000DA0: 05 99 22 93 22 00 AE 15 B4 05 8D 38 35 30 00 BF |.."."......850..|
00000DB0: 15 BE 05 81 54 B2 31 A4 31 38 30 30 3A 82 54 00 |....T.1.1800:.T.|
00000DC0: C8 15 C8 05 89 33 30 30 00 E0 15 D2 05 41 24 B2 |.....300.....A$.|
00000DD0: 22 12 20 20 4D 49 4E 44 20 52 45 41 44 20 20 22 |". MIND READ "|
00000DE0: 00 03 16 DC 05 50 24 B2 22 13 11 11 11 11 11 11 |.....P$.".......|
00000DF0: 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000E00: 1D 1D 22 00 0C 16 E6 05 8D 38 35 30 00 1C 16 F0 |.."......850....|
00000E10: 05 81 54 B2 31 A4 33 30 30 3A 82 54 00 37 16 FA |..T.1.300:.T.7..|
00000E20: 05 41 24 B2 22 42 59 2D 42 52 49 41 4E 20 4D 49 |.A$."BY-BRIAN MI|
00000E30: 54 43 48 45 4C 4C 22 00 6B 16 04 06 50 24 B2 22 |TCHELL".k...P$."|
00000E40: 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000E50: 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000E60: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 00 74 16 0E 06 |..........".t...|
00000E70: 8D 38 35 30 00 85 16 18 06 81 54 B2 31 A4 31 38 |.850......T.1.18|
00000E80: 30 30 3A 82 54 00 8B 16 22 06 8E 00 B2 16 2C 06 |00:.T...".....,.|
00000E90: 83 22 3E 20 54 49 4D 45 20 54 4F 20 53 48 41 52 |."> TIME TO SHAR|
00000EA0: 50 45 4E 20 54 48 45 20 50 45 4E 43 49 4C 20 21 |PEN THE PENCIL !|
00000EB0: 21 22 00 DA 16 36 06 83 22 3E 20 49 54 27 53 20 |!"...6.."> IT'S |
00000EC0: 4F 4E 4C 59 20 53 49 4D 50 4C 45 20 41 52 49 54 |ONLY SIMPLE ARIT|
00000ED0: 48 4D 45 54 49 43 20 21 21 22 00 00 17 40 06 83 |HMETIC !!"...@..|
00000EE0: 22 3E 20 42 45 54 54 45 52 20 47 4F 20 42 41 43 |"> BETTER GO BAC|
00000EF0: 4B 20 54 4F 20 53 43 48 4F 4F 4C 20 21 21 21 22 |K TO SCHOOL !!!"|
00000F00: 00 24 17 4A 06 83 22 3E 20 54 52 59 20 55 53 49 |.$.J.."> TRY USI|
00000F10: 4E 47 20 41 20 43 41 4C 43 55 4C 41 54 4F 52 20 |NG A CALCULATOR |
00000F20: 21 21 21 22 00 45 17 54 06 83 22 3E 20 59 4F 55 |!!!".E.T.."> YOU|
00000F30: 20 4E 45 45 44 20 41 20 43 4F 4D 50 55 54 45 52 | NEED A COMPUTER|
00000F40: 20 21 21 21 22 00 4E 17 5E 06 83 22 30 22 00 00 | !!!".N.^.."0"..|
00000F50: 00 |. |
..'.D.. *******************************.
M.N.. *******************************.S.
X.. **** ****.....
. **** BY BRIAN A.MITCHELL ****......
**** ****...... **
** BROCKVILLE, ONTARIO ****... .. ****
****.1.... ****
613-342-0733 ****.W.... ****
****.}.... ****
FEB 1984 ****...H.. ****
****.I.R.. **** TPUG
# 2923 ****...... ****
****...... ******************
*************.;.... ********************
***********.A....._....L.54272.54296:.L,
0:.:L.0.{...."..":.53280,0:.53281,0.....
.54296,15:.54277,16:.54278,125:.54276,17
.C."..1490:.B(1854)..13.790...,..".":..1
3)". MIND READ "...6..:."INSTRUCTIONS"
...@.."............"...J..:..[.T.."THE C
OMPUTER WILL ASK YOU TO SELECT A NUMBER
BETWEEN 1 AND 100.".A.^.....H.."YOU WILL
THEN BE REQUIRED TO PERFORM SOME SIMPLE
ARITHMETIC";...R.." ON PAPER, USING THE
NUMBER YOU HAVE SELECTED ."...|...,....
"ON COMPLETION THE COMPUTER WILL GIVE YO
UTHE ANSWER, WITHOUT EVER ";.S...."HAVIN
G SEEN THEORIGINAL NUMBER.".\....810.E..
..".".....A$."1.SELECT A NUMBER BETWEEN
1 AND 100.":P$."...."......850...B..T.1.
600:.T...L.A$."2.WRITE THE NUMBER ON A P
IECE OF PAPER.":P$."......"...V..850:.81
0.5...A$."3.MULTIPLY YOUR NUMBER BY 2.":
P$."........".C....850:.810.L....940.Y..
.A$."4.TO THAT TOTAL ADD":P$."..........
"......850. ...."..........";.19);NB;"."
......810...&.A$."5.DIVIDE YOUR TOTAL BY
2.":P$."............"...0..850:.810...:
.A$."6.SUBTRACT YOUR SELECTED NUMBER FRO
M THE PRESENT TOTAL.".F.D.P$.".........
.....".T.N..850:.810...X.A$."7.PRESS SPA
CE BAR TO SEE THE ANSWER !":P$."........
........."...B..850:.810...L..".".Y.V.A$
."THE CORRECT ANSWER IS":P$."..."......8
50......"...".21);NB.2.1...A$."---------
------------------------------":P$."....
".:....850.K....T.1.1000:.T.U...A$."IF Y
OUR TOTAL DIFFERS PRESS 'H'.".....P$."..
...."...F..850...P.A$.". PRESS 'C' TO CO
NTINUE ".Y.Z.P$.".......................
........"......850......AN$:.AN$."".750.
.....AN$."H".970......AN$.."C".750.#....
420......64738.4. ...J.*..".............
.........".12)". PRESS SPACE BAR "...4..
AN$:.AN$..G(32).820...>.."..............
........".12)" "...H...
N.R..L.1.C(A$)...\..P$;H(A$,L)...F..5427
3,88...P..T.1.10:.T...Z..54273,34......T
.1.5:.T......L.+....54273,0.1.....F...NB
..(100..(1)).1._....NB.2..(NB.2)..5.940.
E.....M.J..A$...T..A$."0"..:.970.....P$.
"........."......850......T.1.1500:.T...
...".".....A$.". COMPUTERS ANSWER .":P$.
"."......850......".".18);NB.2...$.A$."E
NTER YOUR SELECTED NUMBER".(...P$."...."
.1.8..850.G.B.."....".27);:.AN$.U.L.AN.E
(AN$).K.V..AN.0..1340:.1060...`..AN.1.AN
.100..1390...J.."......";AN...T.A$."....
...TIMES":P$."......"...~..850......"...
...".12);" 2 =";2.AN......"........"2.AN
.....A$.".......PLUS".....P$."........".
....850.B...."........".12);NB"=";2.AN.
NB.[.D..".........."2.AN.NB...N.A$."....
...DIVIDED BY 2":P$.".........."...X..85
0......"..........".20);"="(2.AN.NB).2.U
...."............"(2.AN.NB).2.....A$."..
.....MINUS SELECTED NUMBER":P$."........
...."......850.B...."............";.29);
"=";(2.AN.NB).2.AN.....A$.". PRESS SPACE
BAR TO CONTINUE .":P$."................
.........."......850...(..AN$:.AN$..G(32
).1320...2..300...<.A$.".SORRY,THAT'S NO
T A NUMBER!"...F.P$."...."...P..850...Z.
.T.1.1200:.T...D.../.N.A$.". OUT OF REQU
ESTED RANGE !!".=.X.P$."....".F....850.W
....T.1.1200:.T.....A$."BETTER LEARN HOW
TO READ FIRST !!!"... .P$."............
..."......"."......850......T.1.1800:.T.
H.H..300...R.A$.". MIND READ ".....P$.
"........................."......850....
..T.1.300:.T.7...A$."BY-BRIAN MITCHELL".
K...P$."................................
..........".T....850......T.1.1800:.T...
".....,.."> TIME TO SHARPEN THE PENCIL !
!".Z.6.."> IT'S ONLY SIMPLE ARITHMETIC !
!"...@.."> BETTER GO BACK TO SCHOOL !!!"
.$.J.."> TRY USING A CALCULATOR !!!".E.T
.."> YOU NEED A COMPUTER !!!".N.^.."0"..
.
> CLICK IMAGE PREVIEW FOR FULL MODAL