WORDSEARCH
FILE INFORMATION
FILENAME(S): WORDSEARCH
FILE TYPE(S): PRG
FILE SIZE: 3K
FIRST SEEN: 2025-12-02 00:17:31
APPEARS ON: 1 disk(s)
FILE HASH
24f12bac45f8a15edd25ba6bb08ff52bdedd75d9a23402b53f845968c775f3dc
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SIMON S BASIC | WORDSEARCH | PRG | Maestro | 20 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 23 08 0A 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..#.... ********| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 2A 00 45 08 14 00 8F 20 2A 20 20 20 20 20 |***.E.... * | 00000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000040: 20 20 20 20 2A 00 66 08 1E 00 8F 20 2A 20 20 57 | *.f.... * W| 00000050: 4F 52 44 53 45 64 6B 48 20 20 20 20 20 20 20 20 |ORDSEdkH | 00000060: 20 20 20 20 20 2A 00 88 08 28 00 8F 20 2A 20 20 | *...(.. * | 00000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000080: 20 20 20 20 20 20 20 2A 00 AA 08 32 00 8F 20 2A | *...2.. *| 00000090: 20 20 20 20 42 59 20 53 54 45 56 45 20 42 45 41 | BY STEVE BEA| 000000A0: 54 53 20 20 20 20 20 20 20 2A 00 CC 08 3C 00 8F |TS *...<..| 000000B0: 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | * | 000000C0: 20 20 20 20 20 20 20 20 20 20 20 2A 00 EE 08 46 | *...F| 000000D0: 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************| 000000E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 F4 |**************..| 000000F0: 08 50 00 3A 00 FA 08 5A 00 3A 00 07 09 64 00 64 |.P.:...Z.:...d.d| 00000100: 33 20 53 45 54 55 50 00 14 09 6E 00 64 33 20 A1 |3 SETUP...n.d3 .| 00000110: 57 B0 44 53 00 22 09 78 00 64 33 20 53 43 52 45 |W.DS.".x.d3 SCRE| 00000120: 45 4E 00 32 09 82 00 64 33 20 53 B0 54 C3 47 54 |EN.2...d3 S.T.GT| 00000130: 48 53 00 40 09 8C 00 64 33 20 64 10 57 B0 44 53 |HS.@...d3 d.W.DS| 00000140: 00 4D 09 96 00 64 33 20 99 47 52 49 44 00 59 09 |.M...d3 .GRID.Y.| 00000150: A0 00 64 33 20 47 41 4D 45 00 67 09 AA 00 64 32 |..d3 GAME.g...d2| 00000160: 20 46 49 4E 49 53 48 00 6D 09 B4 00 3A 00 73 09 | FINISH.m...:.s.| 00000170: B5 00 3A 00 7F 09 B8 0B 64 31 20 47 41 4D 45 00 |..:.....d1 GAME.| 00000180: 9A 09 BA 0B 99 20 64 28 32 38 2C 31 29 20 22 50 |..... d(28,1) "P| 00000190: 52 49 4E 54 28 59 2F 4E 29 22 00 B8 09 BC 0B A1 |RINT(Y/N)"......| 000001A0: 51 24 3A 8B 51 24 B3 B1 22 59 22 AF 51 24 B3 B1 |Q$:.Q$.."Y".Q$..| 000001B0: 22 4E 22 A7 33 30 30 34 00 CE 09 BD 0B 54 49 24 |"N".3004.....TI$| 000001C0: B2 22 30 30 30 30 30 30 22 3A 54 55 B2 30 00 E9 |."000000":TU.0..| 000001D0: 09 BE 0B 99 20 64 28 32 38 2C 31 29 20 22 20 20 |.... d(28,1) " | 000001E0: 20 20 20 20 20 20 20 20 22 00 FB 09 C0 0B 8B 51 | "......Q| 000001F0: 24 B2 22 4E 22 A7 20 33 30 31 30 00 02 0A C1 0B |$."N". 3010.....| 00000200: 64 73 00 0E 0A C2 0B 57 46 B2 30 3A 64 20 00 32 |ds.....WF.0:d .2| 00000210: 0A C3 0B 99 20 64 28 32 38 2C 31 29 20 22 05 52 |.... d(28,1) ".R| 00000220: 4F 57 20 22 3B 3A 64 27 20 22 11 22 2C 33 2C 52 |OW ";:d' ".",3,R| 00000230: 4F 24 00 4E 0A C4 0B 8B 20 54 49 24 B1 22 30 30 |O$.N.... TI$."00| 00000240: 31 30 30 30 22 A7 20 54 55 B2 31 3A 64 34 00 74 |1000". TU.1:d4.t| 00000250: 0A CC 0B 99 20 64 28 32 38 2C 31 29 20 22 43 4F |.... d(28,1) "CO| 00000260: 4C 55 4D 4E 20 22 3B 3A 64 27 20 22 11 22 2C 33 |LUMN ";:d' ".",3| 00000270: 2C 43 4F 24 00 8F 0A D6 0B 99 20 64 28 32 38 2C |,CO$...... d(28,| 00000280: 31 29 20 22 20 20 20 20 20 20 20 20 20 20 22 00 |1) " ".| 00000290: A7 0A E0 0B 52 4F B2 C5 28 52 4F 24 29 3A 43 4F |....RO..(RO$):CO| 000002A0: B2 C5 28 43 4F 24 29 00 C8 0A EA 0B 8B 20 52 4F |..(CO$)...... RO| 000002B0: B1 30 AF 52 4F B3 32 31 AF 43 4F B1 30 AF 43 4F |.0.RO.21.CO.0.CO| 000002C0: B3 32 31 A7 33 30 37 30 00 FE 0A F4 0B 99 20 64 |.21.3070...... d| 000002D0: 28 32 38 2C 31 29 20 22 45 52 52 4F 52 22 3A 64 |(28,1) "ERROR":d| 000002E0: 66 20 35 30 30 30 3A 99 20 64 28 32 38 2C 31 29 |f 5000:. d(28,1)| 000002F0: 20 22 20 20 20 20 20 22 3A 89 33 30 31 31 00 2A | " ":.3011.*| 00000300: 0B FE 0B 46 B2 30 3A 81 49 B2 31 A4 4E 57 3A 8B |...F.0:.I.1.NW:.| 00000310: 52 4F B2 50 59 28 49 29 AF 43 4F B2 50 58 28 49 |RO.PY(I).CO.PX(I| 00000320: 29 A7 46 B2 31 3A 58 31 B2 49 00 3A 0B 08 0C 82 |).F.1:X1.I.:....| 00000330: 3A 8B 46 B2 31 A7 33 31 30 30 00 6F 0B 12 0C 99 |:.F.1.3100.o....| 00000340: 20 64 28 32 38 2C 31 29 20 22 57 52 4F 4E 47 22 | d(28,1) "WRONG"| 00000350: 3A 64 66 35 30 30 30 3A 99 20 64 28 32 38 2C 31 |:df5000:. d(28,1| 00000360: 29 20 22 20 20 20 20 20 22 3A 89 33 30 31 31 00 |) " ":.3011.| 00000370: 84 0B 1C 0C 81 49 B2 30 A4 C3 28 57 24 28 58 31 |.....I.0..(W$(X1| 00000380: 29 29 AB 31 00 BF 0B 26 0C 99 20 64 28 33 AA 50 |)).1...&.. d(3.P| 00000390: 58 28 58 31 29 AA 49 AC 44 58 28 54 57 28 58 31 |X(X1).I.DX(TW(X1| 000003A0: 29 29 2C 32 AA 50 59 28 58 31 29 AA 49 AC 44 59 |)),2.PY(X1).I.DY| 000003B0: 28 54 57 28 58 31 29 29 29 20 22 12 9C 22 3B 00 |(TW(X1))) "..";.| 000003C0: D4 0B 2B 0C 99 CA 28 57 24 28 58 31 29 2C 49 AA |..+...(W$(X1),I.| 000003D0: 31 2C 31 29 00 F6 0B 30 0C 82 3A 99 20 64 28 32 |1,1)...0..:. d(2| 000003E0: 35 2C 32 AA 58 31 29 20 57 24 28 58 31 29 3A 57 |5,2.X1) W$(X1):W| 000003F0: 46 B2 57 46 AA 31 00 03 0C 3A 0C 64 29 20 57 46 |F.WF.1...:.d) WF| 00000400: B2 4E 57 00 0A 0C 44 0C 64 34 00 10 0C 4E 0C 3A |.NW...D.d4...N.:| 00000410: 00 16 0C 58 0C 3A 00 23 0C A0 0F 64 31 20 99 47 |...X.:.#...d1 .G| 00000420: 52 49 44 00 3D 0C AA 0F 99 22 05 22 3A 20 81 59 |RID.=....".": .Y| 00000430: B2 31 A4 32 30 3A 81 58 B2 31 A4 32 30 00 71 0C |.1.20:.X.1.20.q.| 00000440: B4 0F 8B 41 24 28 58 2C 59 29 B2 22 22 A7 41 24 |...A$(X,Y)."".A$| 00000450: 28 58 2C 59 29 B2 CA 28 57 24 28 4E 57 AC BB 28 |(X,Y)..(W$(NW..(| 00000460: 31 29 AA 31 29 2C 35 AC BB 28 31 29 AA 31 2C 31 |1).1),5..(1).1,1| 00000470: 29 00 8A 0C C8 0F 99 20 64 28 33 AA 58 2C 32 AA |)...... d(3.X,2.| 00000480: 59 29 20 41 24 28 58 2C 59 29 00 92 0C D2 0F 82 |Y) A$(X,Y)......| 00000490: 3A 82 00 99 0C DC 0F 64 34 00 9F 0C E6 0F 3A 00 |:......d4.....:.| 000004A0: A5 0C F0 0F 3A 00 B3 0C 88 13 64 31 20 64 10 57 |....:.....d1 d.W| 000004B0: B0 44 53 00 C7 0C 92 13 50 57 B2 30 3A 64 20 3A |.DS.....PW.0:d :| 000004C0: 50 57 B2 50 57 AA 31 00 DF 0C 9C 13 50 58 28 50 |PW.PW.1.....PX(P| 000004D0: 57 29 B2 B5 28 32 30 AC BB 28 31 29 AA 31 29 00 |W)..(20..(1).1).| 000004E0: F7 0C A6 13 50 59 28 50 57 29 B2 B5 28 32 30 AC |....PY(PW)..(20.| 000004F0: BB 28 31 29 AA 31 29 00 14 0D B0 13 44 52 B2 B5 |.(1).1).....DR..| 00000500: 28 38 AC BB 28 31 29 AA 31 29 3A 54 57 28 50 57 |(8..(1).1):TW(PW| 00000510: 29 B2 44 52 00 4E 0D B1 13 43 58 B2 50 58 28 50 |).DR.N...CX.PX(P| 00000520: 57 29 AA C3 28 57 24 28 50 57 29 29 AC 44 58 28 |W)..(W$(PW)).DX(| 00000530: 44 52 29 3A 43 59 B2 50 59 28 50 57 29 AA C3 28 |DR):CY.PY(PW)..(| 00000540: 57 24 28 50 57 29 29 AC 44 59 28 44 52 29 00 6E |W$(PW)).DY(DR).n| 00000550: 0D BA 13 8B 43 58 B3 31 B0 43 58 B1 32 30 B0 43 |....CX.1.CX.20.C| 00000560: 59 B3 31 B0 43 59 B1 32 30 A7 35 30 32 30 00 93 |Y.1.CY.20.5020..| 00000570: 0D BB 13 8F 20 49 54 20 46 49 54 53 20 54 48 45 |.... IT FITS THE| 00000580: 20 47 52 49 44 20 53 4F 20 64 7C 20 4C 45 54 54 | GRID SO d| LETT| 00000590: 45 52 53 00 AD 0D C4 13 46 B2 30 3A 81 43 4B B2 |ERS.....F.0:.CK.| 000005A0: 30 A4 C3 28 57 24 28 50 57 29 29 AB 31 00 F0 0D |0..(W$(PW)).1...| 000005B0: CE 13 5A 31 24 B2 CA 28 57 24 28 50 57 29 2C 43 |..Z1$..(W$(PW),C| 000005C0: 4B AA 31 2C 31 29 3A 5A 32 24 B2 41 24 28 50 58 |K.1,1):Z2$.A$(PX| 000005D0: 28 50 57 29 AA 43 4B AC 44 58 28 44 52 29 2C 50 |(PW).CK.DX(DR),P| 000005E0: 59 28 50 57 29 AA 43 4B AC 44 59 28 44 52 29 29 |Y(PW).CK.DY(DR))| 000005F0: 00 0A 0E D8 13 8B 5A 32 24 B3 B1 22 22 AF 5A 31 |......Z2$.."".Z1| 00000600: 24 B3 B1 5A 32 24 A7 46 B2 31 00 1A 0E E2 13 82 |$..Z2$.F.1......| 00000610: 3A 8B 46 B2 31 A7 35 30 32 30 00 36 0E E3 13 8F |:.F.1.5020.6....| 00000620: 20 49 54 20 46 49 54 53 20 53 4F 20 53 4C 4F 54 | IT FITS SO SLOT| 00000630: 20 49 54 20 49 4E 00 4C 0E EC 13 81 43 4B B2 30 | IT IN.L....CK.0| 00000640: A4 C3 28 57 24 28 50 57 29 29 AB 31 00 8F 0E F6 |..(W$(PW)).1....| 00000650: 13 5A 31 24 B2 CA 28 57 24 28 50 57 29 2C 43 4B |.Z1$..(W$(PW),CK| 00000660: AA 31 2C 31 29 3A 41 24 28 50 58 28 50 57 29 AA |.1,1):A$(PX(PW).| 00000670: 43 4B AC 44 58 28 44 52 29 2C 50 59 28 50 57 29 |CK.DX(DR),PY(PW)| 00000680: AA 43 4B AC 44 59 28 44 52 29 29 B2 5A 31 24 00 |.CK.DY(DR)).Z1$.| 00000690: A9 0E 00 14 99 20 64 28 32 35 2C 32 AA 50 57 29 |..... d(25,2.PW)| 000006A0: 20 57 24 28 50 57 29 3A 82 00 B6 0E 0A 14 64 29 | W$(PW):......d)| 000006B0: 20 50 57 B2 4E 57 00 BD 0E 14 14 64 34 00 C3 0E | PW.NW.....d4...| 000006C0: 1E 14 3A 00 C9 0E 28 14 3A 00 D9 0E 70 17 64 31 |..:...(.:...p.d1| 000006D0: 20 53 B0 54 C3 47 54 48 53 00 F2 0E 7A 17 99 20 | S.T.GTHS...z.. | 000006E0: 64 28 32 35 2C 31 29 20 22 05 53 4F 52 54 49 4E |d(25,1) ".SORTIN| 000006F0: 47 22 00 04 0F 84 17 46 B2 30 3A 81 49 B2 31 A4 |G".....F.0:.I.1.| 00000700: 4E 57 AB 31 00 43 0F 8E 17 8B C3 28 57 24 28 49 |NW.1.C.....(W$(I| 00000710: 29 29 B3 C3 28 57 24 28 49 AA 31 29 29 A7 54 24 |))..(W$(I.1)).T$| 00000720: B2 57 24 28 49 AA 31 29 3A 57 24 28 49 AA 31 29 |.W$(I.1):W$(I.1)| 00000730: B2 57 24 28 49 29 3A 57 24 28 49 29 B2 54 24 3A |.W$(I):W$(I).T$:| 00000740: 46 B2 31 00 53 0F 98 17 82 3A 8B 46 B2 31 A7 36 |F.1.S....:.F.1.6| 00000750: 30 32 30 00 6C 0F A2 17 99 20 64 28 32 35 2C 31 |020.l.... d(25,1| 00000760: 29 20 22 9F 20 20 20 20 20 20 20 22 00 73 0F AC |) ". ".s..| 00000770: 17 64 34 00 79 0F B6 17 3A 00 7F 0F C0 17 3A 00 |.d4.y...:.....:.| 00000780: 8D 0F 58 1B 64 31 20 53 43 52 45 45 4E 00 A4 0F |..X.d1 SCREEN...| 00000790: 62 1B 99 22 93 9E 11 11 1D 1D 1D 22 3B 3A 64 1A |b..".......";:d.| 000007A0: 20 35 2C 30 00 BE 0F 6C 1B 99 22 D5 22 3B 3A 81 | 5,0...l..".";:.| 000007B0: 49 B2 31 A4 32 30 3A 99 22 C3 22 3B 3A 82 00 DC |I.1.20:.".";:...| 000007C0: 0F 76 1B 99 22 C9 11 9D 22 3B 3A 81 49 B2 31 A4 |.v.."...";:.I.1.| 000007D0: 32 30 3A 99 22 C2 11 9D 22 3B 3A 82 00 FA 0F 80 |20:."...";:.....| 000007E0: 1B 99 22 CB 9D 9D 22 3B 3A 81 49 B2 31 A4 32 30 |.."...";:.I.1.20| 000007F0: 3A 99 22 C3 9D 9D 22 3B 3A 82 00 18 10 8A 1B 99 |:."...";:.......| 00000800: 22 CA 9D 91 22 3B 3A 81 49 B2 31 A4 32 30 3A 99 |"...";:.I.1.20:.| 00000810: 22 C2 9D 91 22 3B 3A 82 00 50 10 94 1B 81 49 B2 |"...";:..P....I.| 00000820: 31 A4 32 30 3A 4E 55 24 B2 C4 28 49 29 3A 4E 55 |1.20:NU$..(I):NU| 00000830: 24 B2 CA 28 4E 55 24 2C 32 29 3A 8B C3 28 4E 55 |$..(NU$,2):..(NU| 00000840: 24 29 B2 31 A7 4E 55 24 B2 22 20 22 AA 4E 55 24 |$).1.NU$." ".NU$| 00000850: 00 77 10 9E 1B 99 20 64 28 31 2C 49 AA 32 29 20 |.w.... d(1,I.2) | 00000860: 4E 55 24 3A 99 20 64 28 49 AA 33 2C 30 29 20 C8 |NU$:. d(I.3,0) .| 00000870: 28 4E 55 24 2C 31 29 00 91 10 A8 1B 99 20 64 28 |(NU$,1)...... d(| 00000880: 49 AA 33 2C 31 29 20 C9 28 4E 55 24 2C 31 29 3A |I.3,1) .(NU$,1):| 00000890: 82 00 98 10 B2 1B 64 34 00 9E 10 BC 1B 3A 00 A4 |......d4.....:..| 000008A0: 10 C6 1B 3A 00 B1 10 40 1F 64 31 20 A1 57 B0 44 |...:...@.d1 .W.D| 000008B0: 53 00 DC 10 4A 1F 64 1A 31 30 2C 30 3A 99 22 93 |S...J.d.10,0:.".| 000008C0: 11 1D 05 48 4F 57 20 4D 41 4E 59 20 57 4F 52 44 |...HOW MANY WORD| 000008D0: 53 20 28 4D 41 58 20 32 30 29 11 22 00 ED 10 54 |S (MAX 20)."...T| 000008E0: 1F 64 27 20 22 11 22 2C 33 2C 4E 57 24 00 0E 11 |.d' ".",3,NW$...| 000008F0: 5E 1F 99 3A 4E 57 B2 C5 28 4E 57 24 29 3A 8B 4E |^..:NW..(NW$):.N| 00000900: 57 B3 31 B0 4E 57 B1 32 30 A7 38 30 31 30 00 36 |W.1.NW.20.8010.6| 00000910: 11 68 1F 99 22 91 20 20 20 20 20 20 20 20 20 4E |.h..". N| 00000920: 4F 57 20 54 59 50 45 20 49 4E 20 54 48 45 20 57 |OW TYPE IN THE W| 00000930: 4F 52 44 53 11 22 00 65 11 72 1F 99 22 20 54 48 |ORDS.".e.r.." TH| 00000940: 45 59 20 4D 55 53 54 20 42 45 20 42 45 54 57 45 |EY MUST BE BETWE| 00000950: 45 4E 20 35 20 41 4E 44 20 31 35 20 4C 45 54 54 |EN 5 AND 15 LETT| 00000960: 45 52 53 11 22 00 71 11 7C 1F 81 49 B2 31 A4 4E |ERS.".q.|..I.1.N| 00000970: 57 00 7E 11 86 1F 99 49 22 9D 29 20 22 2C 00 92 |W.~....I".) ",..| 00000980: 11 90 1F 64 27 20 22 13 22 2C 31 35 2C 57 24 28 |...d' ".",15,W$(| 00000990: 49 29 00 B3 11 9A 1F 8B C3 28 57 24 28 49 29 29 |I).......(W$(I))| 000009A0: B3 35 A7 99 C7 28 31 33 29 22 91 91 22 3A 89 38 |.5...(13)"..":.8| 000009B0: 30 37 30 00 BB 11 A4 1F 99 3A 82 00 C2 11 AE 1F |070......:......| 000009C0: 64 34 00 C8 11 26 23 3A 00 CE 11 27 23 3A 00 DB |d4...&#:...'#:..| 000009D0: 11 28 23 64 31 20 53 45 54 55 50 00 07 12 32 23 |.(#d1 SETUP...2#| 000009E0: 64 1A 20 35 2C 30 3A 99 22 93 05 53 45 54 54 49 |d. 5,0:."..SETTI| 000009F0: 4E 47 20 55 50 2C 20 50 4C 45 41 53 45 20 57 41 |NG UP, PLEASE WA| 00000A00: 49 54 2E 2E 2E 2E 2E 00 3E 12 3C 23 86 41 24 28 |IT......>.<#.A$(| 00000A10: 32 30 2C 32 30 29 2C 57 24 28 32 30 29 2C 50 58 |20,20),W$(20),PX| 00000A20: 28 32 30 29 2C 50 59 28 32 30 29 2C 44 58 28 38 |(20),PY(20),DX(8| 00000A30: 29 2C 44 59 28 38 29 2C 54 57 28 32 30 29 00 61 |),DY(8),TW(20).a| 00000A40: 12 46 23 81 49 B2 31 A4 32 30 3A 81 4A B2 31 A4 |.F#.I.1.20:.J.1.| 00000A50: 32 30 3A 41 24 28 49 2C 4A 29 B2 22 22 3A 82 3A |20:A$(I,J)."":.:| 00000A60: 82 00 7D 12 50 23 8C 3A 81 49 B2 31 A4 38 3A 87 |..}.P#.:.I.1.8:.| 00000A70: 44 58 28 49 29 2C 44 59 28 49 29 3A 82 00 A9 12 |DX(I),DY(I):....| 00000A80: 5A 23 83 20 30 2C 2D 31 2C 31 2C 2D 31 2C 31 2C |Z#. 0,-1,1,-1,1,| 00000A90: 30 2C 31 2C 31 2C 30 2C 31 2C 2D 31 2C 31 2C 2D |0,1,1,0,1,-1,1,-| 00000AA0: 31 2C 30 2C 2D 31 2C 2D 31 00 D0 12 64 23 81 49 |1,0,-1,-1...d#.I| 00000AB0: B2 31 A4 32 30 3A 57 24 28 49 29 B2 22 22 3A 50 |.1.20:W$(I)."":P| 00000AC0: 58 28 49 29 B2 30 3A 50 59 28 49 29 B2 30 3A 82 |X(I).0:PY(I).0:.| 00000AD0: 00 D7 12 6E 23 64 34 00 DD 12 0E 27 3A 00 E3 12 |...n#d4....':...| 00000AE0: 0F 27 3A 00 F1 12 10 27 64 31 20 46 49 4E 49 53 |.':....'d1 FINIS| 00000AF0: 48 00 01 13 1A 27 8B 54 55 B2 31 A7 31 30 31 30 |H....'.TU.1.1010| 00000B00: 30 00 1C 13 24 27 99 20 64 28 32 38 2C 31 29 20 |0...$'. d(28,1) | 00000B10: 22 41 47 41 49 4E 28 59 2F 4E 29 22 00 3C 13 2E |"AGAIN(Y/N)".<..| 00000B20: 27 A1 20 41 24 3A 8B 41 24 B3 B1 22 59 22 AF 41 |'. A$:.A$.."Y".A| 00000B30: 24 B3 B1 22 4E 22 A7 31 30 30 33 30 00 4D 13 38 |$.."N".10030.M.8| 00000B40: 27 8B 20 41 24 B2 22 59 22 A7 9C 3A 8A 00 58 13 |'. A$."Y"..:..X.| 00000B50: 42 27 99 22 93 22 3A 80 00 65 13 74 27 81 58 31 |B'.".":..e.t'.X1| 00000B60: B2 31 A4 4E 57 00 7A 13 7E 27 81 49 B2 30 A4 C3 |.1.NW.z.~'.I.0..| 00000B70: 28 57 24 28 58 31 29 29 AB 31 00 B5 13 88 27 99 |(W$(X1)).1....'.| 00000B80: 20 64 28 33 AA 50 58 28 58 31 29 AA 49 AC 44 58 | d(3.PX(X1).I.DX| 00000B90: 28 54 57 28 58 31 29 29 2C 32 AA 50 59 28 58 31 |(TW(X1)),2.PY(X1| 00000BA0: 29 AA 49 AC 44 59 28 54 57 28 58 31 29 29 29 20 |).I.DY(TW(X1))) | 00000BB0: 22 12 9D 22 3B 00 CA 13 92 27 99 CA 28 57 24 28 |"..";....'..(W$(| 00000BC0: 58 31 29 2C 49 AA 31 2C 31 29 00 E6 13 9C 27 82 |X1),I.1,1)....'.| 00000BD0: 3A 99 20 64 28 32 35 2C 32 AA 58 31 29 20 57 24 |:. d(25,2.X1) W$| 00000BE0: 28 58 31 29 3A 82 00 F1 13 A6 27 89 31 30 30 32 |(X1):.....'.1002| 00000BF0: 30 00 00 00 |0... |
..#.... ***************************.E...
. * *.F.... * W
ORDSEDKH *...(.. *
*...2.. * BY STEVE BEA
TS *.L.<.. *
*...F.. ***************************..
.P.:...Z.:...D.D3 SETUP...N.D3 .W.DS.".X
.D3 SCREEN.2...D3 S.TCGTHS.@...D3 D.W.DS
.M...D3 .GRID.Y. .D3 GAME.G...D2 FINISH.
M...:.S...:....D1 GAME...... D(28,1) "P
RINT(Y/N)"......Q$:.Q$.."Y".Q$.."N".3004
.N...TI$."000000":TU.0...... D(28,1) "
"......Q$."N". 3010...A.DS...B.W
F.0:D .2.C.. D(28,1) ".ROW ";:D' ".",3,R
O$.N.D.. TI$."001000". TU.1:D4.T.L.. D(2
8,1) "COLUMN ";:D' ".",3,CO$...V.. D(28,
1) " ".....RO.E(RO$):CO.E(CO$).
H.... RO.0.RO.21.CO.0.CO.21.3070...... D
(28,1) "ERROR":DF 5000:. D(28,1) " "
:.3011.*...F.0:.I.1.NW:.RO.PY(I).CO.PX(I
).F.1:X1.I.:....:.F.1.3100.O.... D(28,1)
"WRONG":DF5000:. D(28,1) " ":.3011.
.....I.0.C(W$(X1)).1...&.. D(3.PX(X1).I.
DX(TW(X1)),2.PY(X1).I.DY(TW(X1))) "..";.
T.+..J(W$(X1),I.1,1)...0..:. D(25,2.X1)
W$(X1):WF.WF.1...:.D) WF.NW...D.D4...N.:
...X.:.#. .D1 .GRID.=....".": .Y.1.20:.X
.1.20.Q....A$(X,Y)."".A$(X,Y).J(W$(NW..(
1).1),5..(1).1,1)...H.. D(3.X,2.Y) A$(X,
Y)...R..:......D4.....:.....:.....D1 D.W
.DS.G...PW.0:D :PW.PW.1.....PX(PW)..(20.
.(1).1).....PY(PW)..(20..(1).1).....DR..
(8..(1).1):TW(PW).DR.N...CX.PX(PW).C(W$(
PW)).DX(DR):CY.PY(PW).C(W$(PW)).DY(DR).N
....CX.1.CX.20.CY.1.CY.20.5020...... IT
FITS THE GRID SO D| LETTERS...D.F.0:.CK.
0.C(W$(PW)).1...N.Z1$.J(W$(PW),CK.1,1):Z
2$.A$(PX(PW).CK.DX(DR),PY(PW).CK.DY(DR))
...X..Z2$.."".Z1$..Z2$.F.1......:.F.1.50
20.6.... IT FITS SO SLOT IT IN.L....CK.0
.C(W$(PW)).1.....Z1$.J(W$(PW),CK.1,1):A$
(PX(PW).CK.DX(DR),PY(PW).CK.DY(DR)).Z1$.
..... D(25,2.PW) W$(PW):......D) PW.NW..
...D4.C...:.I.(.:.Y.P.D1 S.TCGTHS...Z..
D(25,1) ".SORTING".....F.0:.I.1.NW.1.C..
..C(W$(I)).C(W$(I.1)).T$.W$(I.1):W$(I.1)
.W$(I):W$(I).T$:F.1.S....:.F.1.6020.L...
. D(25,1) ". ".S...D4.Y...:....:.
..X.D1 SCREEN...B..".......";:D. 5,0...L
.."U";:.I.1.20:."C";:....V.."I..";:.I.1.
20:."B..";:......."K..";:.I.1.20:."C..";
:......."J..";:.I.1.20:."B..";:..P....I.
1.20:NU$.D(I):NU$.J(NU$,2):.C(NU$).1.NU$
." ".NU$.W.... D(1,I.2) NU$:. D(I.3,0) H
(NU$,1)...... D(I.3,1) I(NU$,1):......D4
.....:...F.:...@.D1 .W.DS...J.D.10,0:.".
...HOW MANY WORDS (MAX 20)."...T.D' ".",
3,NW$...^..:NW.E(NW$):.NW.1.NW.20.8010.6
.H..". NOW TYPE IN THE WORDS.".E
.R.." THEY MUST BE BETWEEN 5 AND 15 LETT
ERS.".Q.|..I.1.NW.~....I".) ",.....D' ".
",15,W$(I)......C(W$(I)).5..G(13)"..":.8
070......:..B...D4.H.&#:.N.'#:...(#D1 SE
TUP...2#D. 5,0:."..SETTING UP, PLEASE WA
IT......>.<#.A$(20,20),W$(20),PX(20),PY(
20),DX(8),DY(8),TW(20).A.F#.I.1.20:.J.1.
20:A$(I,J)."":.:..}.P#.:.I.1.8:.DX(I),DY
(I):....Z#. 0,-1,1,-1,1,0,1,1,0,1,-1,1,-
1,0,-1,-1.P.D#.I.1.20:W$(I)."":PX(I).0:P
Y(I).0:..W.N#D4....':....':....'D1 FINIS
H....'.TU.1.10100...$'. D(28,1) "AGAIN(Y
/N)".<..'. A$:.A$.."Y".A$.."N".10030.M.8
'. A$."Y"..:..X.B'.".":..E.T'.X1.1.NW.Z.
~'.I.0.C(W$(X1)).1....'. D(3.PX(X1).I.DX
(TW(X1)),2.PY(X1).I.DY(TW(X1))) "..";.J.
.'.J(W$(X1),I.1,1)....'.:. D(25,2.X1) W$
(X1):.....'.10020...
> CLICK IMAGE PREVIEW FOR FULL MODAL