WORD FIND
FILE INFORMATION
FILENAME(S): WORD FIND
FILE TYPE(S): PRG
FILE SIZE: 3.6K
FIRST SEEN: 2025-10-19 22:48:46
APPEARS ON: 2 disk(s)
FILE HASH
417a7de292411ad869556197afe228351a8b28837a14f730f5ba95df168bbe47
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GAZETTE DECEMBER | WORD FIND | PRG | Radd Maxx | 26 | 4 | DOWNLOAD FILE |
| GAZETTE DECEMBER | WORD FIND | PRG | DuncanTwain | 26 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 48 08 0A 00 8F 20 43 4F 50 59 52 49 47 48 |..H.... COPYRIGH| 00000010: 54 20 31 39 38 37 20 43 4F 4D 50 55 54 45 21 20 |T 1987 COMPUTE! | 00000020: 50 55 42 4C 49 43 41 54 49 4F 4E 53 2C 20 49 4E |PUBLICATIONS, IN| 00000030: 43 2E 20 2D 20 41 4C 4C 20 52 49 47 48 54 53 20 |C. - ALL RIGHTS | 00000040: 52 45 53 45 52 56 45 44 00 77 08 14 00 58 52 B2 |RESERVED.w...XR.| 00000050: 37 38 31 3A 59 52 B2 37 38 32 3A 53 52 B2 37 38 |781:YR.782:SR.78| 00000060: 33 3A 42 4F B2 35 33 32 38 30 3A 42 41 B2 42 4F |3:BO.53280:BA.BO| 00000070: AA 31 3A 51 B2 31 32 00 AB 08 1E 00 4E 44 58 B2 |.1:Q.12.....NDX.| 00000080: 31 39 38 3A 8B C2 28 36 35 35 33 30 29 B2 35 A7 |198:..(65530).5.| 00000090: FE 02 31 35 3A 58 52 B2 37 3A 59 52 B2 38 3A 53 |..15:XR.7:YR.8:S| 000000A0: 52 B2 35 3A 4E 44 58 B2 32 30 38 00 F4 08 28 00 |R.5:NDX.208...(.| 000000B0: 8B C2 28 36 35 35 33 30 29 B2 31 36 34 A7 53 52 |..(65530).164.SR| 000000C0: B2 32 30 33 37 3A 58 52 B2 32 30 33 35 3A 59 52 |.2037:XR.2035:YR| 000000D0: B2 32 30 33 36 3A 42 4F B2 36 35 33 30 35 3A 42 |.2036:BO.65305:B| 000000E0: 41 B2 36 35 33 30 31 3A 51 B2 31 34 3A 4E 44 58 |A.65301:Q.14:NDX| 000000F0: B2 32 33 39 00 0D 09 32 00 50 4C B2 36 35 35 32 |.239...2.PL.6552| 00000100: 30 3A 97 42 4F 2C 30 3A 97 42 41 2C 30 00 39 09 |0:.BO,0:.BA,0.9.| 00000110: 3C 00 8B C2 28 36 35 35 33 30 29 B3 B1 31 36 34 |<...(65530)..164| 00000120: A7 53 B2 35 34 32 37 32 3A 81 4E B2 53 A4 53 AA |.S.54272:.N.S.S.| 00000130: 32 34 3A 97 4E 2C 30 3A 82 00 5E 09 46 00 41 4C |24:.N,0:..^.F.AL| 00000140: 24 B2 22 51 41 5A 58 53 57 45 44 43 56 46 52 54 |$."QAZXSWEDCVFRT| 00000150: 47 42 4E 48 59 55 4A 4D 4B 49 4F 4C 50 22 00 8D |GBNHYUJMKIOLP"..| 00000160: 09 50 00 99 22 93 9C 20 20 20 43 4F 50 59 52 49 |.P..".. COPYRI| 00000170: 47 48 54 20 31 39 38 37 20 43 4F 4D 50 55 54 45 |GHT 1987 COMPUTE| 00000180: 21 20 50 55 42 2E 2C 20 49 4E 43 2E 22 00 B1 09 |! PUB., INC."...| 00000190: 5A 00 99 A3 31 30 29 22 41 4C 4C 20 52 49 47 48 |Z...10)"ALL RIGH| 000001A0: 54 53 20 52 45 53 45 52 56 45 44 22 3A 8D 38 34 |TS RESERVED":.84| 000001B0: 30 00 D6 09 64 00 99 22 11 11 11 11 11 11 11 22 |0...d.."......."| 000001C0: A3 31 35 29 22 12 57 4F 52 44 20 46 49 4E 44 11 |.15)".WORD FIND.| 000001D0: 11 11 11 11 11 22 00 03 0A 6E 00 85 22 57 4F 55 |....."...n.."WOU| 000001E0: 4C 44 20 59 4F 55 20 4C 49 4B 45 20 41 20 54 49 |LD YOU LIKE A TI| 000001F0: 4D 45 20 4C 49 4D 49 54 20 28 59 2F 4E 29 22 3B |ME LIMIT (Y/N)";| 00000200: 54 4C 24 00 1E 0A 78 00 8B 54 4C 24 B3 B1 22 59 |TL$...x..TL$.."Y| 00000210: 22 AF 54 4C 24 B3 B1 22 4E 22 A7 31 32 30 00 42 |".TL$.."N".120.B| 00000220: 0A 82 00 8B 54 4C 24 B2 22 4E 22 A7 54 4C 24 B2 |....TL$."N".TL$.| 00000230: 22 32 30 30 30 30 30 22 3A 54 4C B2 30 3A 89 31 |"200000":TL.0:.1| 00000240: 37 30 00 75 0A 8C 00 85 22 11 48 4F 57 20 4D 41 |70.u....".HOW MA| 00000250: 4E 59 20 4D 49 4E 55 54 45 53 20 28 31 2D 35 39 |NY MINUTES (1-59| 00000260: 29 22 3B 54 4C 3A 8B 54 4C B3 31 B0 54 4C B1 35 |)";TL:.TL.1.TL.5| 00000270: 39 A7 31 34 30 00 8B 0A 91 00 8B 20 54 4C B3 B1 |9.140...... TL..| 00000280: B5 28 54 4C 29 20 A7 20 31 34 30 00 BF 0A 96 00 |.(TL) . 140.....| 00000290: 54 4C B2 B5 28 54 4C 29 3A 54 4C 24 B2 C4 28 54 |TL..(TL):TL$..(T| 000002A0: 4C AC 31 30 30 29 3A 54 4C 24 B2 C9 28 54 4C 24 |L.100):TL$..(TL$| 000002B0: 2C C3 28 54 4C 24 29 AB 31 29 3A 54 4C B2 31 00 |,.(TL$).1):TL.1.| 000002C0: EC 0A A0 00 81 57 57 B2 31 A4 36 AB C3 28 54 4C |.....WW.1.6..(TL| 000002D0: 24 29 3A 54 54 24 B2 54 54 24 AA 22 30 22 3A 82 |$):TT$.TT$."0":.| 000002E0: 3A 54 4C 24 B2 54 54 24 AA 54 4C 24 00 09 0B AA |:TL$.TT$.TL$....| 000002F0: 00 8D 37 37 30 3A 8D 36 38 30 3A 8D 36 32 30 3A |..770:.680:.620:| 00000300: 8D 34 36 30 3A 8D 34 32 30 00 1D 0B B4 00 8F 20 |.460:.420...... | 00000310: 2D 20 4D 41 49 4E 20 4C 4F 4F 50 20 2D 00 38 0B |- MAIN LOOP -.8.| 00000320: BE 00 54 49 24 B2 22 30 30 30 30 30 30 22 3A 54 |..TI$."000000":T| 00000330: 55 B2 30 3A 57 46 B2 30 00 64 0B C8 00 97 59 52 |U.0:WF.0.d....YR| 00000340: 2C 32 37 3A 97 58 52 2C 31 3A 9E 50 4C 3A 85 22 |,27:.XR,1:.PL:."| 00000350: 9F 52 4F 57 20 22 3B 52 4F 24 3A 52 4F B2 C5 28 |.ROW ";RO$:RO..(| 00000360: 52 4F 24 29 00 78 0B D2 00 8B 52 4F B3 31 A7 42 |RO$).x....RO.1.B| 00000370: 53 B2 30 3A 89 32 34 30 00 8D 0B DC 00 8B 52 4F |S.0:.240......RO| 00000380: B1 32 30 A7 42 53 B2 31 3A 89 32 34 30 00 9C 0B |.20.BS.1:.240...| 00000390: E6 00 8D 31 30 36 30 3A 89 32 35 30 00 D2 0B F0 |...1060:.250....| 000003A0: 00 97 59 52 2C 32 37 3A 97 58 52 2C 31 3A 9E 50 |..YR,27:.XR,1:.P| 000003B0: 4C 3A 99 22 54 4F 4F 20 22 3B 42 53 24 28 42 53 |L:."TOO ";BS$(BS| 000003C0: 29 3A 8D 31 30 37 30 3A 8D 31 30 36 30 3A 89 32 |):.1070:.1060:.2| 000003D0: 30 30 00 E9 0B FA 00 8B 54 49 24 B1 54 4C 24 A7 |00......TI$.TL$.| 000003E0: 54 55 B2 31 3A 89 38 39 30 00 17 0C 04 01 97 59 |TU.1:.890......Y| 000003F0: 52 2C 32 37 3A 97 58 52 2C 31 3A 9E 50 4C 3A 85 |R,27:.XR,1:.PL:.| 00000400: 22 43 4F 4C 55 4D 4E 20 22 3B 43 4F 24 3A 43 4F |"COLUMN ";CO$:CO| 00000410: B2 C5 28 43 4F 24 29 00 2B 0C 0E 01 8B 43 4F B3 |..(CO$).+....CO.| 00000420: 31 A7 42 53 B2 30 3A 89 33 30 30 00 40 0C 18 01 |1.BS.0:.300.@...| 00000430: 8B 43 4F B1 32 30 A7 42 53 B2 31 3A 89 33 30 30 |.CO.20.BS.1:.300| 00000440: 00 4F 0C 22 01 8D 31 30 36 30 3A 89 33 31 30 00 |.O."..1060:.310.| 00000450: 85 0C 2C 01 97 59 52 2C 32 37 3A 97 58 52 2C 31 |..,..YR,27:.XR,1| 00000460: 3A 9E 50 4C 3A 99 22 54 4F 4F 20 22 3B 42 53 24 |:.PL:."TOO ";BS$| 00000470: 28 42 53 29 3A 8D 31 30 37 30 3A 8D 31 30 36 30 |(BS):.1070:.1060| 00000480: 3A 89 32 35 30 00 AE 0C 36 01 46 B2 30 3A 81 49 |:.250...6.F.0:.I| 00000490: B2 31 A4 4E 57 3A 8B 52 4F B3 B1 50 59 28 49 29 |.1.NW:.RO..PY(I)| 000004A0: B0 43 4F B3 B1 50 58 28 49 29 A7 33 33 30 00 D3 |.CO..PX(I).330..| 000004B0: 0C 40 01 46 B2 32 3A 8B 54 28 49 29 B2 30 A7 58 |.@.F.2:.T(I).0.X| 000004C0: 31 B2 49 3A 54 28 49 29 B2 31 3A 46 B2 31 3A 49 |1.I:T(I).1:F.1:I| 000004D0: B2 4E 57 00 E2 0C 4A 01 82 3A 8B 46 B2 31 A7 33 |.NW...J..:.F.1.3| 000004E0: 36 30 00 08 0D 54 01 43 24 B2 22 57 52 4F 4E 47 |60...T.C$."WRONG| 000004F0: 22 3A 8B 46 B2 32 A7 43 24 B2 22 54 48 41 54 27 |":.F.2.C$."THAT'| 00000500: 53 20 46 4F 55 4E 44 22 00 38 0D 5E 01 97 59 52 |S FOUND".8.^..YR| 00000510: 2C 32 37 3A 97 58 52 2C 31 3A 97 53 52 2C 30 3A |,27:.XR,1:.SR,0:| 00000520: 9E 50 4C 3A 99 43 24 3A 8D 31 30 37 30 3A 8D 31 |.PL:.C$:.1070:.1| 00000530: 30 36 30 3A 89 32 30 30 00 66 0D 68 01 81 49 B2 |060:.200.f.h..I.| 00000540: 30 A4 C3 28 57 24 28 58 31 29 29 AB 31 3A 58 50 |0..(W$(X1)).1:XP| 00000550: B2 33 AA 50 58 28 58 31 29 AA 49 AC 44 58 28 54 |.3.PX(X1).I.DX(T| 00000560: 57 28 58 31 29 29 00 88 0D 72 01 59 50 B2 32 AA |W(X1))...r.YP.2.| 00000570: 50 59 28 58 31 29 AA 49 AC 44 59 28 54 57 28 58 |PY(X1).I.DY(TW(X| 00000580: 31 29 29 3A 8D 39 36 30 00 A6 0D 7C 01 99 22 9C |1)):.960...|..".| 00000590: 22 CA 28 57 24 28 58 31 29 2C 49 AA 31 2C 31 29 |".(W$(X1),I.1,1)| 000005A0: 3A 8D 31 30 33 30 00 DB 0D 86 01 82 3A 97 59 52 |:.1030......:.YR| 000005B0: 2C 32 35 3A 97 58 52 2C 32 AA 58 31 3A 9E 50 4C |,25:.XR,2.X1:.PL| 000005C0: 3A 99 57 24 28 58 31 29 3A 57 46 B2 57 46 AA 31 |:.W$(X1):WF.WF.1| 000005D0: 3A 8B 57 46 B2 4E 57 A7 38 38 30 00 E4 0D 90 01 |:.WF.NW.880.....| 000005E0: 89 32 30 30 00 F8 0D 9A 01 8F 20 2D 20 46 49 4C |.200...... - FIL| 000005F0: 4C 20 47 52 49 44 20 2D 00 0C 0E A4 01 81 59 B2 |L GRID -......Y.| 00000600: 31 A4 32 30 3A 81 58 B2 31 A4 32 30 00 37 0E AE |1.20:.X.1.20.7..| 00000610: 01 8B 41 24 28 58 2C 59 29 B2 22 22 A7 41 24 28 |..A$(X,Y)."".A$(| 00000620: 58 2C 59 29 B2 CA 28 41 4C 24 2C 32 36 AC BB 28 |X,Y)..(AL$,26..(| 00000630: 31 29 AA 31 2C 31 29 00 5D 0E B8 01 58 50 B2 33 |1).1,1).]...XP.3| 00000640: AA 58 3A 59 50 B2 32 AA 59 3A 8D 39 36 30 3A 99 |.X:YP.2.Y:.960:.| 00000650: 41 24 28 58 2C 59 29 3A 82 3A 82 3A 8E 00 76 0E |A$(X,Y):.:.:..v.| 00000660: C2 01 8F 20 2D 20 50 4F 53 49 54 49 4F 4E 20 57 |... - POSITION W| 00000670: 4F 52 44 53 20 2D 00 7F 0E CC 01 50 57 B2 30 00 |ORDS -.....PW.0.| 00000680: 8B 0E D6 01 50 57 B2 50 57 AA 31 00 B7 0E E0 01 |....PW.PW.1.....| 00000690: 50 58 28 50 57 29 B2 B5 28 32 30 AC BB 28 31 29 |PX(PW)..(20..(1)| 000006A0: AA 31 29 3A 50 59 28 50 57 29 B2 B5 28 32 30 AC |.1):PY(PW)..(20.| 000006B0: BB 28 31 29 AA 31 29 00 D4 0E EA 01 44 52 B2 B5 |.(1).1).....DR..| 000006C0: 28 38 AC BB 28 31 29 AA 31 29 3A 54 57 28 50 57 |(8..(1).1):TW(PW| 000006D0: 29 B2 44 52 00 0E 0F F4 01 43 58 B2 50 58 28 50 |).DR.....CX.PX(P| 000006E0: 57 29 AA C3 28 57 24 28 50 57 29 29 AC 44 58 28 |W)..(W$(PW)).DX(| 000006F0: 44 52 29 3A 43 59 B2 50 59 28 50 57 29 AA C3 28 |DR):CY.PY(PW)..(| 00000700: 57 24 28 50 57 29 29 AC 44 59 28 44 52 29 00 2D |W$(PW)).DY(DR).-| 00000710: 0F FE 01 8B 43 58 B3 31 B0 43 58 B1 32 30 B0 43 |....CX.1.CX.20.C| 00000720: 59 B3 31 B0 43 59 B1 32 30 A7 34 38 30 00 47 0F |Y.1.CY.20.480.G.| 00000730: 08 02 46 B2 30 3A 81 43 4B B2 30 A4 C3 28 57 24 |..F.0:.CK.0..(W$| 00000740: 28 50 57 29 29 AB 31 00 8A 0F 12 02 5A 31 24 B2 |(PW)).1.....Z1$.| 00000750: CA 28 57 24 28 50 57 29 2C 43 4B AA 31 2C 31 29 |.(W$(PW),CK.1,1)| 00000760: 3A 5A 32 24 B2 41 24 28 50 58 28 50 57 29 AA 43 |:Z2$.A$(PX(PW).C| 00000770: 4B AC 44 58 28 44 52 29 2C 50 59 28 50 57 29 AA |K.DX(DR),PY(PW).| 00000780: 43 4B AC 44 59 28 44 52 29 29 00 A4 0F 1C 02 8B |CK.DY(DR))......| 00000790: 5A 32 24 B3 B1 22 22 AF 5A 31 24 B3 B1 5A 32 24 |Z2$.."".Z1$..Z2$| 000007A0: A7 46 B2 31 00 B3 0F 26 02 82 3A 8B 46 B2 31 A7 |.F.1...&..:.F.1.| 000007B0: 34 38 30 00 C9 0F 30 02 81 43 4B B2 30 A4 C3 28 |480...0..CK.0..(| 000007C0: 57 24 28 50 57 29 29 AB 31 00 0C 10 3A 02 5A 31 |W$(PW)).1...:.Z1| 000007D0: 24 B2 CA 28 57 24 28 50 57 29 2C 43 4B AA 31 2C |$..(W$(PW),CK.1,| 000007E0: 31 29 3A 41 24 28 50 58 28 50 57 29 AA 43 4B AC |1):A$(PX(PW).CK.| 000007F0: 44 58 28 44 52 29 2C 50 59 28 50 57 29 AA 43 4B |DX(DR),PY(PW).CK| 00000800: AC 44 59 28 44 52 29 29 B2 5A 31 24 00 2E 10 44 |.DY(DR)).Z1$...D| 00000810: 02 58 50 B2 32 35 3A 59 50 B2 32 AA 50 57 3A 8D |.XP.25:YP.2.PW:.| 00000820: 39 36 30 3A 99 57 24 28 50 57 29 3B 3A 82 00 3B |960:.W$(PW);:..;| 00000830: 10 4E 02 8B 50 57 B2 4E 57 A7 8E 00 44 10 58 02 |.N..PW.NW...D.X.| 00000840: 89 34 37 30 00 5D 10 62 02 8F 20 2D 20 53 4F 52 |.470.].b.. - SOR| 00000850: 54 20 42 59 20 4C 45 4E 47 54 48 20 2D 00 7D 10 |T BY LENGTH -.}.| 00000860: 6C 02 97 59 52 2C 32 39 3A 97 58 52 2C 31 3A 9E |l..YR,29:.XR,1:.| 00000870: 50 4C 3A 99 22 53 4F 52 54 49 4E 47 22 00 8F 10 |PL:."SORTING"...| 00000880: 76 02 46 B2 30 3A 81 49 B2 31 A4 4E 57 AB 31 00 |v.F.0:.I.1.NW.1.| 00000890: CE 10 80 02 8B C3 28 57 24 28 49 29 29 B3 C3 28 |......(W$(I))..(| 000008A0: 57 24 28 49 AA 31 29 29 A7 54 24 B2 57 24 28 49 |W$(I.1)).T$.W$(I| 000008B0: AA 31 29 3A 57 24 28 49 AA 31 29 B2 57 24 28 49 |.1):W$(I.1).W$(I| 000008C0: 29 3A 57 24 28 49 29 B2 54 24 3A 46 B2 31 00 DD |):W$(I).T$:F.1..| 000008D0: 10 8A 02 82 3A 8B 46 B2 31 A7 36 33 30 00 E9 10 |....:.F.1.630...| 000008E0: 94 02 8D 31 30 36 30 3A 8E 00 FE 10 9E 02 8F 20 |...1060:....... | 000008F0: 2D 20 50 52 49 4E 54 20 47 52 49 44 20 2D 00 0E |- PRINT GRID -..| 00000900: 11 A8 02 99 22 93 1F 11 11 1D 1D 1D 22 3B 00 2A |....".......";.*| 00000910: 11 B2 02 99 22 12 AC 22 3B 3A 81 49 B2 31 A4 32 |...."..";:.I.1.2| 00000920: 30 3A 99 22 12 A2 22 3B 3A 82 00 4B 11 BC 02 99 |0:."..";:..K....| 00000930: 22 12 BB 11 9D 22 3B 3A 81 49 B2 31 A4 32 30 3A |"....";:.I.1.20:| 00000940: 99 22 12 A1 92 11 9D 22 3B 3A 82 00 6B 11 C6 02 |.".....";:..k...| 00000950: 99 22 12 BE 9D 9D 22 3B 3A 81 49 B2 31 A4 32 30 |."....";:.I.1.20| 00000960: 3A 99 22 92 A2 9D 9D 22 3B 3A 82 00 90 11 D0 02 |:."....";:......| 00000970: 99 22 12 BC 9D 91 22 3B 3A 81 49 B2 31 A4 32 30 |."....";:.I.1.20| 00000980: 3A 99 22 92 A1 9D 91 22 3B 3A 82 3A 99 22 1E 22 |:."....";:.:."."| 00000990: 00 C8 11 DA 02 81 49 B2 31 A4 32 30 3A 4E 55 24 |......I.1.20:NU$| 000009A0: B2 C4 28 49 29 3A 4E 55 24 B2 CA 28 4E 55 24 2C |..(I):NU$..(NU$,| 000009B0: 32 29 3A 8B C3 28 4E 55 24 29 B2 31 A7 4E 55 24 |2):..(NU$).1.NU$| 000009C0: B2 22 20 22 AA 4E 55 24 00 FD 11 E4 02 58 50 B2 |." ".NU$.....XP.| 000009D0: 31 3A 59 50 B2 49 AA 32 3A 8D 39 36 30 3A 99 4E |1:YP.I.2:.960:.N| 000009E0: 55 24 3A 58 50 B2 49 AA 33 3A 59 50 B2 30 3A 8D |U$:XP.I.3:YP.0:.| 000009F0: 39 36 30 3A 99 C8 28 4E 55 24 2C 31 29 00 20 12 |960:..(NU$,1). .| 00000A00: EE 02 58 50 B2 49 AA 33 3A 59 50 B2 31 3A 8D 39 |..XP.I.3:YP.1:.9| 00000A10: 36 30 3A 99 C9 28 4E 55 24 2C 31 29 3A 82 3A 8E |60:..(NU$,1):.:.| 00000A20: 00 36 12 F8 02 8F 20 2D 20 49 4E 50 55 54 20 57 |.6.... - INPUT W| 00000A30: 4F 52 44 53 20 2D 00 73 12 02 03 85 22 93 11 48 |ORDS -.s...."..H| 00000A40: 4F 57 20 4D 41 4E 59 20 57 4F 52 44 53 20 28 4D |OW MANY WORDS (M| 00000A50: 41 58 49 4D 55 4D 20 4F 46 20 32 30 29 22 3B 4E |AXIMUM OF 20)";N| 00000A60: 57 3A 99 3A 8B 4E 57 B3 31 B0 4E 57 B1 32 30 A7 |W:.:.NW.1.NW.20.| 00000A70: 37 37 30 00 9A 12 0C 03 99 22 93 45 4E 54 45 52 |770......".ENTER| 00000A80: 20 45 41 43 48 20 57 4F 52 44 20 42 45 54 57 45 | EACH WORD BETWE| 00000A90: 45 4E 20 33 20 41 4E 44 22 51 00 C0 12 16 03 99 |EN 3 AND"Q......| 00000AA0: 22 43 48 41 52 41 43 54 45 52 53 20 49 4E 20 4C |"CHARACTERS IN L| 00000AB0: 45 4E 47 54 48 3A 11 22 3A 81 49 B2 31 A4 4E 57 |ENGTH:.":.I.1.NW| 00000AC0: 00 D3 12 20 03 99 49 22 3E 20 22 3B 3A 85 57 24 |... ..I"> ";:.W$| 00000AD0: 28 49 29 00 FF 12 2A 03 8B C3 28 57 24 28 49 29 |(I)...*...(W$(I)| 00000AE0: 29 B3 33 B0 C3 28 57 24 28 49 29 29 B1 51 A7 99 |).3..(W$(I)).Q..| 00000AF0: C7 28 31 33 29 22 91 91 91 22 3A 89 38 30 30 00 |.(13)"...":.800.| 00000B00: 07 13 34 03 82 3A 8E 00 22 13 3E 03 8F 20 2D 20 |..4..:..".>.. - | 00000B10: 53 45 54 20 55 50 20 56 41 52 49 41 42 4C 45 53 |SET UP VARIABLES| 00000B20: 20 2D 00 5F 13 48 03 86 41 24 28 32 30 2C 32 30 | -._.H..A$(20,20| 00000B30: 29 2C 57 24 28 32 30 29 2C 50 58 28 32 30 29 2C |),W$(20),PX(20),| 00000B40: 50 59 28 32 30 29 2C 44 58 28 38 29 2C 44 59 28 |PY(20),DX(8),DY(| 00000B50: 38 29 2C 54 57 28 32 30 29 2C 54 28 32 30 29 00 |8),TW(20),T(20).| 00000B60: 9D 13 52 03 81 49 B2 31 A4 38 3A 87 44 58 28 49 |..R..I.1.8:.DX(I| 00000B70: 29 2C 44 59 28 49 29 3A 82 3A 42 53 24 28 30 29 |),DY(I):.:BS$(0)| 00000B80: B2 22 53 4D 41 4C 4C 20 20 22 3A 42 53 24 28 31 |."SMALL ":BS$(1| 00000B90: 29 B2 22 42 49 47 20 20 20 20 22 3A 8E 00 C9 13 |)."BIG ":....| 00000BA0: 5C 03 83 20 30 2C 2D 31 2C 31 2C 2D 31 2C 31 2C |\.. 0,-1,1,-1,1,| 00000BB0: 30 2C 31 2C 31 2C 30 2C 31 2C 2D 31 2C 31 2C 2D |0,1,1,0,1,-1,1,-| 00000BC0: 31 2C 30 2C 2D 31 2C 2D 31 00 DF 13 66 03 8F 20 |1,0,-1,-1...f.. | 00000BD0: 2D 20 53 55 42 52 4F 55 54 49 4E 45 53 20 2D 00 |- SUBROUTINES -.| 00000BE0: EE 13 70 03 8D 31 30 37 30 3A 8D 39 37 30 00 0C |..p..1070:.970..| 00000BF0: 14 7A 03 81 58 31 B2 31 A4 4E 57 3A 81 49 B2 30 |.z..X1.1.NW:.I.0| 00000C00: A4 C3 28 57 24 28 58 31 29 29 AB 31 00 4E 14 84 |..(W$(X1)).1.N..| 00000C10: 03 58 50 B2 33 AA 50 58 28 58 31 29 AA 49 AC 44 |.XP.3.PX(X1).I.D| 00000C20: 58 28 54 57 28 58 31 29 29 3A 59 50 B2 32 AA 50 |X(TW(X1)):YP.2.P| 00000C30: 59 28 58 31 29 AA 49 AC 44 59 28 54 57 28 58 31 |Y(X1).I.DY(TW(X1| 00000C40: 29 29 3A 8D 39 36 30 3A 99 22 12 1E 22 3B 00 63 |)):.960:."..";.c| 00000C50: 14 8E 03 99 CA 28 57 24 28 58 31 29 2C 49 AA 31 |.....(W$(X1),I.1| 00000C60: 2C 31 29 00 6D 14 98 03 8D 31 30 33 30 00 90 14 |,1).m....1030...| 00000C70: A2 03 82 3A 58 50 B2 32 35 3A 59 50 B2 32 AA 58 |...:XP.25:YP.2.X| 00000C80: 31 3A 8D 39 36 30 3A 99 57 24 28 58 31 29 3A 82 |1:.960:.W$(X1):.| 00000C90: 00 A8 14 AC 03 97 4E 44 58 2C 30 3A 81 50 53 B2 |......NDX,0:.PS.| 00000CA0: 31 A4 35 30 30 30 3A 82 00 DE 14 B6 03 99 22 93 |1.5000:.......".| 00000CB0: 11 11 11 11 11 11 11 11 11 22 A3 37 29 22 59 4F |.........".7)"YO| 00000CC0: 55 20 44 49 44 4E 27 54 20 46 49 4E 49 53 48 20 |U DIDN'T FINISH | 00000CD0: 49 4E 20 54 49 4D 45 2E 22 3A 89 39 39 30 00 FC |IN TIME.":.990..| 00000CE0: 14 C0 03 97 53 52 2C 30 3A 97 59 52 2C 58 50 3A |....SR,0:.YR,XP:| 00000CF0: 97 58 52 2C 59 50 3A 9E 50 4C 3A 8E 00 28 15 CA |.XR,YP:.PL:..(..| 00000D00: 03 99 22 93 22 3A 58 50 B2 31 34 3A 59 50 B2 31 |..".":XP.14:YP.1| 00000D10: 32 3A 8D 39 36 30 3A 99 22 12 1C 59 4F 55 20 44 |2:.960:."..YOU D| 00000D20: 49 44 20 49 54 21 21 22 00 5B 15 D4 03 8B 54 4C |ID IT!!".[....TL| 00000D30: B2 31 A7 99 22 11 11 95 20 20 20 20 20 20 20 20 |.1.."... | 00000D40: 12 41 4E 44 20 59 4F 55 20 46 49 4E 49 53 48 45 |.AND YOU FINISHE| 00000D50: 44 20 49 4E 20 54 49 4D 45 21 22 00 97 15 DE 03 |D IN TIME!".....| 00000D60: 58 50 B2 36 3A 59 50 B2 31 37 3A 8D 39 36 30 3A |XP.6:YP.17:.960:| 00000D70: 99 22 11 11 11 11 1C 50 52 45 53 53 20 12 53 50 |.".....PRESS .SP| 00000D80: 41 43 45 20 42 41 52 92 20 54 4F 20 50 4C 41 59 |ACE BAR. TO PLAY| 00000D90: 20 41 47 41 49 4E 22 00 A9 15 E8 03 A1 41 24 3A | AGAIN"......A$:| 00000DA0: 8B 41 24 B2 22 20 22 A7 8A 00 BC 15 F2 03 8B 41 |.A$." "........A| 00000DB0: 24 B3 B1 22 22 A7 99 22 93 22 3A 80 00 C6 15 FC |$..""..".":.....| 00000DC0: 03 89 31 30 30 30 00 E7 15 06 04 8B C2 28 36 35 |..1000.......(65| 00000DD0: 35 33 30 29 B2 31 36 34 A7 DB 37 3A DA 33 2C 31 |530).164..7:.3,1| 00000DE0: 30 30 30 2C 35 3A 8E 00 1A 16 10 04 97 53 AA 35 |000,5:.......S.5| 00000DF0: 2C 36 34 3A 97 53 AA 36 2C 30 3A 97 53 AA 32 34 |,64:.S.6,0:.S.24| 00000E00: 2C 31 35 3A 97 53 AA 31 2C 31 30 30 3A 97 53 2C |,15:.S.1,100:.S,| 00000E10: 30 3A 97 53 AA 34 2C 31 32 39 00 31 16 1A 04 81 |0:.S.4,129.1....| 00000E20: 4E B2 31 A4 32 32 3A 82 3A 97 53 AA 34 2C 30 3A |N.1.22:.:.S.4,0:| 00000E30: 8E 00 5E 16 24 04 97 53 52 2C 30 3A 97 59 52 2C |..^.$..SR,0:.YR,| 00000E40: 32 37 3A 97 58 52 2C 31 3A 9E 50 4C 3A 99 22 20 |27:.XR,1:.PL:." | 00000E50: 20 20 20 20 20 20 20 20 20 20 20 22 3A 8E 00 70 | ":..p| 00000E60: 16 2E 04 81 49 B2 31 A4 31 30 30 30 3A 82 3A 8E |....I.1.1000:.:.| 00000E70: 00 00 00 |... |
..H.... COPYRIGHT 1987 COMPUTE! PUBLICAT IONS, INC. - ALL RIGHTS RESERVED.W...XR. 781:YR.782:SR.783:BO.53280:BA.BO.1:Q.12. ....NDX.198:.B(65530).5...15:XR.7:YR.8:S R.5:NDX.208...(..B(65530).164.SR.2037:XR .2035:YR.2036:BO.65305:BA.65301:Q.14:NDX .239...2.PL.65520:.BO,0:.BA,0.9.<..B(655 30)..164.S.54272:.N.S.S.24:.N,0:..^.F.AL $."QAZXSWEDCVFRTGBNHYUJMKIOLP"...P..".. COPYRIGHT 1987 COMPUTE! PUB., INC."... Z...10)"ALL RIGHTS RESERVED":.840.V.D.." .......".15)".WORD FIND......"...N.."WOU LD YOU LIKE A TIME LIMIT (Y/N)";TL$...X. .TL$.."Y".TL$.."N".120.B....TL$."N".TL$. "200000":TL.0:.170.U....".HOW MANY MINUT ES (1-59)";TL:.TL.1.TL.59.140...... TL.. .(TL) . 140.....TL..(TL):TL$.D(TL.100):T L$.I(TL$,C(TL$).1):TL.1... ..WW.1.6.C(TL $):TT$.TT$."0":.:TL$.TT$.TL$......770:.6 80:.620:.460:.420...... - MAIN LOOP -.8. ..TI$."000000":TU.0:WF.0.D.H..YR,27:.XR, 1:.PL:.".ROW ";RO$:RO.E(RO$).X.R..RO.1.B S.0:.240......RO.20.BS.1:.240......1060: .250.R....YR,27:.XR,1:.PL:."TOO ";BS$(BS ):.1070:.1060:.200......TI$.TL$.TU.1:.89 0......YR,27:.XR,1:.PL:."COLUMN ";CO$:CO .E(CO$).+....CO.1.BS.0:.300.@....CO.20.B S.1:.300.O."..1060:.310...,..YR,27:.XR,1 :.PL:."TOO ";BS$(BS):.1070:.1060:.250... 6.F.0:.I.1.NW:.RO..PY(I).CO..PX(I).330.S .@.F.2:.T(I).0.X1.I:T(I).1:F.1:I.NW...J. .:.F.1.360...T.C$."WRONG":.F.2.C$."THAT' S FOUND".8.^..YR,27:.XR,1:.SR,0:.PL:.C$: .1070:.1060:.200.F.H..I.0.C(W$(X1)).1:XP .3.PX(X1).I.DX(TW(X1))...R.YP.2.PY(X1).I .DY(TW(X1)):.960...|.."."J(W$(X1),I.1,1) :.1030......:.YR,25:.XR,2.X1:.PL:.W$(X1) :WF.WF.1:.WF.NW.880......200...... - FIL L GRID -......Y.1.20:.X.1.20.7....A$(X,Y )."".A$(X,Y).J(AL$,26..(1).1,1).]...XP.3 .X:YP.2.Y:.960:.A$(X,Y):.:.:..V.B.. - PO SITION WORDS -..L.PW.0...V.PW.PW.1..... PX(PW)..(20..(1).1):PY(PW)..(20..(1).1). T...DR..(8..(1).1):TW(PW).DR.....CX.PX(P W).C(W$(PW)).DX(DR):CY.PY(PW).C(W$(PW)). DY(DR).-....CX.1.CX.20.CY.1.CY.20.480.G. ..F.0:.CK.0.C(W$(PW)).1.....Z1$.J(W$(PW) ,CK.1,1):Z2$.A$(PX(PW).CK.DX(DR),PY(PW). CK.DY(DR))......Z2$.."".Z1$..Z2$.F.1...& ..:.F.1.480.I.0..CK.0.C(W$(PW)).1...:.Z1 $.J(W$(PW),CK.1,1):A$(PX(PW).CK.DX(DR),P Y(PW).CK.DY(DR)).Z1$...D.XP.25:YP.2.PW:. 960:.W$(PW);:..;.N..PW.NW...D.X..470.].B .. - SORT BY LENGTH -.}.L..YR,29:.XR,1:. PL:."SORTING"...V.F.0:.I.1.NW.1.N....C(W $(I)).C(W$(I.1)).T$.W$(I.1):W$(I.1).W$(I ):W$(I).T$:F.1......:.F.1.630......1060: ....... - PRINT GRID -......".......";.* ...."..";:.I.1.20:."..";:..K...."....";: .I.1.20:.".....";:..K.F.."....";:.I.1.20 :."....";:....P.."....";:.I.1.20:."...." ;:.:.".".H.Z..I.1.20:NU$.D(I):NU$.J(NU$, 2):.C(NU$).1.NU$." ".NU$.....XP.1:YP.I.2 :.960:.NU$:XP.I.3:YP.0:.960:.H(NU$,1). . ..XP.I.3:YP.1:.960:.I(NU$,1):.:..6.... - INPUT WORDS -.S...."..HOW MANY WORDS (M AXIMUM OF 20)";NW:.:.NW.1.NW.20.770..... .".ENTER EACH WORD BETWEEN 3 AND"Q...... "CHARACTERS IN LENGTH:.":.I.1.NW.S. ..I" > ";:.W$(I)...*..C(W$(I)).3.C(W$(I)).Q.. G(13)"...":.800...4..:..".>.. - SET UP V ARIABLES -._.H..A$(20,20),W$(20),PX(20), PY(20),DX(8),DY(8),TW(20),T(20)...R..I.1 .8:.DX(I),DY(I):.:BS$(0)."SMALL ":BS$(1 )."BIG ":..I.\.. 0,-1,1,-1,1,0,1,1,0, 1,-1,1,-1,0,-1,-1...F.. - SUBROUTINES -. ..P..1070:.970...Z..X1.1.NW:.I.0.C(W$(X1 )).1.N...XP.3.PX(X1).I.DX(TW(X1)):YP.2.P Y(X1).I.DY(TW(X1)):.960:."..";.C....J(W$ (X1),I.1,1).M....1030......:XP.25:YP.2.X 1:.960:.W$(X1):.......NDX,0:.PS.1.5000:. ......"..........".7)"YOU DIDN'T FINISH IN TIME.":.990......SR,0:.YR,XP:.XR,YP:. PL:..(.J..".":XP.14:YP.12:.960:."..YOU D ID IT!!".[.T..TL.1.."... .AND YOU FINISHED IN TIME!".....XP.6:YP.17:.960: .".....PRESS .SPACE BAR. TO PLAY AGAIN". .....A$:.A$." "........A$..""..".":..F.. ..1000......B(65530).164..7:Z3,1000,5:.. .....S.5,64:.S.6,0:.S.24,15:.S.1,100:.S, 0:.S.4,129.1....N.1.22:.:.S.4,0:..^.$..S R,0:.YR,27:.XR,1:.PL:." ":..P ....I.1.1000:.:....
> CLICK IMAGE PREVIEW FOR FULL MODAL