Multiple names: SEARCH (PRINT), SEARCH

00000000: 01 04 30 04 00 00 9C 3A  97 35 39 34 36 38 2C 31  |..0....:.59468,1|
00000010: 32 3A 8B C2 28 31 29 B2  32 35 35 A7 94 22 53 45  |2:..(1).255.."SE|
00000020: 41 52 43 48 22 3A 24 58  2C 31 2C 22 42 41 54 22  |ARCH":$X,1,"BAT"|
00000030: 00 5A 04 01 00 8F 20 53  45 41 52 43 48 20 43 4F  |.Z.... SEARCH CO|
00000040: 50 59 52 49 47 48 54 20  28 43 29 20 31 39 37 39  |PYRIGHT (C) 1979|
00000050: 20 48 41 4C 20 43 41 52  45 59 00 72 04 02 00 8F  | HAL CAREY.r....|
00000060: 20 39 30 30 32 20 42 45  52 43 4C 41 49 52 20 52  | 9002 BERCLAIR R|
00000070: 44 2E 00 8D 04 03 00 8F  20 48 55 4E 54 53 56 49  |D....... HUNTSVI|
00000080: 4C 4C 45 2C 20 41 4C 20  33 35 38 30 32 00 93 04  |LLE, AL 35802...|
00000090: 04 00 3A 00 AB 04 05 00  8F 20 43 55 52 53 4F 52  |..:...... CURSOR|
000000A0: 20 23 31 34 20 4F 43 54  20 37 39 00 CC 04 06 00  | #14 OCT 79.....|
000000B0: 8F 20 42 4F 58 20 35 35  30 2C 20 47 4F 4C 45 54  |. BOX 550, GOLET|
000000C0: 41 2C 20 43 41 2E 20 39  33 30 31 37 00 FC 04 07  |A, CA. 93017....|
000000D0: 00 8F 20 4C 49 4E 45 53  20 36 31 30 30 30 2D 36  |.. LINES 61000-6|
000000E0: 35 30 30 30 28 43 29 20  31 39 37 39 20 43 55 52  |5000(C) 1979 CUR|
000000F0: 53 4F 52 20 4D 41 47 41  5A 49 4E 45 00 02 05 08  |SOR MAGAZINE....|
00000100: 00 3A 00 18 05 0A 00 8F  20 41 53 20 4F 46 20 4E  |.:...... AS OF N|
00000110: 4F 56 20 31 34 20 37 39  00 39 05 5A 00 50 47 24  |OV 14 79.9.Z.PG$|
00000120: B2 22 53 45 41 52 43 48  22 3A 4E 4D 24 B2 22 31  |."SEARCH":NM$."1|
00000130: 34 22 3A 8D 36 32 30 30  30 00 51 05 64 00 4D 57  |4":.62000.Q.d.MW|
00000140: B2 32 35 3A 8F 20 4D 41  58 20 23 20 57 4F 52 44  |.25:. MAX # WORD|
00000150: 53 00 85 05 78 00 86 57  24 28 4D 57 AA 31 29 2C  |S...x..W$(MW.1),|
00000160: 55 25 28 4D 57 29 2C 44  58 28 4D 57 29 2C 4C 4F  |U%(MW),DX(MW),LO|
00000170: 43 28 4D 57 29 2C 44 44  24 28 4D 57 29 2C 46 54  |C(MW),DD$(MW),FT|
00000180: 25 28 4D 57 29 00 92 05  82 00 52 B2 BB 28 AB 54  |%(MW).....R..(.T|
00000190: 49 29 00 C4 05 8C 00 42  4C 24 B2 22 20 20 20 20  |I).....BL$."    |
000001A0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000001B0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000001C0: 20 20 20 22 00 D9 05 91  00 45 24 B2 22 13 12 22  |   ".....E$.".."|
000001D0: AA 42 4C 24 AA 22 13 20  22 00 EC 05 A0 00 81 49  |.BL$.". "......I|
000001E0: B2 31 A4 38 3A 87 44 28  49 29 3A 82 00 0B 06 AA  |.1.8:.D(I):.....|
000001F0: 00 83 2D 34 31 2C 2D 34  30 2C 2D 33 39 2C 2D 31  |..-41,-40,-39,-1|
00000200: 2C 31 2C 33 39 2C 34 30  2C 34 31 00 30 06 B4 00  |,1,39,40,41.0...|
00000210: 41 4C 24 B2 22 41 42 43  44 45 46 47 48 49 4A 4B  |AL$."ABCDEFGHIJK|
00000220: 4C 4D 4E 4F 50 51 52 53  54 55 56 57 58 59 5A 22  |LMNOPQRSTUVWXYZ"|
00000230: 00 43 06 BE 00 87 4C 24  3A 8B 4C 24 B2 22 22 A7  |.C....L$:.L$."".|
00000240: 32 34 30 00 5A 06 C8 00  54 B2 C5 28 4C 24 29 3A  |240.Z...T..(L$):|
00000250: 4C 24 B2 C9 28 4C 24 2C  31 29 00 75 06 D2 00 81  |L$..(L$,1).u....|
00000260: 49 B2 31 A4 54 AB 31 3A  41 4C 24 B2 41 4C 24 AA  |I.1.T.1:AL$.AL$.|
00000270: 4C 24 3A 82 49 00 7E 06  DC 00 89 31 39 30 00 C0  |L$:.I.~....190..|
00000280: 06 E6 00 83 35 45 2C 35  54 2C 35 41 2C 35 4F 2C  |....5E,5T,5A,5O,|
00000290: 35 4E 2C 34 52 2C 34 49  2C 34 53 2C 34 48 2C 34  |5N,4R,4I,4S,4H,4|
000002A0: 44 2C 33 4C 2C 33 46 2C  33 43 2C 33 4D 2C 33 55  |D,3L,3F,3C,3M,3U|
000002B0: 2C 32 47 2C 32 59 2C 32  50 2C 32 57 2C 32 42 2C  |,2G,2Y,2P,2W,2B,|
000002C0: 00 EF 06 F0 00 99 22 57  41 4E 54 20 54 4F 20 53  |......"WANT TO S|
000002D0: 55 50 50 4C 59 20 59 4F  55 52 20 4F 57 4E 20 57  |UPPLY YOUR OWN W|
000002E0: 4F 52 44 53 3F 20 22 3B  3A 8D 36 30 30 30 30 00  |ORDS? ";:.60000.|
000002F0: 06 07 FA 00 8B C8 28 49  4E 24 2C 31 29 B3 B1 22  |......(IN$,1).."|
00000300: 59 22 A7 33 39 30 00 33  07 04 01 99 22 93 11 11  |Y".390.3...."...|
00000310: 57 48 41 54 20 49 53 20  54 48 45 20 50 55 5A 5A  |WHAT IS THE PUZZ|
00000320: 4C 45 20 41 42 4F 55 54  3F 20 22 3B 3A 8D 36 30  |LE ABOUT? ";:.60|
00000330: 30 30 30 00 3F 07 0E 01  53 4A 24 B2 49 4E 24 00  |000.?...SJ$.IN$.|
00000340: 6D 07 18 01 99 22 11 50  4C 45 41 53 45 20 45 4E  |m....".PLEASE EN|
00000350: 54 45 52 20 54 48 45 20  57 4F 52 44 53 20 28 55  |TER THE WORDS (U|
00000360: 50 20 54 4F 22 3B 4D 57  3B 22 9D 29 2E 00 8E 07  |P TO";MW;".)....|
00000370: 22 01 99 22 11 50 52 45  53 53 20 12 52 45 54 55  |"..".PRESS .RETU|
00000380: 52 4E 92 20 57 48 45 4E  20 44 4F 4E 45 2E 00 9B  |RN. WHEN DONE...|
00000390: 07 2C 01 4E B2 31 3A 4D  4C B2 30 00 B8 07 36 01  |.,.N.1:ML.0...6.|
000003A0: 99 22 11 57 4F 52 44 22  3B 4E 3B 22 9D 3A 20 22  |.".WORD";N;".: "|
000003B0: 3B 3A 8D 36 30 30 30 30  00 CC 07 40 01 8B 49 4E  |;:.60000...@..IN|
000003C0: 24 B2 22 22 AF 4E B2 31  A7 33 31 30 00 DC 07 45  |$."".N.1.310...E|
000003D0: 01 8B 49 4E 24 B2 22 22  A7 34 32 30 00 FE 07 54  |..IN$."".420...T|
000003E0: 01 5A B2 C3 28 49 4E 24  29 3A 81 49 B2 31 A4 5A  |.Z..(IN$):.I.1.Z|
000003F0: 3A 4C 24 B2 CA 28 49 4E  24 2C 49 2C 31 29 00 2F  |:L$..(IN$,I,1)./|
00000400: 08 5E 01 8B 4C 24 B3 22  41 22 B0 4C 24 B1 22 5A  |.^..L$."A".L$."Z|
00000410: 22 A7 99 22 4C 45 54 54  45 52 53 20 4F 4E 4C 59  |".."LETTERS ONLY|
00000420: 2C 20 50 4C 45 41 53 45  2E 22 3A 89 33 31 30 00  |, PLEASE.":.310.|
00000430: 41 08 68 01 82 49 3A 8B  5A B1 4D 4C A7 4D 4C B2  |A.h..I:.Z.ML.ML.|
00000440: 5A 00 60 08 72 01 57 24  28 4E 29 B2 49 4E 24 3A  |Z.`.r.W$(N).IN$:|
00000450: 4E B2 4E AA 31 3A 8B 4E  B3 B2 4D 57 A7 33 31 30  |N.N.1:.N..MW.310|
00000460: 00 69 08 7C 01 89 34 32  30 00 81 08 86 01 8B 53  |.i.|..420......S|
00000470: 4A 24 B3 B1 22 22 A7 4E  B2 4E AA 31 3A 89 34 32  |J$.."".N.N.1:.42|
00000480: 30 00 93 08 90 01 87 53  4A 24 3A 4E B2 30 3A 4D  |0......SJ$:N.0:M|
00000490: 4C B2 30 00 AC 08 9A 01  87 57 24 3A 4E B2 4E AA  |L.0......W$:N.N.|
000004A0: 31 3A 8B 57 24 B2 22 22  A7 34 32 30 00 CC 08 9D  |1:.W$."".420....|
000004B0: 01 57 24 28 4E 29 B2 57  24 3A 5A B2 C3 28 57 24  |.W$(N).W$:Z..(W$|
000004C0: 29 3A 8B 5A B1 4D 4C A7  4D 4C B2 5A 00 D5 08 A0  |):.Z.ML.ML.Z....|
000004D0: 01 89 34 31 30 00 E7 08  A4 01 99 22 93 22 45 24  |..410......"."E$|
000004E0: 22 11 9D 9D 20 20 22 00  FD 08 AE 01 81 49 B2 31  |"...  "......I.1|
000004F0: A4 32 32 3A 99 22 9D 12  20 20 22 3A 82 00 11 09  |.22:."..  ":....|
00000500: B8 01 99 22 9D 12 22 42  4C 24 22 20 9D 94 20 13  |...".."BL$" .. .|
00000510: 22 00 2D 09 C2 01 5A 4C  B2 31 45 35 3A 5A 54 B2  |".-...ZL.1E5:ZT.|
00000520: 5A 4C 3A 5A 52 B2 30 3A  5A 42 B2 5A 52 00 6A 09  |ZL:ZR.0:ZB.ZR.j.|
00000530: CC 01 57 24 28 4E 29 B2  22 22 3A 4E B2 4E AB 31  |..W$(N)."":N.N.1|
00000540: 3A 99 45 24 3B 22 54 48  45 20 53 55 42 4A 45 43  |:.E$;"THE SUBJEC|
00000550: 54 20 49 53 20 27 22 3B  53 4A 24 3B 22 27 2E 22  |T IS '";SJ$;"'."|
00000560: 3A 54 4D B2 54 49 AA 32  30 30 00 7D 09 D6 01 81  |:TM.TI.200.}....|
00000570: 58 B2 31 A4 4E 3A 44 58  28 58 29 B2 30 00 8E 09  |X.1.N:DX(X).0...|
00000580: E0 01 82 3A 4E 46 B2 4E  3A 8D 31 34 35 30 00 9D  |...:NF.N:.1450..|
00000590: 09 E5 01 8B 54 49 B3 54  4D A7 34 38 35 00 A9 09  |....TI.TM.485...|
000005A0: EA 01 57 B2 31 3A 99 45  24 00 C0 09 F4 01 81 49  |..W.1:.E$......I|
000005B0: B2 31 A4 4E 3A 46 54 25  28 49 29 B2 30 3A 82 49  |.1.N:FT%(I).0:.I|
000005C0: 00 D3 09 FE 01 46 B2 30  3A 8B 44 58 28 57 29 A7  |.....F.0:.DX(W).|
000005D0: 39 31 30 00 EA 09 08 02  57 24 B2 57 24 28 57 29  |910.....W$.W$(W)|
000005E0: 3A 99 22 13 12 20 22 3B  57 24 00 11 0A 12 02 55  |:.".. ";W$.....U|
000005F0: B2 30 3A 81 43 B2 31 A4  4E 3A 8B 44 58 28 43 29  |.0:.C.1.N:.DX(C)|
00000600: B3 B1 30 A7 55 B2 55 AA  31 3A 55 25 28 55 29 B2  |..0.U.U.1:U%(U).|
00000610: 43 00 20 0A 1C 02 82 3A  8B 55 B1 30 A7 35 36 30  |C. ....:.U.0.560|
00000620: 00 5D 0A 26 02 46 B2 31  3A 44 58 28 57 29 B2 44  |.].&.F.1:DX(W).D|
00000630: 28 31 AA B5 28 38 AC BB  28 31 29 29 29 3A 4C 43  |(1..(8..(1))):LC|
00000640: B2 33 33 33 30 38 AB B5  28 2E 35 AC C3 28 57 24  |.33308..(.5..(W$|
00000650: 29 29 AC 44 58 28 57 29  3A 89 38 30 30 00 94 0A  |)).DX(W):.800...|
00000660: 30 02 81 49 B2 31 A4 55  3A 52 B2 31 AA B5 28 55  |0..I.1.U:R.1..(U|
00000670: AC BB 28 31 29 29 3A 54  B2 55 25 28 49 29 3A 55  |..(1)):T.U%(I):U|
00000680: 25 28 49 29 B2 55 25 28  52 29 3A 55 25 28 52 29  |%(I).U%(R):U%(R)|
00000690: B2 54 3A 82 00 B2 0A 3A  02 81 43 B2 31 A4 55 3A  |.T:....:..C.1.U:|
000006A0: 55 43 B2 55 25 28 43 29  3A 43 24 B2 57 24 28 55  |UC.U%(C):C$.W$(U|
000006B0: 43 29 00 C1 0A 44 02 81  4C B2 31 A4 C3 28 57 24  |C)...D..L.1..(W$|
000006C0: 29 00 D2 0A 4E 02 4C 24  B2 CA 28 57 24 2C 4C 2C  |)...N.L$..(W$,L,|
000006D0: 31 29 00 E1 0A 58 02 81  5A B2 31 A4 C3 28 43 24  |1)...X..Z.1..(C$|
000006E0: 29 00 F2 0A 62 02 5A 24  B2 CA 28 43 24 2C 5A 2C  |)...b.Z$..(C$,Z,|
000006F0: 31 29 00 02 0B 6C 02 8B  5A 24 B3 B1 4C 24 89 37  |1)...l..Z$..L$.7|
00000700: 37 30 00 1A 0B 76 02 53  53 B2 CA 28 43 24 2C 5A  |70...v.SS..(C$,Z|
00000710: 2C C3 28 57 24 29 29 B2  57 24 00 28 0B 80 02 81  |,.(W$)).W$.(....|
00000720: 44 B2 38 A4 31 A9 AB 31  00 3A 0B 8A 02 52 B2 B5  |D.8.1..1.:...R..|
00000730: 28 BB 28 31 29 AC 44 29  AA 31 00 56 0B 94 02 54  |(.(1).D).1.V...T|
00000740: B2 44 28 52 29 3A 44 28  52 29 B2 44 28 44 29 3A  |.D(R):D(R).D(D):|
00000750: 44 28 44 29 B2 54 00 62  0B 9E 02 44 58 28 57 29  |D(D).T.b...DX(W)|
00000760: B2 54 00 82 0B A8 02 4C  43 B2 4C 4F 43 28 55 43  |.T.....LC.LOC(UC|
00000770: 29 AA 44 58 28 55 43 29  AC 5A AB 44 58 28 57 29  |).DX(UC).Z.DX(W)|
00000780: AC 4C 00 97 0B B2 02 51  39 B2 C2 28 4C 43 29 3A  |.L.....Q9..(LC):|
00000790: 97 4C 43 2C 31 30 32 00  AC 0B BC 02 8B 53 53 AF  |.LC,102......SS.|
000007A0: 44 58 28 55 43 29 B2 54  A7 37 36 30 00 BB 0B C6  |DX(UC).T.760....|
000007B0: 02 81 56 B2 31 A4 C3 28  57 24 29 00 C5 0B D0 02  |..V.1..(W$).....|
000007C0: 8D 31 36 32 30 00 DA 0B  DA 02 43 48 B2 C2 28 4C  |.1620.....CH..(L|
000007D0: 43 AA 56 AC 44 58 28 57  29 29 00 FE 0B E4 02 8B  |C.V.DX(W))......|
000007E0: 43 48 B3 B1 33 32 AF 43  48 B3 B1 C6 28 CA 28 57  |CH..32.CH...(.(W|
000007F0: 24 2C 56 2C 31 29 29 AB  36 34 A7 37 36 30 00 11  |$,V,1)).64.760..|
00000800: 0C EE 02 82 56 3A 97 4C  43 2C 51 39 3A 89 38 30  |....V:.LC,Q9:.80|
00000810: 30 00 1F 0C F8 02 97 4C  43 2C 51 39 3A 82 44 00  |0......LC,Q9:.D.|
00000820: 26 0C 02 03 82 5A 00 2D  0C 0C 03 82 4C 00 39 0C  |&....Z.-....L.9.|
00000830: 16 03 82 43 3A 89 39 31  30 00 66 0C 20 03 81 49  |...C:.910.f. ..I|
00000840: B2 31 A4 C3 28 57 24 29  3A 97 4C 43 AA 49 AC 44  |.1..(W$):.LC.I.D|
00000850: 58 28 57 29 2C C6 28 CA  28 57 24 2C 49 2C 31 29  |X(W),.(.(W$,I,1)|
00000860: 29 AB 36 34 3A 82 00 78  0C 2A 03 4C 4F 43 28 57  |).64:..x.*.LOC(W|
00000870: 29 B2 4C 43 3A 46 B2 31  00 8B 0C 34 03 8D 31 36  |).LC:F.1...4..16|
00000880: 37 30 3A 44 58 B2 44 58  28 57 29 00 9F 0C 3E 03  |70:DX.DX(W)...>.|
00000890: 8B 44 58 B2 31 A7 44 44  24 B2 22 20 52 20 22 00  |.DX.1.DD$." R ".|
000008A0: B4 0C 48 03 8B 44 58 B2  AB 31 A7 44 44 24 B2 22  |..H..DX..1.DD$."|
000008B0: 20 4C 20 22 00 C9 0C 52  03 8B 44 58 B2 34 30 A7  | L "...R..DX.40.|
000008C0: 44 44 24 B2 22 20 44 20  22 00 DF 0C 5C 03 8B 44  |DD$." D "...\..D|
000008D0: 58 B2 AB 34 30 A7 44 44  24 B2 22 20 55 20 22 00  |X..40.DD$." U ".|
000008E0: F5 0C 66 03 8B 44 58 B2  AB 33 39 A7 44 44 24 B2  |..f..DX..39.DD$.|
000008F0: 22 55 2D 52 22 00 0B 0D  70 03 8B 44 58 B2 AB 34  |"U-R"...p..DX..4|
00000900: 31 A7 44 44 24 B2 22 55  2D 4C 22 00 20 0D 7A 03  |1.DD$."U-L". .z.|
00000910: 8B 44 58 B2 34 31 A7 44  44 24 B2 22 44 2D 52 22  |.DX.41.DD$."D-R"|
00000920: 00 35 0D 84 03 8B 44 58  B2 33 39 A7 44 44 24 B2  |.5....DX.39.DD$.|
00000930: 22 44 2D 4C 22 00 5B 0D  8E 03 44 44 24 28 57 29  |"D-L".[...DD$(W)|
00000940: B2 44 44 24 3A 46 54 25  28 57 29 B2 46 3A 57 B2  |.DD$:FT%(W).F:W.|
00000950: 57 AA 31 3A 4E 46 B2 4E  46 AB 46 00 63 0D 98 03  |W.1:NF.NF.F.c...|
00000960: 99 45 24 00 71 0D A2 03  8B 4E 46 B2 30 A7 39 37  |.E$.q....NF.0.97|
00000970: 30 00 7F 0D AC 03 8B 57  B3 B2 4E A7 35 31 30 00  |0......W..N.510.|
00000980: 9C 0D B6 03 46 B2 30 3A  81 49 B2 31 A4 4E 3A 46  |....F.0:.I.1.N:F|
00000990: B2 46 AA 46 54 25 28 49  29 3A 82 49 00 A9 0D C0  |.F.FT%(I):.I....|
000009A0: 03 8B 46 B1 30 A7 34 39  30 00 BD 0D CA 03 5A 54  |..F.0.490.....ZT|
000009B0: B2 5A 54 AA 38 3A 5A 42  B2 5A 42 AA 38 00 D5 0D  |.ZT.8:ZB.ZB.8...|
000009C0: D4 03 99 45 24 3B 22 53  4F 52 54 49 4E 47 20 57  |...E$;"SORTING W|
000009D0: 4F 52 44 53 22 00 DF 0D  DE 03 8D 31 35 33 30 00  |ORDS"......1530.|
000009E0: 02 0E E8 03 99 45 24 22  50 55 54 20 49 4E 20 50  |.....E$"PUT IN P|
000009F0: 41 50 45 52 2C 20 48 49  54 20 41 4E 59 20 4B 45  |APER, HIT ANY KE|
00000A00: 59 2E 00 1B 0E FC 03 9F  34 2C 34 3A 50 44 24 B2  |Y.......4,4:PD$.|
00000A10: C8 28 42 4C 24 2C 4D 4C  AA 31 29 00 2F 0E 06 04  |.(BL$,ML.1)./...|
00000A20: A1 47 24 3A 8B 47 24 B2  22 22 89 31 30 33 30 00  |.G$:.G$."".1030.|
00000A30: 5F 0E 10 04 99 45 24 22  50 52 49 4E 54 49 4E 47  |_....E$"PRINTING|
00000A40: 20 41 4E 53 57 45 52 22  3B 3A 98 34 2C 22 41 4E  | ANSWER";:.4,"AN|
00000A50: 53 57 45 52 20 54 4F 20  22 53 4A 24 3A 98 34 00  |SWER TO "SJ$:.4.|
00000A60: 94 0E 24 04 49 24 B2 22  22 3A 50 24 B2 22 20 20  |..$.I$."":P$."  |
00000A70: 22 3A 50 32 24 B2 22 20  20 22 3A 81 49 B2 31 A4  |":P2$."  ":.I.1.|
00000A80: 5A 52 AB 5A 4C AA 31 3A  49 24 B2 C9 28 C4 28 49  |ZR.ZL.1:I$..(.(I|
00000A90: 29 2C 32 29 00 C0 0E 2E  04 50 24 B2 50 24 AA C8  |),2).....P$.P$..|
00000AA0: 28 49 24 2C 31 29 AA 22  20 22 3A 50 32 24 B2 50  |(I$,1)." ":P2$.P|
00000AB0: 32 24 AA C9 28 49 24 2C  31 29 AA 22 20 22 3A 82  |2$..(I$,1)." ":.|
00000AC0: 00 D1 0E 38 04 98 34 2C  50 24 3A 98 34 2C 50 32  |...8..4,P$:.4,P2|
00000AD0: 24 00 F8 0E 42 04 81 4C  B2 5A 54 A4 5A 42 A9 34  |$...B..L.ZT.ZB.4|
00000AE0: 30 3A 50 24 B2 C7 28 28  4C AB 5A 54 29 AD 34 30  |0:P$..((L.ZT).40|
00000AF0: AA 36 35 29 AA 22 20 22  00 27 0F 4C 04 81 50 B2  |.65)." ".'.L..P.|
00000B00: 5A 4C A4 5A 52 3A 43 B2  C2 28 4C AA 50 29 3A 4C  |ZL.ZR:C..(L.P):L|
00000B10: 24 B2 22 2D 22 3A 8B 43  B3 B1 33 32 A7 4C 24 B2  |$."-":.C..32.L$.|
00000B20: C7 28 43 AA 36 34 29 00  45 0F 6A 04 50 24 B2 50  |.(C.64).E.j.P$.P|
00000B30: 24 AA 4C 24 AA 22 20 22  3A 82 3A 98 34 2C 50 24  |$.L$." ":.:.4,P$|
00000B40: 3A 82 3A 98 34 00 73 0F  74 04 54 24 B2 22 53 54  |:.:.4.s.t.T$."ST|
00000B50: 41 52 54 20 20 44 49 52  20 20 20 57 4F 52 44 53  |ART  DIR   WORDS|
00000B60: 22 3A 98 34 2C 54 24 3B  CA 28 50 44 24 2C 36 29  |":.4,T$;.(PD$,6)|
00000B70: 3B 54 24 00 A1 0F 7E 04  54 24 B2 22 2D 2D 2D 2D  |;T$...~.T$."----|
00000B80: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 22 3A  |--------------":|
00000B90: 98 34 2C 54 24 3B CA 28  50 44 24 2C 36 29 3B 54  |.4,T$;.(PD$,6);T|
00000BA0: 24 00 B9 0F 88 04 48 B2  B5 28 28 4E AA 31 29 AD  |$.....H..((N.1).|
00000BB0: 32 29 3A 81 49 B2 31 A4  48 00 ED 0F 92 04 57 B2  |2):.I.1.H.....W.|
00000BC0: 49 3A 8D 31 33 39 30 3A  57 B2 49 AA 48 3A 8B 57  |I:.1390:W.I.H:.W|
00000BD0: B3 B2 4E A7 98 34 2C CA  28 50 44 24 2C C3 28 57  |..N..4,.(PD$,.(W|
00000BE0: 24 28 49 29 29 29 3B 3A  8D 31 33 39 30 00 FD 0F  |$(I)));:.1390...|
00000BF0: A6 04 98 34 3A 82 49 3A  98 34 3A 98 34 00 1C 10  |...4:.I:.4:.4...|
00000C00: BA 04 99 45 24 3B 22 50  52 45 53 53 20 4B 45 59  |...E$;"PRESS KEY|
00000C10: 20 46 4F 52 20 50 55 5A  5A 4C 45 22 00 30 10 C4  | FOR PUZZLE".0..|
00000C20: 04 A1 47 24 3A 8B 47 24  B2 22 22 89 31 32 32 30  |..G$:.G$."".1220|
00000C30: 00 3A 10 CE 04 98 34 3A  98 34 00 69 10 D8 04 99  |.:....4:.4.i....|
00000C40: 45 24 22 50 52 49 4E 54  49 4E 47 20 50 55 5A 5A  |E$"PRINTING PUZZ|
00000C50: 4C 45 22 3B 3A 98 34 2C  22 46 49 4E 44 22 4E 3B  |LE";:.4,"FIND"N;|
00000C60: 53 4A 24 3A 98 34 3A 98  34 00 7F 10 E2 04 81 4C  |SJ$:.4:.4......L|
00000C70: B2 5A 54 A4 5A 42 A9 34  30 3A 50 24 B2 22 22 00  |.ZT.ZB.40:P$."".|
00000C80: A0 10 F6 04 81 50 B2 5A  4C A4 5A 52 3A 43 B2 C2  |.....P.ZL.ZR:C..|
00000C90: 28 4C AA 50 29 3A 4C 24  B2 C7 28 43 AA 36 34 29  |(L.P):L$..(C.64)|
00000CA0: 00 C7 10 0A 05 8B 43 B2  33 32 A7 4C 24 B2 CA 28  |......C.32.L$..(|
00000CB0: 41 4C 24 2C B5 28 BB 28  31 29 AC C3 28 41 4C 24  |AL$,.(.(1)..(AL$|
00000CC0: 29 29 AA 31 2C 31 29 00  EA 10 14 05 50 24 B2 50  |)).1,1).....P$.P|
00000CD0: 24 AA 4C 24 AA 22 20 22  3A 82 50 3A 98 34 2C 50  |$.L$." ":.P:.4,P|
00000CE0: 24 3A 82 4C 3A 98 34 3A  98 34 00 19 11 32 05 81  |$:.L:.4:.4...2..|
00000CF0: 49 B2 31 A4 48 3A 98 34  2C 57 24 28 49 29 3B CA  |I.1.H:.4,W$(I);.|
00000D00: 28 50 44 24 2C C3 28 57  24 28 49 29 29 29 3B 57  |(PD$,.(W$(I)));W|
00000D10: 24 28 49 AA 48 29 3A 82  49 00 23 11 46 05 98 34  |$(I.H):.I.#.F..4|
00000D20: 3A 98 34 00 4E 11 50 05  A0 34 3A 99 22 93 11 11  |:.4.N.P..4:."...|
00000D30: 57 41 4E 54 20 41 4E 4F  54 48 45 52 20 50 55 5A  |WANT ANOTHER PUZ|
00000D40: 5A 4C 45 3F 20 22 3B 3A  8D 36 30 30 30 30 00 65  |ZLE? ";:.60000.e|
00000D50: 11 5A 05 8B C8 28 49 4E  24 2C 31 29 B3 B1 22 4E  |.Z...(IN$,1).."N|
00000D60: 22 A7 32 34 30 00 6B 11  64 05 80 00 93 11 6E 05  |".240.k.d.....n.|
00000D70: 8B 44 58 28 57 29 B2 30  A7 98 34 2C 22 44 49 44  |.DX(W).0..4,"DID|
00000D80: 4E 27 54 20 46 49 54 20  20 22 3B 57 24 28 57 29  |N'T FIT  ";W$(W)|
00000D90: 3B 3A 8E 00 C5 11 73 05  4C 4C B2 4C 4F 43 28 57  |;:....s.LL.LOC(W|
00000DA0: 29 AA 44 58 28 57 29 AB  5A 54 AB 5A 4C 3A 4C 59  |).DX(W).ZT.ZL:LY|
00000DB0: B2 B5 28 4C 4C AD 34 30  29 3A 4C 58 B2 4C 4C AB  |..(LL.40):LX.LL.|
00000DC0: 34 30 AC 4C 59 00 FD 11  78 05 98 34 2C 22 20 22  |40.LY...x..4," "|
00000DD0: C7 28 4C 59 AA 36 35 29  22 2D 22 C9 28 C4 28 4C  |.(LY.65)"-".(.(L|
00000DE0: 58 AA 31 29 2C 32 29 22  20 20 22 44 44 24 28 57  |X.1),2)"  "DD$(W|
00000DF0: 29 22 20 20 22 57 24 28  57 29 3B 3A 8E 00 42 12  |)"  "W$(W);:..B.|
00000E00: 82 05 83 46 52 55 49 54  53 2C 50 41 53 53 49 4F  |...FRUITS,PASSIO|
00000E10: 4E 46 52 55 49 54 2C 47  52 41 50 45 46 52 55 49  |NFRUIT,GRAPEFRUI|
00000E20: 54 2C 53 54 52 41 57 42  45 52 52 59 2C 43 41 4E  |T,STRAWBERRY,CAN|
00000E30: 54 41 4C 4F 55 50 45 2C  57 41 54 45 52 4D 45 4C  |TALOUPE,WATERMEL|
00000E40: 4F 4E 00 8C 12 8C 05 83  4E 45 43 54 41 52 49 4E  |ON......NECTARIN|
00000E50: 45 2C 52 41 53 50 42 45  52 52 59 2C 42 4C 55 45  |E,RASPBERRY,BLUE|
00000E60: 42 45 52 52 59 2C 54 41  4E 47 45 52 49 4E 45 2C  |BERRY,TANGERINE,|
00000E70: 50 49 4E 45 41 50 50 4C  45 2C 4D 55 53 4B 4D 45  |PINEAPPLE,MUSKME|
00000E80: 4C 4F 4E 2C 48 4F 4E 45  59 44 45 57 00 D6 12 96  |LON,HONEYDEW....|
00000E90: 05 83 41 50 52 49 43 4F  54 2C 43 4F 43 4F 4E 55  |..APRICOT,COCONU|
00000EA0: 54 2C 52 48 55 42 41 52  42 2C 42 41 4E 41 4E 41  |T,RHUBARB,BANANA|
00000EB0: 2C 4F 52 41 4E 47 45 2C  43 48 45 52 52 59 2C 50  |,ORANGE,CHERRY,P|
00000EC0: 45 41 43 48 2C 41 50 50  4C 45 2C 47 52 41 50 45  |EACH,APPLE,GRAPE|
00000ED0: 2C 4C 45 4D 4F 4E 00 E8  12 A0 05 83 50 45 41 52  |,LEMON......PEAR|
00000EE0: 2C 50 4C 55 4D 2C 22 22  00 F3 12 AA 05 8B 4E B3  |,PLUM,""......N.|
00000EF0: 32 A7 8E 00 07 13 B4 05  81 57 B2 32 A4 4E 3A 57  |2........W.2.N:W|
00000F00: 24 B2 57 24 28 57 29 00  2D 13 BE 05 81 49 B2 57  |$.W$(W).-....I.W|
00000F10: AB 31 A4 31 A9 AB 31 3A  8B C3 28 57 24 29 B3 B2  |.1.1..1:..(W$)..|
00000F20: C3 28 57 24 28 49 29 29  A7 31 35 30 30 00 46 13  |.(W$(I)).1500.F.|
00000F30: D2 05 57 24 28 49 AA 31  29 B2 57 24 28 49 29 3A  |..W$(I.1).W$(I):|
00000F40: 82 49 3A 49 B2 30 00 5A  13 DC 05 57 24 28 49 AA  |.I:I.0.Z...W$(I.|
00000F50: 31 29 B2 57 24 3A 82 57  3A 8E 00 65 13 FA 05 8B  |1).W$:.W:..e....|
00000F60: 4E B3 32 A7 8E 00 70 13  FF 05 81 57 B2 32 A4 4E  |N.2...p....W.2.N|
00000F70: 00 9B 13 04 06 57 24 B2  57 24 28 57 29 3A 44 58  |.....W$.W$(W):DX|
00000F80: B2 44 58 28 57 29 3A 44  44 24 B2 44 44 24 28 57  |.DX(W):DD$.DD$(W|
00000F90: 29 3A 4C 43 B2 4C 4F 43  28 57 29 00 BB 13 0E 06  |):LC.LOC(W).....|
00000FA0: 81 49 B2 57 AB 31 A4 31  A9 AB 31 3A 8B 57 24 B1  |.I.W.1.1..1:.W$.|
00000FB0: B2 57 24 28 49 29 A7 31  35 39 30 00 00 14 22 06  |.W$(I).1590...".|
00000FC0: 4A B2 49 AA 31 3A 57 24  28 4A 29 B2 57 24 28 49  |J.I.1:W$(J).W$(I|
00000FD0: 29 3A 44 58 28 4A 29 B2  44 58 28 49 29 3A 44 44  |):DX(J).DX(I):DD|
00000FE0: 24 28 4A 29 B2 44 44 24  28 49 29 3A 4C 4F 43 28  |$(J).DD$(I):LOC(|
00000FF0: 4A 29 B2 4C 4F 43 28 49  29 3A 82 49 3A 49 B2 30  |J).LOC(I):.I:I.0|
00001000: 00 36 14 36 06 4A B2 49  AA 31 3A 57 24 28 4A 29  |.6.6.J.I.1:W$(J)|
00001010: B2 57 24 3A 44 58 28 4A  29 B2 44 58 3A 44 44 24  |.W$:DX(J).DX:DD$|
00001020: 28 4A 29 B2 44 44 24 3A  4C 4F 43 28 4A 29 B2 4C  |(J).DD$:LOC(J).L|
00001030: 43 3A 82 57 3A 8E 00 59  14 54 06 51 30 B2 4C 43  |C:.W:..Y.T.Q0.LC|
00001040: AA 56 AC 44 58 28 57 29  3A 51 31 B2 C2 28 51 30  |.V.DX(W):Q1..(Q0|
00001050: 29 3A 97 51 30 2C 31 36  30 00 6F 14 72 06 51 32  |):.Q0,160.o.r.Q2|
00001060: B2 51 31 AC 51 30 3A 97  51 30 2C 51 31 3A 8E 00  |.Q1.Q0:.Q0,Q1:..|
00001070: 80 14 7C 06 51 30 B2 4C  AA 50 3A 89 31 36 33 30  |..|.Q0.L.P:.1630|
00001080: 00 A6 14 86 06 43 46 B2  4C 43 AA 44 58 28 57 29  |.....CF.LC.DX(W)|
00001090: AB 38 3A 43 4C B2 4C 43  AA C3 28 57 24 29 AC 44  |.8:CL.LC..(W$).D|
000010A0: 58 28 57 29 AB 38 00 C2  14 90 06 43 30 B2 34 30  |X(W).8.....C0.40|
000010B0: AC B5 28 43 46 AD 34 30  29 3A 43 46 B2 43 46 AB  |..(CF.40):CF.CF.|
000010C0: 43 30 00 DE 14 9A 06 43  31 B2 34 30 AC B5 28 43  |C0.....C1.40..(C|
000010D0: 4C AD 34 30 29 3A 43 4C  B2 43 4C AB 43 31 00 EF  |L.40):CL.CL.C1..|
000010E0: 14 A4 06 8B 43 30 B3 5A  54 A7 5A 54 B2 43 30 00  |....C0.ZT.ZT.C0.|
000010F0: 00 15 AE 06 8B 43 30 B1  5A 42 A7 5A 42 B2 43 30  |.....C0.ZB.ZB.C0|
00001100: 00 11 15 B8 06 8B 43 31  B3 5A 54 A7 5A 54 B2 43  |......C1.ZT.ZT.C|
00001110: 31 00 22 15 C2 06 8B 43  31 B1 5A 42 A7 5A 42 B2  |1."....C1.ZB.ZB.|
00001120: 43 31 00 33 15 CC 06 8B  43 46 B3 5A 4C A7 5A 4C  |C1.3....CF.ZL.ZL|
00001130: B2 43 46 00 44 15 D6 06  8B 43 46 B1 5A 52 A7 5A  |.CF.D....CF.ZR.Z|
00001140: 52 B2 43 46 00 55 15 E0  06 8B 43 4C B3 5A 4C A7  |R.CF.U....CL.ZL.|
00001150: 5A 4C B2 43 4C 00 66 15  EA 06 8B 43 4C B1 5A 52  |ZL.CL.f....CL.ZR|
00001160: A7 5A 52 B2 43 4C 00 6C  15 F4 06 8E 00 8D 15 60  |.ZR.CL.l.......`|
00001170: EA 49 4E 24 B2 22 20 22  3A 5A 54 B2 54 49 3A 5A  |.IN$." ":ZT.TI:Z|
00001180: 43 B2 32 3A 5A 44 24 B2  C7 28 32 30 29 00 A3 15  |C.2:ZD$..(20)...|
00001190: 6A EA A1 5A 24 3A 8B 5A  24 B3 B1 22 22 A7 36 30  |j..Z$:.Z$.."".60|
000011A0: 30 37 30 00 D3 15 74 EA  8B 5A 54 B3 B2 54 49 A7  |070...t..ZT..TI.|
000011B0: 99 CA 28 22 20 A6 22 2C  5A 43 2C 31 29 3B 22 9D  |..(" .",ZC,1);".|
000011C0: 22 3B 3A 5A 43 B2 33 AB  5A 43 3A 5A 54 B2 54 49  |";:ZC.3.ZC:ZT.TI|
000011D0: AA 31 35 00 DE 15 7E EA  89 36 30 30 31 30 00 0E  |.15...~..60010..|
000011E0: 16 A6 EA 5A B2 C6 28 5A  24 29 3A 5A 4C B2 C3 28  |...Z..(Z$):ZL..(|
000011F0: 49 4E 24 29 3A 8B 28 5A  AF 31 32 37 29 B3 33 32  |IN$):.(Z.127).32|
00001200: A7 99 22 20 9D 22 3B 3A  89 36 30 31 31 30 00 3E  |.." .";:.60110.>|
00001210: 16 B0 EA 8B 46 4C AF 28  5A AF 31 32 37 29 B1 36  |....FL.(Z.127).6|
00001220: 34 AF 28 5A AF 31 32 37  29 B3 39 31 A7 5A 24 B2  |4.(Z.127).91.Z$.|
00001230: C7 28 28 5A AA 31 32 38  29 AF 32 35 35 29 00 50  |.((Z.128).255).P|
00001240: 16 BA EA 8B 5A 4C B1 32  35 34 A7 36 30 30 31 30  |....ZL.254.60010|
00001250: 00 6B 16 C4 EA 49 4E 24  B2 49 4E 24 AA 5A 24 3A  |.k...IN$.IN$.Z$:|
00001260: 99 5A 24 3B 5A 44 24 3B  5A 24 3B 00 8A 16 CE EA  |.Z$;ZD$;Z$;.....|
00001270: 8B 5A B2 31 33 A7 49 4E  24 B2 CA 28 49 4E 24 2C  |.Z.13.IN$..(IN$,|
00001280: 32 29 3A 99 43 52 24 3B  3A 8E 00 B6 16 D8 EA 8B  |2):.CR$;:.......|
00001290: 5A B2 32 30 AF 5A 4C B1  31 A7 49 4E 24 B2 C8 28  |Z.20.ZL.1.IN$..(|
000012A0: 49 4E 24 2C 5A 4C AB 31  29 3A 99 22 9D 22 3B 3A  |IN$,ZL.1):.".";:|
000012B0: 89 36 30 30 31 30 00 E9  16 E2 EA 8B 5A B2 31 34  |.60010......Z.14|
000012C0: 31 A7 5A 24 B2 C7 28 AB  32 30 AC 28 5A 4C B1 31  |1.Z$..(.20.(ZL.1|
000012D0: 29 29 3A 81 5A B2 32 A4  5A 4C 3A 99 5A 24 3B 3A  |)):.Z.2.ZL:.Z$;:|
000012E0: 82 5A 3A 89 36 30 30 30  30 00 F4 16 EC EA 89 36  |.Z:.60000......6|
000012F0: 30 30 31 30 00 0E 17 8C  EB 99 22 93 22 3A 9C 3A  |0010......".":.:|
00001300: 43 52 24 B2 C7 28 31 33  29 3A 89 31 30 30 00 28  |CR$..(13):.100.(|
00001310: 17 54 EC 81 49 B2 31 A4  31 30 3A 99 22 C0 C0 C0  |.T..I.1.10:."...|
00001320: C0 22 3B 3A 82 49 3A 8E  00 4F 17 30 F2 99 22 93  |.";:.I:..O.0..".|
00001330: 11 11 22 3B A3 39 29 3B  22 43 55 52 53 4F 52 20  |..";.9);"CURSOR |
00001340: 23 22 3B 4E 4D 24 3B 22  20 20 22 3B 50 47 24 00  |#";NM$;"  ";PG$.|
00001350: 79 17 3A F2 99 22 11 20  43 4F 50 59 52 49 47 48  |y.:..". COPYRIGH|
00001360: 54 20 28 43 29 20 31 39  37 39 20 20 42 59 20 48  |T (C) 1979  BY H|
00001370: 41 4C 20 43 41 52 45 59  11 00 84 17 44 F2 8D 36  |AL CAREY....D..6|
00001380: 30 35 30 30 00 A9 17 4E  F2 99 22 11 43 4F 4E 53  |0500...N..".CONS|
00001390: 54 52 55 43 54 20 57 4F  52 44 2D 53 45 41 52 43  |TRUCT WORD-SEARC|
000013A0: 48 20 50 55 5A 5A 4C 45  53 00 D0 17 58 F2 99 22  |H PUZZLES...X.."|
000013B0: 11 11 54 48 49 53 20 50  52 4F 47 52 41 4D 20 4E  |..THIS PROGRAM N|
000013C0: 45 45 44 53 20 41 20 50  52 49 4E 54 45 52 21 22  |EEDS A PRINTER!"|
000013D0: 00 F2 17 80 F2 99 22 11  11 11 50 52 45 53 53 20  |......"...PRESS |
000013E0: 12 52 45 54 55 52 4E 92  20 54 4F 20 42 45 47 49  |.RETURN. TO BEGI|
000013F0: 4E 2E 00 07 18 8A F2 A1  54 24 3A 8B 54 24 B2 22  |N.......T$:.T$."|
00001400: 22 A7 36 32 30 39 30 00  12 18 94 F2 89 36 30 33  |".62090......603|
00001410: 30 30 00 00 00 47                                 |00...G          |

..0....:.59468,12:.B(1).255.."SEARCH":$X
,1,"BAT".Z.... SEARCH COPYRIGHT (C) 1979
 HAL CAREY.R.... 9002 BERCLAIR RD.......
 HUNTSVILLE, AL 35802.....:...... CURSOR
 #14 OCT 79.L.... BOX 550, GOLETA, CA. 9
3017...... LINES 61000-65000(C) 1979 CUR
SOR MAGAZINE.....:...... AS OF NOV 14 79
.9.Z.PG$."SEARCH":NM$."14":.62000.Q.D.MW
.25:. MAX # WORDS...X..W$(MW.1),U%(MW),D
X(MW),LOC(MW),DD$(MW),FT%(MW).....R..(.T
I).D...BL$."                            
           ".Y...E$."..".BL$.". "... ..I
.1.8:.D(I):.......-41,-40,-39,-1,1,39,40
,41.0...AL$."ABCDEFGHIJKLMNOPQRSTUVWXYZ"
.C....L$:.L$."".240.Z.H.T.E(L$):L$.I(L$,
1).U.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,......"WANT TO S
UPPLY YOUR OWN WORDS? ";:.60000......H(I
N$,1).."Y".390.3...."...WHAT IS THE PUZZ
LE ABOUT? ";:.60000.?...SJ$.IN$.M....".P
LEASE ENTER THE WORDS (UP TO";MW;".)....
"..".PRESS .RETURN. WHEN DONE....,.N.1:M
L.0...6..".WORD";N;".: ";:.60000.L.@..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.A.H..I:.
Z.ML.ML.Z.`.R.W$(N).IN$:N.N.1:.N..MW.310
.I.|..420......SJ$.."".N.N.1:.420......S
J$:N.0:ML.0......W$:N.N.1:.W$."".420.L..
.W$(N).W$:Z.C(W$):.Z.ML.ML.Z.U. ..410...
..."."E$"...  "......I.1.22:."..  ":....
...".."BL$" .. .".-.B.ZL.1E5:ZT.ZL:ZR.0:
ZB.ZR.J.L.W$(N)."":N.N.1:.E$;"THE SUBJEC
T IS '";SJ$;"'.":TM.TI.200.}.V..X.1.N:DX
(X).0......:NF.N:.1450......TI.TM.485...
..W.1:.E$......I.1.N:FT%(I).0:.I.S...F.0
:.DX(W).910.....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...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).A.D..
L.1.C(W$).R.N.L$.J(W$,L,1)...X..Z.1.C(C$
)...B.Z$.J(C$,Z,1)...L..Z$..L$.770...V.S
S.J(C$,Z,C(W$)).W$.(....D.8.1..1.:...R..
(.(1).D).1.V...T.D(R):D(R).D(D):D(D).T.B
...DX(W).T.....LC.LOC(UC).DX(UC).Z.DX(W)
.L.....Q9.B(LC):.LC,102......SS.DX(UC).T
.760...F..V.1.C(W$).E.P..1620.Z.Z.CH.B(L
C.V.DX(W))......CH..32.CH..F(J(W$,V,1)).
64.760......V:.LC,Q9:.800......LC,Q9:.D.
&....Z.-....L.9....C:.910.F. ..I.1.C(W$)
:.LC.I.DX(W),F(J(W$,I,1)).64:..X.*.LOC(W
).LC:F.1...4..1670:DX.DX(W)...>..DX.1.DD
$." R "...H..DX..1.DD$." L ".I.R..DX.40.
DD$." D "...\..DX..40.DD$." U "...F..DX.
.39.DD$."U-R"...P..DX..41.DD$."U-L". .Z.
.DX.41.DD$."D-R".5....DX.39.DD$."D-L".[.
..DD$(W).DD$:FT%(W).F:W.W.1:NF.NF.F.C...
.E$.Q....NF.0.970.....W..N.510.....F.0:
.I.1.N:F.F.FT%(I):.I......F.0.490...J.ZT
.ZT.8:ZB.ZB.8.U.T..E$;"SORTING WORDS"...
...1530......E$"PUT IN PAPER, HIT ANY KE
Y.......4,4:PD$.H(BL$,ML.1)./....G$:.G$.
"".1030._....E$"PRINTING ANSWER";:.4,"AN
SWER TO "SJ$:.4...$.I$."":P$."  ":P2$." 
 ":.I.1.ZR.ZL.1:I$.I(D(I),2).....P$.P$.H
(I$,1)." ":P2$.P2$.I(I$,1)." ":..Q.8..4,
P$:.4,P2$...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).E.J.P$.P$.L$." ":.:.4,P$
:.:.4.S.T.T$."START  DIR   WORDS":.4,T$;
J(PD$,6);T$...~.T$."------------------":
.4,T$;J(PD$,6);T$.....H..((N.1).2):.I.1.
H.....W.I:.1390:W.I.H:.W..N..4,J(PD$,C(W
$(I)));:.1390......4:.I:.4:.4......E$;"P
RESS KEY FOR PUZZLE".0.D..G$:.G$."".1220
.:.N..4:.4.I.X..E$"PRINTING PUZZLE";:.4,
"FIND"N;SJ$:.4:.4.....L.ZT.ZB.40:P$."".
 ....P.ZL.ZR:C.B(L.P):L$.G(C.64).G....C.
32.L$.J(AL$,.(.(1).C(AL$)).1,1).....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.N.P. 4:."...WANT ANOTHER PUZZLE? ";:
.60000.E.Z..H(IN$,1).."N".240.K.D.....N.
.DX(W).0..4,"DIDN'T FIT  ";W$(W);:..E.S.
LL.LOC(W).DX(W).ZT.ZL:LY..(LL.40):LX.LL.
40.LY...X..4," "G(LY.65)"-"I(D(LX.1),2)"
  "DD$(W)"  "W$(W);:..B....FRUITS,PASSIO
NFRUIT,GRAPEFRUIT,STRAWBERRY,CANTALOUPE,
WATERMELON......NECTARINE,RASPBERRY,BLUE
BERRY,TANGERINE,PINEAPPLE,MUSKMELON,HONE
YDEW.V....APRICOT,COCONUT,RHUBARB,BANANA
,ORANGE,CHERRY,PEACH,APPLE,GRAPE,LEMON..
. ..PEAR,PLUM,""......N.2........W.2.N:W
$.W$(W).-....I.W.1.1..1:.C(W$)..C(W$(I))
.1500.F.R.W$(I.1).W$(I):.I:I.0.Z...W$(I.
1).W$:.W:..E....N.2...P....W.2.N.....W$.
W$(W):DX.DX(W):DD$.DD$(W):LC.LOC(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.6.J.I.1:W$(J).W$:DX(J
).DX:DD$(J).DD$:LOC(J).LC:.W:..Y.T.Q0.LC
.V.DX(W):Q1.B(Q0):.Q0,160.O.R.Q2.Q1.Q0:.
Q0,Q1:....|.Q0.L.P:.1630.....CF.LC.DX(W)
.8:CL.LC.C(W$).DX(W).8.B...C0.40..(CF.40
):CF.CF.C0.....C1.40..(CL.40):CL.CL.C1..
....C0.ZT.ZT.C0......C0.ZB.ZB.C0......C1
.ZT.ZT.C1.".B..C1.ZB.ZB.C1.3.L..CF.ZL.ZL
.CF.D.V..CF.ZR.ZR.CF.U....CL.ZL.ZL.CL.F.
...CL.ZR.ZR.CL.L.......`.IN$." ":ZT.TI:Z
C.2:ZD$.G(20)...J..Z$:.Z$.."".60070.S.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).6
4.(Z.127).91.Z$.G((Z.128).255).P....ZL.2
54.60010.K.D.IN$.IN$.Z$:.Z$;ZD$;Z$;...N.
.Z.13.IN$.J(IN$,2):.CR$;:....X..Z.20.ZL.
1.IN$.H(IN$,ZL.1):.".";:.60010......Z.14
1.Z$.G(.20.(ZL.1)):.Z.2.ZL:.Z$;:.Z:.6000
0......60010......".":.:CR$.G(13):.100.(
.T..I.1.10:."....";:.I:..O.0.."...";.9);
"CURSOR #";NM$;"  ";PG$.Y.:..". COPYRIGH
T (C) 1979  BY HAL CAREY....D..60500...N
..".CONSTRUCT WORD-SEARCH PUZZLES.P.X.."
..THIS PROGRAM NEEDS A PRINTER!"......".
..PRESS .RETURN. TO BEGIN.......T$:.T$."
".62090......60300...G

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL