WORD.SEARCH+

00000000: 01 04 48 04 00 00 8F 20  57 4F 52 4B 53 20 4F 4E  |..H.... WORKS ON|
00000010: 20 50 45 54 20 32 30 30  31 2D 38 2C 20 4E 45 57  | PET 2001-8, NEW|
00000020: 20 50 45 54 2F 43 42 4D  2C 20 42 41 53 49 43 20  | PET/CBM, BASIC |
00000030: 34 2E 30 2C 20 41 4E 44  20 43 42 4D 20 38 30 33  |4.0, AND CBM 803|
00000040: 32 20 26 20 38 30 31 36  00 5D 04 01 00 8F 20 2A  |2 & 8016.].... *|
00000050: 2A 2A 20 57 4F 52 44 53  45 41 52 43 48 00 78 04  |** WORDSEARCH.x.|
00000060: 02 00 8F 20 2A 2A 2A 20  4F 52 49 47 49 4E 41 4C  |... *** ORIGINAL|
00000070: 20 50 52 4F 47 52 41 4D  00 8B 04 03 00 8F 20 2A  | PROGRAM...... *|
00000080: 2A 2A 20 28 43 29 20 31  39 38 30 00 A1 04 04 00  |** (C) 1980.....|
00000090: 8F 20 2A 2A 2A 20 4C 45  4E 20 4C 49 4E 44 53 41  |. *** LEN LINDSA|
000000A0: 59 00 B4 04 05 00 8F 20  2A 2A 2A 20 30 34 2F 31  |Y...... *** 04/1|
000000B0: 38 2F 38 30 00 F6 04 07  00 8F 20 43 55 52 52 45  |8/80...... CURRE|
000000C0: 4E 54 4C 59 20 55 4E 44  45 52 20 4D 4F 44 49 46  |NTLY UNDER MODIF|
000000D0: 49 43 41 54 49 4F 4E 20  42 59 20 20 20 20 20 20  |ICATION BY      |
000000E0: 20 20 20 4A 4F 48 4E 20  4F 27 48 41 52 45 20 31  |   JOHN O'HARE 1|
000000F0: 2F 31 30 2F 38 31 00 FC  04 09 00 8F 00 39 05 0A  |/10/81.......9..|
00000100: 00 5A 50 B2 C2 28 35 30  30 30 33 29 3A 8B 5A 50  |.ZP..(50003):.ZP|
00000110: B1 31 A7 5A 50 B2 32 3A  8B C2 28 33 34 38 31 36  |.1.ZP.2:..(34816|
00000120: 29 B3 B1 33 32 A7 5A 50  B2 33 3A 8F 20 53 45 54  |)..32.ZP.3:. SET|
00000130: 20 50 45 54 20 54 59 50  45 00 7F 05 0B 00 8F 20  | PET TYPE...... |
00000140: 5A 50 20 4D 45 41 4E 53  3A 20 30 3D 4F 4C 44 2C  |ZP MEANS: 0=OLD,|
00000150: 20 31 3D 4E 45 57 2C 20  32 3D 42 41 53 49 43 20  | 1=NEW, 2=BASIC |
00000160: 34 2E 30 2C 20 33 3D 38  30 20 43 4F 4C 55 4D 4E  |4.0, 3=80 COLUMN|
00000170: 20 57 49 54 48 20 42 41  53 49 43 20 34 2E 30 00  | WITH BASIC 4.0.|
00000180: 8D 05 0F 00 97 35 39 34  36 38 2C 31 32 00 97 05  |.....59468,12...|
00000190: 14 00 99 22 93 22 3B 00  B9 05 1E 00 58 B2 BB 28  |...".";.....X..(|
000001A0: AB 54 49 29 3A 8F 20 53  45 45 44 20 52 4E 44 20  |.TI):. SEED RND |
000001B0: 47 45 4E 45 52 41 54 4F  52 00 ED 05 28 00 96 A5  |GENERATOR...(...|
000001C0: 52 28 58 29 B2 B5 28 BB  28 31 29 AC 58 AA 31 29  |R(X)..(.(1).X.1)|
000001D0: 3A 8F 20 43 48 4F 53 45  20 52 41 4E 44 4F 4D 20  |:. CHOSE RANDOM |
000001E0: 23 20 46 52 4F 4D 20 31  20 54 4F 20 58 00 2D 06  |# FROM 1 TO X.-.|
000001F0: 32 00 5A 5A 24 B2 22 14  14 14 14 14 14 14 14 14  |2.ZZ$.".........|
00000200: 14 14 14 14 14 14 14 14  14 14 14 14 14 14 14 14  |................|
00000210: 14 14 14 14 14 14 14 14  14 14 14 14 14 14 14 22  |..............."|
00000220: 3A 8F 20 34 30 20 44 45  4C 45 54 45 53 00 5A 06  |:. 40 DELETES.Z.|
00000230: 33 00 8B 5A 50 B2 33 A7  5A 5A 24 B2 5A 5A 24 AA  |3..ZP.3.ZZ$.ZZ$.|
00000240: 5A 5A 24 3A 8F 20 46 4F  52 20 38 30 20 43 4F 4C  |ZZ$:. FOR 80 COL|
00000250: 55 4D 4E 20 53 43 52 45  45 4E 00 80 06 34 00 5A  |UMN SCREEN...4.Z|
00000260: 4C 24 B2 22 9D 9D 9D 9D  9D 9D 9D 9D 9D 9D 22 3A  |L$."..........":|
00000270: 8F 20 31 30 20 43 55 52  53 4F 52 20 4C 45 46 54  |. 10 CURSOR LEFT|
00000280: 00 BF 06 36 00 5A 53 24  B2 22 20 20 20 20 20 20  |...6.ZS$."      |
00000290: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000002A0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000002B0: 20 20 22 3A 8F 20 34 30  20 53 50 41 43 45 53 00  |  ":. 40 SPACES.|
000002C0: FE 06 60 00 58 58 24 B2  22 93 12 57 49 4C 4C 20  |..`.XX$."..WILL |
000002D0: 59 4F 55 20 42 45 20 55  53 49 4E 47 20 41 20 50  |YOU BE USING A P|
000002E0: 52 49 4E 54 45 52 3F 22  3A 8D 31 30 31 30 30 3A  |RINTER?":.10100:|
000002F0: 99 3A 8B 58 41 24 B3 B1  22 59 22 A7 39 39 00 2E  |.:.XA$.."Y".99..|
00000300: 07 61 00 58 51 24 B2 22  50 52 49 4E 54 45 52 20  |.a.XQ$."PRINTER |
00000310: 44 45 56 49 43 45 20 23  22 3A 58 50 24 B2 22 34  |DEVICE #":XP$."4|
00000320: 22 3A 8D 31 30 32 30 30  3A 50 44 B2 58 41 00 48  |":.10200:PD.XA.H|
00000330: 07 62 00 8B 50 44 B3 33  B0 50 44 B1 31 35 A7 99  |.b..PD.3.PD.15..|
00000340: 5A 5A 24 3B 3A 89 39 37  00 52 07 63 00 8B 52 50  |ZZ$;:.97.R.c..RP|
00000350: A7 8E 00 78 07 64 00 8B  52 4E B1 30 A7 32 32 30  |...x.d..RN.0.220|
00000360: 30 3A 8F 20 52 45 53 54  41 52 54 20 53 4B 49 50  |0:. RESTART SKIP|
00000370: 20 54 4F 20 4D 45 4E 55  00 7E 07 65 00 8F 00 9D  | TO MENU.~.e....|
00000380: 07 66 00 99 22 93 57 45  4C 43 4F 4D 45 20 54 4F  |.f..".WELCOME TO|
00000390: 20 57 4F 52 44 20 53 45  41 52 43 48 22 00 C9 07  | WORD SEARCH"...|
000003A0: 6E 00 99 22 11 49 20 57  49 4C 4C 20 48 49 44 45  |n..".I WILL HIDE|
000003B0: 20 57 4F 52 44 53 20 59  4F 55 20 53 55 50 50 4C  | WORDS YOU SUPPL|
000003C0: 59 20 49 4E 54 4F 20 41  22 00 F7 07 78 00 99 22  |Y INTO A"...x.."|
000003D0: 11 57 4F 52 44 53 45 41  52 43 48 20 50 55 5A 5A  |.WORDSEARCH PUZZ|
000003E0: 4C 45 2E 20 49 20 43 41  4E 20 41 4C 53 4F 20 47  |LE. I CAN ALSO G|
000003F0: 49 56 45 20 59 4F 55 00  10 08 82 00 99 22 11 41  |IVE YOU......".A|
00000400: 4E 20 41 4E 53 57 45 52  20 4B 45 59 2E 11 11 22  |N ANSWER KEY..."|
00000410: 00 58 08 83 00 99 3A 99  22 54 48 45 20 50 55 5A  |.X....:."THE PUZ|
00000420: 5A 4C 45 20 43 41 4E 20  42 45 20 53 4F 4C 56 45  |ZLE CAN BE SOLVE|
00000430: 44 20 4F 4E 20 54 48 45  20 53 43 52 45 45 4E 20  |D ON THE SCREEN |
00000440: 20 11 57 49 54 48 20 54  48 45 20 4E 55 4D 42 45  | .WITH THE NUMBE|
00000450: 52 20 50 41 44 2E 11 22  00 A5 08 84 00 99 22 55  |R PAD.."......"U|
00000460: 53 45 20 46 20 54 4F 20  4C 4F 43 41 54 45 20 46  |SE F TO LOCATE F|
00000470: 49 52 53 54 20 4C 45 54  54 45 52 2C 20 41 4E 44  |IRST LETTER, AND|
00000480: 20 20 20 20 20 20 20 11  4C 20 54 4F 20 4D 41 52  |       .L TO MAR|
00000490: 4B 20 54 48 45 20 4C 41  53 54 20 4C 45 54 54 45  |K THE LAST LETTE|
000004A0: 52 2E 22 3A 99 00 D5 08  85 00 99 22 11 46 4F 55  |R.":.......".FOU|
000004B0: 4E 44 20 57 4F 52 44 53  20 57 49 4C 4C 20 42 45  |ND WORDS WILL BE|
000004C0: 20 53 48 4F 57 4E 20 49  4E 20 52 45 56 45 52 53  | SHOWN IN REVERS|
000004D0: 45 2E 11 11 22 00 DB 08  91 00 8F 00 19 09 96 00  |E..."...........|
000004E0: 41 57 B2 31 39 20 3A 20  8F 20 50 55 5A 5A 4C 45  |AW.19 : . PUZZLE|
000004F0: 20 57 49 44 54 48 20 2D  20 46 4F 52 20 50 52 49  | WIDTH - FOR PRI|
00000500: 4E 54 45 52 20 4D 41 59  20 47 4F 20 55 50 20 54  |NTER MAY GO UP T|
00000510: 4F 20 20 20 41 57 3D 33  39 00 57 09 98 00 41 48  |O   AW=39.W...AH|
00000520: B2 31 31 20 3A 20 8F 20  50 55 5A 5A 4C 45 20 48  |.11 : . PUZZLE H|
00000530: 45 49 47 54 48 2D 20 46  4F 52 20 50 52 49 4E 54  |EIGTH- FOR PRINT|
00000540: 45 52 20 4D 41 59 20 47  4F 20 55 50 20 54 4F 20  |ER MAY GO UP TO |
00000550: 20 20 41 48 3D 33 31 00  75 09 BE 00 86 57 24 28  |  AH=31.u....W$(|
00000560: 41 57 2C 41 48 29 3A 8F  20 50 55 5A 5A 4C 45 20  |AW,AH):. PUZZLE |
00000570: 41 52 52 41 59 00 A5 09  C8 00 58 51 24 B2 22 48  |ARRAY.....XQ$."H|
00000580: 4F 57 20 4D 41 4E 59 20  57 4F 52 44 53 20 54 4F  |OW MANY WORDS TO|
00000590: 20 48 49 44 45 22 3A 58  50 24 B2 22 39 22 3A 8D  | HIDE":XP$."9":.|
000005A0: 31 30 32 30 30 00 C6 09  D2 00 4E 57 B2 58 41 3A  |10200.....NW.XA:|
000005B0: 8B 4E 57 B1 39 39 B0 4E  57 B3 31 A7 99 5A 5A 24  |.NW.99.NW.1..ZZ$|
000005C0: 3B 3A 89 32 30 30 00 DF  09 DC 00 86 53 24 28 4E  |;:.200......S$(N|
000005D0: 57 29 3A 8F 20 57 4F 52  44 20 41 52 52 41 59 00  |W):. WORD ARRAY.|
000005E0: 18 0A E6 00 99 22 93 57  48 41 54 20 49 53 20 54  |.....".WHAT IS T|
000005F0: 48 45 20 54 49 54 4C 45  20 4F 46 20 54 48 49 53  |HE TITLE OF THIS|
00000600: 20 50 55 5A 5A 4C 45 3F  22 3A 8D 31 30 32 30 30  | PUZZLE?":.10200|
00000610: 3A 54 50 24 B2 58 41 24  00 1E 0A EB 00 8F 00 4E  |:TP$.XA$.......N|
00000620: 0A 90 01 99 22 93 50 55  5A 5A 4C 45 3A 20 12 22  |....".PUZZLE: ."|
00000630: 3B 54 50 24 3A 99 22 11  45 4E 54 45 52 20 59 4F  |;TP$:.".ENTER YO|
00000640: 55 52 20 57 4F 52 44 53  20 4E 4F 57 2E 22 00 7B  |UR WORDS NOW.".{|
00000650: 0A 94 01 99 22 11 45 4E  54 45 52 20 12 5F 92 20  |....".ENTER ._. |
00000660: 54 4F 20 47 4F 20 42 41  43 4B 20 41 4E 44 20 52  |TO GO BACK AND R|
00000670: 45 44 4F 20 41 20 57 4F  52 44 2E 00 AB 0A 97 01  |EDO A WORD......|
00000680: 99 22 11 45 4E 54 45 52  20 12 5C 92 20 54 4F 20  |.".ENTER .\. TO |
00000690: 45 4E 44 20 49 4E 50 55  54 20 4F 46 20 57 4F 52  |END INPUT OF WOR|
000006A0: 44 53 20 45 41 52 4C 59  2E 11 22 00 B7 0A 9A 01  |DS EARLY..".....|
000006B0: 81 5A B2 31 A4 4E 57 00  C5 0A A4 01 3A 8B 5A B3  |.Z.1.NW.....:.Z.|
000006C0: 31 A7 5A B2 31 00 F8 0A  A6 01 3A 99 22 12 11 45  |1.Z.1.....:."..E|
000006D0: 4E 54 45 52 20 57 4F 52  44 20 4E 55 4D 42 45 52  |NTER WORD NUMBER|
000006E0: A0 22 AA C4 28 5A 29 AA  22 A0 50 4C 45 41 53 45  |."..(Z).".PLEASE|
000006F0: 22 3A 8D 31 30 32 30 30  00 31 0B A9 01 3A 8B 58  |":.10200.1...:.X|
00000700: 41 24 B2 22 5C 22 AF 5A  B2 31 A7 99 22 93 12 59  |A$."\".Z.1.."..Y|
00000710: 4F 55 20 44 4F 4E 27 54  20 48 41 56 45 20 41 4E  |OU DON'T HAVE AN|
00000720: 59 20 57 4F 52 44 53 20  59 45 54 22 3A 89 34 30  |Y WORDS YET":.40|
00000730: 34 00 61 0B AE 01 3A 8B  58 41 24 B2 22 5F 22 A7  |4.a...:.XA$."_".|
00000740: 5A B2 5A AB 31 3A 99 22  42 41 43 4B 20 54 4F 20  |Z.Z.1:."BACK TO |
00000750: 52 45 44 4F 20 22 AA 53  24 28 5A 29 3A 89 34 32  |REDO ".S$(Z):.42|
00000760: 30 00 9B 0B B3 01 8B C3  28 58 41 24 29 B1 41 57  |0.......(XA$).AW|
00000770: AF C3 28 58 41 24 29 B1  41 48 A7 99 22 12 54 48  |..(XA$).AH..".TH|
00000780: 41 54 20 57 4F 52 44 20  49 53 20 54 4F 4F 20 4C  |AT WORD IS TOO L|
00000790: 4F 4E 47 22 3A 99 3A 89  34 32 32 00 AA 0B B8 01  |ONG":.:.422.....|
000007A0: 3A 53 24 28 5A 29 B2 58  41 24 00 C8 0B C2 01 3A  |:S$(Z).XA$.....:|
000007B0: 8B 58 41 24 B2 22 5C 22  A7 51 B2 5A AB 31 3A 5A  |.XA$."\".Q.Z.1:Z|
000007C0: B2 4E 57 3A 4E 57 B2 51  00 E8 0B C7 01 3A 8B 58  |.NW:NW.Q.....:.X|
000007D0: 41 24 B2 22 BF 22 A7 99  5A 5A 24 3B 3A 8D 31 30  |A$."."..ZZ$;:.10|
000007E0: 32 30 30 3A 89 34 33 30  00 EF 0B CC 01 82 5A 00  |200:.430......Z.|
000007F0: 1D 0C D6 01 99 22 93 54  48 41 4E 4B 20 59 4F 55  |.....".THANK YOU|
00000800: 20 2D 20 50 4C 45 41 53  45 20 57 41 49 54 20 57  | - PLEASE WAIT W|
00000810: 48 49 4C 45 20 49 20 54  48 49 4E 4B 22 00 23 0C  |HILE I THINK".#.|
00000820: DB 01 8F 00 55 0C F4 01  44 B2 A5 52 28 33 29 3A  |....U...D..R(3):|
00000830: 8D 33 33 31 30 3A 8F 20  49 4E 49 54 20 44 49 52  |.3310:. INIT DIR|
00000840: 45 43 54 49 4F 4E 20 26  20 50 55 5A 5A 4C 45 20  |ECTION & PUZZLE |
00000850: 41 52 52 41 59 00 77 0C  E8 03 81 43 57 B2 31 A4  |ARRAY.w....CW.1.|
00000860: 4E 57 3A 8F 20 50 55 54  20 57 4F 52 44 53 20 49  |NW:. PUT WORDS I|
00000870: 4E 20 41 52 52 41 59 00  8D 0C ED 03 3A 99 43 57  |N ARRAY.....:.CW|
00000880: 3B 22 4F 46 22 3B 4E 57  3B 22 2D 22 3B 00 AC 0C  |;"OF";NW;"-";...|
00000890: F2 03 3A 43 57 24 B2 53  24 28 43 57 29 3A 8F 20  |..:CW$.S$(CW):. |
000008A0: 43 55 52 52 45 4E 54 20  57 4F 52 44 00 D1 0C FC  |CURRENT WORD....|
000008B0: 03 3A 43 4C B2 C3 28 43  57 24 29 3A 8F 20 43 55  |.:CL..(CW$):. CU|
000008C0: 52 52 45 4E 54 20 57 4F  52 44 20 4C 45 4E 47 54  |RRENT WORD LENGT|
000008D0: 48 00 EC 0C 06 04 3A 44  46 B2 30 3A 8F 20 44 49  |H.....:DF.0:. DI|
000008E0: 52 45 43 54 49 4F 4E 20  46 4C 41 47 00 1C 0D 10  |RECTION FLAG....|
000008F0: 04 3A 44 46 B2 44 46 AA  31 3A 8F 20 49 4E 43 52  |.:DF.DF.1:. INCR|
00000900: 45 4D 45 4E 54 20 44 49  52 45 43 54 49 4F 4E 20  |EMENT DIRECTION |
00000910: 46 4C 41 47 20 43 4F 55  4E 54 45 52 00 4E 0D 1A  |FLAG COUNTER.N..|
00000920: 04 3A 8B 44 46 B1 33 A7  99 22 93 22 3B 43 57 24  |.:.DF.3..".";CW$|
00000930: 3B 22 A0 57 4F 4E 27 54  20 46 49 54 22 3A 99 22  |;".WON'T FIT":."|
00000940: 54 52 59 20 12 44 92 22  3A 89 32 32 32 30 00 7E  |TRY .D.":.2220.~|
00000950: 0D 24 04 3A 44 B2 44 AA  31 3A 8B 44 B1 33 A7 44  |.$.:D.D.1:.D.3.D|
00000960: B2 31 3A 8F 20 43 49 52  43 55 4C 41 52 20 44 49  |.1:. CIRCULAR DI|
00000970: 52 45 43 54 49 4F 4E 20  43 48 41 4E 47 45 00 B1  |RECTION CHANGE..|
00000980: 0D 2E 04 3A 44 58 B2 30  3A 57 B2 41 57 3A 8B 44  |...:DX.0:W.AW:.D|
00000990: B3 33 A7 57 B2 57 AB 43  4C 3A 44 58 B2 31 3A 8B  |.3.W.W.CL:DX.1:.|
000009A0: 57 B3 30 A7 31 30 34 30  3A 8F 20 4D 4F 56 45 3E  |W.0.1040:. MOVE>|
000009B0: 3E 00 E4 0D 38 04 3A 44  59 B2 30 3A 48 B2 41 48  |>...8.:DY.0:H.AH|
000009C0: 3A 8B 44 B1 31 A7 48 B2  48 AB 43 4C 3A 44 59 B2  |:.D.1.H.H.CL:DY.|
000009D0: 31 3A 8B 48 B3 30 A7 31  30 34 30 3A 8F 20 4D 4F  |1:.H.0.1040:. MO|
000009E0: 56 45 56 56 00 11 0E 42  04 3A 50 46 B2 31 3A 8F  |VEVV...B.:PF.1:.|
000009F0: 20 50 4F 49 4E 54 20 46  4C 41 47 20 31 3D 52 41  | POINT FLAG 1=RA|
00000A00: 4E 44 4F 4D 2C 32 3D 41  4C 4C 2C 33 3D 44 4F 4E  |NDOM,2=ALL,3=DON|
00000A10: 45 00 2E 0E CF 07 3A 8F  20 50 49 43 4B 20 53 54  |E.....:. PICK ST|
00000A20: 41 52 54 20 43 4F 4F 52  44 49 4E 41 54 45 00 61  |ART COORDINATE.a|
00000A30: 0E D0 07 3A 91 50 46 8D  35 30 30 30 2C 35 31 30  |...:.PF.5000,510|
00000A40: 30 3A 8B 50 46 B1 32 A7  31 30 34 30 3A 8F 20 54  |0:.PF.2.1040:. T|
00000A50: 52 59 20 4E 45 58 54 20  44 49 52 45 43 54 49 4F  |RY NEXT DIRECTIO|
00000A60: 4E 00 6D 0E DA 07 3A 8F  20 54 45 53 54 00 81 0E  |N.m...:. TEST...|
00000A70: DF 07 3A 54 58 B2 58 3A  54 59 B2 59 3A 54 46 B2  |..:TX.X:TY.Y:TF.|
00000A80: 30 00 8E 0E E4 07 3A 81  54 B2 31 A4 43 4C 00 C4  |0.....:.T.1.CL..|
00000A90: 0E E9 07 3A 3A 8B 54 59  B1 41 48 B0 54 58 B1 41  |...::.TY.AH.TX.A|
00000AA0: 57 A7 54 46 B2 31 3A 54  B2 43 4C 3A 89 32 30 35  |W.TF.1:T.CL:.205|
00000AB0: 30 3A 8F 20 57 4F 52 44  20 50 41 53 54 20 42 4F  |0:. WORD PAST BO|
00000AC0: 52 44 45 52 00 F7 0E EE  07 3A 3A 8B 57 24 28 54  |RDER.....::.W$(T|
00000AD0: 58 2C 54 59 29 B3 B1 22  2D 22 A7 54 46 B2 31 3A  |X,TY).."-".TF.1:|
00000AE0: 54 B2 43 4C 3A 8F 20 53  50 4F 54 20 49 53 20 4F  |T.CL:. SPOT IS O|
00000AF0: 43 43 55 50 49 45 44 00  39 0F F8 07 3A 3A 54 58  |CCUPIED.9...::TX|
00000B00: B2 54 58 AA 44 58 3A 54  59 B2 54 59 AA 44 59 3A  |.TX.DX:TY.TY.DY:|
00000B10: 8F 20 55 50 44 41 54 45  20 43 4F 4F 52 44 49 4E  |. UPDATE COORDIN|
00000B20: 41 54 45 20 54 4F 20 4E  45 58 54 20 50 4F 49 4E  |ATE TO NEXT POIN|
00000B30: 54 20 49 4E 20 57 4F 52  44 00 47 0F 02 08 3A 82  |T IN WORD.G...:.|
00000B40: 54 3A 99 22 2A 22 3B 00  64 0F 0C 08 3A 8B 54 46  |T:."*";.d...:.TF|
00000B50: A7 54 46 B2 30 3A 89 32  30 30 30 3A 8F 20 4E 4F  |.TF.0:.2000:. NO|
00000B60: 20 46 49 54 00 74 0F 16  08 3A 8F 20 41 44 44 20  | FIT.t...:. ADD |
00000B70: 57 4F 52 44 00 A4 0F 20  08 3A 42 B2 A5 52 28 32  |WORD... .:B..R(2|
00000B80: 29 AB 31 3A 8F 20 30 3D  57 4F 52 44 20 41 53 20  |).1:. 0=WORD AS |
00000B90: 49 53 20 20 31 3D 57 4F  52 44 20 42 41 43 4B 57  |IS  1=WORD BACKW|
00000BA0: 41 52 44 53 00 D2 0F 2A  08 3A 81 54 B2 31 AA 28  |ARDS...*.:.T.1.(|
00000BB0: 28 43 4C AB 31 29 AC 42  29 A4 31 AA 28 28 43 4C  |(CL.1).B).1.((CL|
00000BC0: AB 31 29 AC 28 31 AB 42  29 29 A9 31 AB 28 32 AC  |.1).(1.B)).1.(2.|
00000BD0: 42 29 00 EB 0F 34 08 3A  3A 57 24 28 58 2C 59 29  |B)...4.::W$(X,Y)|
00000BE0: B2 CA 28 43 57 24 2C 54  2C 31 29 00 FF 0F 3E 08  |..(CW$,T,1)...>.|
00000BF0: 3A 3A 58 B2 58 AA 44 58  3A 59 B2 59 AA 44 59 00  |::X.X.DX:Y.Y.DY.|
00000C00: 07 10 48 08 3A 82 54 00  27 10 52 08 3A 99 3A 99  |..H.:.T.'.R.:.:.|
00000C10: 22 12 22 3B 43 57 24 3B  22 92 22 3B 22 A0 49 53  |".";CW$;".";".IS|
00000C20: 20 41 44 44 45 44 22 00  2F 10 66 08 82 43 57 00  | ADDED"./.f..CW.|
00000C30: 35 10 6B 08 8F 00 4F 10  98 08 52 4E B2 31 3A 99  |5.k...O...RN.1:.|
00000C40: 22 93 12 4F 50 54 49 4F  4E 20 4D 45 4E 55 22 00  |"..OPTION MENU".|
00000C50: 63 10 AC 08 99 22 11 12  57 92 4F 52 44 20 4C 49  |c...."..W.ORD LI|
00000C60: 53 54 22 00 74 10 B6 08  99 22 11 12 50 92 55 5A  |ST".t...."..P.UZ|
00000C70: 5A 4C 45 22 00 89 10 C0  08 99 22 11 12 41 92 4E  |ZLE"......"..A.N|
00000C80: 53 57 45 52 20 4B 45 59  22 00 BB 10 C1 08 99 22  |SWER KEY"......"|
00000C90: 11 28 48 49 54 20 12 53  50 41 43 45 92 20 54 4F  |.(HIT .SPACE. TO|
00000CA0: 20 43 4F 4E 54 49 4E 55  45 20 41 46 54 45 52 20  | CONTINUE AFTER |
00000CB0: 54 48 45 20 41 42 4F 56  45 29 22 00 C9 10 C2 08  |THE ABOVE)".....|
00000CC0: 99 22 11 11 20 20 4F 52  22 00 EF 10 C3 08 99 22  |."..  OR"......"|
00000CD0: 11 12 44 92 49 46 46 45  52 45 4E 54 20 50 55 5A  |..D.IFFERENT PUZ|
00000CE0: 5A 4C 45 2D 53 41 4D 45  20 57 4F 52 44 53 22 00  |ZLE-SAME WORDS".|
00000CF0: 0C 11 C4 08 99 22 11 12  4E 92 45 57 20 57 4F 52  |....."..N.EW WOR|
00000D00: 44 53 20 26 20 50 55 5A  5A 4C 45 22 00 1A 11 C5  |DS & PUZZLE"....|
00000D10: 08 99 22 11 12 45 92 4E  44 22 00 3C 11 CA 08 58  |.."..E.ND".<...X|
00000D20: 58 24 B2 22 11 12 59 4F  55 52 20 43 48 4F 49 43  |X$."..YOUR CHOIC|
00000D30: 45 3F 22 3A 8D 31 30 31  30 30 3A 99 00 61 11 CF  |E?":.10100:..a..|
00000D40: 08 58 4D 24 B2 22 57 50  41 44 4E 45 22 3A 8D 31  |.XM$."WPADNE":.1|
00000D50: 30 33 30 30 3A 43 48 B2  58 46 3A 8F 20 45 44 49  |0300:CH.XF:. EDI|
00000D60: 54 00 87 11 D4 08 91 43  48 8D 32 32 37 30 2C 32  |T......CH.2270,2|
00000D70: 32 37 30 2C 32 32 37 30  2C 34 37 30 30 2C 33 37  |270,2270,4700,37|
00000D80: 30 30 2C 32 39 30 30 00  91 11 D9 08 89 32 32 30  |00,2900......220|
00000D90: 30 00 97 11 DB 08 8F 00  D3 11 DE 08 44 56 B2 33  |0...........DV.3|
00000DA0: 3A 8B 50 44 A7 58 58 24  B2 22 93 50 52 49 4E 54  |:.PD.XX$.".PRINT|
00000DB0: 20 54 4F 20 12 53 92 43  52 45 45 4E 20 4F 52 20  | TO .S.CREEN OR |
00000DC0: 12 50 92 52 49 4E 54 45  52 22 3A 8D 31 30 31 30  |.P.RINTER":.1010|
00000DD0: 30 3A 99 00 EB 11 E8 08  8B 50 44 B1 30 AF 58 41  |0:.......PD.0.XA|
00000DE0: 24 B2 22 50 22 A7 44 56  B2 50 44 00 F5 11 06 09  |$."P".DV.PD.....|
00000DF0: 99 22 93 22 3B 00 FF 11  10 09 9F 31 2C 44 56 00  |.".";......1,DV.|
00000E00: 26 12 15 09 8B 44 56 B1  33 A7 20 99 22 50 52 49  |&....DV.3. ."PRI|
00000E10: 4E 54 49 4E 47 20 54 4F  20 59 4F 55 52 20 50 52  |NTING TO YOUR PR|
00000E20: 49 4E 54 45 52 22 00 40  12 1A 09 91 43 48 8D 34  |INTER".@....CH.4|
00000E30: 35 30 30 2C 33 30 30 30  2C 34 30 30 30 3A A0 31  |500,3000,4000:.1|
00000E40: 00 67 12 1F 09 8B 44 56  B2 33 A7 8D 31 30 31 33  |.g....DV.3..1013|
00000E50: 30 3A 8F 20 46 52 45 45  5A 45 20 54 49 4C 4C 20  |0:. FREEZE TILL |
00000E60: 4B 45 59 20 48 49 54 00  71 12 24 09 89 32 32 30  |KEY HIT.q.$..220|
00000E70: 30 00 77 12 29 09 8F 00  A4 12 54 0B 99 22 93 54  |0.w.).....T..".T|
00000E80: 48 41 54 20 57 41 53 20  46 55 4E 20 2D 20 54 52  |HAT WAS FUN - TR|
00000E90: 59 20 49 54 20 41 47 41  49 4E 20 4C 41 54 45 52  |Y IT AGAIN LATER|
00000EA0: 2E 22 3A 80 00 AA 12 59  0B 8F 00 E1 12 B8 0B 98  |.":....Y........|
00000EB0: 31 2C C8 28 5A 53 24 2C  28 32 AC 41 57 AB C3 28  |1,.(ZS$,(2.AW..(|
00000EC0: 54 50 24 29 29 AD 32 29  AA 54 50 24 3A 8F 20 54  |TP$)).2).TP$:. T|
00000ED0: 49 54 4C 45 2D 50 52 49  4E 54 20 50 55 5A 5A 4C  |ITLE-PRINT PUZZL|
00000EE0: 45 00 F0 12 CC 0B 98 31  3A 8F 20 42 4C 41 4E 4B  |E......1:. BLANK|
00000EF0: 00 FC 12 D6 0B 81 59 B2  31 A4 41 48 00 08 13 DB  |......Y.1.AH....|
00000F00: 0B 98 31 2C 22 20 22 3B  00 15 13 E0 0B 3A 81 58  |..1," ";.....:.X|
00000F10: B2 31 A4 41 57 00 42 13  E5 0B 3A 3A 8B 57 24 28  |.1.AW.B...::.W$(|
00000F20: 58 2C 59 29 B2 22 2D 22  AF 53 46 B2 31 A7 99 22  |X,Y)."-".SF.1.."|
00000F30: 1D 22 3B 3A 89 33 30 37  30 3A 8F 20 52 41 4E 44  |.";:.3070:. RAND|
00000F40: 4F 4D 00 75 13 EA 0B 3A  3A 8B 57 24 28 58 2C 59  |OM.u...::.W$(X,Y|
00000F50: 29 B2 22 2D 22 A7 98 31  2C C7 28 36 34 AA A5 52  |)."-"..1,.(64..R|
00000F60: 28 32 36 29 29 3B 3A 89  33 30 37 30 3A 8F 20 52  |(26));:.3070:. R|
00000F70: 41 4E 44 4F 4D 00 98 13  F4 0B 3A 3A 98 31 2C 57  |ANDOM.....::.1,W|
00000F80: 24 28 58 2C 59 29 3B 3A  8F 20 43 4F 52 52 45 43  |$(X,Y);:. CORREC|
00000F90: 54 20 4C 45 54 54 45 52  00 BB 13 FE 0B 3A 3A 98  |T LETTER.....::.|
00000FA0: 31 2C 22 A0 22 3B 3A 8F  20 53 50 41 43 45 20 41  |1,".";:. SPACE A|
00000FB0: 46 54 45 52 20 4C 45 54  54 45 52 00 C3 13 08 0C  |FTER LETTER.....|
00000FC0: 3A 82 58 00 DD 13 12 0C  3A 98 31 3A 8F 20 43 41  |:.X.....:.1:. CA|
00000FD0: 52 52 49 41 47 45 20 52  45 54 55 52 4E 00 ED 13  |RRIAGE RETURN...|
00000FE0: 1C 0C 3A 98 31 3A 8F 20  42 4C 41 4E 4B 00 F4 13  |..:.1:. BLANK...|
00000FF0: 26 0C 82 59 00 FD 13 2B  0C 53 46 B2 30 00 0C 14  |&..Y...+.SF.0...|
00001000: 2C 0C 8B 44 56 B2 33 A7  36 30 30 30 00 12 14 3A  |,..DV.3.6000...:|
00001010: 0C 8E 00 18 14 3F 0C 8F  00 24 14 EE 0C 81 59 B2  |.....?...$....Y.|
00001020: 31 A4 41 48 00 31 14 F8  0C 3A 81 58 B2 31 A4 41  |1.AH.1...:.X.1.A|
00001030: 57 00 43 14 02 0D 3A 3A  57 24 28 58 2C 59 29 B2  |W.C...::W$(X,Y).|
00001040: 22 2D 22 00 4B 14 0C 0D  3A 82 58 00 54 14 16 0D  |"-".K...:.X.T...|
00001050: 82 59 3A 8E 00 5A 14 1B  0D 8F 00 60 14 3D 0E 8F  |.Y:..Z.....`.=..|
00001060: 00 66 14 74 0E 8A 00 6C  14 79 0E 8F 00 A1 14 A0  |.f.t...l.y......|
00001070: 0F 98 31 2C C8 28 5A 53  24 2C 28 32 AC 41 57 AB  |..1,.(ZS$,(2.AW.|
00001080: C3 28 54 50 24 29 29 AD  32 29 AA 54 50 24 3A 8F  |.(TP$)).2).TP$:.|
00001090: 20 54 49 54 4C 45 2D 41  4E 53 57 45 52 20 4B 45  | TITLE-ANSWER KE|
000010A0: 59 00 B0 14 B4 0F 98 31  3A 8F 20 42 4C 41 4E 4B  |Y......1:. BLANK|
000010B0: 00 BC 14 BE 0F 81 59 B2  31 A4 41 48 00 C9 14 C8  |......Y.1.AH....|
000010C0: 0F 3A 81 58 B2 31 A4 41  57 00 EA 14 D2 0F 3A 3A  |.:.X.1.AW.....::|
000010D0: 98 31 2C 57 24 28 58 2C  59 29 3B 3A 8F 20 50 52  |.1,W$(X,Y);:. PR|
000010E0: 49 4E 54 20 4C 45 54 54  45 52 00 0D 15 DC 0F 3A  |INT LETTER.....:|
000010F0: 3A 98 31 2C 22 A0 22 3B  3A 8F 20 53 50 41 43 45  |:.1,".";:. SPACE|
00001100: 20 41 46 54 45 52 20 4C  45 54 54 45 52 00 15 15  | AFTER LETTER...|
00001110: E6 0F 3A 82 58 00 2F 15  F0 0F 3A 98 31 3A 8F 20  |..:.X./...:.1:. |
00001120: 43 41 52 52 49 41 47 45  20 52 45 54 55 52 4E 00  |CARRIAGE RETURN.|
00001130: 3F 15 FA 0F 3A 98 31 3A  8F 20 42 4C 41 4E 4B 00  |?...:.1:. BLANK.|
00001140: 46 15 04 10 82 59 00 4C  15 18 10 8E 00 52 15 1D  |F....Y.L.....R..|
00001150: 10 8F 00 7B 15 94 11 98  31 2C 22 48 45 52 45 20  |...{....1,"HERE |
00001160: 41 52 45 20 54 48 45 20  57 4F 52 44 53 20 49 27  |ARE THE WORDS I'|
00001170: 56 45 20 48 49 44 44 45  4E 3A 22 00 87 15 A8 11  |VE HIDDEN:".....|
00001180: 81 5A B2 31 A4 4E 57 00  A2 15 B2 11 3A 98 31 2C  |.Z.1.NW.....:.1,|
00001190: 53 24 28 5A 29 3A 8F 20  50 52 49 4E 54 20 57 4F  |S$(Z):. PRINT WO|
000011A0: 52 44 00 A9 15 BC 11 82  5A 00 AF 15 D0 11 8E 00  |RD......Z.......|
000011B0: B5 15 D5 11 8F 00 DF 15  5C 12 58 58 24 B2 22 93  |........\.XX$.".|
000011C0: 53 41 4D 45 20 53 49 5A  45 3F 22 3A 8D 31 30 31  |SAME SIZE?":.101|
000011D0: 30 30 3A 8B 58 41 24 B2  22 59 22 A7 34 37 30 00  |00:.XA$."Y".470.|
000011E0: F2 15 66 12 8B 58 41 24  B3 B1 22 4E 22 A7 34 37  |..f..XA$.."N".47|
000011F0: 30 30 00 36 16 70 12 58  51 24 B2 22 93 48 4F 57  |00.6.p.XQ$.".HOW|
00001200: 20 57 49 44 45 20 28 31  30 2D 31 39 29 22 3A 8D  | WIDE (10-19)":.|
00001210: 31 30 32 30 30 3A 8B 58  41 B3 31 30 B0 58 41 B1  |10200:.XA.10.XA.|
00001220: 33 39 A7 34 37 32 30 3A  8F 20 4C 49 4E 45 31 35  |39.4720:. LINE15|
00001230: 30 53 45 54 4D 41 00 40  16 72 12 41 57 B2 58 41  |0SETMA.@.r.AW.XA|
00001240: 00 85 16 7A 12 58 51 24  B2 22 93 11 48 4F 57 20  |...z.XQ$."..HOW |
00001250: 48 49 47 48 20 28 31 30  2D 31 31 29 22 3A 8D 31  |HIGH (10-11)":.1|
00001260: 30 32 30 30 3A 8B 58 41  B3 31 30 B0 58 41 B1 33  |0200:.XA.10.XA.3|
00001270: 31 A7 34 37 33 30 3A 8F  4C 49 4E 45 31 35 32 53  |1.4730:.LINE152S|
00001280: 45 54 4D 41 58 00 8F 16  7C 12 41 48 B2 58 41 00  |ETMAX...|.AH.XA.|
00001290: 98 16 8E 12 89 34 37 30  00 D6 16 88 13 52 43 B2  |.....470.....RC.|
000012A0: 52 43 AA 31 3A 8F 20 49  4E 43 52 45 4D 45 4E 54  |RC.1:. INCREMENT|
000012B0: 20 52 4E 44 20 43 4F 55  4E 54 45 52 2D 50 49 43  | RND COUNTER-PIC|
000012C0: 4B 20 52 4E 44 20 53 54  41 52 54 20 43 4F 4F 52  |K RND START COOR|
000012D0: 44 49 4E 41 54 45 00 06  17 9C 13 8B 52 43 B1 39  |DINATE......RC.9|
000012E0: A7 50 46 B2 32 3A 46 43  B2 30 3A 52 43 B2 30 3A  |.PF.2:FC.0:RC.0:|
000012F0: 8E 3A 8F 20 45 4E 4F 55  47 48 20 52 41 4E 44 4F  |.:. ENOUGH RANDO|
00001300: 4D 20 54 52 59 53 00 21  17 A6 13 58 B2 A5 52 28  |M TRYS.!...X..R(|
00001310: 57 29 3A 8F 20 58 20 43  4F 4F 52 44 49 4E 41 54  |W):. X COORDINAT|
00001320: 45 00 3C 17 B0 13 59 B2  A5 52 28 48 29 3A 8F 20  |E.<...Y..R(H):. |
00001330: 59 20 43 4F 4F 52 44 49  4E 41 54 45 00 42 17 BA  |Y COORDINATE.B..|
00001340: 13 8E 00 48 17 BF 13 8F  00 7C 17 EC 13 46 43 B2  |...H.....|...FC.|
00001350: 46 43 AA 31 3A 8B 46 43  B1 57 AC 48 A7 50 46 B2  |FC.1:.FC.W.H.PF.|
00001360: 33 3A 8F 20 54 52 59 20  41 4C 4C 20 50 4F 49 4E  |3:. TRY ALL POIN|
00001370: 54 53 2C 33 3D 4E 4F 20  52 4F 4F 4D 00 B3 17 F6  |TS,3=NO ROOM....|
00001380: 13 58 B2 58 AA 31 3A 8B  58 B1 57 A7 58 B2 31 3A  |.X.X.1:.X.W.X.1:|
00001390: 59 B2 59 AA 31 3A 8B 59  B1 48 A7 59 B2 31 3A 8F  |Y.Y.1:.Y.H.Y.1:.|
000013A0: 20 43 49 52 43 55 4C 41  52 20 4E 45 58 54 20 53  | CIRCULAR NEXT S|
000013B0: 50 4F 54 00 B9 17 14 14  8E 00 BF 17 19 14 8F 00  |POT.............|
000013C0: CD 17 70 17 58 4C B2 31  3A 59 4C B2 31 00 00 18  |..p.XL.1:YL.1...|
000013D0: 7A 17 43 52 24 B2 22 1D  1D 1D 1D 1D 1D 1D 1D 1D  |z.CR$.".........|
000013E0: 1D 1D 1D 1D 1D 1D 1D 1D  1D 1D 1D 1D 1D 1D 1D 1D  |................|
000013F0: 1D 1D 1D 1D 1D 1D 1D 1D  1D 1D 1D 1D 1D 1D 1D 22  |..............."|
00001400: 00 44 18 7F 17 8B 57 52  B2 4E 57 A7 99 22 13 20  |.D....WR.NW..". |
00001410: 20 20 20 2D 2D 2D 2D 12  59 4F 55 20 46 4F 55 4E  |   ----.YOU FOUN|
00001420: 44 20 41 4C 4C 20 54 48  45 20 57 4F 52 44 53 92  |D ALL THE WORDS.|
00001430: 2D 2D 2D 2D 22 3A 81 44  4C B2 31 A4 31 32 35 30  |----":.DL.1.1250|
00001440: 3A 82 3A 8E 00 4E 18 80  17 43 24 B2 22 22 00 74  |:.:..N...C$."".t|
00001450: 18 84 17 43 44 24 B2 22  11 11 11 11 11 11 11 11  |...CD$."........|
00001460: 11 11 11 11 11 11 11 11  11 11 11 11 11 11 11 11  |................|
00001470: 11 11 11 22 00 83 18 89  17 43 48 24 B2 22 9D B6  |...".....CH$."..|
00001480: 1D B5 22 00 93 18 8A 17  43 45 24 B2 22 9D 9D 20  |..".....CE$.".. |
00001490: 1D 20 22 00 C1 18 8E 17  99 22 13 22 3B C8 28 43  |. "......".";.(C|
000014A0: 52 24 2C 58 4C AC 32 AB  31 29 3B C8 28 43 44 24  |R$,XL.2.1);.(CD$|
000014B0: 2C 28 59 4C AC 32 AB 31  29 AA 31 29 3B 43 48 24  |,(YL.2.1).1);CH$|
000014C0: 3B 00 EC 18 98 17 A1 41  24 3A 8B C2 28 31 35 31  |;......A$:..(151|
000014D0: 29 B2 31 38 AF 59 4C B3  41 48 A7 59 4C B2 59 4C  |).18.YL.AH.YL.YL|
000014E0: AA 31 3A 99 22 9D 22 3B  43 45 24 3B 00 12 19 9D  |.1:.".";CE$;....|
000014F0: 17 8B C2 28 31 35 31 29  B2 35 30 AF 59 4C B1 31  |...(151).50.YL.1|
00001500: A7 59 4C B2 59 4C AB 31  3A 99 22 9D 22 3B 43 45  |.YL.YL.1:.".";CE|
00001510: 24 3B 00 39 19 9E 17 8B  C2 28 31 35 31 29 B2 34  |$;.9.....(151).4|
00001520: 31 AF 58 4C B3 41 57 A7  58 4C B2 58 4C AA 31 3A  |1.XL.AW.XL.XL.1:|
00001530: 99 22 9D 22 3B 43 45 24  3B 00 5F 19 9F 17 8B C2  |.".";CE$;._.....|
00001540: 28 31 35 31 29 B2 34 32  AF 58 4C B1 31 A7 58 4C  |(151).42.XL.1.XL|
00001550: B2 58 4C AB 31 3A 99 22  9D 22 3B 43 45 24 3B 00  |.XL.1:.".";CE$;.|
00001560: 6D 19 A0 17 8B 41 24 B2  22 51 22 A7 8E 00 87 19  |m....A$."Q".....|
00001570: A2 17 8B 41 24 B3 B1 22  46 22 AF 41 24 B3 B1 22  |...A$.."F".A$.."|
00001580: 4C 22 A7 39 39 39 39 00  98 19 A7 17 8B 41 24 B2  |L".9999......A$.|
00001590: 22 4C 22 A7 36 30 36 30  00 AE 19 A8 17 58 53 B2  |"L".6060.....XS.|
000015A0: 58 4C 3A 59 53 B2 59 4C  3A 89 39 39 39 39 00 DF  |XL:YS.YL:.9999..|
000015B0: 19 AC 17 4E 46 B2 30 3A  8B 57 24 28 58 4C 2C 59  |...NF.0:.W$(XL,Y|
000015C0: 4C 29 B2 22 2D 22 B0 57  24 28 58 53 2C 59 53 29  |L)."-".W$(XS,YS)|
000015D0: B2 22 2D 22 A7 4E 46 B2  31 3A 89 37 30 30 30 00  |."-".NF.1:.7000.|
000015E0: FB 19 B6 17 8B 58 53 B2  58 4C AF 59 53 B2 59 4C  |.....XS.XL.YS.YL|
000015F0: A7 4E 46 B2 31 3A 89 37  30 30 30 00 0B 1A BB 17  |.NF.1:.7000.....|
00001600: 58 50 B2 58 4C 3A 59 50  B2 59 4C 00 28 1A C0 17  |XP.XL:YP.YL.(...|
00001610: 8B 58 4C B2 58 53 A7 58  49 B2 30 3A 58 50 B2 39  |.XL.XS.XI.0:XP.9|
00001620: 39 39 3A 89 36 31 30 35  00 3E 1A D4 17 58 49 B2  |99:.6105.>...XI.|
00001630: AB 31 3A 8B 58 4C B1 58  53 A7 58 49 B2 31 00 5B  |.1:.XL.XS.XI.1.[|
00001640: 1A D9 17 8B 59 4C B2 59  53 A7 59 49 B2 30 3A 59  |....YL.YS.YI.0:Y|
00001650: 50 B2 39 39 39 3A 89 36  32 30 30 00 71 1A DE 17  |P.999:.6200.q...|
00001660: 59 49 B2 AB 31 3A 8B 59  4C B1 59 53 A7 59 49 B2  |YI..1:.YL.YS.YI.|
00001670: 31 00 81 1A 38 18 58 43  B2 58 53 3A 59 43 B2 59  |1...8.XC.XS:YC.Y|
00001680: 53 00 8B 1A 3D 18 43 24  B2 22 22 00 9F 1A 42 18  |S...=.C$.""...B.|
00001690: 43 24 B2 43 24 AA 57 24  28 58 43 2C 59 43 29 00  |C$.C$.W$(XC,YC).|
000016A0: B5 1A 4C 18 8B 58 43 B2  58 50 B0 59 43 B2 59 50  |..L..XC.XP.YC.YP|
000016B0: A7 37 30 30 30 00 CB 1A  56 18 58 43 B2 58 43 AA  |.7000...V.XC.XC.|
000016C0: 58 49 3A 59 43 B2 59 43  AA 59 49 00 D5 1A 6A 18  |XI:YC.YC.YI...j.|
000016D0: 89 36 32 31 30 00 E2 1A  58 1B 8B 4E 46 A7 37 30  |.6210...X..NF.70|
000016E0: 32 30 00 04 1B 5D 1B 4E  46 B2 31 3A 81 4C 50 B2  |20...].NF.1:.LP.|
000016F0: 31 A4 4E 57 3A 8B 43 24  B2 53 24 28 4C 50 29 A7  |1.NW:.C$.S$(LP).|
00001700: 4E 46 B2 30 00 0C 1B 62  1B 82 4C 50 00 3F 1B 6C  |NF.0...b..LP.?.l|
00001710: 1B 8B 4E 46 B2 31 A7 99  22 13 57 52 4F 4E 47 22  |..NF.1..".WRONG"|
00001720: 3A 81 44 4C B2 31 A4 31  30 30 30 3A 82 44 4C 3A  |:.DL.1.1000:.DL:|
00001730: 99 22 13 20 20 20 20 20  22 3A 89 39 39 39 39 00  |.".     ":.9999.|
00001740: 56 1B 76 1B 99 22 13 22  3B 43 24 3B 22 20 20 20  |V.v..".";C$;"   |
00001750: 20 20 20 20 22 3B 00 66  1B 20 1C 58 43 B2 58 53  |    ";.f. .XC.XS|
00001760: 3A 59 43 B2 59 53 00 86  1B 2A 1C 57 24 28 58 43  |:YC.YS...*.W$(XC|
00001770: 2C 59 43 29 B2 22 12 22  AA 57 24 28 58 43 2C 59  |,YC).".".W$(XC,Y|
00001780: 43 29 AA 22 92 22 00 9C  1B 34 1C 8B 58 43 B2 58  |C)."."...4..XC.X|
00001790: 50 B0 59 43 B2 59 50 A7  37 35 30 30 00 B2 1B 3E  |P.YC.YP.7500...>|
000017A0: 1C 58 43 B2 58 43 AA 58  49 3A 59 43 B2 59 43 AA  |.XC.XC.XI:YC.YC.|
000017B0: 59 49 00 BC 1B 48 1C 89  37 32 31 30 00 C8 1B 4C  |YI...H..7210...L|
000017C0: 1D 57 52 B2 57 52 AA 31  00 D8 1B 56 1D 81 44 4C  |.WR.WR.1...V..DL|
000017D0: B2 31 A4 32 35 30 3A 82  00 07 1C 60 1D 99 22 13  |.1.250:....`..".|
000017E0: 22 3B 3A 81 4C 50 B2 31  A4 C3 28 43 24 29 3A 99  |";:.LP.1..(C$):.|
000017F0: 22 20 22 3B 3A 82 3A 99  22 13 22 3B 3A 53 46 B2  |" ";:.:.".";:SF.|
00001800: 31 3A 89 33 30 30 30 00  11 1C 0F 27 89 36 30 31  |1:.3000....'.601|
00001810: 30 00 2F 1C 74 27 99 58  58 24 3B 3A 8F 20 47 45  |0./.t'.XX$;:. GE|
00001820: 54 20 4F 4E 45 20 43 48  41 52 41 43 54 45 52 00  |T ONE CHARACTER.|
00001830: 55 1C 92 27 A1 58 41 24  3A 8B 58 41 24 B1 22 22  |U..'.XA$:.XA$.""|
00001840: A7 31 30 31 33 30 3A 8F  20 43 4C 45 41 52 20 42  |.10130:. CLEAR B|
00001850: 55 46 46 45 52 00 6C 1C  9C 27 A1 58 41 24 3A 8B  |UFFER.l..'.XA$:.|
00001860: 58 41 24 B2 22 22 A7 31  30 31 34 30 00 7A 1C A6  |XA$."".10140.z..|
00001870: 27 58 41 B2 C5 28 58 41  24 29 00 87 1C D7 27 58  |'XA..(XA$)....'X|
00001880: 58 24 B2 22 22 3A 8E 00  C2 1C D8 27 8B 58 50 24  |X$."":.....'.XP$|
00001890: B2 22 22 A7 58 50 24 B2  22 BF 22 3A 8F 20 53 45  |."".XP$.".":. SE|
000018A0: 54 20 44 45 46 41 55 4C  54 20 50 52 4F 4D 50 54  |T DEFAULT PROMPT|
000018B0: 2C 49 4E 50 55 54 20 57  49 54 48 20 50 52 4F 4D  |,INPUT WITH PROM|
000018C0: 50 54 00 E9 1C EC 27 A1  58 41 24 3A 8B 58 41 24  |PT....'.XA$:.XA$|
000018D0: B3 B1 22 22 A7 31 30 32  32 30 3A 8F 20 43 4C 45  |.."".10220:. CLE|
000018E0: 41 52 20 42 55 46 46 45  52 00 20 1D 0A 28 58 42  |AR BUFFER. ..(XB|
000018F0: 24 B2 C8 28 22 20 20 22  AA 58 50 24 AA 5A 4C 24  |$..("  ".XP$.ZL$|
00001900: 2C 32 AC C3 28 58 50 24  29 AA 34 29 3A 8F 20 53  |,2..(XP$).4):. S|
00001910: 45 54 20 55 50 20 46 4F  52 20 50 52 4F 4D 50 54  |ET UP FOR PROMPT|
00001920: 00 51 1D 14 28 99 58 51  24 3B 58 42 24 3B 3A 8F  |.Q..(.XQ$;XB$;:.|
00001930: 20 50 52 49 4E 54 20 51  55 45 53 54 49 4F 4E 20  | PRINT QUESTION |
00001940: 26 20 50 52 4F 50 4F 53  45 44 20 41 4E 53 57 45  |& PROPOSED ANSWE|
00001950: 52 00 5A 1D 1E 28 85 58  41 24 00 68 1D 28 28 58  |R.Z..(.XA$.h.((X|
00001960: 41 B2 C5 28 58 41 24 29  00 83 1D 3B 28 58 50 24  |A..(XA$)...;(XP$|
00001970: B2 22 22 3A 58 42 24 B2  22 22 3A 58 51 24 B2 22  |."":XB$."":XQ$."|
00001980: 22 3A 8E 00 AF 1D 3C 28  58 46 B2 30 3A 8F 20 49  |":....<(XF.0:. I|
00001990: 4E 49 54 49 41 4C 49 5A  45 20 46 4C 41 47 2C 45  |NITIALIZE FLAG,E|
000019A0: 44 49 54 20 31 20 43 48  41 52 41 43 54 45 52 00  |DIT 1 CHARACTER.|
000019B0: CE 1D 50 28 8B 58 4D 24  B2 22 22 A7 58 4D 24 B2  |..P(.XM$."".XM$.|
000019C0: 22 59 4E 22 3A 8F 20 44  45 46 41 55 4C 54 00 DF  |"YN":. DEFAULT..|
000019D0: 1D 5A 28 81 58 58 B2 31  A4 C3 28 58 4D 24 29 00  |.Z(.XX.1..(XM$).|
000019E0: FB 1D 64 28 3A 8B 58 41  24 B2 CA 28 58 4D 24 2C  |..d(:.XA$..(XM$,|
000019F0: 58 58 2C 31 29 A7 58 46  B2 58 58 00 01 1E 6E 28  |XX,1).XF.XX...n(|
00001A00: 82 00 13 1E 9F 28 58 4D  24 B2 22 22 3A 58 58 B2  |.....(XM$."":XX.|
00001A10: 30 3A 8E 00 00 00                                 |0:....          |

..H.... WORKS ON PET 2001-8, NEW PET/CBM
, BASIC 4.0, AND CBM 8032 & 8016.].... *
** WORDSEARCH.X.... *** ORIGINAL PROGRAM
...... *** (C) 1980...... *** LEN LINDSA
Y...... *** 04/18/80...... CURRENTLY UND
ER MODIFICATION BY         JOHN O'HARE 1
/10/81.......9...ZP.B(50003):.ZP.1.ZP.2:
.B(34816)..32.ZP.3:. SET PET TYPE..... 
ZP MEANS: 0=OLD, 1=NEW, 2=BASIC 4.0, 3=8
0 COLUMN WITH BASIC 4.0......59468,12...
...".";.....X..(.TI):. SEED RND GENERATO
R...(...R(X)..(.(1).X.1):. CHOSE RANDOM 
# FROM 1 TO X.-.2.ZZ$.".................
.......................":. 40 DELETES.Z.
3..ZP.3.ZZ$.ZZ$.ZZ$:. FOR 80 COLUMN SCRE
EN...4.ZL$."..........":. 10 CURSOR LEFT
...6.ZS$."                              
          ":. 40 SPACES...`.XX$."..WILL 
YOU BE USING A PRINTER?":.10100:.:.XA$..
"Y".99...A.XQ$."PRINTER DEVICE #":XP$."4
":.10200:PD.XA.H.B..PD.3.PD.15..ZZ$;:.97
.R.C..RP...X.D..RN.0.2200:. RESTART SKIP
 TO MENU.~.E.....F..".WELCOME TO WORD SE
ARCH".I.N..".I WILL HIDE WORDS YOU SUPPL
Y INTO A"...X..".WORDSEARCH PUZZLE. I CA
N ALSO GIVE YOU......".AN ANSWER KEY..."
.X....:."THE PUZZLE CAN BE SOLVED ON THE
 SCREEN  .WITH THE NUMBER PAD.."......"U
SE F TO LOCATE FIRST LETTER, AND       .
L TO MARK THE LAST LETTER.":..U....".FOU
ND WORDS WILL BE SHOWN IN REVERSE..."...
........AW.19 : . PUZZLE WIDTH - FOR PRI
NTER MAY GO UP TO   AW=39.W...AH.11 : . 
PUZZLE HEIGTH- FOR PRINTER MAY GO UP TO 
  AH=31.U....W$(AW,AH):. PUZZLE ARRAY...
H.XQ$."HOW MANY WORDS TO HIDE":XP$."9":.
10200.F.R.NW.XA:.NW.99.NW.1..ZZ$;:.200..
....S$(NW):. WORD ARRAY......".WHAT IS T
HE TITLE OF THIS PUZZLE?":.10200:TP$.XA$
.......N....".PUZZLE: .";TP$:.".ENTER YO
UR WORDS NOW.".{....".ENTER ._. TO GO BA
CK AND REDO A WORD.......".ENTER .\. TO 
END INPUT OF WORDS EARLY.."......Z.1.NW.
E...:.Z.1.Z.1.....:."..ENTER WORD NUMBER
 ".D(Z)." PLEASE":.10200.1...:.XA$."\".Z
.1.."..YOU DON'T HAVE ANY WORDS YET":.40
4.A...:.XA$."_".Z.Z.1:."BACK TO REDO ".S
$(Z):.420......C(XA$).AW.C(XA$).AH..".TH
AT WORD IS TOO LONG":.:.422.....:S$(Z).X
A$.H.B.:.XA$."\".Q.Z.1:Z.NW:NW.Q...G.:.X
A$."."..ZZ$;:.10200:.430...L..Z...V..".T
HANK YOU - PLEASE WAIT WHILE I THINK".#.
....U...D..R(3):.3310:. INIT DIRECTION &
 PUZZLE ARRAY.W....CW.1.NW:. PUT WORDS I
N ARRAY.....:.CW;"OF";NW;"-";.....:CW$.S
$(CW):. CURRENT WORD.Q...:CL.C(CW$):. CU
RRENT WORD LENGTH.....:DF.0:. DIRECTION 
FLAG.....:DF.DF.1:. INCREMENT DIRECTION 
FLAG COUNTER.N...:.DF.3..".";CW$;" WON'T
 FIT":."TRY .D.":.2220.~.$.:D.D.1:.D.3.D
.1:. CIRCULAR DIRECTION CHANGE.....:DX.0
:W.AW:.D.3.W.W.CL:DX.1:.W.0.1040:. MOVE>
>...8.:DY.0:H.AH:.D.1.H.H.CL:DY.1:.H.0.1
040:. MOVEVV...B.:PF.1:. POINT FLAG 1=RA
NDOM,2=ALL,3=DONE...O.:. PICK START COOR
DINATE.A.P.:.PF.5000,5100:.PF.2.1040:. T
RY NEXT DIRECTION.M.Z.:. TEST.....:TX.X:
TY.Y:TF.0.....:.T.1.CL.D...::.TY.AH.TX.A
W.TF.1:T.CL:.2050:. WORD PAST BORDER....
.::.W$(TX,TY).."-".TF.1:T.CL:. SPOT IS O
CCUPIED.9...::TX.TX.DX:TY.TY.DY:. UPDATE
 COORDINATE TO NEXT POINT IN WORD.G...:.
T:."*";.D...:.TF.TF.0:.2000:. NO FIT.T..
.:. ADD WORD... .:B..R(2).1:. 0=WORD AS 
IS  1=WORD BACKWARDS.R.*.:.T.1.((CL.1).B
).1.((CL.1).(1.B)).1.(2.B)...4.::W$(X,Y)
.J(CW$,T,1)...>.::X.X.DX:Y.Y.DY...H.:.T.
'.R.:.:.".";CW$;".";" IS ADDED"./.F..CW.
5.K...O...RN.1:."..OPTION MENU".C...."..
W.ORD LIST".T...."..P.UZZLE"......"..A.N
SWER KEY"...A..".(HIT .SPACE. TO CONTINU
E AFTER THE ABOVE)".I.B.."..  OR"...C.."
..D.IFFERENT PUZZLE-SAME WORDS"...D.."..
N.EW WORDS & PUZZLE"...E.."..E.ND".<.J.X
X$."..YOUR CHOICE?":.10100:..A.O.XM$."WP
ADNE":.10300:CH.XF:. EDIT...T..CH.2270,2
270,2270,4700,3700,2900...Y..2200.......
S...DV.3:.PD.XX$.".PRINT TO .S.CREEN OR 
.P.RINTER":.10100:.......PD.0.XA$."P".DV
.PD......".";......1,DV.&....DV.3. ."PRI
NTING TO YOUR PRINTER".@....CH.4500,3000
,4000: 1.G....DV.3..10130:. FREEZE TILL 
KEY HIT.Q.$..2200.W.).....T..".THAT WAS 
FUN - TRY IT AGAIN LATER.":....Y........
1,H(ZS$,(2.AW.C(TP$)).2).TP$:. TITLE-PRI
NT PUZZLE...L..1:. BLANK...V..Y.1.AH....
..1," ";.....:.X.1.AW.B...::.W$(X,Y)."-"
.SF.1..".";:.3070:. RANDOM.U...::.W$(X,Y
)."-"..1,G(64..R(26));:.3070:. RANDOM...
..::.1,W$(X,Y);:. CORRECT LETTER.....::.
1," ";:. SPACE AFTER LETTER.C...:.X.....
:.1:. CARRIAGE RETURN.....:.1:. BLANK...
&..Y...+.SF.0...,..DV.3.6000...:.....?..
.$....Y.1.AH.1...:.X.1.AW.C...::W$(X,Y).
"-".K...:.X.T....Y:..Z.....`.=...F.T...L
.Y..... ..1,H(ZS$,(2.AW.C(TP$)).2).TP$:.
 TITLE-ANSWER KEY......1:. BLANK......Y.
1.AH.I.H.:.X.1.AW...R.::.1,W$(X,Y);:. PR
INT LETTER.....::.1," ";:. SPACE AFTER L
ETTER.....:.X./...:.1:. CARRIAGE RETURN.
?...:.1:. BLANK.F....Y.L.....R.....{....
1,"HERE ARE THE WORDS I'VE HIDDEN:".....
.Z.1.NW.....:.1,S$(Z):. PRINT WORD......
Z...P.....U.....\.XX$.".SAME SIZE?":.101
00:.XA$."Y".470...F..XA$.."N".4700.6.P.X
Q$.".HOW WIDE (10-19)":.10200:.XA.10.XA.
39.4720:. LINE150SETMA.@.R.AW.XA...Z.XQ$
."..HOW HIGH (10-11)":.10200:.XA.10.XA.3
1.4730:.LINE152SETMAX...|.AH.XA......470
.V...RC.RC.1:. INCREMENT RND COUNTER-PIC
K RND START COORDINATE......RC.9.PF.2:FC
.0:RC.0:.:. ENOUGH RANDOM TRYS.!...X..R(
W):. X COORDINATE.<...Y..R(H):. Y COORDI
NATE.B.....H.....|...FC.FC.1:.FC.W.H.PF.
3:. TRY ALL POINTS,3=NO ROOM.....X.X.1:.
X.W.X.1:Y.Y.1:.Y.H.Y.1:. CIRCULAR NEXT S
POT.............M.P.XL.1:YL.1...Z.CR$.".
......................................."
.D...WR.NW..".    ----.YOU FOUND ALL TH
E WORDS.----":.DL.1.1250:.:..N...C$."".T
...CD$."..........................."....
.CH$."....".....CE$.".. . ".A....".";H(C
R$,XL.2.1);H(CD$,(YL.2.1).1);CH$;......A
$:.B(151).18.YL.AH.YL.YL.1:.".";CE$;....
..B(151).50.YL.1.YL.YL.1:.".";CE$;.9....
B(151).41.XL.AW.XL.XL.1:.".";CE$;._....B
(151).42.XL.1.XL.XL.1:.".";CE$;.M. ..A$.
"Q"........A$.."F".A$.."L".9999......A$.
"L".6060.....XS.XL:YS.YL:.9999.....NF.0:
.W$(XL,YL)."-".W$(XS,YS)."-".NF.1:.7000.
.....XS.XL.YS.YL.NF.1:.7000.....XP.XL:YP
.YL.(....XL.XS.XI.0:XP.999:.6105.>.T.XI.
.1:.XL.XS.XI.1.[.Y..YL.YS.YI.0:YP.999:.6
200.Q...YI..1:.YL.YS.YI.1...8.XC.XS:YC.Y
S...=.C$.""...B.C$.C$.W$(XC,YC)...L..XC.
XP.YC.YP.7000.K.V.XC.XC.XI:YC.YC.YI.U.J.
.6210...X..NF.7020...].NF.1:.LP.1.NW:.C$
.S$(LP).NF.0...B..LP.?.L..NF.1..".WRONG"
:.DL.1.1000:.DL:.".     ":.9999.V.V.."."
;C$;"       ";.F. .XC.XS:YC.YS...*.W$(XC
,YC).".".W$(XC,YC)."."...4..XC.XP.YC.YP.
7500...>.XC.XC.XI:YC.YC.YI...H..7210.H.L
.WR.WR.1.X.V..DL.1.250:....`..".";:.LP.1
.C(C$):." ";:.:.".";:SF.1:.3000....'.601
0./.T'.XX$;:. GET ONE CHARACTER.U..'.XA$
:.XA$."".10130:. CLEAR BUFFER.L..'.XA$:.
XA$."".10140.Z..'XA.E(XA$)...W'XX$."":..
B.X'.XP$."".XP$.".":. SET DEFAULT PROMPT
,INPUT WITH PROMPT....'.XA$:.XA$.."".102
20:. CLEAR BUFFER. ..(XB$.H("  ".XP$.ZL$
,2.C(XP$).4):. SET UP FOR PROMPT.Q..(.XQ
$;XB$;:. PRINT QUESTION & PROPOSED ANSWE
R.Z..(.XA$.H.((XA.E(XA$)...;(XP$."":XB$.
"":XQ$."":....<(XF.0:. INITIALIZE FLAG,E
DIT 1 CHARACTER.N.P(.XM$."".XM$."YN":. D
EFAULT...Z(.XX.1.C(XM$)...D(:.XA$.J(XM$,
XX,1).XF.XX...N(.....(XM$."":XX.0:....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL