BEST WORD SEARCH
FILE INFORMATION
FILENAME(S): BEST WORD SEARCH
FILE TYPE(S): PRG
FILE SIZE: 3.4K
FIRST SEEN: 2025-10-19 22:48:23
APPEARS ON: 1 disk(s)
FILE HASH
8c81faef7c017208a0242ef4881c5b694e02a5f8feef8d65c9864659bdd8a705
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DISK BACKUP | BEST WORD SEARCH | PRG | Radd Maxx | 29 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0B 08 5F 00 4D 43 B2 39 39 00 47 08 64 00 |...._.MC.99.G.d.|
00000010: 86 46 46 24 28 31 30 30 29 2C 53 24 28 39 39 29 |.FF$(100),S$(99)|
00000020: 2C 57 24 28 31 30 30 29 2C 43 43 28 31 30 30 29 |,W$(100),CC(100)|
00000030: 2C 52 52 28 31 30 30 29 2C 4C 28 31 30 30 29 2C |,RR(100),L(100),|
00000040: 45 24 28 32 2C 32 29 00 53 08 6E 00 81 49 B2 AB |E$(2,2).S.n..I..|
00000050: 31 A4 31 00 5F 08 78 00 81 4A B2 AB 31 A4 31 00 |1.1._.x..J..1.1.|
00000060: 70 08 82 00 87 45 24 28 49 AA 31 2C 4A AA 31 29 |p....E$(I.1,J.1)|
00000070: 00 77 08 8C 00 82 4A 00 7E 08 96 00 82 49 00 B0 |.w....J.~....I..|
00000080: 08 A0 00 83 22 4E 57 22 2C 22 20 4E 22 2C 22 4E |...."NW"," N","N|
00000090: 45 22 2C 22 20 57 22 2C 22 20 20 22 2C 22 20 45 |E"," W"," "," E|
000000A0: 22 2C 22 53 57 22 2C 22 20 53 22 2C 22 53 45 22 |","SW"," S","SE"|
000000B0: 00 BC 08 AA 00 81 49 B2 31 A4 4D 43 00 CA 08 B4 |......I.1.MC....|
000000C0: 00 47 24 B2 47 24 AA 22 20 22 00 D1 08 BE 00 82 |.G$.G$." "......|
000000D0: 49 00 DC 08 C8 00 81 49 B2 31 A4 38 00 EF 08 D2 |I......I.1.8....|
000000E0: 00 87 44 28 31 2C 49 29 2C 44 28 32 2C 49 29 00 |..D(1,I),D(2,I).|
000000F0: F6 08 DC 00 82 49 00 10 09 E6 00 83 2D 31 2C 2D |.....I......-1,-|
00000100: 31 2C 2D 31 2C 30 2C 2D 31 2C 31 2C 30 2C 2D 31 |1,-1,0,-1,1,0,-1|
00000110: 00 26 09 F0 00 83 30 2C 31 2C 31 2C 2D 31 2C 31 |.&....0,1,1,-1,1|
00000120: 2C 30 2C 31 2C 31 00 30 09 FA 00 89 31 32 32 30 |,0,1,1.0....1220|
00000130: 00 41 09 04 01 8F 20 53 48 45 4C 4C 20 53 4F 52 |.A.... SHELL SOR|
00000140: 54 00 53 09 0E 01 99 22 53 4F 52 54 49 4E 47 2E |T.S...."SORTING.|
00000150: 2E 2E 22 00 5B 09 18 01 58 B2 31 00 65 09 22 01 |..".[...X.1.e.".|
00000160: 58 B2 32 AC 58 00 74 09 2C 01 8B 58 B3 B2 57 30 |X.2.X.t.,..X..W0|
00000170: A7 32 39 30 00 81 09 36 01 58 B2 B5 28 58 AD 32 |.290...6.X..(X.2|
00000180: 29 00 8F 09 40 01 8B 58 B3 B1 30 A7 33 34 30 00 |)...@..X..0.340.|
00000190: 95 09 4A 01 8E 00 A3 09 54 01 81 59 B2 31 A4 57 |..J.....T..Y.1.W|
000001A0: 30 AB 58 00 AB 09 5E 01 5A B2 59 00 B5 09 68 01 |0.X...^.Z.Y...h.|
000001B0: 41 B2 5A AA 58 00 C9 09 72 01 8B 4C 28 5A 29 B1 |A.Z.X...r..L(Z).|
000001C0: B2 4C 28 41 29 A7 34 36 30 00 D6 09 7C 01 58 24 |.L(A).460...|.X$|
000001D0: B2 57 24 28 5A 29 00 E6 09 86 01 57 24 28 5A 29 |.W$(Z).....W$(Z)|
000001E0: B2 57 24 28 41 29 00 F3 09 90 01 57 24 28 41 29 |.W$(A).....W$(A)|
000001F0: B2 58 24 00 FE 09 9A 01 42 B2 4C 28 5A 29 00 0C |.X$.....B.L(Z)..|
00000200: 0A A4 01 4C 28 5A 29 B2 4C 28 41 29 00 17 0A AE |...L(Z).L(A)....|
00000210: 01 4C 28 41 29 B2 42 00 21 0A B8 01 5A B2 5A AB |.L(A).B.!...Z.Z.|
00000220: 58 00 2E 0A C2 01 8B 5A B1 30 A7 33 36 30 00 35 |X......Z.0.360.5|
00000230: 0A CC 01 82 59 00 3E 0A D6 01 89 33 31 30 00 4F |....Y.>....310.O|
00000240: 0A E0 01 8F 20 48 49 44 45 20 57 4F 52 44 53 00 |.... HIDE WORDS.|
00000250: 5B 0A EA 01 81 58 B2 31 A4 57 30 00 67 0A F4 01 |[....X.1.W0.g...|
00000260: 81 59 B2 31 A4 35 30 00 79 0A FE 01 52 31 B2 B5 |.Y.1.50.y...R1..|
00000270: 28 BB 28 31 29 AC 52 30 29 00 8B 0A 08 02 43 31 |(.(1).R0).....C1|
00000280: B2 B5 28 BB 28 31 29 AC 43 30 29 00 9E 0A 12 02 |..(.(1).C0).....|
00000290: 44 31 B2 B5 28 BB 28 31 29 AC 38 29 AA 31 00 A8 |D1..(.(1).8).1..|
000002A0: 0A 1C 02 4F 31 B2 44 31 00 B7 0A 26 02 44 58 B2 |...O1.D1...&.DX.|
000002B0: 44 28 31 2C 44 31 29 00 C6 0A 30 02 44 59 B2 44 |D(1,D1)...0.DY.D|
000002C0: 28 32 2C 44 31 29 00 F7 0A 3A 02 8B 52 31 AA 44 |(2,D1)...:..R1.D|
000002D0: 58 AC 4C 28 58 29 B3 31 B0 52 31 AA 44 58 AC 4C |X.L(X).1.R1.DX.L|
000002E0: 28 58 29 B1 52 30 B0 43 31 AA 44 59 AC 4C 28 58 |(X).R0.C1.DY.L(X|
000002F0: 29 B3 31 A7 35 39 30 00 0F 0B 44 02 8B 43 31 AA |).1.590...D..C1.|
00000300: 44 59 AC 4C 28 58 29 B3 B2 43 30 A7 36 33 30 00 |DY.L(X)..C0.630.|
00000310: 28 0B 4E 02 44 31 B2 44 31 AC 28 44 31 B3 38 29 |(.N.D1.D1.(D1.8)|
00000320: AC 28 31 B2 31 29 AA 31 00 38 0B 58 02 8B 44 31 |.(1.1).1.8.X..D1|
00000330: B3 B1 4F 31 A7 35 35 30 00 3F 0B 62 02 82 59 00 |..O1.550.?.b..Y.|
00000340: 48 0B 6C 02 89 38 30 30 00 56 0B 76 02 81 5A B2 |H.l..800.V.v..Z.|
00000350: 31 A4 4C 28 58 29 00 81 0B 80 02 8B CA 28 57 24 |1.L(X).......(W$|
00000360: 28 58 29 2C 5A 2C 31 29 B3 22 41 22 B0 CA 28 57 |(X),Z,1)."A"..(W|
00000370: 24 28 58 29 2C 5A 2C 31 29 B1 22 5A 22 A7 36 38 |$(X),Z,1)."Z".68|
00000380: 30 00 8E 0B 8A 02 52 31 B2 52 31 AA 44 58 00 9B |0.....R1.R1.DX..|
00000390: 0B 94 02 43 31 B2 43 31 AA 44 59 00 D5 0B 9E 02 |...C1.C1.DY.....|
000003A0: 8B CA 28 53 24 28 52 31 29 2C 43 31 2C 31 29 B3 |..(S$(R1),C1,1).|
000003B0: B1 22 20 22 AF CA 28 53 24 28 52 31 29 2C 43 31 |." "..(S$(R1),C1|
000003C0: 2C 31 29 B3 B1 CA 28 57 24 28 58 29 2C 5A 2C 31 |,1)...(W$(X),Z,1|
000003D0: 29 A7 35 39 30 00 DC 0B A8 02 82 5A 00 ED 0B B2 |).590......Z....|
000003E0: 02 81 5A B2 4C 28 58 29 A4 31 A9 AB 31 00 18 0C |..Z.L(X).1..1...|
000003F0: BC 02 8B CA 28 57 24 28 58 29 2C 5A 2C 31 29 B3 |....(W$(X),Z,1).|
00000400: 22 41 22 B0 CA 28 57 24 28 58 29 2C 5A 2C 31 29 |"A"..(W$(X),Z,1)|
00000410: B1 22 5A 22 A7 37 37 30 00 50 0C C6 02 53 24 28 |."Z".770.P...S$(|
00000420: 52 31 29 B2 CA 28 53 24 28 52 31 29 2C 31 2C 43 |R1)..(S$(R1),1,C|
00000430: 31 AB 31 29 AA CA 28 57 24 28 58 29 2C 5A 2C 31 |1.1)..(W$(X),Z,1|
00000440: 29 AA CA 28 53 24 28 52 31 29 2C 43 31 AA 31 29 |)..(S$(R1),C1.1)|
00000450: 00 5D 0C D0 02 52 52 28 58 29 B2 52 31 00 6A 0C |.]...RR(X).R1.j.|
00000460: DA 02 43 43 28 58 29 B2 43 31 00 83 0C E4 02 46 |..CC(X).C1.....F|
00000470: 46 24 28 58 29 B2 45 24 28 44 58 AA 31 2C 44 59 |F$(X).E$(DX.1,DY|
00000480: AA 31 29 00 90 0C EE 02 52 31 B2 52 31 AB 44 58 |.1).....R1.R1.DX|
00000490: 00 9D 0C F8 02 43 31 B2 43 31 AB 44 59 00 A4 0C |.....C1.C1.DY...|
000004A0: 02 03 82 5A 00 AB 0C 0C 03 82 58 00 B4 0C 16 03 |...Z......X.....|
000004B0: 89 38 39 30 00 BE 0C 20 03 8D 31 37 32 30 00 01 |.890... ..1720..|
000004C0: 0D 2A 03 99 22 53 4F 52 52 59 2C 20 42 55 54 20 |.*.."SORRY, BUT |
000004D0: 49 20 43 41 4E 27 54 20 46 49 54 20 57 4F 52 44 |I CAN'T FIT WORD|
000004E0: 20 4E 55 4D 42 45 52 20 22 3B C4 28 58 29 3B 22 | NUMBER ";.(X);"|
000004F0: 20 2C 20 22 3B 57 24 28 58 29 3B 22 20 2C 20 22 | , ";W$(X);" , "|
00000500: 3B 00 42 0D 34 03 99 22 49 4E 54 4F 20 54 48 45 |;.B.4.."INTO THE|
00000510: 20 47 52 49 44 2E 20 53 48 4F 55 4C 44 20 49 20 | GRID. SHOULD I |
00000520: 53 4B 49 50 20 49 54 2C 20 53 54 41 52 54 20 4F |SKIP IT, START O|
00000530: 56 45 52 2C 20 4F 52 20 54 52 59 20 41 47 41 49 |VER, OR TRY AGAI|
00000540: 4E 22 00 4A 0D 3E 03 85 58 24 00 63 0D 48 03 8B |N".J.>..X$.c.H..|
00000550: CA 28 58 24 2C 31 2C 32 29 B2 22 53 54 22 A7 31 |.(X$,1,2)."ST".1|
00000560: 36 36 30 00 7B 0D 52 03 8B CA 28 58 24 2C 31 2C |660.{.R...(X$,1,|
00000570: 32 29 B2 22 54 52 22 A7 35 30 30 00 93 0D 5C 03 |2)."TR".500...\.|
00000580: 8B CA 28 58 24 2C 31 2C 32 29 B2 22 53 4B 22 A7 |..(X$,1,2)."SK".|
00000590: 38 33 30 00 A1 0D 66 03 57 24 28 58 29 B2 22 2F |830...f.W$(X)."/|
000005A0: 22 00 AA 0D 70 03 89 37 38 30 00 B6 0D 7A 03 81 |"...p..780...z..|
000005B0: 58 B2 31 A4 52 30 00 C2 0D 84 03 81 59 B2 31 A4 |X.1.R0......Y.1.|
000005C0: 43 30 00 DD 0D 8E 03 8B CA 28 53 24 28 58 29 2C |C0.......(S$(X),|
000005D0: 59 2C 31 29 B3 B1 22 20 22 A7 39 33 30 00 14 0E |Y,1).." ".930...|
000005E0: 98 03 53 24 28 58 29 B2 CA 28 53 24 28 58 29 2C |..S$(X)..(S$(X),|
000005F0: 31 2C 59 AB 31 29 AA C7 28 B5 28 32 36 AC BB 28 |1,Y.1)..(.(26..(|
00000600: 31 29 AA 36 35 29 29 AA CA 28 53 24 28 58 29 2C |1).65))..(S$(X),|
00000610: 59 AA 31 29 00 1B 0E A2 03 82 59 00 22 0E AC 03 |Y.1)......Y."...|
00000620: 82 58 00 2D 0E B6 03 8F 20 44 4F 4E 45 00 33 0E |.X.-.... DONE.3.|
00000630: C0 03 99 00 72 0E CA 03 99 22 49 20 41 4D 20 46 |....r...."I AM F|
00000640: 49 4E 49 53 48 45 44 2E 20 57 48 41 54 20 44 4F |INISHED. WHAT DO|
00000650: 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 43 41 4C | YOU WANT TO CAL|
00000660: 4C 20 54 48 45 20 57 4F 52 44 20 53 45 41 52 43 |L THE WORD SEARC|
00000670: 48 22 00 7A 0E D4 03 85 54 24 00 83 0E DE 03 53 |H".z....T$.....S|
00000680: 4C B2 30 00 89 0E E8 03 99 00 B8 0E F2 03 99 22 |L.0............"|
00000690: 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 50 |DO YOU WANT TO P|
000006A0: 52 49 4E 54 20 54 48 45 20 53 4F 4C 55 54 49 4F |RINT THE SOLUTIO|
000006B0: 4E 20 28 59 2F 4E 29 22 00 C2 0E FC 03 8D 31 31 |N (Y/N)"......11|
000006C0: 38 30 00 D3 0E 06 04 8B 41 24 B2 22 4E 22 A7 31 |80......A$."N".1|
000006D0: 30 35 30 00 DC 0E 10 04 53 4C B2 31 00 E6 0E 1A |050.....SL.1....|
000006E0: 04 8D 32 30 30 30 00 F0 0E 24 04 8D 31 37 32 30 |..2000...$..1720|
000006F0: 00 F8 0E 2E 04 46 B2 30 00 1E 0F 38 04 99 22 44 |.....F.0...8.."D|
00000700: 4F 20 59 4F 55 20 57 41 4E 54 20 41 4E 4F 54 48 |O YOU WANT ANOTH|
00000710: 45 52 20 47 52 49 44 20 28 59 2F 4E 29 22 00 28 |ER GRID (Y/N)".(|
00000720: 0F 42 04 8D 31 31 38 30 00 39 0F 4C 04 8B 41 24 |.B..1180.9.L..A$|
00000730: B2 22 59 22 A7 31 31 32 30 00 3F 0F 56 04 80 00 |."Y".1120.?.V...|
00000740: 45 0F 60 04 99 00 74 0F 6A 04 99 22 44 4F 20 59 |E.`...t.j.."DO Y|
00000750: 4F 55 20 57 4E 41 54 20 54 4F 20 55 53 45 20 54 |OU WNAT TO USE T|
00000760: 48 45 20 53 41 4D 45 20 57 4F 52 44 53 20 28 59 |HE SAME WORDS (Y|
00000770: 2F 4E 29 22 00 7E 0F 74 04 8D 31 31 38 30 00 8F |/N)".~.t..1180..|
00000780: 0F 7E 04 8B 41 24 B2 22 4E 22 A7 31 32 38 30 00 |.~..A$."N".1280.|
00000790: 97 0F 88 04 46 B2 31 00 A1 0F 92 04 89 31 33 34 |....F.1......134|
000007A0: 30 00 A9 0F 9C 04 85 41 24 00 C3 0F A6 04 8B 41 |0......A$......A|
000007B0: 24 B3 B1 22 59 22 AF 41 24 B3 B1 22 4E 22 A7 31 |$.."Y".A$.."N".1|
000007C0: 31 38 30 00 C9 0F B0 04 8E 00 DE 0F BA 04 8F 20 |180............ |
000007D0: 49 4E 49 54 49 41 4C 49 5A 41 54 49 4F 4E 00 E8 |INITIALIZATION..|
000007E0: 0F C4 04 8D 31 37 32 30 00 F1 0F CE 04 4C 4C B2 |....1720.....LL.|
000007F0: 36 00 FB 0F D8 04 8D 31 37 34 30 00 16 10 E2 04 |6......1740.....|
00000800: 99 22 20 20 20 20 20 20 20 20 57 4F 52 44 20 53 |." WORD S|
00000810: 45 41 52 43 48 22 00 1F 10 EC 04 4C 4C B2 34 00 |EARCH".....LL.4.|
00000820: 29 10 F6 04 8D 31 37 34 30 00 35 10 00 05 81 49 |)....1740.5....I|
00000830: B2 31 A4 57 30 00 42 10 0A 05 57 24 28 49 29 B2 |.1.W0.B...W$(I).|
00000840: 22 22 00 4D 10 14 05 4C 28 49 29 B2 30 00 54 10 |"".M...L(I).0.T.|
00000850: 1E 05 82 49 00 8D 10 28 05 99 22 48 4F 57 20 4D |...I...(.."HOW M|
00000860: 41 4E 59 20 57 4F 52 44 53 20 57 4F 55 4C 44 20 |ANY WORDS WOULD |
00000870: 59 4F 55 20 4C 49 4B 45 20 49 4E 20 59 4F 55 52 |YOU LIKE IN YOUR|
00000880: 20 57 4F 52 44 20 53 45 41 52 43 48 22 00 95 10 | WORD SEARCH"...|
00000890: 32 05 85 57 30 00 9B 10 3C 05 99 00 C8 10 46 05 |2..W0...<.....F.|
000008A0: 99 22 48 4F 57 20 4D 41 4E 59 20 52 4F 57 53 20 |."HOW MANY ROWS |
000008B0: 41 4E 44 20 43 4F 4C 55 4D 4E 53 20 49 4E 20 54 |AND COLUMNS IN T|
000008C0: 48 45 20 47 52 49 44 22 00 D3 10 50 05 85 52 30 |HE GRID"...P..R0|
000008D0: 2C 43 30 00 D9 10 5A 05 99 00 DF 10 64 05 99 00 |,C0...Z.....d...|
000008E0: F6 10 6E 05 8B 52 30 AC 43 30 B1 B2 31 30 AC 57 |..n..R0.C0..10.W|
000008F0: 30 A7 31 34 34 30 00 1C 11 78 05 99 22 49 20 44 |0.1440...x.."I D|
00000900: 4F 4E 27 54 20 54 48 49 4E 4B 20 49 20 43 4F 55 |ON'T THINK I COU|
00000910: 4C 44 20 44 4F 20 54 48 49 53 2E 22 00 2A 11 82 |LD DO THIS.".*..|
00000920: 05 81 49 B2 31 A4 31 30 30 30 00 31 11 8C 05 82 |..I.1.1000.1....|
00000930: 49 00 3B 11 96 05 89 31 33 34 30 00 59 11 A0 05 |I.;....1340.Y...|
00000940: 99 22 49 20 54 48 49 4E 4B 20 49 20 43 41 4E 20 |."I THINK I CAN |
00000950: 44 4F 20 54 48 49 53 2E 22 00 6A 11 AA 05 8B 43 |DO THIS.".j....C|
00000960: 30 B3 B2 4D 43 A7 31 34 37 30 00 92 11 B4 05 99 |0..MC.1470......|
00000970: 22 28 42 55 54 20 49 54 20 57 4F 4E 27 54 20 46 |"(BUT IT WON'T F|
00000980: 49 54 20 4F 4E 20 54 48 45 20 50 41 50 45 52 2E |IT ON THE PAPER.|
00000990: 29 22 00 A0 11 BE 05 8B 46 B2 31 A7 31 36 36 30 |)"......F.1.1660|
000009A0: 00 A9 11 C8 05 4C 4C B2 33 00 B3 11 D2 05 8D 31 |.....LL.3......1|
000009B0: 37 34 30 00 F3 11 DC 05 99 22 45 4E 54 45 52 20 |740......"ENTER |
000009C0: 54 48 45 20 22 3B C4 28 57 30 29 3B 22 20 57 4F |THE ";.(W0);" WO|
000009D0: 52 44 53 2E 20 54 4F 20 43 4F 52 52 45 43 54 20 |RDS. TO CORRECT |
000009E0: 41 20 4D 49 53 54 41 4B 45 2C 20 45 4E 54 45 52 |A MISTAKE, ENTER|
000009F0: 20 58 22 00 F9 11 E6 05 99 00 05 12 F0 05 81 49 | X"............I|
00000A00: B2 31 A4 57 30 00 1F 12 FA 05 99 22 57 4F 52 44 |.1.W0......"WORD|
00000A10: 20 4E 55 4D 42 45 52 20 22 3B 49 3B 22 3A 22 00 | NUMBER ";I;":".|
00000A20: 27 12 04 06 85 58 24 00 4D 12 0E 06 8B C3 28 58 |'....X$.M.....(X|
00000A30: 24 29 B3 B2 52 30 AF C3 28 58 24 29 B3 B2 43 30 |$)..R0..(X$)..C0|
00000A40: AF 58 24 B3 B1 22 58 22 A7 31 36 31 30 00 5F 12 |.X$.."X".1610._.|
00000A50: 18 06 8B 58 24 B3 B1 22 58 22 A7 31 35 39 30 00 |...X$.."X".1590.|
00000A60: 73 12 22 06 49 B2 49 AB 28 49 B1 31 29 AC 28 31 |s.".I.I.(I.1).(1|
00000A70: B2 31 29 00 7D 12 2C 06 89 31 35 33 30 00 A1 12 |.1).}.,..1530...|
00000A80: 36 06 99 22 4F 4F 50 53 2E 2E 2E 54 48 45 20 57 |6.."OOPS...THE W|
00000A90: 4F 52 44 20 20 49 53 20 54 4F 4F 20 4C 4F 4E 47 |ORD IS TOO LONG|
00000AA0: 22 00 AB 12 40 06 89 31 35 33 30 00 B8 12 4A 06 |"...@..1530...J.|
00000AB0: 57 24 28 49 29 B2 58 24 00 C7 12 54 06 4C 28 49 |W$(I).X$...T.L(I|
00000AC0: 29 B2 C3 28 58 24 29 00 CE 12 5E 06 82 49 00 D8 |)..(X$)...^..I..|
00000AD0: 12 68 06 8D 31 37 32 30 00 E1 12 72 06 8D 32 37 |.h..1720...r..27|
00000AE0: 30 00 E7 12 7C 06 99 00 16 13 86 06 99 22 4F 4B |0...|........"OK|
00000AF0: 41 59 2C 20 49 20 57 49 4C 4C 20 47 4F 20 54 4F |AY, I WILL GO TO|
00000B00: 20 57 4F 52 4B 20 28 57 49 53 48 20 4D 45 20 4C | WORK (WISH ME L|
00000B10: 55 43 4B 2E 2E 22 00 22 13 90 06 81 49 B2 31 A4 |UCK.."."....I.1.|
00000B20: 52 30 00 35 13 9A 06 53 24 28 49 29 B2 C8 28 47 |R0.5...S$(I)..(G|
00000B30: 24 2C 43 30 29 00 3C 13 A4 06 82 49 00 45 13 AE |$,C0).<....I.E..|
00000B40: 06 89 34 39 30 00 51 13 B8 06 99 C7 28 31 34 37 |..490.Q.....(147|
00000B50: 29 00 57 13 C2 06 8E 00 63 13 CC 06 81 49 B2 31 |).W.....c....I.1|
00000B60: A4 4C 4C 00 69 13 D6 06 99 00 70 13 E0 06 82 49 |.LL.i.....p....I|
00000B70: 00 76 13 EA 06 8E 00 8C 13 CF 07 8F 20 50 52 49 |.v.......... PRI|
00000B80: 4E 54 45 52 20 52 4F 55 54 49 4E 45 00 9E 13 D0 |NTER ROUTINE....|
00000B90: 07 9F 33 2C 34 3A 98 33 2C 54 24 3A 98 33 00 D2 |..3,4:.3,T$:.3..|
00000BA0: 13 DA 07 98 33 2C 22 20 20 20 20 22 3B 3A 81 49 |....3," ";:.I|
00000BB0: B2 31 A4 43 30 3A 8B 49 AD 31 30 B3 B1 B5 28 49 |.1.C0:.I.10...(I|
00000BC0: AD 31 30 29 A7 98 33 2C 22 20 22 3B 3A 89 32 30 |.10)..3," ";:.20|
00000BD0: 33 30 00 E6 13 E4 07 98 33 2C CA 28 C4 28 49 29 |30......3,.(.(I)|
00000BE0: 2C 32 2C 31 29 3B 00 F0 13 EE 07 82 49 3A 98 33 |,2,1);......I:.3|
00000BF0: 00 1B 14 F8 07 98 33 2C 22 20 20 20 20 22 3B 3A |......3," ";:|
00000C00: 81 49 B2 31 A4 43 30 3A 98 33 2C C9 28 C4 28 49 |.I.1.C0:.3,.(.(I|
00000C10: 29 2C 31 29 3B 3A 82 49 3A 98 33 00 35 14 02 08 |),1);:.I:.3.5...|
00000C20: 81 58 B2 31 A4 52 30 3A 8B 58 B3 31 30 A7 98 33 |.X.1.R0:.X.10..3|
00000C30: 2C 22 20 22 3B 00 45 14 0C 08 98 33 2C C4 28 58 |," ";.E....3,.(X|
00000C40: 29 22 20 22 3B 00 62 14 16 08 81 59 B2 31 A4 43 |)" ";.b....Y.1.C|
00000C50: 30 3A 98 33 2C CA 28 53 24 28 58 29 2C 59 2C 31 |0:.3,.(S$(X),Y,1|
00000C60: 29 3B 00 85 14 20 08 82 59 3A 98 33 3A 82 58 3A |);... ..Y:.3:.X:|
00000C70: 98 33 3A 98 33 3A 98 33 2C 22 57 4F 52 44 20 4C |.3:.3:.3,"WORD L|
00000C80: 49 53 54 3A 22 00 A1 14 2A 08 81 58 B2 31 A4 57 |IST:"...*..X.1.W|
00000C90: 30 3A 8B 57 24 28 58 29 B2 22 2F 22 A7 32 31 31 |0:.W$(X)."/".211|
00000CA0: 30 00 AE 14 34 08 98 33 2C 57 24 28 58 29 00 CD |0...4..3,W$(X)..|
00000CB0: 14 3E 08 82 58 3A 81 49 B2 31 A4 35 3A 98 33 3A |.>..X:.I.1.5:.3:|
00000CC0: 82 49 3A 8B 53 4C B2 30 A7 32 31 38 30 00 10 15 |.I:.SL.0.2180...|
00000CD0: 48 08 98 33 2C 22 53 4F 4C 55 54 49 4F 4E 4C 49 |H..3,"SOLUTIONLI|
00000CE0: 53 54 3A 22 3A 98 33 2C 22 57 4F 52 44 20 20 20 |ST:":.3,"WORD |
00000CF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000D00: 20 20 52 4F 57 20 20 20 43 4F 4C 55 4D 4E 22 3B | ROW COLUMN";|
00000D10: 00 20 15 52 08 98 33 2C 22 20 20 20 44 49 52 22 |. .R..3," DIR"|
00000D20: 00 3C 15 5C 08 81 58 B2 31 A4 57 30 3A 8B 57 24 |.<.\..X.1.W0:.W$|
00000D30: 28 58 29 B2 22 2F 22 A7 32 31 37 30 00 76 15 66 |(X)."/".2170.v.f|
00000D40: 08 98 33 2C 57 24 28 58 29 3B C8 28 47 24 2C 32 |..3,W$(X);.(G$,2|
00000D50: 35 AB C3 28 57 24 28 58 29 29 29 3B 52 52 28 58 |5..(W$(X)));RR(X|
00000D60: 29 3B C8 28 47 24 2C 38 AB C3 28 C4 28 52 52 28 |);.(G$,8..(.(RR(|
00000D70: 58 29 29 29 29 3B 00 9E 15 70 08 98 33 2C 43 43 |X))));...p..3,CC|
00000D80: 28 58 29 3B C8 28 47 24 2C 36 AB C3 28 C4 28 43 |(X);.(G$,6..(.(C|
00000D90: 43 28 58 29 29 29 29 3B 46 46 24 28 58 29 00 A5 |C(X))));FF$(X)..|
00000DA0: 15 7A 08 82 58 00 AE 15 84 08 A0 33 3A 8E 00 00 |.z..X......3:...|
00000DB0: 00 |. |
...._.MC.99.G.D..FF$(100),S$(99),W$(100)
,CC(100),RR(100),L(100),E$(2,2).S.N..I..
1.1._.X..J..1.1.P....E$(I.1,J.1).W....J.
~....I... .."NW"," N","NE"," W"," "," E
","SW"," S","SE"......I.1.MC.J...G$.G$."
".Q....I...H..I.1.8...R..D(1,I),D(2,I).
.....I......-1,-1,-1,0,-1,1,0,-1.&....0,
1,1,-1,1,0,1,1.0....1220.A.... SHELL SOR
T.S...."SORTING...".[...X.1.E.".X.2.X.T.
,..X..W0.290...6.X..(X.2)...@..X..0.340.
..J.....T..Y.1.W0.X...^.Z.Y...H.A.Z.X.I.
R..L(Z)..L(A).460.V.|.X$.W$(Z).....W$(Z)
.W$(A).....W$(A).X$.....B.L(Z).....L(Z).
L(A).....L(A).B.!...Z.Z.X...B..Z.0.360.5
.L..Y.>.V..310.O.... HIDE WORDS.[....X.1
.W0.G....Y.1.50.Y...R1..(.(1).R0).....C1
..(.(1).C0).....D1..(.(1).8).1.....O1.D1
...&.DX.D(1,D1).F.0.DY.D(2,D1)...:..R1.D
X.L(X).1.R1.DX.L(X).R0.C1.DY.L(X).1.590.
..D..C1.DY.L(X)..C0.630.(.N.D1.D1.(D1.8)
.(1.1).1.8.X..D1..O1.550.?.B..Y.H.L..800
.V.V..Z.1.L(X)......J(W$(X),Z,1)."A".J(W
$(X),Z,1)."Z".680.....R1.R1.DX.....C1.C1
.DY.U....J(S$(R1),C1,1).." ".J(S$(R1),C1
,1)..J(W$(X),Z,1).590......Z......Z.L(X)
.1..1......J(W$(X),Z,1)."A".J(W$(X),Z,1)
."Z".770.P.F.S$(R1).J(S$(R1),1,C1.1).J(W
$(X),Z,1).J(S$(R1),C1.1).].P.RR(X).R1.J.
Z.CC(X).C1.....FF$(X).E$(DX.1,DY.1).....
R1.R1.DX.....C1.C1.DY......Z......X.....
.890... ..1720...*.."SORRY, BUT I CAN'T
FIT WORD NUMBER ";D(X);" , ";W$(X);" , "
;.B.4.."INTO THE GRID. SHOULD I SKIP IT,
START OVER, OR TRY AGAIN".J.>..X$.C.H..
J(X$,1,2)."ST".1660.{.R..J(X$,1,2)."TR".
500...\..J(X$,1,2)."SK".830...F.W$(X)."/
"...P..780...Z..X.1.R0.B....Y.1.C0......
J(S$(X),Y,1).." ".930.....S$(X).J(S$(X),
1,Y.1).G(.(26..(1).65)).J(S$(X),Y.1)....
..Y."....X.-.... DONE.3.....R.J.."I AM F
INISHED. WHAT DO YOU WANT TO CALL THE WO
RD SEARCH".Z.T..T$.....SL.0............"
DO YOU WANT TO PRINT THE SOLUTION (Y/N)"
.B....1180.S....A$."N".1050.....SL.1....
..2000...$..1720.....F.0...8.."DO YOU WA
NT ANOTHER GRID (Y/N)".(.B..1180.9.L..A$
."Y".1120.?.V...E.`...T.J.."DO YOU WNAT
TO USE THE SAME WORDS (Y/N)".~.T..1180..
.~..A$."N".1280.....F.1......1340......A
$.C....A$.."Y".A$.."N".1180.I..........
INITIALIZATION...D..1720...N.LL.6...X..1
740......" WORD SEARCH".....LL.4.
)....1740.5....I.1.W0.B...W$(I)."".M...L
(I).0.T....I...(.."HOW MANY WORDS WOULD
YOU LIKE IN YOUR WORD SEARCH"...2..W0...
<...H.F.."HOW MANY ROWS AND COLUMNS IN T
HE GRID".S.P..R0,C0.Y.Z.....D.....N..R0.
C0..10.W0.1440...X.."I DON'T THINK I COU
LD DO THIS.".*....I.1.1000.1....I.;....1
340.Y. .."I THINK I CAN DO THIS.".J....C
0..MC.1470......"(BUT IT WON'T FIT ON TH
E PAPER.)". ....F.1.1660...H.LL.3...R..1
740......"ENTER THE ";D(W0);" WORDS. TO
CORRECT A MISTAKE, ENTER X"............I
.1.W0......"WORD NUMBER ";I;":".'....X$.
M....C(X$)..R0.C(X$)..C0.X$.."X".1610._.
...X$.."X".1590.S.".I.I.(I.1).(1.1).}.,.
.1530...6.."OOPS...THE WORD IS TOO LONG
"...@..1530...J.W$(I).X$.G.T.L(I).C(X$).
N.^..I.X.H..1720...R..270...|........"OK
AY, I WILL GO TO WORK (WISH ME LUCK.."."
....I.1.R0.5...S$(I).H(G$,C0).<....I.E..
..490.Q....G(147).W.B...C.L..I.1.LL.I.V.
..P....I.V.......O.. PRINTER ROUTINE...P
..3,4:.3,T$:.3.R.Z..3," ";:.I.1.C0:.I
.10...(I.10)..3," ";:.2030......3,J(D(I)
,2,1);......I:.3......3," ";:.I.1.C0:
.3,I(D(I),1);:.I:.3.5....X.1.R0:.X.10..3
," ";.E....3,D(X)" ";.B....Y.1.C0:.3,J(S
$(X),Y,1);... ..Y:.3:.X:.3:.3:.3,"WORD L
IST:"...*..X.1.W0:.W$(X)."/".2110...4..3
,W$(X).M.>..X:.I.1.5:.3:.I:.SL.0.2180...
H..3,"SOLUTIONLIST:":.3,"WORD
ROW COLUMN";. .R..3," DIR"
.<.\..X.1.W0:.W$(X)."/".2170.V.F..3,W$(X
);H(G$,25.C(W$(X)));RR(X);H(G$,8.C(D(RR(
X))));...P..3,CC(X);H(G$,6.C(D(CC(X))));
FF$(X)...Z..X..... 3:....
> CLICK IMAGE PREVIEW FOR FULL MODAL