MUGWUMP
FILE INFORMATION
FILENAME(S): MUGWUMP
FILE TYPE(S): PRG
FILE SIZE: 5.7K
FIRST SEEN: 2025-11-30 01:07:55
APPEARS ON: 2 disk(s)
FILE HASH
5c2efb72be098448a5a26fa930d79f8a9af1a34a7a25127e080c4810cfcb3c23
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREESOFT NR | MUGWUMP | PRG | Treasure Chest - Wolfgang Rauprich | 23 | 0 | DOWNLOAD FILE |
| HORRORLAND 128 | MUGWUMP | PRG | Treasure Chest - Wolfgang Rauprich | 23 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 21 04 64 00 8F 20 20 20 20 20 20 20 4D 20 |..!.d.. M | 00000010: 20 55 20 20 47 20 20 57 20 20 55 20 20 4D 20 20 | U G W U M | 00000020: 50 00 45 04 6E 00 8F 20 20 50 26 4A 20 50 41 52 |P.E.n.. P&J PAR| 00000030: 52 20 20 20 20 20 20 20 20 20 20 20 20 20 35 2F |R 5/| 00000040: 32 35 2F 37 38 00 67 04 78 00 8F 20 41 44 41 50 |25/78.g.x.. ADAP| 00000050: 54 45 44 20 46 52 4F 4D 20 42 41 53 49 43 20 43 |TED FROM BASIC C| 00000060: 4F 4D 50 55 54 45 52 00 8B 04 82 00 8F 20 47 41 |OMPUTER...... GA| 00000070: 4D 45 53 2C 20 4D 49 43 52 4F 43 4F 4D 50 55 54 |MES, MICROCOMPUT| 00000080: 45 52 20 45 44 49 54 49 4F 4E 3B 00 AF 04 8C 00 |ER EDITION;.....| 00000090: 8F 20 45 44 49 54 45 44 20 42 59 20 44 41 56 49 |. EDITED BY DAVI| 000000A0: 44 20 41 48 4C 2C 20 43 52 45 41 54 49 56 45 00 |D AHL, CREATIVE.| 000000B0: C5 04 96 00 8F 20 43 4F 4D 50 55 54 49 4E 47 20 |..... COMPUTING | 000000C0: 50 52 45 53 53 00 E4 04 A0 00 8F 20 3D 3D 3D 20 |PRESS...... === | 000000D0: 20 20 20 56 20 41 20 52 20 49 20 41 20 42 20 4C | V A R I A B L| 000000E0: 20 45 20 53 00 00 05 AA 00 8F 20 20 54 30 20 3D | E S...... T0 =| 000000F0: 20 23 20 54 55 52 4E 53 20 41 4C 4C 4F 57 45 44 | # TURNS ALLOWED| 00000100: 00 18 05 B4 00 8F 20 20 54 20 3D 20 50 52 45 53 |...... T = PRES| 00000110: 45 4E 54 20 54 55 52 4E 00 32 05 BE 00 8F 20 20 |ENT TURN.2.... | 00000120: 4D 30 20 3D 20 23 20 4F 46 20 4D 55 47 57 55 4D |M0 = # OF MUGWUM| 00000130: 50 53 00 4D 05 C8 00 8F 20 20 4D 20 3D 20 43 55 |PS.M.... M = CU| 00000140: 52 52 45 4E 54 20 4D 55 47 57 55 4D 50 00 6A 05 |RRENT MUGWUMP.j.| 00000150: D2 00 8F 20 20 4D 31 20 3D 20 4C 41 54 45 53 54 |... M1 = LATEST| 00000160: 20 4F 4E 45 20 46 4F 55 4E 44 00 8B 05 DC 00 8F | ONE FOUND......| 00000170: 20 20 58 30 2C 59 30 20 3D 20 49 4E 50 55 54 20 | X0,Y0 = INPUT | 00000180: 43 4F 4F 52 44 49 4E 41 54 45 53 00 B0 05 E6 00 |COORDINATES.....| 00000190: 8F 20 20 58 2C 59 20 3D 20 43 4F 4F 52 44 53 20 |. X,Y = COORDS | 000001A0: 46 4F 52 20 53 55 42 52 20 41 54 20 38 30 30 30 |FOR SUBR AT 8000| 000001B0: 00 CE 05 F0 00 8F 20 20 44 20 3D 20 41 52 52 41 |...... D = ARRA| 000001C0: 59 20 4F 46 20 44 49 53 54 41 4E 43 45 53 00 F2 |Y OF DISTANCES..| 000001D0: 05 FA 00 8F 20 20 46 28 4D 29 20 3D 20 54 55 52 |.... F(M) = TUR| 000001E0: 4E 20 4F 4E 20 57 48 49 43 48 20 4D 20 46 4F 55 |N ON WHICH M FOU| 000001F0: 4E 44 00 15 06 04 01 8F 20 20 46 30 20 3D 20 4E |ND...... F0 = N| 00000200: 55 4D 42 45 52 20 46 4F 55 4E 44 20 54 48 49 53 |UMBER FOUND THIS| 00000210: 20 54 55 52 4E 00 34 06 0E 01 8F 20 20 46 32 20 | TURN.4.... F2 | 00000220: 3D 20 54 4F 54 41 4C 20 46 4F 55 4E 44 20 53 4F |= TOTAL FOUND SO| 00000230: 20 46 41 52 00 57 06 18 01 8F 20 20 53 30 24 20 | FAR.W.... S0$ | 00000240: 3D 20 53 59 4D 42 4F 4C 20 46 4F 52 20 4E 4F 20 |= SYMBOL FOR NO | 00000250: 4D 55 47 57 55 4D 50 00 78 06 22 01 8F 20 20 53 |MUGWUMP.x.".. S| 00000260: 31 24 20 3D 20 53 59 4D 42 4F 4C 20 46 4F 52 20 |1$ = SYMBOL FOR | 00000270: 56 49 53 49 54 49 4E 47 00 98 06 2C 01 8F 20 20 |VISITING...,.. | 00000280: 53 24 28 4D 31 29 20 3D 20 53 59 4D 42 4F 4C 20 |S$(M1) = SYMBOL | 00000290: 46 4F 55 4E 44 20 4D 31 00 B6 06 36 01 8F 20 20 |FOUND M1...6.. | 000002A0: 4C 28 4D 2C 20 29 20 3D 20 4C 4F 43 41 54 49 4F |L(M, ) = LOCATIO| 000002B0: 4E 20 4F 46 20 4D 00 CF 06 40 01 8F 20 20 54 31 |N OF M...@.. T1| 000002C0: 20 3D 20 54 41 42 20 46 4F 52 20 47 52 49 44 00 | = TAB FOR GRID.| 000002D0: EC 06 4A 01 8F 20 20 4A 20 3D 20 45 4E 44 20 4F |..J.. J = END O| 000002E0: 46 20 54 49 4D 45 20 44 45 4C 41 59 00 0D 07 54 |F TIME DELAY...T| 000002F0: 01 8F 20 20 4A 30 20 3D 20 4C 45 4E 47 54 48 20 |.. J0 = LENGTH | 00000300: 4F 46 20 54 49 4D 45 20 44 45 4C 41 59 00 2F 07 |OF TIME DELAY./.| 00000310: 5E 01 8F 20 20 5A 24 20 3D 20 53 59 4D 42 4F 4C |^.. Z$ = SYMBOL| 00000320: 20 46 4F 52 20 50 4C 41 59 20 41 47 41 49 4E 00 | FOR PLAY AGAIN.| 00000330: 4F 07 68 01 8F 20 3D 3D 3D 20 49 4E 49 54 49 41 |O.h.. === INITIA| 00000340: 4C 49 5A 45 2C 20 44 49 4D 45 4E 53 49 4F 4E 00 |LIZE, DIMENSION.| 00000350: 5C 07 72 01 88 20 4D 30 20 B2 20 34 00 76 07 7C |\.r.. M0 . 4.v.|| 00000360: 01 86 20 46 28 4D 30 29 2C 4C 28 4D 30 2C 32 29 |.. F(M0),L(M0,2)| 00000370: 2C 44 28 4D 30 29 00 89 07 86 01 86 20 53 24 28 |,D(M0)...... S$(| 00000380: 34 29 2C 4D 24 28 4D 30 29 00 97 07 90 01 88 20 |4),M$(M0)...... | 00000390: 5A 24 20 B2 20 22 22 00 9D 07 9A 01 8F 00 BA 07 |Z$ . "".........| 000003A0: A4 01 88 20 53 30 24 20 B2 20 22 12 20 22 3A 20 |... S0$ . ". ": | 000003B0: 53 31 24 20 B2 20 22 12 DB 22 00 FF 07 AE 01 88 |S1$ . ".."......| 000003C0: 20 53 24 28 31 29 20 B2 20 22 12 31 22 3A 20 53 | S$(1) . ".1": S| 000003D0: 24 28 32 29 20 B2 20 22 12 32 22 3A 20 20 20 20 |$(2) . ".2": | 000003E0: 20 20 20 20 20 53 24 28 33 29 20 B2 20 22 12 33 | S$(3) . ".3| 000003F0: 22 3A 20 53 24 28 34 29 20 B2 20 22 12 34 22 00 |": S$(4) . ".4".| 00000400: 0D 08 B8 01 88 20 54 30 20 B2 20 31 30 00 1E 08 |..... T0 . 10...| 00000410: C2 01 81 20 4D 20 B2 20 31 20 A4 20 4D 30 00 2F |... M . 1 . M0./| 00000420: 08 CC 01 3A 20 88 20 46 28 4D 29 20 B2 20 30 00 |...: . F(M) . 0.| 00000430: 39 08 D6 01 3A 20 82 20 4D 00 46 08 E0 01 88 20 |9...: . M.F.... | 00000440: 46 32 20 B2 20 30 00 54 08 EA 01 88 20 54 31 20 |F2 . 0.T.... T1 | 00000450: B2 20 31 36 00 63 08 F4 01 88 20 4A 30 20 B2 20 |. 16.c.... J0 . | 00000460: 31 38 30 00 83 08 FE 01 8F 20 3D 3D 3D 20 50 20 |180...... === P | 00000470: 52 20 49 20 4E 20 54 20 20 20 20 20 47 20 52 20 |R I N T G R | 00000480: 49 20 44 00 8D 08 08 02 99 22 93 22 3B 00 9B 08 |I D......".";...| 00000490: 12 02 88 20 54 31 20 B2 20 31 36 00 BE 08 1C 02 |... T1 . 16.....| 000004A0: 99 A3 54 31 29 3B 22 31 30 B0 C0 B2 C0 B2 C0 B2 |..T1);"10.......| 000004B0: C0 B2 C0 B2 C0 B2 C0 B2 C0 B2 C0 B2 C0 AE 00 E1 |................| 000004C0: 08 26 02 99 A3 54 31 29 3B 22 20 20 DD 20 DD 20 |.&...T1);" . . | 000004D0: DD 20 DD 20 DD 20 DD 20 DD 20 DD 20 DD 20 DD 20 |. . . . . . . . | 000004E0: DD 00 04 09 30 02 99 A3 54 31 29 3B 22 20 39 AB |....0...T1);" 9.| 000004F0: C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB |................| 00000500: C0 DB C0 B3 00 27 09 3A 02 99 A3 54 31 29 3B 22 |.....'.:...T1);"| 00000510: 20 20 DD 20 DD 20 DD 20 DD 20 DD 20 DD 20 DD 20 | . . . . . . . | 00000520: DD 20 DD 20 DD 20 DD 00 4A 09 44 02 99 A3 54 31 |. . . ..J.D...T1| 00000530: 29 3B 22 20 38 AB C0 DB C0 DB C0 DB C0 DB C0 DB |);" 8...........| 00000540: C0 DB C0 DB C0 DB C0 DB C0 B3 00 6D 09 4E 02 99 |...........m.N..| 00000550: A3 54 31 29 3B 22 20 20 DD 20 DD 20 DD 20 DD 20 |.T1);" . . . . | 00000560: DD 20 DD 20 DD 20 DD 20 DD 20 DD 20 DD 00 90 09 |. . . . . . ....| 00000570: 58 02 99 A3 54 31 29 3B 22 20 37 AB C0 DB C0 DB |X...T1);" 7.....| 00000580: C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 B3 |................| 00000590: 00 B3 09 62 02 99 A3 54 31 29 3B 22 20 20 DD 20 |...b...T1);" . | 000005A0: DD 20 DD 20 DD 20 DD 20 DD 20 DD 20 DD 20 DD 20 |. . . . . . . . | 000005B0: DD 20 DD 00 D6 09 6C 02 99 A3 54 31 29 3B 22 20 |. ....l...T1);" | 000005C0: 36 AB C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB |6...............| 000005D0: C0 DB C0 DB C0 B3 00 F9 09 76 02 99 A3 54 31 29 |.........v...T1)| 000005E0: 3B 22 20 20 DD 20 DD 20 DD 20 DD 20 DD 20 DD 20 |;" . . . . . . | 000005F0: DD 20 DD 20 DD 20 DD 20 DD 00 1C 0A 80 02 99 A3 |. . . . ........| 00000600: 54 31 29 3B 22 20 35 AB C0 DB C0 DB C0 DB C0 DB |T1);" 5.........| 00000610: C0 DB C0 DB C0 DB C0 DB C0 DB C0 B3 00 3F 0A 8A |.............?..| 00000620: 02 99 A3 54 31 29 3B 22 20 20 DD 20 DD 20 DD 20 |...T1);" . . . | 00000630: DD 20 DD 20 DD 20 DD 20 DD 20 DD 20 DD 20 DD 00 |. . . . . . . ..| 00000640: 62 0A 94 02 99 A3 54 31 29 3B 22 20 34 AB C0 DB |b.....T1);" 4...| 00000650: C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB |................| 00000660: C0 B3 00 85 0A 9E 02 99 A3 54 31 29 3B 22 20 20 |.........T1);" | 00000670: DD 20 DD 20 DD 20 DD 20 DD 20 DD 20 DD 20 DD 20 |. . . . . . . . | 00000680: DD 20 DD 20 DD 00 A8 0A A8 02 99 A3 54 31 29 3B |. . ........T1);| 00000690: 22 20 33 AB C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB |" 3.............| 000006A0: C0 DB C0 DB C0 DB C0 B3 00 CB 0A B2 02 99 A3 54 |...............T| 000006B0: 31 29 3B 22 20 20 DD 20 DD 20 DD 20 DD 20 DD 20 |1);" . . . . . | 000006C0: DD 20 DD 20 DD 20 DD 20 DD 20 DD 00 EE 0A BC 02 |. . . . . ......| 000006D0: 99 A3 54 31 29 3B 22 20 32 AB C0 DB C0 DB C0 DB |..T1);" 2.......| 000006E0: C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 B3 00 11 |................| 000006F0: 0B C6 02 99 A3 54 31 29 3B 22 20 20 DD 20 DD 20 |.....T1);" . . | 00000700: DD 20 DD 20 DD 20 DD 20 DD 20 DD 20 DD 20 DD 20 |. . . . . . . . | 00000710: DD 00 34 0B D0 02 99 A3 54 31 29 3B 22 20 31 AB |..4.....T1);" 1.| 00000720: C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB |................| 00000730: C0 DB C0 B3 00 57 0B DA 02 99 A3 54 31 29 3B 22 |.....W.....T1);"| 00000740: 20 20 DD 20 DD 20 DD 20 DD 20 DD 20 DD 20 DD 20 | . . . . . . . | 00000750: DD 20 DD 20 DD 20 DD 00 7A 0B E4 02 99 A3 54 31 |. . . ..z.....T1| 00000760: 29 3B 22 20 20 AD C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 |);" ...........| 00000770: C0 B1 C0 B1 C0 B1 C0 B1 C0 BD 00 9D 0B EE 02 99 |................| 00000780: A3 54 31 29 3B 22 20 30 20 20 31 20 32 20 33 20 |.T1);" 0 1 2 3 | 00000790: 34 20 35 20 36 20 37 20 38 20 39 31 30 00 A3 0B |4 5 6 7 8 910...| 000007A0: F8 02 8F 00 C7 0B 02 03 8F 20 4E 4F 54 45 3A 20 |......... NOTE: | 000007B0: 20 49 4E 20 4F 52 44 45 52 20 54 4F 20 52 45 41 | IN ORDER TO REA| 000007C0: 44 20 4C 49 4E 45 53 00 E7 0B 0C 03 8F 20 31 31 |D LINES...... 11| 000007D0: 32 30 20 54 4F 20 31 32 34 30 2C 20 46 49 52 53 |20 TO 1240, FIRS| 000007E0: 54 20 57 52 49 54 45 00 03 0C 16 03 8F 20 28 57 |T WRITE...... (W| 000007F0: 49 54 48 20 4E 4F 20 4C 49 4E 45 20 4E 55 4D 42 |ITH NO LINE NUMB| 00000800: 45 52 29 00 19 0C 20 03 8F 20 22 50 4F 4B 45 20 |ER)... .. "POKE | 00000810: 35 39 34 36 38 2C 31 34 22 00 3B 0C 2A 03 8F 20 |59468,14".;.*.. | 00000820: 42 45 46 4F 52 45 20 4C 49 53 54 49 4E 47 20 54 |BEFORE LISTING T| 00000830: 48 45 53 45 20 4C 49 4E 45 53 2E 00 5E 0C 34 03 |HESE LINES..^.4.| 00000840: 8F 20 20 20 20 20 20 20 20 41 46 54 45 52 20 54 |. AFTER T| 00000850: 48 45 53 45 20 4C 49 4E 45 53 20 41 52 45 00 7E |HESE LINES ARE.~| 00000860: 0C 3E 03 8F 20 4C 49 53 54 45 44 2C 20 54 48 45 |.>.. LISTED, THE| 00000870: 4E 20 54 4F 20 52 45 54 55 52 4E 20 54 4F 00 9E |N TO RETURN TO..| 00000880: 0C 48 03 8F 20 4E 4F 52 4D 41 4C 2C 20 57 52 49 |.H.. NORMAL, WRI| 00000890: 54 45 20 28 4E 4F 20 4C 49 4E 45 20 23 29 00 C2 |TE (NO LINE #)..| 000008A0: 0C 52 03 8F 20 22 50 4F 4B 45 20 35 39 34 36 38 |.R.. "POKE 59468| 000008B0: 2C 31 32 22 20 54 4F 20 47 45 54 20 4F 55 54 20 |,12" TO GET OUT | 000008C0: 4F 46 00 D9 0C 5C 03 8F 20 4C 4F 57 45 52 20 43 |OF...\.. LOWER C| 000008D0: 41 53 45 20 4D 4F 44 45 2E 00 DF 0C 66 03 8F 00 |ASE MODE....f...| 000008E0: 01 0D 70 03 8F 20 3D 3D 3D 20 49 20 4E 20 53 20 |..p.. === I N S | 000008F0: 54 20 52 20 55 20 43 20 54 20 49 20 4F 20 4E 20 |T R U C T I O N | 00000900: 53 00 19 0D 7A 03 99 22 13 12 4D 20 55 20 47 20 |S...z.."..M U G | 00000910: 57 20 55 20 4D 20 50 21 22 00 50 0D 84 03 8B 20 |W U M P!".P.... | 00000920: 5A 24 20 B3 B1 20 22 22 20 A7 20 81 20 44 20 B2 |Z$ .. "" . . D .| 00000930: 20 31 20 A4 20 39 3A 20 20 20 20 20 20 20 20 99 | 1 . 9: .| 00000940: 22 11 22 3A 20 82 20 44 3A 20 89 20 31 30 37 30 |".": . D: . 1070| 00000950: 00 5F 0D 8E 03 97 20 35 39 34 36 38 2C 31 34 00 |._.... 59468,14.| 00000960: 65 0D 98 03 99 00 7C 0D A2 03 99 22 20 D4 C8 C5 |e.....|...." ...| 00000970: D2 C5 A0 C1 D2 C5 A0 C6 CF D5 D2 22 00 93 0D AC |..........."....| 00000980: 03 99 22 CD D5 C7 D7 D5 CD D0 D3 20 C8 C9 C4 C9 |.."........ ....| 00000990: CE C7 22 00 AA 0D B6 03 99 22 C8 C5 D2 C5 2E 20 |.."......"..... | 000009A0: 20 20 D4 D2 D9 20 20 D4 CF 22 00 BC 0D C0 03 99 | ... .."......| 000009B0: 22 C6 C9 CE C4 A0 D3 CF CD C5 2E 22 00 D5 0D CA |".........."....| 000009C0: 03 99 3A 99 22 D9 CF D5 A0 C3 C1 CE A0 C7 CF A0 |..:."...........| 000009D0: D4 CF A0 C1 22 00 ED 0D D4 03 99 22 C3 CF D2 CE |...."......"....| 000009E0: C5 D2 A0 C2 D9 A0 D4 D9 D0 C9 CE C7 22 00 05 0E |............"...| 000009F0: DE 03 99 22 C8 CF D7 A0 C6 C1 D2 20 C5 C1 D3 D4 |..."....... ....| 00000A00: A0 C1 CE C4 22 00 1D 0E E8 03 99 22 CE CF D2 D4 |...."......"....| 00000A10: C8 20 C9 D4 A0 C9 D3 A0 C6 D2 CF CD 22 00 35 0E |. ..........".5.| 00000A20: F2 03 99 22 D4 C8 C5 20 C2 CF D4 D4 CF CD A0 A0 |..."... ........| 00000A30: CC C5 C6 D4 22 00 45 0E FC 03 99 22 C3 CF D2 CE |....".E...."....| 00000A40: C5 D2 2E 20 22 00 5F 0E 06 04 99 3A 99 22 20 C9 |... "._....:." .| 00000A50: 20 D7 C9 CC CC A0 D4 C5 CC CC A0 D9 CF D5 22 00 | .............".| 00000A60: 77 0E 10 04 99 22 C9 C6 A0 D9 CF D5 A0 C6 C9 CE |w...."..........| 00000A70: C4 A0 CF CE C5 2E 22 00 90 0E 1A 04 99 3A 99 22 |......"......:."| 00000A80: 20 20 47 4F 4F 44 20 48 55 4E 54 49 4E 47 21 22 | GOOD HUNTING!"| 00000A90: 00 96 0E 24 04 99 00 9C 0E 2E 04 99 00 B4 0E 38 |...$...........8| 00000AA0: 04 99 22 20 57 48 49 43 48 20 43 4F 52 4E 45 52 |.." WHICH CORNER| 00000AB0: 20 44 4F 22 00 CC 0E 42 04 99 22 59 4F 55 20 57 | DO"...B.."YOU W| 00000AC0: 41 4E 54 20 20 54 4F 20 54 52 59 22 00 DA 0E 4C |ANT TO TRY"...L| 00000AD0: 04 99 22 46 49 52 53 54 22 3B 00 F9 0E 56 04 8F |.."FIRST";...V..| 00000AE0: 20 3D 3D 3D 20 20 50 20 4C 20 41 20 43 20 45 20 | === P L A C E | 00000AF0: 20 20 4D 20 55 20 47 20 53 00 0A 0F 60 04 81 20 | M U G S...`.. | 00000B00: 4D 20 B2 20 31 20 A4 20 4D 30 00 22 0F 6A 04 3A |M . 1 . M0.".j.:| 00000B10: 20 4C 28 4D 2C 31 29 B2 B5 28 BB 28 31 29 AC 31 | L(M,1)..(.(1).1| 00000B20: 31 29 00 3A 0F 74 04 3A 20 4C 28 4D 2C 32 29 B2 |1).:.t.: L(M,2).| 00000B30: B5 28 BB 28 31 29 AC 31 31 29 00 44 0F 7E 04 3A |.(.(1).11).D.~.:| 00000B40: 20 82 20 4D 00 60 0F 88 04 8F 20 3D 3D 3D 20 20 | . M.`.... === | 00000B50: 20 54 20 48 20 45 20 20 20 48 20 55 20 4E 20 54 | T H E H U N T| 00000B60: 00 71 0F 92 04 81 20 54 20 B2 20 31 20 A4 20 54 |.q.... T . 1 . T| 00000B70: 30 00 8B 0F 9C 04 3A 20 85 22 20 20 2B 2C 2B 9D |0.....: ." +,+.| 00000B80: 9D 9D 9D 9D 22 3B 58 30 2C 59 30 00 AF 0F A6 04 |....";X0,Y0.....| 00000B90: 8F 20 2D 2D 2D 42 4C 4F 54 20 4F 55 54 20 50 52 |. ---BLOT OUT PR| 00000BA0: 45 56 49 4F 55 53 20 50 4F 53 49 54 49 4F 4E 00 |EVIOUS POSITION.| 00000BB0: D9 0F B0 04 3A 20 8B 20 54 B1 31 20 AF 20 46 30 |....: . T.1 . F0| 00000BC0: B2 30 20 A7 20 8D 20 32 33 38 30 3A 20 20 20 20 |.0 . . 2380: | 00000BD0: 20 20 20 20 99 20 53 30 24 00 FD 0F BA 04 8F 20 | . S0$...... | 00000BE0: 2D 2D 2D 20 50 55 54 20 43 52 4F 53 53 20 49 4E |--- PUT CROSS IN| 00000BF0: 20 4E 45 57 20 50 4F 53 49 54 49 4F 4E 00 16 10 | NEW POSITION...| 00000C00: C4 04 3A 20 88 20 58 20 B2 20 58 30 3A 20 88 20 |..: . X . X0: . | 00000C10: 59 20 B2 20 59 30 00 2A 10 CE 04 3A 20 8D 20 32 |Y . Y0.*...: . 2| 00000C20: 33 38 30 3A 20 99 20 53 31 24 00 4C 10 D8 04 8F |380: . S1$.L....| 00000C30: 20 2D 2D 2D 20 43 20 4F 20 4D 20 50 20 55 20 54 | --- C O M P U T| 00000C40: 20 45 20 20 20 44 20 49 20 53 20 54 00 5B 10 E2 | E D I S T.[..| 00000C50: 04 3A 20 88 20 46 30 20 B2 20 30 00 6E 10 EC 04 |.: . F0 . 0.n...| 00000C60: 3A 20 81 20 4D 20 B2 20 31 20 A4 20 4D 30 00 88 |: . M . 1 . M0..| 00000C70: 10 F6 04 3A 20 20 20 8B 20 46 28 4D 29 20 B1 20 |...: . F(M) . | 00000C80: 30 20 A7 20 31 33 31 30 00 D1 10 00 05 3A 20 20 |0 . 1310.....: | 00000C90: 20 88 20 44 28 4D 29 20 B2 20 BA 28 28 58 AB 4C | . D(M) . .((X.L| 00000CA0: 28 4D 2C 31 29 29 AE 32 20 AA 20 20 20 20 20 20 |(M,1)).2 . | 00000CB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000CC0: 20 20 20 20 28 59 AB 4C 28 4D 2C 32 29 29 AE 32 | (Y.L(M,2)).2| 00000CD0: 29 00 EB 10 0A 05 3A 20 20 20 8B 20 44 28 4D 29 |).....: . D(M)| 00000CE0: 20 B1 20 30 20 A7 20 31 33 31 30 00 01 11 14 05 | . 0 . 1310.....| 00000CF0: 3A 20 20 20 88 20 46 30 20 B2 20 46 30 20 AA 20 |: . F0 . F0 . | 00000D00: 31 00 0D 11 1E 05 3A 20 20 20 82 20 4D 00 2F 11 |1.....: . M./.| 00000D10: 28 05 8F 20 2D 2D 2D 20 50 20 52 20 49 20 4E 20 |(.. --- P R I N | 00000D20: 54 20 20 20 44 20 49 20 53 20 54 20 27 20 53 00 |T D I S T ' S.| 00000D30: 3A 11 32 05 3A 20 99 22 13 22 00 4D 11 3C 05 3A |:.2.: .".".M.<.:| 00000D40: 20 81 20 52 20 B2 20 31 20 A4 20 32 33 00 69 11 | . R . 1 . 23.i.| 00000D50: 46 05 3A 20 20 20 99 22 20 20 20 20 20 20 20 20 |F.: ." | 00000D60: 20 20 20 20 20 20 20 20 22 00 75 11 50 05 3A 20 | ".u.P.: | 00000D70: 20 20 82 20 52 00 86 11 5A 05 3A 20 97 20 35 39 | . R...Z.: . 59| 00000D80: 34 36 38 2C 31 32 00 94 11 64 05 3A 20 99 22 13 |468,12...d.: .".| 00000D90: 22 3A 20 99 00 A9 11 6E 05 3A 20 99 22 20 20 52 |": ....n.: ." R| 00000DA0: 45 53 55 4C 54 20 4F 46 22 00 C3 11 78 05 3A 20 |ESULT OF"...x.: | 00000DB0: 99 22 54 55 52 4E 20 4E 55 4D 42 45 52 22 3B 54 |."TURN NUMBER";T| 00000DC0: 3A 20 99 00 DC 11 82 05 3A 20 99 22 4D 55 47 20 |: ......: ."MUG | 00000DD0: 20 44 49 53 54 41 4E 43 45 20 20 22 00 EF 11 8C | DISTANCE "....| 00000DE0: 05 3A 20 81 20 4D 20 B2 20 31 20 A4 20 4D 30 00 |.: . M . 1 . M0.| 00000DF0: 09 12 96 05 3A 20 20 20 8B 20 46 28 4D 29 20 B1 |....: . F(M) .| 00000E00: 20 30 20 A7 20 31 35 31 30 00 29 12 A0 05 3A 20 | 0 . 1510.)...: | 00000E10: 20 20 88 20 44 31 20 B2 20 2E 31 AC B5 28 44 28 | . D1 . .1..(D(| 00000E20: 4D 29 AC 31 30 AA 2E 35 29 00 33 12 AA 05 3A 20 |M).10..5).3...: | 00000E30: 20 20 99 00 47 12 B4 05 3A 20 20 20 99 20 4D 3B | ..G...: . M;| 00000E40: A3 36 29 3B 44 31 3B 00 61 12 BE 05 3A 20 20 20 |.6);D1;.a...: | 00000E50: 8B 20 44 28 4D 29 20 B1 20 30 20 A7 20 31 35 31 |. D(M) . 0 . 151| 00000E60: 30 00 75 12 C8 05 3A 20 20 20 99 22 20 12 5F 41 |0.u...: ." ._A| 00000E70: 48 41 21 22 3B 00 88 12 D2 05 3A 20 20 20 88 20 |HA!";.....: . | 00000E80: 46 28 4D 29 20 B2 20 54 00 99 12 DC 05 3A 20 20 |F(M) . T.....: | 00000E90: 20 88 20 4D 31 20 B2 20 4D 00 A5 12 E6 05 3A 20 | . M1 . M.....: | 00000EA0: 20 20 82 20 4D 00 AD 12 F0 05 3A 20 99 00 D1 12 | . M.....: ....| 00000EB0: FA 05 8F 20 2D 2D 2D 20 45 20 4E 20 44 20 20 4F |... --- E N D O| 00000EC0: 46 20 20 44 20 49 20 53 20 54 20 20 50 52 49 4E |F D I S T PRIN| 00000ED0: 54 00 E7 12 04 06 3A 20 8B 20 46 30 20 B2 20 30 |T.....: . F0 . 0| 00000EE0: 20 A7 20 32 30 37 30 00 06 13 0E 06 8F 20 2D 2D | . 2070...... --| 00000EF0: 2D 20 20 43 20 45 20 4C 20 45 20 42 20 52 20 41 |- C E L E B R A| 00000F00: 20 54 20 45 20 21 00 14 13 18 06 3A 20 99 3A 20 | T E !.....: .: | 00000F10: 99 3A 20 99 00 2C 13 22 06 3A 20 99 22 59 4F 55 |.: ..,.".: ."YOU| 00000F20: 20 48 41 56 45 20 46 4F 55 4E 44 22 00 46 13 2C | HAVE FOUND".F.,| 00000F30: 06 3A 20 99 22 4D 55 47 57 55 4D 50 20 23 22 3B |.: ."MUGWUMP #";| 00000F40: 4D 31 3B 22 21 22 00 5A 13 36 06 3A 20 88 20 4A |M1;"!".Z.6.: . J| 00000F50: 20 B2 20 54 49 20 AA 20 4A 30 00 70 13 40 06 3A | . TI . J0.p.@.:| 00000F60: 20 8B 20 54 49 20 B3 20 4A 20 A7 20 31 36 30 30 | . TI . J . 1600| 00000F70: 00 80 13 4A 06 3A 20 99 22 91 91 91 91 91 22 3B |...J.: .".....";| 00000F80: 00 9A 13 54 06 3A 20 99 22 20 20 20 20 20 20 20 |...T.: ." | 00000F90: 20 20 20 20 20 20 20 20 20 22 00 BB 13 5E 06 3A | "...^.:| 00000FA0: 20 91 20 4D 31 20 89 20 31 36 34 30 2C 31 37 32 | . M1 . 1640,172| 00000FB0: 30 2C 31 37 38 30 2C 31 38 38 30 00 D7 13 68 06 |0,1780,1880...h.| 00000FC0: 3A 20 99 22 20 20 20 12 DF 92 40 40 40 40 40 12 |: ." ...@@@@@.| 00000FD0: A9 92 20 20 20 20 22 00 EF 13 72 06 3A 20 99 22 |.. "...r.: ."| 00000FE0: 20 20 20 A5 20 D2 20 D2 20 A7 20 20 20 20 22 00 | . . . . ".| 00000FF0: 07 14 7C 06 3A 20 99 22 20 20 20 A5 20 D7 20 D7 |..|.: ." . . .| 00001000: 20 A7 20 20 20 20 22 00 1F 14 86 06 3A 20 99 22 | . ".....: ."| 00001010: 20 20 20 A5 3A 3A 26 3A 3A A7 20 20 20 20 22 00 | .::&::. ".| 00001020: 37 14 90 06 3A 20 99 22 20 20 20 A5 CD A4 A4 A4 |7...: ." .....| 00001030: CE A7 20 20 20 20 22 00 4F 14 9A 06 3A 20 99 22 |.. ".O...: ."| 00001040: 20 20 20 CD 20 20 56 20 20 CE 20 20 20 20 22 00 | . V . ".| 00001050: 67 14 A4 06 3A 20 99 22 20 20 20 20 CD CE A3 CD |g...: ." ....| 00001060: CE 20 20 20 20 20 22 00 74 14 AE 06 3A 20 89 20 |. ".t...: . | 00001070: 31 39 37 30 00 8D 14 B8 06 3A 20 99 22 20 20 20 |1970.....: ." | 00001080: 20 20 20 20 A2 A4 C9 D5 A4 A2 20 20 22 00 A6 14 | ...... "...| 00001090: C2 06 3A 20 99 22 20 40 D2 D2 D2 D2 D2 BA 20 AE |..: ." @...... .| 000010A0: B0 20 A5 20 20 22 00 C1 14 CC 06 3A 20 99 22 20 |. . ".....: ." | 000010B0: 20 12 20 20 20 20 20 20 92 20 CB CA 20 A5 20 20 | . . .. . | 000010C0: 22 00 DE 14 D6 06 3A 20 99 22 20 20 12 20 92 20 |".....: ." . . | 000010D0: 20 20 20 12 20 92 20 CA CB 20 A5 20 20 22 00 F7 | . . .. . "..| 000010E0: 14 E0 06 3A 20 99 22 20 20 20 20 20 20 20 20 A3 |...: ." .| 000010F0: A3 A3 A3 20 20 20 22 00 04 15 EA 06 3A 20 89 20 |... ".....: . | 00001100: 31 39 37 30 00 1D 15 F4 06 3A 20 99 22 20 20 20 |1970.....: ." | 00001110: A7 12 DF 92 A4 A4 A4 A4 12 A9 92 A5 22 00 35 15 |............".5.| 00001120: FE 06 3A 20 99 22 20 20 20 A7 20 20 20 20 20 20 |..: ." . | 00001130: A5 20 20 20 22 00 4D 15 08 07 3A 20 99 22 20 20 |. ".M...: ." | 00001140: 20 A7 20 CA A0 A0 CB A0 A5 20 20 20 22 00 65 15 | . ...... ".e.| 00001150: 12 07 3A 20 99 22 20 20 20 A7 20 4F 20 20 4F 20 |..: ." . O O | 00001160: A5 20 20 20 22 00 7D 15 1C 07 3A 20 99 22 20 20 |. ".}...: ." | 00001170: 20 A0 CD 20 CD CE 20 CE 20 20 20 20 22 00 95 15 | .. .. . "...| 00001180: 26 07 3A 20 99 22 20 20 20 20 A0 CD CB CA CE 20 |&.: ." ..... | 00001190: 20 20 20 20 22 00 AD 15 30 07 3A 20 99 22 20 20 | "...0.: ." | 000011A0: 20 20 C0 CB A3 A3 CA C0 20 20 20 20 22 00 C5 15 | ...... "...| 000011B0: 3A 07 3A 20 99 22 20 20 20 20 20 20 20 20 20 20 |:.: ." | 000011C0: 20 20 20 20 22 00 DD 15 44 07 3A 20 99 22 20 20 | "...D.: ." | 000011D0: 20 20 20 20 20 20 20 20 20 20 20 20 22 00 EA 15 | "...| 000011E0: 4E 07 3A 20 89 20 31 39 37 30 00 04 16 58 07 3A |N.: . 1970...X.:| 000011F0: 20 99 22 20 20 20 20 20 20 20 20 A0 CE CE CE 41 | ." ....A| 00001200: D2 41 20 22 00 1E 16 62 07 3A 20 99 22 20 20 20 |.A "...b.: ." | 00001210: CD CD CD CD CD CE CE CE CE 2E 20 2E CD 22 00 39 |.......... ..".9| 00001220: 16 6C 07 3A 20 99 22 40 20 20 20 CD CD CD CD CD |.l.: ."@ .....| 00001230: A5 A5 A5 20 B2 20 A7 20 22 00 57 16 76 07 3A 20 |... . . ".W.v.: | 00001240: 99 22 20 CD 12 A9 20 20 DF 92 CD CD CD DF 12 20 |." ... ....... | 00001250: DF 92 20 3D 20 CE 22 00 74 16 80 07 3A 20 99 22 |.. = .".t...: ."| 00001260: 20 20 12 20 20 20 20 DF 92 CD CD CD DF 12 20 92 | . ....... .| 00001270: AD C0 BD 22 00 93 16 8A 07 3A 20 99 22 20 20 DF |...".....: ." .| 00001280: 12 20 92 A9 DF 12 20 20 20 20 92 A9 DF 12 20 92 |. .... .... .| 00001290: A9 A5 22 00 AC 16 94 07 3A 20 99 22 20 20 A7 A7 |..".....: ." ..| 000012A0: CD CD 20 20 20 20 20 A7 A7 CD CD 22 00 C6 16 9E |.. ...."....| 000012B0: 07 3A 20 99 22 20 20 CE CE CE CE 20 20 20 20 A0 |.: ." .... .| 000012C0: CE CE 20 A5 A5 22 00 E0 16 A8 07 3A 20 99 22 20 |.. ..".....: ." | 000012D0: 20 A3 20 A3 20 20 20 20 20 20 A3 20 20 A3 20 22 | . . . . "| 000012E0: 00 ED 16 B2 07 3A 20 8D 20 32 33 38 30 00 FC 16 |.....: . 2380...| 000012F0: BC 07 3A 20 99 20 53 24 28 4D 31 29 00 1E 17 C6 |..: . S$(M1)....| 00001300: 07 8F 20 2D 2D 2D 20 20 49 46 20 20 4E 4F 4E 45 |.. --- IF NONE| 00001310: 20 20 4C 45 46 54 2C 20 20 4F 20 55 20 54 00 2D | LEFT, O U T.-| 00001320: 17 D0 07 3A 20 88 20 46 32 20 B2 20 30 00 40 17 |...: . F2 . 0.@.| 00001330: DA 07 3A 20 81 20 4D 20 B2 20 31 20 A4 20 4D 30 |..: . M . 1 . M0| 00001340: 00 61 17 E4 07 3A 20 20 20 8B 20 46 28 4D 29 20 |.a...: . F(M) | 00001350: B1 20 30 20 A7 20 46 32 20 B2 20 46 32 20 AA 20 |. 0 . F2 . F2 . | 00001360: 31 00 6D 17 EE 07 3A 20 20 20 82 20 4D 00 85 17 |1.m...: . M...| 00001370: F8 07 3A 20 8B 20 46 32 20 B1 B2 20 4D 30 20 A7 |..: . F2 .. M0 .| 00001380: 20 32 31 36 30 00 92 17 02 08 3A 20 89 20 32 30 | 2160.....: . 20| 00001390: 37 30 00 B2 17 0C 08 8F 20 2D 2D 2D 20 20 43 45 |70...... --- CE| 000013A0: 4C 45 42 52 41 54 49 4F 4E 27 53 20 20 20 4F 56 |LEBRATION'S OV| 000013B0: 45 52 00 D6 17 16 08 8F 20 20 20 20 20 57 20 48 |ER...... W H| 000013C0: 20 49 20 43 20 48 20 20 20 43 20 4F 20 52 20 4E | I C H C O R N| 000013D0: 20 45 20 52 20 3F 00 ED 17 20 08 3A 20 8B 20 54 | E R ?... .: . T| 000013E0: 20 B1 B2 20 54 30 20 A7 20 32 31 34 30 00 F8 17 | .. T0 . 2140...| 000013F0: 2A 08 3A 20 99 22 13 22 00 13 18 34 08 3A 20 81 |*.: ."."...4.: .| 00001400: 20 52 20 B2 20 31 20 A4 20 31 39 3A 20 99 3A 20 | R . 1 . 19: .: | 00001410: 82 20 52 00 2C 18 3E 08 3A 20 99 22 57 48 49 43 |. R.,.>.: ."WHIC| 00001420: 48 20 43 4F 52 4E 45 52 20 44 4F 22 00 45 18 48 |H CORNER DO".E.H| 00001430: 08 3A 20 99 22 59 4F 55 20 57 41 4E 54 20 54 4F |.: ."YOU WANT TO| 00001440: 20 54 52 59 22 00 54 18 52 08 3A 20 99 22 4E 45 | TRY".T.R.: ."NE| 00001450: 58 54 22 3B 00 5E 18 5C 08 3A 20 82 20 54 00 6F |XT";.^.\.: . T.o| 00001460: 18 66 08 88 20 54 20 B2 20 54 30 20 AA 20 31 00 |.f.. T . T0 . 1.| 00001470: 91 18 70 08 8F 20 2D 2D 2D 20 47 20 41 20 4D 20 |..p.. --- G A M | 00001480: 45 20 20 20 49 20 53 20 20 20 4F 20 56 20 45 20 |E I S O V E | 00001490: 52 00 B5 18 7A 08 8F 20 20 20 20 20 50 41 55 53 |R...z.. PAUS| 000014A0: 45 20 42 45 46 4F 52 45 20 41 4E 4E 4F 55 4E 43 |E BEFORE ANNOUNC| 000014B0: 45 4D 45 4E 54 00 C7 18 84 08 88 20 4A 20 B2 20 |EMENT...... J . | 000014C0: 54 49 20 AA 20 4A 30 00 DB 18 8E 08 8B 20 54 49 |TI . J0...... TI| 000014D0: 20 B3 20 4A 20 A7 20 32 31 39 30 00 E4 18 98 08 | . J . 2190.....| 000014E0: 99 22 13 22 00 F5 18 A2 08 81 20 52 20 B2 20 31 |."."...... R . 1| 000014F0: 20 A4 20 31 39 00 0F 19 AC 08 3A 20 99 22 20 20 | . 19.....: ." | 00001500: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".| 00001510: 19 19 B6 08 3A 20 82 20 52 00 25 19 C0 08 99 22 |....: . R.%...."| 00001520: 13 22 3A 20 99 00 3C 19 CA 08 88 20 4D 24 28 30 |.": ..<.... M$(0| 00001530: 29 20 B2 20 22 53 4F 52 52 59 2E 22 00 5D 19 D4 |) . "SORRY.".]..| 00001540: 08 88 20 4D 24 28 31 29 20 B2 20 22 4F 4E 45 27 |.. M$(1) . "ONE'| 00001550: 53 20 57 45 4C 4C 20 44 4F 4E 45 2E 22 00 7A 19 |S WELL DONE.".z.| 00001560: DE 08 88 20 4D 24 28 32 29 20 B2 20 22 54 57 4F |... M$(2) . "TWO| 00001570: 20 57 49 4C 4C 20 44 4F 2E 22 00 9A 19 E8 08 88 | WILL DO."......| 00001580: 20 4D 24 28 33 29 20 B2 20 22 47 4C 45 45 20 46 | M$(3) . "GLEE F| 00001590: 4F 52 20 54 48 52 45 45 21 22 00 BA 19 F2 08 88 |OR THREE!"......| 000015A0: 20 4D 24 28 34 29 20 B2 20 22 41 20 50 45 52 46 | M$(4) . "A PERF| 000015B0: 45 43 54 20 46 4F 55 52 21 22 00 C7 19 FC 08 99 |ECT FOUR!"......| 000015C0: 20 4D 24 28 46 32 29 00 D0 19 06 09 99 22 13 22 | M$(F2)......"."| 000015D0: 00 E9 19 10 09 81 20 52 20 B2 20 31 20 A4 20 31 |...... R . 1 . 1| 000015E0: 36 3A 20 99 3A 20 82 20 52 00 01 1A 1A 09 99 22 |6: .: . R......"| 000015F0: 20 20 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F | DO YOU WANT TO| 00001600: 22 00 14 1A 24 09 99 22 50 4C 41 59 20 41 47 41 |"...$.."PLAY AGA| 00001610: 49 4E 22 3B 00 25 1A 2E 09 85 22 20 20 59 9D 9D |IN";.%...." Y..| 00001620: 9D 22 3B 5A 24 00 40 1A 38 09 8B 20 C8 28 5A 24 |.";Z$.@.8.. .(Z$| 00001630: 2C 31 29 20 B3 B1 20 22 4E 22 20 A7 20 34 31 30 |,1) .. "N" . 410| 00001640: 00 46 1A 42 09 80 00 6A 1A 4C 09 8F 20 3D 3D 3D |.F.B...j.L.. ===| 00001650: 20 50 4F 53 4E 20 43 55 52 53 52 20 41 54 20 58 | POSN CURSR AT X| 00001660: 2C 59 20 49 4E 20 47 52 49 44 00 74 1A 56 09 99 |,Y IN GRID.t.V..| 00001670: 22 13 22 3B 00 88 1A 60 09 88 20 52 30 20 B2 20 |".";...`.. R0 . | 00001680: 28 31 30 AB 59 29 AC 32 00 9D 1A 6A 09 8B 20 52 |(10.Y).2...j.. R| 00001690: 30 20 B3 B2 20 30 20 A7 20 32 34 33 30 00 B6 1A |0 .. 0 . 2430...| 000016A0: 74 09 81 20 52 20 B2 20 31 20 A4 20 52 30 3A 20 |t.. R . 1 . R0: | 000016B0: 99 3A 20 82 20 52 00 C5 1A 7E 09 99 A3 31 38 AA |.: . R...~...18.| 000016C0: 32 AC 58 29 3B 00 CB 1A 88 09 8E 00 00 00 |2.X);......... |
..!.D.. M U G W U M P.E.N..
P&J PARR 5/25/78.G.X.. ADAP
TED FROM BASIC COMPUTER...... GAMES, MIC
ROCOMPUTER EDITION;...... EDITED BY DAVI
D AHL, CREATIVE.E.... COMPUTING PRESS...
.. === V A R I A B L E S...... T0 =
# TURNS ALLOWED...... T = PRESENT TURN
.2.... M0 = # OF MUGWUMPS.M.H.. M = CU
RRENT MUGWUMP.J.R.. M1 = LATEST ONE FOU
ND...... X0,Y0 = INPUT COORDINATES.....
. X,Y = COORDS FOR SUBR AT 8000.N....
D = ARRAY OF DISTANCES...... F(M) = TUR
N ON WHICH M FOUND...... F0 = NUMBER FO
UND THIS TURN.4.... F2 = TOTAL FOUND SO
FAR.W.... S0$ = SYMBOL FOR NO MUGWUMP.
X.".. S1$ = SYMBOL FOR VISITING...,..
S$(M1) = SYMBOL FOUND M1...6.. L(M, ) =
LOCATION OF M.O.@.. T1 = TAB FOR GRID.
..J.. J = END OF TIME DELAY...T.. J0 =
LENGTH OF TIME DELAY./.^.. Z$ = SYMBOL
FOR PLAY AGAIN.O.H.. === INITIALIZE, DI
MENSION.\.R.. M0 . 4.V.|.. F(M0),L(M0,2)
,D(M0)...... S$(4),M$(M0)...... Z$ . "".
........... S0$ . ". ": S1$ . ".."......
S$(1) . ".1": S$(2) . ".2": S$(
3) . ".3": S$(4) . ".4"...... T0 . 10...
B.. M . 1 . M0./.L.: . F(M) . 0.9.V.: .
M.F.... F2 . 0.T.... T1 . 16.C.... J0 .
180...... === P R I N T G R I D.....
.".";...... T1 . 16.......T1);"10.......
.................&...T1);" . . . . . .
. . . . ....0...T1);" 9.................
.....'.:...T1);" . . . . . . . . . . ..
J.D...T1);" 8......................M.N..
.T1);" . . . . . . . . . . ....X...T1);
" 7........................B...T1);" .
. . . . . . . . . ..V.L...T1);" 6.......
.................V...T1);" . . . . . .
. . . . ........T1);" 5.................
.....?.....T1);" . . . . . . . . . . ..
B.....T1);" 4...........................
.T1);" . . . . . . . . . . ........T1);
" 3......................K.....T1);" .
. . . . . . . . . ........T1);" 2.......
.................F...T1);" . . . . . .
. . . . ..4.P...T1);" 1.................
.....W.Z...T1);" . . . . . . . . . . ..
Z.....T1);" ...........................
.T1);" 0 1 2 3 4 5 6 7 8 910.......G...
. NOTE: IN ORDER TO READ LINES...... 11
20 TO 1240, FIRST WRITE...... (WITH NO L
INE NUMBER)... .. "POKE 59468,14".;.*..
BEFORE LISTING THESE LINES..^.4..
AFTER THESE LINES ARE.~.>.. LISTED, THE
N TO RETURN TO...H.. NORMAL, WRITE (NO L
INE #).B.R.. "POKE 59468,12" TO GET OUT
OF.Y.\.. LOWER CASE MODE....F.....P.. ==
= I N S T R U C T I O N S...Z.."..M U G
W U M P!".P.... Z$ .. "" . . D . 1 . 9:
.".": . D: . 1070._.... 59468,14.
E.....|...." THERE ARE FOUR"......"MUGWU
MPS HIDING"......"HERE. TRY TO"......
"FIND SOME.".U.J..:."YOU CAN GO TO A"...
T.."CORNER BY TYPING"......"HOW FAR EAST
AND"......"NORTH IT IS FROM".5...."THE
BOTTOM LEFT".E...."CORNER. "._....:." I
WILL TELL YOU".W...."IF YOU FIND ONE.".
.....:." GOOD HUNTING!"...$...........8
.." WHICH CORNER DO".L.B.."YOU WANT TO
TRY".Z.L.."FIRST";...V.. === P L A C E
M U G S...`.. M . 1 . M0.".J.: L(M,1).
.(.(1).11).:.T.: L(M,2)..(.(1).11).D.~.:
. M.`.... === T H E H U N T.Q.... T
. 1 . T0.....: ." +,+.....";X0,Y0.....
. ---BLOT OUT PREVIOUS POSITION.Y...: .
T.1 . F0.0 . . 2380: . S0$......
--- PUT CROSS IN NEW POSITION...D.: . X
. X0: . Y . Y0.*.N.: . 2380: . S1$.L.X..
--- C O M P U T E D I S T.[...: . F0
. 0.N...: . M . 1 . M0.....: . F(M) .
0 . 1310.Q...: . D(M) . .((X.L(M,1)).2
. (Y.L(M,2)).2
).....: . D(M) . 0 . 1310.....: . F0
. F0 . 1.....: . M./.(.. --- P R I N
T D I S T ' S.:.2.: .".".M.<.: . R . 1
. 23.I.F.: ." ".U.P.:
. R...Z.: . 59468,12...D.: .".": ....N
.: ." RESULT OF".C.X.: ."TURN NUMBER";T
: ......: ."MUG DISTANCE ".....: . M .
1 . M0.....: . F(M) . 0 . 1510.). .:
. D1 . .1..(D(M).10..5).3...: ..G...
: . M;.6);D1;.A...: . D(M) . 0 . 151
0.U.H.: ." ._AHA!";...R.: . F(M) . T
.....: . M1 . M.....: . M.....: ..Q.
... --- E N D OF D I S T PRINT.....:
. F0 . 0 . 2070...... --- C E L E B R A
T E !.....: .: .: ..,.".: ."YOU HAVE FO
UND".F.,.: ."MUGWUMP #";M1;"!".Z.6.: . J
. TI . J0.P.@.: . TI . J . 1600...J.: .
".....";...T.: ." "...^.:
. M1 . 1640,1720,1780,1880.W.H.: ." .
..@@@@@... "...R.: ." . R R . ".
..|.: ." . W W . ".....: ." .::&:
:. ".7...: ." .M...N. ".O...: ."
M V N ".G...: ." MN.MN ".
T...: . 1970.....: ." ..IU.. "...
B.: ." @RRRRR. .. . ".A.L.: ." .
. KJ . "...V.: ." . . . . JK . "..
...: ." .... ".....: . 1970....
.: ." ............".5...: ." .
. ".M...: ." . J K . ".E...: ."
. O O . ".}...: ." M MN N "...
&.: ." MKJN "...0.: ." .K..J.
".E.:.: ." "...D.: ."
"...N.: . 1970...X.: ."
NNNARA "...B.: ." MMMMMNNNN. .M".9
.L.: ."@ MMMMM... . . ".W.V.: ." M..
..MMM.. .. = N".T...: ." . ..MMM.. .
...".....: ." .. .... .... ...".....
: ." ..MM ..MM".F...: ." NNNN
NN ..".....: ." . . . . ".....: .
2380.....: . S$(M1)...F.. --- IF NONE
LEFT, O U T.-.P.: . F2 . 0.@.Z.: . M
. 1 . M0.A...: . F(M) . 0 . F2 . F2 .
1.M...: . M.....: . F2 .. M0 . 2160...
..: . 2070...... --- CELEBRATION'S OV
ER.V.... W H I C H C O R N E R ?..
. .: . T .. T0 . 2140...*.: ."."...4.: .
R . 1 . 19: .: . R.,.>.: ."WHICH CORNER
DO".E.H.: ."YOU WANT TO TRY".T.R.: ."NE
XT";.^.\.: . T.O.F.. T . T0 . 1...P.. --
- G A M E I S O V E R...Z.. PAUS
E BEFORE ANNOUNCEMENT.G.... J . TI . J0.
..... TI . J . 2190......"."...... R . 1
. 19.....: ." ".....: .
R.%....".": ..<.J.. M$(0) . "SORRY.".].T
.. M$(1) . "ONE'S WELL DONE.".Z.... M$(2
) . "TWO WILL DO."...... M$(3) . "GLEE F
OR THREE!"...... M$(4) . "A PERFECT FOUR
!".G.... M$(F2).P...."."...... R . 1 . 1
6: .: . R......" DO YOU WANT TO"...$.."
PLAY AGAIN";.%...." Y...";Z$.@.8.. H(Z$
,1) .. "N" . 410.F.B...J.L.. === POSN CU
RSR AT X,Y IN GRID.T.V..".";...`.. R0 .
(10.Y).2...J.. R0 .. 0 . 2430...T.. R .
1 . R0: .: . R.E.~...18.2.X);.K.......
> CLICK IMAGE PREVIEW FOR FULL MODAL