WOORDPUZZEL
FILE INFORMATION
FILENAME(S): WOORDPUZZEL
FILE TYPE(S): PRG
FILE SIZE: 5K
FIRST SEEN: 2025-11-30 21:23:55
APPEARS ON: 1 disk(s)
FILE HASH
733aa39afd0c8d2a06058988d38d2edd68238be35a4001ae0e758d82f6b114e3
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 SPEL 28 1 | WOORDPUZZEL | PRG | DuncanTwain | 17 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 11 04 00 00 9C 3A 97 35 39 34 36 38 2C 31 |.......:.59468,1|
00000010: 32 00 3B 04 01 00 8F 20 53 45 41 52 43 48 20 43 |2.;.... SEARCH C|
00000020: 4F 50 59 52 49 47 48 54 20 28 43 29 20 31 39 37 |OPYRIGHT (C) 197|
00000030: 39 20 48 41 4C 20 43 41 52 45 59 00 53 04 02 00 |9 HAL CAREY.S...|
00000040: 8F 20 39 30 30 32 20 42 45 52 43 4C 41 49 52 20 |. 9002 BERCLAIR |
00000050: 52 44 2E 00 6E 04 03 00 8F 20 48 55 4E 54 53 56 |RD..n.... HUNTSV|
00000060: 49 4C 4C 45 2C 20 41 4C 20 33 35 38 30 32 00 74 |ILLE, AL 35802.t|
00000070: 04 04 00 3A 00 8C 04 05 00 8F 20 43 55 52 53 4F |...:...... CURSO|
00000080: 52 20 23 31 34 20 4F 43 54 20 37 39 00 AD 04 06 |R #14 OCT 79....|
00000090: 00 8F 20 42 4F 58 20 35 35 30 2C 20 47 4F 4C 45 |.. BOX 550, GOLE|
000000A0: 54 41 2C 20 43 41 2E 20 39 33 30 31 37 00 DD 04 |TA, CA. 93017...|
000000B0: 07 00 8F 20 4C 49 4E 45 53 20 36 31 30 30 30 2D |... LINES 61000-|
000000C0: 36 35 30 30 30 28 43 29 20 31 39 37 39 20 43 55 |65000(C) 1979 CU|
000000D0: 52 53 4F 52 20 4D 41 47 41 5A 49 4E 45 00 E3 04 |RSOR MAGAZINE...|
000000E0: 08 00 3A 00 F9 04 0A 00 8F 20 41 53 20 4F 46 20 |..:...... AS OF |
000000F0: 4E 4F 56 20 31 34 20 37 39 00 1A 05 5A 00 50 47 |NOV 14 79...Z.PG|
00000100: 24 B2 22 53 45 41 52 43 48 22 3A 4E 4D 24 B2 22 |$."SEARCH":NM$."|
00000110: 31 34 22 3A 8D 36 32 30 30 30 00 32 05 64 00 4D |14":.62000.2.d.M|
00000120: 57 B2 32 35 3A 8F 20 4D 41 58 20 23 20 57 4F 52 |W.25:. MAX # WOR|
00000130: 44 53 00 66 05 78 00 86 57 24 28 4D 57 AA 31 29 |DS.f.x..W$(MW.1)|
00000140: 2C 55 25 28 4D 57 29 2C 44 58 28 4D 57 29 2C 4C |,U%(MW),DX(MW),L|
00000150: 4F 43 28 4D 57 29 2C 44 44 24 28 4D 57 29 2C 46 |OC(MW),DD$(MW),F|
00000160: 54 25 28 4D 57 29 00 73 05 82 00 52 B2 BB 28 AB |T%(MW).s...R..(.|
00000170: 54 49 29 00 A5 05 8C 00 42 4C 24 B2 22 20 20 20 |TI).....BL$." |
00000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001A0: 20 20 20 20 22 00 BA 05 91 00 45 24 B2 22 13 12 | ".....E$."..|
000001B0: 22 AA 42 4C 24 AA 22 13 20 22 00 CD 05 A0 00 81 |".BL$.". "......|
000001C0: 49 B2 31 A4 38 3A 87 44 28 49 29 3A 82 00 EC 05 |I.1.8:.D(I):....|
000001D0: AA 00 83 2D 34 31 2C 2D 34 30 2C 2D 33 39 2C 2D |...-41,-40,-39,-|
000001E0: 31 2C 31 2C 33 39 2C 34 30 2C 34 31 00 11 06 B4 |1,1,39,40,41....|
000001F0: 00 41 4C 24 B2 22 41 42 43 44 45 46 47 48 49 4A |.AL$."ABCDEFGHIJ|
00000200: 4B 4C 4D 4E 4F 50 51 52 53 54 55 56 57 58 59 5A |KLMNOPQRSTUVWXYZ|
00000210: 22 00 24 06 BE 00 87 4C 24 3A 8B 4C 24 B2 22 22 |".$....L$:.L$.""|
00000220: A7 32 34 30 00 3B 06 C8 00 54 B2 C5 28 4C 24 29 |.240.;...T..(L$)|
00000230: 3A 4C 24 B2 C9 28 4C 24 2C 31 29 00 56 06 D2 00 |:L$..(L$,1).V...|
00000240: 81 49 B2 31 A4 54 AB 31 3A 41 4C 24 B2 41 4C 24 |.I.1.T.1:AL$.AL$|
00000250: AA 4C 24 3A 82 49 00 5F 06 DC 00 89 31 39 30 00 |.L$:.I._....190.|
00000260: A1 06 E6 00 83 35 45 2C 35 54 2C 35 41 2C 35 4F |.....5E,5T,5A,5O|
00000270: 2C 35 4E 2C 34 52 2C 34 49 2C 34 53 2C 34 48 2C |,5N,4R,4I,4S,4H,|
00000280: 34 44 2C 33 4C 2C 33 46 2C 33 43 2C 33 4D 2C 33 |4D,3L,3F,3C,3M,3|
00000290: 55 2C 32 47 2C 32 59 2C 32 50 2C 32 57 2C 32 42 |U,2G,2Y,2P,2W,2B|
000002A0: 2C 00 D0 06 F0 00 99 22 57 41 4E 54 20 54 4F 20 |,......"WANT TO |
000002B0: 53 55 50 50 4C 59 20 59 4F 55 52 20 4F 57 4E 20 |SUPPLY YOUR OWN |
000002C0: 57 4F 52 44 53 3F 20 22 3B 3A 8D 36 30 30 30 30 |WORDS? ";:.60000|
000002D0: 00 E7 06 FA 00 8B C8 28 49 4E 24 2C 31 29 B3 B1 |.......(IN$,1)..|
000002E0: 22 59 22 A7 33 39 30 00 14 07 04 01 99 22 93 11 |"Y".390......"..|
000002F0: 11 57 48 41 54 20 49 53 20 54 48 45 20 50 55 5A |.WHAT IS THE PUZ|
00000300: 5A 4C 45 20 41 42 4F 55 54 3F 20 22 3B 3A 8D 36 |ZLE ABOUT? ";:.6|
00000310: 30 30 30 30 00 20 07 0E 01 53 4A 24 B2 49 4E 24 |0000. ...SJ$.IN$|
00000320: 00 4E 07 18 01 99 22 11 50 4C 45 41 53 45 20 45 |.N....".PLEASE E|
00000330: 4E 54 45 52 20 54 48 45 20 57 4F 52 44 53 20 28 |NTER THE WORDS (|
00000340: 55 50 20 54 4F 22 3B 4D 57 3B 22 9D 29 2E 00 6F |UP TO";MW;".)..o|
00000350: 07 22 01 99 22 11 50 52 45 53 53 20 12 52 45 54 |."..".PRESS .RET|
00000360: 55 52 4E 92 20 57 48 45 4E 20 44 4F 4E 45 2E 00 |URN. WHEN DONE..|
00000370: 7C 07 2C 01 4E B2 31 3A 4D 4C B2 30 00 99 07 36 ||.,.N.1:ML.0...6|
00000380: 01 99 22 11 57 4F 52 44 22 3B 4E 3B 22 9D 3A 20 |..".WORD";N;".: |
00000390: 22 3B 3A 8D 36 30 30 30 30 00 AD 07 40 01 8B 49 |";:.60000...@..I|
000003A0: 4E 24 B2 22 22 AF 4E B2 31 A7 33 31 30 00 BD 07 |N$."".N.1.310...|
000003B0: 45 01 8B 49 4E 24 B2 22 22 A7 34 32 30 00 DF 07 |E..IN$."".420...|
000003C0: 54 01 5A B2 C3 28 49 4E 24 29 3A 81 49 B2 31 A4 |T.Z..(IN$):.I.1.|
000003D0: 5A 3A 4C 24 B2 CA 28 49 4E 24 2C 49 2C 31 29 00 |Z:L$..(IN$,I,1).|
000003E0: 10 08 5E 01 8B 4C 24 B3 22 41 22 B0 4C 24 B1 22 |..^..L$."A".L$."|
000003F0: 5A 22 A7 99 22 4C 45 54 54 45 52 53 20 4F 4E 4C |Z".."LETTERS ONL|
00000400: 59 2C 20 50 4C 45 41 53 45 2E 22 3A 89 33 31 30 |Y, PLEASE.":.310|
00000410: 00 22 08 68 01 82 49 3A 8B 5A B1 4D 4C A7 4D 4C |.".h..I:.Z.ML.ML|
00000420: B2 5A 00 41 08 72 01 57 24 28 4E 29 B2 49 4E 24 |.Z.A.r.W$(N).IN$|
00000430: 3A 4E B2 4E AA 31 3A 8B 4E B3 B2 4D 57 A7 33 31 |:N.N.1:.N..MW.31|
00000440: 30 00 4A 08 7C 01 89 34 32 30 00 62 08 86 01 8B |0.J.|..420.b....|
00000450: 53 4A 24 B3 B1 22 22 A7 4E B2 4E AA 31 3A 89 34 |SJ$.."".N.N.1:.4|
00000460: 32 30 00 74 08 90 01 87 53 4A 24 3A 4E B2 30 3A |20.t....SJ$:N.0:|
00000470: 4D 4C B2 30 00 8D 08 9A 01 87 57 24 3A 4E B2 4E |ML.0......W$:N.N|
00000480: AA 31 3A 8B 57 24 B2 22 22 A7 34 32 30 00 AD 08 |.1:.W$."".420...|
00000490: 9D 01 57 24 28 4E 29 B2 57 24 3A 5A B2 C3 28 57 |..W$(N).W$:Z..(W|
000004A0: 24 29 3A 8B 5A B1 4D 4C A7 4D 4C B2 5A 00 B6 08 |$):.Z.ML.ML.Z...|
000004B0: A0 01 89 34 31 30 00 C8 08 A4 01 99 22 93 22 45 |...410......"."E|
000004C0: 24 22 11 9D 9D 20 20 22 00 DE 08 AE 01 81 49 B2 |$"... "......I.|
000004D0: 31 A4 32 32 3A 99 22 9D 12 20 20 22 3A 82 00 F2 |1.22:.".. ":...|
000004E0: 08 B8 01 99 22 9D 12 22 42 4C 24 22 20 9D 94 20 |....".."BL$" .. |
000004F0: 13 22 00 0E 09 C2 01 5A 4C B2 31 45 35 3A 5A 54 |.".....ZL.1E5:ZT|
00000500: B2 5A 4C 3A 5A 52 B2 30 3A 5A 42 B2 5A 52 00 4B |.ZL:ZR.0:ZB.ZR.K|
00000510: 09 CC 01 57 24 28 4E 29 B2 22 22 3A 4E B2 4E AB |...W$(N)."":N.N.|
00000520: 31 3A 99 45 24 3B 22 54 48 45 20 53 55 42 4A 45 |1:.E$;"THE SUBJE|
00000530: 43 54 20 49 53 20 27 22 3B 53 4A 24 3B 22 27 2E |CT IS '";SJ$;"'.|
00000540: 22 3A 54 4D B2 54 49 AA 32 30 30 00 5E 09 D6 01 |":TM.TI.200.^...|
00000550: 81 58 B2 31 A4 4E 3A 44 58 28 58 29 B2 30 00 6F |.X.1.N:DX(X).0.o|
00000560: 09 E0 01 82 3A 4E 46 B2 4E 3A 8D 31 34 35 30 00 |....:NF.N:.1450.|
00000570: 7E 09 E5 01 8B 54 49 B3 54 4D A7 34 38 35 00 8A |~....TI.TM.485..|
00000580: 09 EA 01 57 B2 31 3A 99 45 24 00 A1 09 F4 01 81 |...W.1:.E$......|
00000590: 49 B2 31 A4 4E 3A 46 54 25 28 49 29 B2 30 3A 82 |I.1.N:FT%(I).0:.|
000005A0: 49 00 B4 09 FE 01 46 B2 30 3A 8B 44 58 28 57 29 |I.....F.0:.DX(W)|
000005B0: A7 39 31 30 00 CB 09 08 02 57 24 B2 57 24 28 57 |.910.....W$.W$(W|
000005C0: 29 3A 99 22 13 12 20 22 3B 57 24 00 F2 09 12 02 |):.".. ";W$.....|
000005D0: 55 B2 30 3A 81 43 B2 31 A4 4E 3A 8B 44 58 28 43 |U.0:.C.1.N:.DX(C|
000005E0: 29 B3 B1 30 A7 55 B2 55 AA 31 3A 55 25 28 55 29 |)..0.U.U.1:U%(U)|
000005F0: B2 43 00 01 0A 1C 02 82 3A 8B 55 B1 30 A7 35 36 |.C......:.U.0.56|
00000600: 30 00 3E 0A 26 02 46 B2 31 3A 44 58 28 57 29 B2 |0.>.&.F.1:DX(W).|
00000610: 44 28 31 AA B5 28 38 AC BB 28 31 29 29 29 3A 4C |D(1..(8..(1))):L|
00000620: 43 B2 33 33 33 30 38 AB B5 28 2E 35 AC C3 28 57 |C.33308..(.5..(W|
00000630: 24 29 29 AC 44 58 28 57 29 3A 89 38 30 30 00 75 |$)).DX(W):.800.u|
00000640: 0A 30 02 81 49 B2 31 A4 55 3A 52 B2 31 AA B5 28 |.0..I.1.U:R.1..(|
00000650: 55 AC BB 28 31 29 29 3A 54 B2 55 25 28 49 29 3A |U..(1)):T.U%(I):|
00000660: 55 25 28 49 29 B2 55 25 28 52 29 3A 55 25 28 52 |U%(I).U%(R):U%(R|
00000670: 29 B2 54 3A 82 00 93 0A 3A 02 81 43 B2 31 A4 55 |).T:....:..C.1.U|
00000680: 3A 55 43 B2 55 25 28 43 29 3A 43 24 B2 57 24 28 |:UC.U%(C):C$.W$(|
00000690: 55 43 29 00 A2 0A 44 02 81 4C B2 31 A4 C3 28 57 |UC)...D..L.1..(W|
000006A0: 24 29 00 B3 0A 4E 02 4C 24 B2 CA 28 57 24 2C 4C |$)...N.L$..(W$,L|
000006B0: 2C 31 29 00 C2 0A 58 02 81 5A B2 31 A4 C3 28 43 |,1)...X..Z.1..(C|
000006C0: 24 29 00 D3 0A 62 02 5A 24 B2 CA 28 43 24 2C 5A |$)...b.Z$..(C$,Z|
000006D0: 2C 31 29 00 E3 0A 6C 02 8B 5A 24 B3 B1 4C 24 89 |,1)...l..Z$..L$.|
000006E0: 37 37 30 00 FB 0A 76 02 53 53 B2 CA 28 43 24 2C |770...v.SS..(C$,|
000006F0: 5A 2C C3 28 57 24 29 29 B2 57 24 00 09 0B 80 02 |Z,.(W$)).W$.....|
00000700: 81 44 B2 38 A4 31 A9 AB 31 00 1B 0B 8A 02 52 B2 |.D.8.1..1.....R.|
00000710: B5 28 BB 28 31 29 AC 44 29 AA 31 00 37 0B 94 02 |.(.(1).D).1.7...|
00000720: 54 B2 44 28 52 29 3A 44 28 52 29 B2 44 28 44 29 |T.D(R):D(R).D(D)|
00000730: 3A 44 28 44 29 B2 54 00 43 0B 9E 02 44 58 28 57 |:D(D).T.C...DX(W|
00000740: 29 B2 54 00 63 0B A8 02 4C 43 B2 4C 4F 43 28 55 |).T.c...LC.LOC(U|
00000750: 43 29 AA 44 58 28 55 43 29 AC 5A AB 44 58 28 57 |C).DX(UC).Z.DX(W|
00000760: 29 AC 4C 00 78 0B B2 02 51 39 B2 C2 28 4C 43 29 |).L.x...Q9..(LC)|
00000770: 3A 97 4C 43 2C 31 30 32 00 8D 0B BC 02 8B 53 53 |:.LC,102......SS|
00000780: AF 44 58 28 55 43 29 B2 54 A7 37 36 30 00 9C 0B |.DX(UC).T.760...|
00000790: C6 02 81 56 B2 31 A4 C3 28 57 24 29 00 A6 0B D0 |...V.1..(W$)....|
000007A0: 02 8D 31 36 32 30 00 BB 0B DA 02 43 48 B2 C2 28 |..1620.....CH..(|
000007B0: 4C 43 AA 56 AC 44 58 28 57 29 29 00 DF 0B E4 02 |LC.V.DX(W)).....|
000007C0: 8B 43 48 B3 B1 33 32 AF 43 48 B3 B1 C6 28 CA 28 |.CH..32.CH...(.(|
000007D0: 57 24 2C 56 2C 31 29 29 AB 36 34 A7 37 36 30 00 |W$,V,1)).64.760.|
000007E0: F2 0B EE 02 82 56 3A 97 4C 43 2C 51 39 3A 89 38 |.....V:.LC,Q9:.8|
000007F0: 30 30 00 00 0C F8 02 97 4C 43 2C 51 39 3A 82 44 |00......LC,Q9:.D|
00000800: 00 07 0C 02 03 82 5A 00 0E 0C 0C 03 82 4C 00 1A |......Z......L..|
00000810: 0C 16 03 82 43 3A 89 39 31 30 00 47 0C 20 03 81 |....C:.910.G. ..|
00000820: 49 B2 31 A4 C3 28 57 24 29 3A 97 4C 43 AA 49 AC |I.1..(W$):.LC.I.|
00000830: 44 58 28 57 29 2C C6 28 CA 28 57 24 2C 49 2C 31 |DX(W),.(.(W$,I,1|
00000840: 29 29 AB 36 34 3A 82 00 59 0C 2A 03 4C 4F 43 28 |)).64:..Y.*.LOC(|
00000850: 57 29 B2 4C 43 3A 46 B2 31 00 6C 0C 34 03 8D 31 |W).LC:F.1.l.4..1|
00000860: 36 37 30 3A 44 58 B2 44 58 28 57 29 00 80 0C 3E |670:DX.DX(W)...>|
00000870: 03 8B 44 58 B2 31 A7 44 44 24 B2 22 20 52 20 22 |..DX.1.DD$." R "|
00000880: 00 95 0C 48 03 8B 44 58 B2 AB 31 A7 44 44 24 B2 |...H..DX..1.DD$.|
00000890: 22 20 4C 20 22 00 AA 0C 52 03 8B 44 58 B2 34 30 |" L "...R..DX.40|
000008A0: A7 44 44 24 B2 22 20 44 20 22 00 C0 0C 5C 03 8B |.DD$." D "...\..|
000008B0: 44 58 B2 AB 34 30 A7 44 44 24 B2 22 20 55 20 22 |DX..40.DD$." U "|
000008C0: 00 D6 0C 66 03 8B 44 58 B2 AB 33 39 A7 44 44 24 |...f..DX..39.DD$|
000008D0: B2 22 55 2D 52 22 00 EC 0C 70 03 8B 44 58 B2 AB |."U-R"...p..DX..|
000008E0: 34 31 A7 44 44 24 B2 22 55 2D 4C 22 00 01 0D 7A |41.DD$."U-L"...z|
000008F0: 03 8B 44 58 B2 34 31 A7 44 44 24 B2 22 44 2D 52 |..DX.41.DD$."D-R|
00000900: 22 00 16 0D 84 03 8B 44 58 B2 33 39 A7 44 44 24 |"......DX.39.DD$|
00000910: B2 22 44 2D 4C 22 00 3C 0D 8E 03 44 44 24 28 57 |."D-L".<...DD$(W|
00000920: 29 B2 44 44 24 3A 46 54 25 28 57 29 B2 46 3A 57 |).DD$:FT%(W).F:W|
00000930: B2 57 AA 31 3A 4E 46 B2 4E 46 AB 46 00 44 0D 98 |.W.1:NF.NF.F.D..|
00000940: 03 99 45 24 00 52 0D A2 03 8B 4E 46 B2 30 A7 39 |..E$.R....NF.0.9|
00000950: 37 30 00 60 0D AC 03 8B 57 B3 B2 4E A7 35 31 30 |70.`....W..N.510|
00000960: 00 7D 0D B6 03 46 B2 30 3A 81 49 B2 31 A4 4E 3A |.}...F.0:.I.1.N:|
00000970: 46 B2 46 AA 46 54 25 28 49 29 3A 82 49 00 8A 0D |F.F.FT%(I):.I...|
00000980: C0 03 8B 46 B1 30 A7 34 39 30 00 9E 0D CA 03 5A |...F.0.490.....Z|
00000990: 54 B2 5A 54 AA 38 3A 5A 42 B2 5A 42 AA 38 00 B6 |T.ZT.8:ZB.ZB.8..|
000009A0: 0D D4 03 99 45 24 3B 22 53 4F 52 54 49 4E 47 20 |....E$;"SORTING |
000009B0: 57 4F 52 44 53 22 00 C0 0D DE 03 8D 31 35 33 30 |WORDS"......1530|
000009C0: 00 E3 0D E8 03 99 45 24 22 50 55 54 20 49 4E 20 |......E$"PUT IN |
000009D0: 50 41 50 45 52 2C 20 48 49 54 20 41 4E 59 20 4B |PAPER, HIT ANY K|
000009E0: 45 59 2E 00 FC 0D FC 03 9F 34 2C 34 3A 50 44 24 |EY.......4,4:PD$|
000009F0: B2 C8 28 42 4C 24 2C 4D 4C AA 31 29 00 10 0E 06 |..(BL$,ML.1)....|
00000A00: 04 A1 47 24 3A 8B 47 24 B2 22 22 89 31 30 33 30 |..G$:.G$."".1030|
00000A10: 00 40 0E 10 04 99 45 24 22 50 52 49 4E 54 49 4E |.@....E$"PRINTIN|
00000A20: 47 20 41 4E 53 57 45 52 22 3B 3A 98 34 2C 22 41 |G ANSWER";:.4,"A|
00000A30: 4E 53 57 45 52 20 54 4F 20 22 53 4A 24 3A 98 34 |NSWER TO "SJ$:.4|
00000A40: 00 75 0E 24 04 49 24 B2 22 22 3A 50 24 B2 22 20 |.u.$.I$."":P$." |
00000A50: 20 22 3A 50 32 24 B2 22 20 20 22 3A 81 49 B2 31 | ":P2$." ":.I.1|
00000A60: A4 5A 52 AB 5A 4C AA 31 3A 49 24 B2 C9 28 C4 28 |.ZR.ZL.1:I$..(.(|
00000A70: 49 29 2C 32 29 00 A1 0E 2E 04 50 24 B2 50 24 AA |I),2).....P$.P$.|
00000A80: C8 28 49 24 2C 31 29 AA 22 20 22 3A 50 32 24 B2 |.(I$,1)." ":P2$.|
00000A90: 50 32 24 AA C9 28 49 24 2C 31 29 AA 22 20 22 3A |P2$..(I$,1)." ":|
00000AA0: 82 00 B2 0E 38 04 98 34 2C 50 24 3A 98 34 2C 50 |....8..4,P$:.4,P|
00000AB0: 32 24 00 D9 0E 42 04 81 4C B2 5A 54 A4 5A 42 A9 |2$...B..L.ZT.ZB.|
00000AC0: 34 30 3A 50 24 B2 C7 28 28 4C AB 5A 54 29 AD 34 |40:P$..((L.ZT).4|
00000AD0: 30 AA 36 35 29 AA 22 20 22 00 08 0F 4C 04 81 50 |0.65)." "...L..P|
00000AE0: B2 5A 4C A4 5A 52 3A 43 B2 C2 28 4C AA 50 29 3A |.ZL.ZR:C..(L.P):|
00000AF0: 4C 24 B2 22 2D 22 3A 8B 43 B3 B1 33 32 A7 4C 24 |L$."-":.C..32.L$|
00000B00: B2 C7 28 43 AA 36 34 29 00 26 0F 6A 04 50 24 B2 |..(C.64).&.j.P$.|
00000B10: 50 24 AA 4C 24 AA 22 20 22 3A 82 3A 98 34 2C 50 |P$.L$." ":.:.4,P|
00000B20: 24 3A 82 3A 98 34 00 54 0F 74 04 54 24 B2 22 53 |$:.:.4.T.t.T$."S|
00000B30: 54 41 52 54 20 20 44 49 52 20 20 20 57 4F 52 44 |TART DIR WORD|
00000B40: 53 22 3A 98 34 2C 54 24 3B CA 28 50 44 24 2C 36 |S":.4,T$;.(PD$,6|
00000B50: 29 3B 54 24 00 82 0F 7E 04 54 24 B2 22 2D 2D 2D |);T$...~.T$."---|
00000B60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 |---------------"|
00000B70: 3A 98 34 2C 54 24 3B CA 28 50 44 24 2C 36 29 3B |:.4,T$;.(PD$,6);|
00000B80: 54 24 00 9A 0F 88 04 48 B2 B5 28 28 4E AA 31 29 |T$.....H..((N.1)|
00000B90: AD 32 29 3A 81 49 B2 31 A4 48 00 CE 0F 92 04 57 |.2):.I.1.H.....W|
00000BA0: B2 49 3A 8D 31 33 39 30 3A 57 B2 49 AA 48 3A 8B |.I:.1390:W.I.H:.|
00000BB0: 57 B3 B2 4E A7 98 34 2C CA 28 50 44 24 2C C3 28 |W..N..4,.(PD$,.(|
00000BC0: 57 24 28 49 29 29 29 3B 3A 8D 31 33 39 30 00 DE |W$(I)));:.1390..|
00000BD0: 0F A6 04 98 34 3A 82 49 3A 98 34 3A 98 34 00 FD |....4:.I:.4:.4..|
00000BE0: 0F BA 04 99 45 24 3B 22 50 52 45 53 53 20 4B 45 |....E$;"PRESS KE|
00000BF0: 59 20 46 4F 52 20 50 55 5A 5A 4C 45 22 00 11 10 |Y FOR PUZZLE"...|
00000C00: C4 04 A1 47 24 3A 8B 47 24 B2 22 22 89 31 32 32 |...G$:.G$."".122|
00000C10: 30 00 1B 10 CE 04 98 34 3A 98 34 00 4A 10 D8 04 |0......4:.4.J...|
00000C20: 99 45 24 22 50 52 49 4E 54 49 4E 47 20 50 55 5A |.E$"PRINTING PUZ|
00000C30: 5A 4C 45 22 3B 3A 98 34 2C 22 46 49 4E 44 22 4E |ZLE";:.4,"FIND"N|
00000C40: 3B 53 4A 24 3A 98 34 3A 98 34 00 60 10 E2 04 81 |;SJ$:.4:.4.`....|
00000C50: 4C B2 5A 54 A4 5A 42 A9 34 30 3A 50 24 B2 22 22 |L.ZT.ZB.40:P$.""|
00000C60: 00 81 10 F6 04 81 50 B2 5A 4C A4 5A 52 3A 43 B2 |......P.ZL.ZR:C.|
00000C70: C2 28 4C AA 50 29 3A 4C 24 B2 C7 28 43 AA 36 34 |.(L.P):L$..(C.64|
00000C80: 29 00 A8 10 0A 05 8B 43 B2 33 32 A7 4C 24 B2 CA |)......C.32.L$..|
00000C90: 28 41 4C 24 2C B5 28 BB 28 31 29 AC C3 28 41 4C |(AL$,.(.(1)..(AL|
00000CA0: 24 29 29 AA 31 2C 31 29 00 CB 10 14 05 50 24 B2 |$)).1,1).....P$.|
00000CB0: 50 24 AA 4C 24 AA 22 20 22 3A 82 50 3A 98 34 2C |P$.L$." ":.P:.4,|
00000CC0: 50 24 3A 82 4C 3A 98 34 3A 98 34 00 FA 10 32 05 |P$:.L:.4:.4...2.|
00000CD0: 81 49 B2 31 A4 48 3A 98 34 2C 57 24 28 49 29 3B |.I.1.H:.4,W$(I);|
00000CE0: CA 28 50 44 24 2C C3 28 57 24 28 49 29 29 29 3B |.(PD$,.(W$(I)));|
00000CF0: 57 24 28 49 AA 48 29 3A 82 49 00 04 11 46 05 98 |W$(I.H):.I...F..|
00000D00: 34 3A 98 34 00 2F 11 50 05 A0 34 3A 99 22 93 11 |4:.4./.P..4:."..|
00000D10: 11 57 41 4E 54 20 41 4E 4F 54 48 45 52 20 50 55 |.WANT ANOTHER PU|
00000D20: 5A 5A 4C 45 3F 20 22 3B 3A 8D 36 30 30 30 30 00 |ZZLE? ";:.60000.|
00000D30: 46 11 5A 05 8B C8 28 49 4E 24 2C 31 29 B3 B1 22 |F.Z...(IN$,1).."|
00000D40: 4E 22 A7 32 34 30 00 4C 11 64 05 80 00 74 11 6E |N".240.L.d...t.n|
00000D50: 05 8B 44 58 28 57 29 B2 30 A7 98 34 2C 22 44 49 |..DX(W).0..4,"DI|
00000D60: 44 4E 27 54 20 46 49 54 20 20 22 3B 57 24 28 57 |DN'T FIT ";W$(W|
00000D70: 29 3B 3A 8E 00 A6 11 73 05 4C 4C B2 4C 4F 43 28 |);:....s.LL.LOC(|
00000D80: 57 29 AA 44 58 28 57 29 AB 5A 54 AB 5A 4C 3A 4C |W).DX(W).ZT.ZL:L|
00000D90: 59 B2 B5 28 4C 4C AD 34 30 29 3A 4C 58 B2 4C 4C |Y..(LL.40):LX.LL|
00000DA0: AB 34 30 AC 4C 59 00 DE 11 78 05 98 34 2C 22 20 |.40.LY...x..4," |
00000DB0: 22 C7 28 4C 59 AA 36 35 29 22 2D 22 C9 28 C4 28 |".(LY.65)"-".(.(|
00000DC0: 4C 58 AA 31 29 2C 32 29 22 20 20 22 44 44 24 28 |LX.1),2)" "DD$(|
00000DD0: 57 29 22 20 20 22 57 24 28 57 29 3B 3A 8E 00 23 |W)" "W$(W);:..#|
00000DE0: 12 82 05 83 46 52 55 49 54 53 2C 50 41 53 53 49 |....FRUITS,PASSI|
00000DF0: 4F 4E 46 52 55 49 54 2C 47 52 41 50 45 46 52 55 |ONFRUIT,GRAPEFRU|
00000E00: 49 54 2C 53 54 52 41 57 42 45 52 52 59 2C 43 41 |IT,STRAWBERRY,CA|
00000E10: 4E 54 41 4C 4F 55 50 45 2C 57 41 54 45 52 4D 45 |NTALOUPE,WATERME|
00000E20: 4C 4F 4E 00 6D 12 8C 05 83 4E 45 43 54 41 52 49 |LON.m....NECTARI|
00000E30: 4E 45 2C 52 41 53 50 42 45 52 52 59 2C 42 4C 55 |NE,RASPBERRY,BLU|
00000E40: 45 42 45 52 52 59 2C 54 41 4E 47 45 52 49 4E 45 |EBERRY,TANGERINE|
00000E50: 2C 50 49 4E 45 41 50 50 4C 45 2C 4D 55 53 4B 4D |,PINEAPPLE,MUSKM|
00000E60: 45 4C 4F 4E 2C 48 4F 4E 45 59 44 45 57 00 B7 12 |ELON,HONEYDEW...|
00000E70: 96 05 83 41 50 52 49 43 4F 54 2C 43 4F 43 4F 4E |...APRICOT,COCON|
00000E80: 55 54 2C 52 48 55 42 41 52 42 2C 42 41 4E 41 4E |UT,RHUBARB,BANAN|
00000E90: 41 2C 4F 52 41 4E 47 45 2C 43 48 45 52 52 59 2C |A,ORANGE,CHERRY,|
00000EA0: 50 45 41 43 48 2C 41 50 50 4C 45 2C 47 52 41 50 |PEACH,APPLE,GRAP|
00000EB0: 45 2C 4C 45 4D 4F 4E 00 C9 12 A0 05 83 50 45 41 |E,LEMON......PEA|
00000EC0: 52 2C 50 4C 55 4D 2C 22 22 00 D4 12 AA 05 8B 4E |R,PLUM,""......N|
00000ED0: B3 32 A7 8E 00 E8 12 B4 05 81 57 B2 32 A4 4E 3A |.2........W.2.N:|
00000EE0: 57 24 B2 57 24 28 57 29 00 0E 13 BE 05 81 49 B2 |W$.W$(W)......I.|
00000EF0: 57 AB 31 A4 31 A9 AB 31 3A 8B C3 28 57 24 29 B3 |W.1.1..1:..(W$).|
00000F00: B2 C3 28 57 24 28 49 29 29 A7 31 35 30 30 00 27 |..(W$(I)).1500.'|
00000F10: 13 D2 05 57 24 28 49 AA 31 29 B2 57 24 28 49 29 |...W$(I.1).W$(I)|
00000F20: 3A 82 49 3A 49 B2 30 00 3B 13 DC 05 57 24 28 49 |:.I:I.0.;...W$(I|
00000F30: AA 31 29 B2 57 24 3A 82 57 3A 8E 00 46 13 FA 05 |.1).W$:.W:..F...|
00000F40: 8B 4E B3 32 A7 8E 00 51 13 FF 05 81 57 B2 32 A4 |.N.2...Q....W.2.|
00000F50: 4E 00 7C 13 04 06 57 24 B2 57 24 28 57 29 3A 44 |N.|...W$.W$(W):D|
00000F60: 58 B2 44 58 28 57 29 3A 44 44 24 B2 44 44 24 28 |X.DX(W):DD$.DD$(|
00000F70: 57 29 3A 4C 43 B2 4C 4F 43 28 57 29 00 9C 13 0E |W):LC.LOC(W)....|
00000F80: 06 81 49 B2 57 AB 31 A4 31 A9 AB 31 3A 8B 57 24 |..I.W.1.1..1:.W$|
00000F90: B1 B2 57 24 28 49 29 A7 31 35 39 30 00 E1 13 22 |..W$(I).1590..."|
00000FA0: 06 4A B2 49 AA 31 3A 57 24 28 4A 29 B2 57 24 28 |.J.I.1:W$(J).W$(|
00000FB0: 49 29 3A 44 58 28 4A 29 B2 44 58 28 49 29 3A 44 |I):DX(J).DX(I):D|
00000FC0: 44 24 28 4A 29 B2 44 44 24 28 49 29 3A 4C 4F 43 |D$(J).DD$(I):LOC|
00000FD0: 28 4A 29 B2 4C 4F 43 28 49 29 3A 82 49 3A 49 B2 |(J).LOC(I):.I:I.|
00000FE0: 30 00 17 14 36 06 4A B2 49 AA 31 3A 57 24 28 4A |0...6.J.I.1:W$(J|
00000FF0: 29 B2 57 24 3A 44 58 28 4A 29 B2 44 58 3A 44 44 |).W$:DX(J).DX:DD|
00001000: 24 28 4A 29 B2 44 44 24 3A 4C 4F 43 28 4A 29 B2 |$(J).DD$:LOC(J).|
00001010: 4C 43 3A 82 57 3A 8E 00 3A 14 54 06 51 30 B2 4C |LC:.W:..:.T.Q0.L|
00001020: 43 AA 56 AC 44 58 28 57 29 3A 51 31 B2 C2 28 51 |C.V.DX(W):Q1..(Q|
00001030: 30 29 3A 97 51 30 2C 31 36 30 00 50 14 72 06 51 |0):.Q0,160.P.r.Q|
00001040: 32 B2 51 31 AC 51 30 3A 97 51 30 2C 51 31 3A 8E |2.Q1.Q0:.Q0,Q1:.|
00001050: 00 61 14 7C 06 51 30 B2 4C AA 50 3A 89 31 36 33 |.a.|.Q0.L.P:.163|
00001060: 30 00 87 14 86 06 43 46 B2 4C 43 AA 44 58 28 57 |0.....CF.LC.DX(W|
00001070: 29 AB 38 3A 43 4C B2 4C 43 AA C3 28 57 24 29 AC |).8:CL.LC..(W$).|
00001080: 44 58 28 57 29 AB 38 00 A3 14 90 06 43 30 B2 34 |DX(W).8.....C0.4|
00001090: 30 AC B5 28 43 46 AD 34 30 29 3A 43 46 B2 43 46 |0..(CF.40):CF.CF|
000010A0: AB 43 30 00 BF 14 9A 06 43 31 B2 34 30 AC B5 28 |.C0.....C1.40..(|
000010B0: 43 4C AD 34 30 29 3A 43 4C B2 43 4C AB 43 31 00 |CL.40):CL.CL.C1.|
000010C0: D0 14 A4 06 8B 43 30 B3 5A 54 A7 5A 54 B2 43 30 |.....C0.ZT.ZT.C0|
000010D0: 00 E1 14 AE 06 8B 43 30 B1 5A 42 A7 5A 42 B2 43 |......C0.ZB.ZB.C|
000010E0: 30 00 F2 14 B8 06 8B 43 31 B3 5A 54 A7 5A 54 B2 |0......C1.ZT.ZT.|
000010F0: 43 31 00 03 15 C2 06 8B 43 31 B1 5A 42 A7 5A 42 |C1......C1.ZB.ZB|
00001100: B2 43 31 00 14 15 CC 06 8B 43 46 B3 5A 4C A7 5A |.C1......CF.ZL.Z|
00001110: 4C B2 43 46 00 25 15 D6 06 8B 43 46 B1 5A 52 A7 |L.CF.%....CF.ZR.|
00001120: 5A 52 B2 43 46 00 36 15 E0 06 8B 43 4C B3 5A 4C |ZR.CF.6....CL.ZL|
00001130: A7 5A 4C B2 43 4C 00 47 15 EA 06 8B 43 4C B1 5A |.ZL.CL.G....CL.Z|
00001140: 52 A7 5A 52 B2 43 4C 00 4D 15 F4 06 8E 00 6E 15 |R.ZR.CL.M.....n.|
00001150: 60 EA 49 4E 24 B2 22 20 22 3A 5A 54 B2 54 49 3A |`.IN$." ":ZT.TI:|
00001160: 5A 43 B2 32 3A 5A 44 24 B2 C7 28 32 30 29 00 84 |ZC.2:ZD$..(20)..|
00001170: 15 6A EA A1 5A 24 3A 8B 5A 24 B3 B1 22 22 A7 36 |.j..Z$:.Z$.."".6|
00001180: 30 30 37 30 00 B4 15 74 EA 8B 5A 54 B3 B2 54 49 |0070...t..ZT..TI|
00001190: A7 99 CA 28 22 20 A6 22 2C 5A 43 2C 31 29 3B 22 |...(" .",ZC,1);"|
000011A0: 9D 22 3B 3A 5A 43 B2 33 AB 5A 43 3A 5A 54 B2 54 |.";:ZC.3.ZC:ZT.T|
000011B0: 49 AA 31 35 00 BF 15 7E EA 89 36 30 30 31 30 00 |I.15...~..60010.|
000011C0: EF 15 A6 EA 5A B2 C6 28 5A 24 29 3A 5A 4C B2 C3 |....Z..(Z$):ZL..|
000011D0: 28 49 4E 24 29 3A 8B 28 5A AF 31 32 37 29 B3 33 |(IN$):.(Z.127).3|
000011E0: 32 A7 99 22 20 9D 22 3B 3A 89 36 30 31 31 30 00 |2.." .";:.60110.|
000011F0: 1F 16 B0 EA 8B 46 4C AF 28 5A AF 31 32 37 29 B1 |.....FL.(Z.127).|
00001200: 36 34 AF 28 5A AF 31 32 37 29 B3 39 31 A7 5A 24 |64.(Z.127).91.Z$|
00001210: B2 C7 28 28 5A AA 31 32 38 29 AF 32 35 35 29 00 |..((Z.128).255).|
00001220: 31 16 BA EA 8B 5A 4C B1 32 35 34 A7 36 30 30 31 |1....ZL.254.6001|
00001230: 30 00 4C 16 C4 EA 49 4E 24 B2 49 4E 24 AA 5A 24 |0.L...IN$.IN$.Z$|
00001240: 3A 99 5A 24 3B 5A 44 24 3B 5A 24 3B 00 6B 16 CE |:.Z$;ZD$;Z$;.k..|
00001250: EA 8B 5A B2 31 33 A7 49 4E 24 B2 CA 28 49 4E 24 |..Z.13.IN$..(IN$|
00001260: 2C 32 29 3A 99 43 52 24 3B 3A 8E 00 97 16 D8 EA |,2):.CR$;:......|
00001270: 8B 5A B2 32 30 AF 5A 4C B1 31 A7 49 4E 24 B2 C8 |.Z.20.ZL.1.IN$..|
00001280: 28 49 4E 24 2C 5A 4C AB 31 29 3A 99 22 9D 22 3B |(IN$,ZL.1):.".";|
00001290: 3A 89 36 30 30 31 30 00 CA 16 E2 EA 8B 5A B2 31 |:.60010......Z.1|
000012A0: 34 31 A7 5A 24 B2 C7 28 AB 32 30 AC 28 5A 4C B1 |41.Z$..(.20.(ZL.|
000012B0: 31 29 29 3A 81 5A B2 32 A4 5A 4C 3A 99 5A 24 3B |1)):.Z.2.ZL:.Z$;|
000012C0: 3A 82 5A 3A 89 36 30 30 30 30 00 D5 16 EC EA 89 |:.Z:.60000......|
000012D0: 36 30 30 31 30 00 EF 16 8C EB 99 22 93 22 3A 9C |60010......".":.|
000012E0: 3A 43 52 24 B2 C7 28 31 33 29 3A 89 31 30 30 00 |:CR$..(13):.100.|
000012F0: 09 17 54 EC 81 49 B2 31 A4 31 30 3A 99 22 C0 C0 |..T..I.1.10:."..|
00001300: C0 C0 22 3B 3A 82 49 3A 8E 00 30 17 30 F2 99 22 |..";:.I:..0.0.."|
00001310: 93 11 11 22 3B A3 39 29 3B 22 43 55 52 53 4F 52 |...";.9);"CURSOR|
00001320: 20 23 22 3B 4E 4D 24 3B 22 20 20 22 3B 50 47 24 | #";NM$;" ";PG$|
00001330: 00 5A 17 3A F2 99 22 11 20 43 4F 50 59 52 49 47 |.Z.:..". COPYRIG|
00001340: 48 54 20 28 43 29 20 31 39 37 39 20 20 42 59 20 |HT (C) 1979 BY |
00001350: 48 41 4C 20 43 41 52 45 59 11 00 65 17 44 F2 8D |HAL CAREY..e.D..|
00001360: 36 30 35 30 30 00 8A 17 4E F2 99 22 11 43 4F 4E |60500...N..".CON|
00001370: 53 54 52 55 43 54 20 57 4F 52 44 2D 53 45 41 52 |STRUCT WORD-SEAR|
00001380: 43 48 20 50 55 5A 5A 4C 45 53 00 B1 17 58 F2 99 |CH PUZZLES...X..|
00001390: 22 11 11 54 48 49 53 20 50 52 4F 47 52 41 4D 20 |"..THIS PROGRAM |
000013A0: 4E 45 45 44 53 20 41 20 50 52 49 4E 54 45 52 21 |NEEDS A PRINTER!|
000013B0: 22 00 D3 17 80 F2 99 22 11 11 11 50 52 45 53 53 |"......"...PRESS|
000013C0: 20 12 52 45 54 55 52 4E 92 20 54 4F 20 42 45 47 | .RETURN. TO BEG|
000013D0: 49 4E 2E 00 E8 17 8A F2 A1 54 24 3A 8B 54 24 B2 |IN.......T$:.T$.|
000013E0: 22 22 A7 36 32 30 39 30 00 F3 17 94 F2 89 36 30 |"".62090......60|
000013F0: 33 30 30 00 00 00 |300... |
.......:.59468,12.;.... SEARCH COPYRIGHT
(C) 1979 HAL CAREY.S.... 9002 BERCLAIR
RD..N.... HUNTSVILLE, AL 35802.T...:....
.. CURSOR #14 OCT 79...... BOX 550, GOLE
TA, CA. 93017...... LINES 61000-65000(C)
1979 CURSOR MAGAZINE.....:...... AS OF
NOV 14 79...Z.PG$."SEARCH":NM$."14":.620
00.2.D.MW.25:. MAX # WORDS.F.X..W$(MW.1)
,U%(MW),DX(MW),LOC(MW),DD$(MW),FT%(MW).S
...R..(.TI).....BL$."
".....E$."..".BL$.".
".M. ..I.1.8:.D(I):.......-41,-40,-39,-
1,1,39,40,41.....AL$."ABCDEFGHIJKLMNOPQR
STUVWXYZ".$....L$:.L$."".240.;.H.T.E(L$)
:L$.I(L$,1).V.R..I.1.T.1:AL$.AL$.L$:.I._
....190......5E,5T,5A,5O,5N,4R,4I,4S,4H,
4D,3L,3F,3C,3M,3U,2G,2Y,2P,2W,2B,.P...."
WANT TO SUPPLY YOUR OWN WORDS? ";:.60000
......H(IN$,1).."Y".390......"...WHAT IS
THE PUZZLE ABOUT? ";:.60000. ...SJ$.IN$
.N....".PLEASE ENTER THE WORDS (UP TO";M
W;".)..O."..".PRESS .RETURN. WHEN DONE..
|.,.N.1:ML.0...6..".WORD";N;".: ";:.6000
0...@..IN$."".N.1.310...E..IN$."".420...
T.Z.C(IN$):.I.1.Z:L$.J(IN$,I,1)...^..L$.
"A".L$."Z".."LETTERS ONLY, PLEASE.":.310
.".H..I:.Z.ML.ML.Z.A.R.W$(N).IN$:N.N.1:.
N..MW.310.J.|..420.B....SJ$.."".N.N.1:.4
20.T....SJ$:N.0:ML.0......W$:N.N.1:.W$."
".420.....W$(N).W$:Z.C(W$):.Z.ML.ML.Z...
..410.H...."."E$"... "......I.1.22:.".
. ":.......".."BL$" .. ."...B.ZL.1E5:ZT
.ZL:ZR.0:ZB.ZR.K.L.W$(N)."":N.N.1:.E$;"T
HE SUBJECT IS '";SJ$;"'.":TM.TI.200.^.V.
.X.1.N:DX(X).0.O....:NF.N:.1450.~....TI.
TM.485.....W.1:.E$......I.1.N:FT%(I).0:.
I.....F.0:.DX(W).910.K...W$.W$(W):.".. "
;W$.....U.0:.C.1.N:.DX(C)..0.U.U.1:U%(U)
.C......:.U.0.560.>.&.F.1:DX(W).D(1..(8.
.(1))):LC.33308..(.5.C(W$)).DX(W):.800.U
.0..I.1.U:R.1..(U..(1)):T.U%(I):U%(I).U%
(R):U%(R).T:....:..C.1.U:UC.U%(C):C$.W$(
UC)...D..L.1.C(W$)...N.L$.J(W$,L,1).B.X.
.Z.1.C(C$).S.B.Z$.J(C$,Z,1)...L..Z$..L$.
770...V.SS.J(C$,Z,C(W$)).W$......D.8.1..
1.....R..(.(1).D).1.7...T.D(R):D(R).D(D)
:D(D).T.C...DX(W).T.C...LC.LOC(UC).DX(UC
).Z.DX(W).L.X...Q9.B(LC):.LC,102......SS
.DX(UC).T.760...F..V.1.C(W$)...P..1620..
.Z.CH.B(LC.V.DX(W))......CH..32.CH..F(J(
W$,V,1)).64.760......V:.LC,Q9:.800......
LC,Q9:.D......Z......L......C:.910.G. ..
I.1.C(W$):.LC.I.DX(W),F(J(W$,I,1)).64:..
Y.*.LOC(W).LC:F.1.L.4..1670:DX.DX(W)...>
..DX.1.DD$." R "...H..DX..1.DD$." L "...
R..DX.40.DD$." D "...\..DX..40.DD$." U "
.V.F..DX..39.DD$."U-R"...P..DX..41.DD$."
U-L"...Z..DX.41.DD$."D-R"......DX.39.DD$
."D-L".<...DD$(W).DD$:FT%(W).F:W.W.1:NF.
NF.F.D....E$.R....NF.0.970.`....W..N.510
.}...F.0:.I.1.N:F.F.FT%(I):.I......F.0.4
90...J.ZT.ZT.8:ZB.ZB.8...T..E$;"SORTING
WORDS"......1530......E$"PUT IN PAPER, H
IT ANY KEY.......4,4:PD$.H(BL$,ML.1)....
..G$:.G$."".1030.@....E$"PRINTING ANSWER
";:.4,"ANSWER TO "SJ$:.4.U.$.I$."":P$."
":P2$." ":.I.1.ZR.ZL.1:I$.I(D(I),2)...
..P$.P$.H(I$,1)." ":P2$.P2$.I(I$,1)." ":
....8..4,P$:.4,P2$.Y.B..L.ZT.ZB.40:P$.G(
(L.ZT).40.65)." "...L..P.ZL.ZR:C.B(L.P):
L$."-":.C..32.L$.G(C.64).&.J.P$.P$.L$."
":.:.4,P$:.:.4.T.T.T$."START DIR WORD
S":.4,T$;J(PD$,6);T$...~.T$."-----------
-------":.4,T$;J(PD$,6);T$.....H..((N.1)
.2):.I.1.H.N...W.I:.1390:W.I.H:.W..N..4,
J(PD$,C(W$(I)));:.1390......4:.I:.4:.4..
....E$;"PRESS KEY FOR PUZZLE"...D..G$:.G
$."".1220...N..4:.4.J.X..E$"PRINTING PUZ
ZLE";:.4,"FIND"N;SJ$:.4:.4.`....L.ZT.ZB.
40:P$.""......P.ZL.ZR:C.B(L.P):L$.G(C.64
)......C.32.L$.J(AL$,.(.(1).C(AL$)).1,1)
.K...P$.P$.L$." ":.P:.4,P$:.L:.4:.4...2.
.I.1.H:.4,W$(I);J(PD$,C(W$(I)));W$(I.H):
.I...F..4:.4./.P. 4:."...WANT ANOTHER PU
ZZLE? ";:.60000.F.Z..H(IN$,1).."N".240.L
.D...T.N..DX(W).0..4,"DIDN'T FIT ";W$(W
);:....S.LL.LOC(W).DX(W).ZT.ZL:LY..(LL.4
0):LX.LL.40.LY...X..4," "G(LY.65)"-"I(D(
LX.1),2)" "DD$(W)" "W$(W);:..#....FRUI
TS,PASSIONFRUIT,GRAPEFRUIT,STRAWBERRY,CA
NTALOUPE,WATERMELON.M....NECTARINE,RASPB
ERRY,BLUEBERRY,TANGERINE,PINEAPPLE,MUSKM
ELON,HONEYDEW......APRICOT,COCONUT,RHUBA
RB,BANANA,ORANGE,CHERRY,PEACH,APPLE,GRAP
E,LEMON.I. ..PEAR,PLUM,"".T....N.2......
..W.2.N:W$.W$(W)......I.W.1.1..1:.C(W$).
.C(W$(I)).1500.'.R.W$(I.1).W$(I):.I:I.0.
;...W$(I.1).W$:.W:..F....N.2...Q....W.2.
N.|...W$.W$(W):DX.DX(W):DD$.DD$(W):LC.LO
C(W)......I.W.1.1..1:.W$..W$(I).1590..."
.J.I.1:W$(J).W$(I):DX(J).DX(I):DD$(J).DD
$(I):LOC(J).LOC(I):.I:I.0...6.J.I.1:W$(J
).W$:DX(J).DX:DD$(J).DD$:LOC(J).LC:.W:..
:.T.Q0.LC.V.DX(W):Q1.B(Q0):.Q0,160.P.R.Q
2.Q1.Q0:.Q0,Q1:..A.|.Q0.L.P:.1630.....CF
.LC.DX(W).8:CL.LC.C(W$).DX(W).8.....C0.4
0..(CF.40):CF.CF.C0.....C1.40..(CL.40):C
L.CL.C1.P....C0.ZT.ZT.C0......C0.ZB.ZB.C
0......C1.ZT.ZT.C1...B..C1.ZB.ZB.C1...L.
.CF.ZL.ZL.CF.%.V..CF.ZR.ZR.CF.6....CL.ZL
.ZL.CL.G....CL.ZR.ZR.CL.M.....N.`.IN$."
":ZT.TI:ZC.2:ZD$.G(20)...J..Z$:.Z$.."".6
0070...T..ZT..TI..J(" .",ZC,1);".";:ZC.3
.ZC:ZT.TI.15...~..60010.....Z.F(Z$):ZL.C
(IN$):.(Z.127).32.." .";:.60110......FL.
(Z.127).64.(Z.127).91.Z$.G((Z.128).255).
1....ZL.254.60010.L.D.IN$.IN$.Z$:.Z$;ZD$
;Z$;.K.N..Z.13.IN$.J(IN$,2):.CR$;:....X.
.Z.20.ZL.1.IN$.H(IN$,ZL.1):.".";:.60010.
J....Z.141.Z$.G(.20.(ZL.1)):.Z.2.ZL:.Z$;
:.Z:.60000.U....60010......".":.:CR$.G(1
3):.100...T..I.1.10:."....";:.I:..0.0.."
...";.9);"CURSOR #";NM$;" ";PG$.Z.:..".
COPYRIGHT (C) 1979 BY HAL CAREY..E.D..
60500...N..".CONSTRUCT WORD-SEARCH PUZZL
ES...X.."..THIS PROGRAM NEEDS A PRINTER!
".S...."...PRESS .RETURN. TO BEGIN......
.T$:.T$."".62090......60300...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL