/ The Datafile PD-CD 2 / DATAFILE_PDCD2.iso / utilities2 / wordsearch / WORDSEARCH / WordSearch

< prev

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 31 f4 20 57 6f | 72 64 73 65 61 72 63 68 |...1. Wo|rdsearch|
|00000010| 20 67 65 6e 65 72 61 74 | 6f 72 20 62 79 20 4d 61 | generat|or by Ma|
|00000020| 74 74 68 65 77 20 44 72 | 61 70 65 72 20 31 39 38 |tthew Dr|aper 198|
|00000030| 39 0d 00 14 05 3a 0d 00 | 1e 05 3a 0d 00 28 05 3a |9....:..|..:..(.:|
|00000040| 0d 00 32 08 d8 3a eb 37 | 0d 00 3c 14 f4 4f 4e 20 |..2..:.7|..<..ON |
|00000050| 45 52 52 4f 52 20 47 4f | 54 4f 38 30 0d 00 46 09 |ERROR GO|TO80..F.|
|00000060| f2 69 6e 69 74 0d 00 50 | 0d ee 20 85 20 e5 8d 74 |.init..P|.. . ..t|
|00000070| 42 40 0d 00 5a 0d f2 70 | 6c 61 63 65 6d 69 78 0d |B@..Z..p|lacemix.|
|00000080| 00 64 09 f2 73 6f 72 74 | 0d 00 6e 0c f2 64 69 72 |.d..sort|..n..dir|
|00000090| 66 69 6c 6c 0d 00 78 0a | f2 77 6f 72 64 73 0d 00 |fill..x.|.words..|
|000000a0| 82 09 f2 66 69 6c 6c 0d | 00 8c 0a f2 70 72 69 6e |...fill.|....prin|
|000000b0| 74 0d 00 96 09 e5 8d 54 | 72 40 0d 00 a0 05 e0 0d |t......T|r@......|
|000000c0| 00 aa 05 3a 0d 00 b4 ec | f4 2a 2a 2a 2a 20 20 20 |...:....|.****   |
|000000d0| 20 41 6c 6c 20 64 61 74 | 61 20 6d 75 73 74 20 73 | All dat|a must s|
|000000e0| 74 61 72 74 20 66 72 6f | 6d 20 6c 69 6e 65 20 32 |tart fro|m line 2|
|000000f0| 30 30 2e 20 45 61 63 68 | 20 6e 65 77 20 73 75 62 |00. Each| new sub|
|00000100| 6a 65 63 74 20 6d 75 73 | 74 20 62 65 20 6f 6e 20 |ject mus|t be on |
|00000110| 61 20 6c 69 6e 65 20 6e | 75 6d 62 65 72 20 64 69 |a line n|umber di|
|00000120| 76 69 73 69 62 6c 65 20 | 62 79 20 32 30 2c 20 69 |visible |by 20, i|
|00000130| 6d 6d 65 64 69 61 74 65 | 6c 79 20 61 66 74 65 72 |mmediate|ly after|
|00000140| 20 70 72 65 76 69 6f 75 | 73 20 64 61 74 61 2e 20 | previou|s data. |
|00000150| 45 61 63 68 20 73 75 62 | 6a 65 63 74 20 63 61 6e |Each sub|ject can|
|00000160| 20 74 61 6b 65 20 75 70 | 20 74 77 6f 20 6c 69 6e | take up| two lin|
|00000170| 65 73 2c 20 65 2e 67 2e | 20 32 34 30 20 61 6e 64 |es, e.g.| 240 and|
|00000180| 20 32 35 30 2e 20 74 68 | 65 20 66 69 72 73 74 20 | 250. th|e first |
|00000190| 77 6f 72 64 20 6f 66 20 | 65 61 63 68 20 73 75 62 |word of |each sub|
|000001a0| 6a 65 63 74 20 6d 75 73 | 74 20 62 65 20 74 68 65 |ject mus|t be the|
|000001b0| 0d 00 be a3 f4 2a 2a 2a | 2a 20 20 20 20 73 75 62 |.....***|*    sub|
|000001c0| 6a 65 63 74 73 20 74 69 | 74 6c 65 2c 20 65 2e 67 |jects ti|tle, e.g|
|000001d0| 2e 20 46 4c 4f 57 45 52 | 53 2e 20 54 4f 20 41 44 |. FLOWER|S. TO AD|
|000001e0| 44 20 59 4f 55 52 20 4f | 57 4e 20 44 41 54 41 2c |D YOUR O|WN DATA,|
|000001f0| 20 49 54 20 49 53 20 41 | 44 56 49 53 45 41 42 4c | IT IS A|DVISEABL|
|00000200| 45 20 54 4f 20 52 45 50 | 4c 41 43 45 20 54 57 4f |E TO REP|LACE TWO|
|00000210| 20 45 58 49 53 54 49 4e | 47 20 4c 49 4e 45 53 20 | EXISTIN|G LINES |
|00000220| 4f 46 20 44 41 54 41 2c | 20 45 2e 47 2e 20 4c 49 |OF DATA,| E.G. LI|
|00000230| 4e 45 53 20 32 38 30 20 | 41 4e 44 20 32 39 30 20 |NES 280 |AND 290 |
|00000240| 57 49 54 48 20 59 4f 55 | 52 20 4f 57 4e 20 44 41 |WITH YOU|R OWN DA|
|00000250| 54 41 2e 0d 00 c8 e9 dc | 45 4c 45 43 54 52 4f 4e |TA......|ELECTRON|
|00000260| 49 43 53 2c 43 4f 4e 44 | 55 43 54 49 56 49 54 59 |ICS,COND|UCTIVITY|
|00000270| 2c 52 45 53 49 53 54 41 | 4e 43 45 2c 43 41 50 41 |,RESISTA|NCE,CAPA|
|00000280| 43 49 54 41 4e 43 45 2c | 54 48 45 52 4d 49 53 54 |CITANCE,|THERMIST|
|00000290| 4f 52 2c 54 52 41 4e 53 | 49 53 54 4f 52 2c 53 4f |OR,TRANS|ISTOR,SO|
|000002a0| 4c 45 4e 4f 49 44 2c 4d | 4f 54 4f 52 2c 41 4d 50 |LENOID,M|OTOR,AMP|
|000002b0| 4c 49 46 49 45 52 2c 4f | 53 43 49 4c 4c 41 54 4f |LIFIER,O|SCILLATO|
|000002c0| 52 2c 4e 45 47 41 54 49 | 56 45 2c 50 4f 53 49 54 |R,NEGATI|VE,POSIT|
|000002d0| 49 56 45 2c 45 4c 45 43 | 54 52 49 43 49 54 59 2c |IVE,ELEC|TRICITY,|
|000002e0| 41 4d 50 53 2c 56 4f 4c | 54 53 2c 57 49 52 45 2c |AMPS,VOL|TS,WIRE,|
|000002f0| 43 4f 49 4c 2c 43 55 52 | 52 45 4e 54 2c 42 55 4c |COIL,CUR|RENT,BUL|
|00000300| 42 2c 42 41 54 54 45 52 | 59 2c 42 55 5a 5a 45 52 |B,BATTER|Y,BUZZER|
|00000310| 2c 44 49 4f 44 45 2c 45 | 41 52 54 48 2c 4c 41 53 |,DIODE,E|ARTH,LAS|
|00000320| 45 52 2c 41 4e 4f 44 45 | 2c 43 41 54 48 4f 44 45 |ER,ANODE|,CATHODE|
|00000330| 2c 50 48 41 53 45 2c 46 | 49 45 4c 44 0d 00 d2 2f |,PHASE,F|IELD.../|
|00000340| dc 53 49 4c 49 43 4f 4e | 2c 43 48 49 50 2c 53 57 |.SILICON|,CHIP,SW|
|00000350| 49 54 43 48 2c 50 4f 54 | 2c 4c 45 44 2c 57 41 56 |ITCH,POT|,LED,WAV|
|00000360| 45 2c 56 48 46 2c 55 48 | 46 2c 5a 0d 00 dc e9 dc |E,VHF,UH|F,Z.....|
|00000370| 46 4f 4f 44 2c 54 4f 4d | 41 54 4f 2c 41 50 50 4c |FOOD,TOM|ATO,APPL|
|00000380| 45 2c 50 45 41 52 2c 50 | 4c 55 4d 42 2c 42 41 4e |E,PEAR,P|LUMB,BAN|
|00000390| 41 4e 41 2c 4f 52 41 4e | 47 45 2c 43 41 42 42 41 |ANA,ORAN|GE,CABBA|
|000003a0| 47 45 2c 53 41 55 53 41 | 47 45 2c 50 4f 54 41 54 |GE,SAUSA|GE,POTAT|
|000003b0| 4f 2c 42 41 43 4f 4e 2c | 4d 55 53 48 52 4f 4f 4d |O,BACON,|MUSHROOM|
|000003c0| 2c 43 41 4b 45 2c 42 52 | 45 41 44 2c 53 50 41 47 |,CAKE,BR|EAD,SPAG|
|000003d0| 45 54 54 49 2c 43 52 45 | 41 4d 2c 44 55 4d 50 4c |ETTI,CRE|AM,DUMPL|
|000003e0| 49 4e 47 53 2c 53 50 4f | 4e 47 45 2c 43 48 4f 43 |INGS,SPO|NGE,CHOC|
|000003f0| 4f 4c 41 54 45 2c 53 55 | 47 41 52 2c 41 50 52 49 |OLATE,SU|GAR,APRI|
|00000400| 43 4f 54 2c 4d 41 4e 47 | 4f 2c 50 41 4e 43 41 4b |COT,MANG|O,PANCAK|
|00000410| 45 2c 54 4f 41 53 54 2c | 53 54 45 57 2c 52 4f 41 |E,TOAST,|STEW,ROA|
|00000420| 53 54 2c 4c 41 4d 42 2c | 42 45 45 46 2c 4d 55 54 |ST,LAMB,|BEEF,MUT|
|00000430| 54 4f 4e 2c 46 49 53 48 | 2c 56 45 41 4c 2c 4c 45 |TON,FISH|,VEAL,LE|
|00000440| 54 54 55 43 45 2c 43 41 | 52 52 4f 54 2c 50 41 52 |TTUCE,CA|RROT,PAR|
|00000450| 53 4e 49 50 0d 00 e6 20 | dc 43 45 52 45 41 4c 2c |SNIP... |.CEREAL,|
|00000460| 4f 41 54 53 2c 47 52 41 | 56 59 2c 53 50 52 4f 55 |OATS,GRA|VY,SPROU|
|00000470| 54 53 2c 5a 0d 00 f0 e9 | dc 41 4e 49 4d 41 4c 53 |TS,Z....|.ANIMALS|
|00000480| 2c 44 4f 47 2c 43 41 54 | 2c 4c 49 4f 4e 2c 43 48 |,DOG,CAT|,LION,CH|
|00000490| 45 45 54 41 48 2c 4c 45 | 4f 50 41 52 44 2c 54 49 |EETAH,LE|OPARD,TI|
|000004a0| 47 45 52 2c 50 41 4e 54 | 48 45 52 2c 45 4c 45 50 |GER,PANT|HER,ELEP|
|000004b0| 48 41 4e 54 2c 4d 4f 4c | 45 2c 47 49 52 41 46 46 |HANT,MOL|E,GIRAFF|
|000004c0| 45 2c 49 47 55 41 4e 41 | 2c 57 48 41 4c 45 2c 4f |E,IGUANA|,WHALE,O|
|000004d0| 43 54 4f 50 55 53 2c 53 | 51 55 49 44 2c 50 49 52 |CTOPUS,S|QUID,PIR|
|000004e0| 52 41 4e 41 48 2c 53 4e | 41 49 4c 2c 53 4c 55 47 |RANAH,SN|AIL,SLUG|
|000004f0| 2c 48 4f 55 4e 44 2c 45 | 41 47 4c 45 2c 53 45 41 |,HOUND,E|AGLE,SEA|
|00000500| 47 55 4c 4c 2c 53 50 41 | 52 52 4f 57 2c 48 45 44 |GULL,SPA|RROW,HED|
|00000510| 47 45 48 4f 47 2c 53 51 | 55 49 52 52 45 4c 2c 42 |GEHOG,SQ|UIRREL,B|
|00000520| 45 41 56 45 52 2c 42 45 | 41 52 2c 42 4f 41 52 2c |EAVER,BE|AR,BOAR,|
|00000530| 4f 58 45 4e 2c 53 45 41 | 4c 2c 44 49 4e 47 4f 2c |OXEN,SEA|L,DINGO,|
|00000540| 48 59 45 4e 41 2c 53 48 | 45 45 50 2c 43 4f 57 2c |HYENA,SH|EEP,COW,|
|00000550| 43 48 49 43 4b 45 4e 2c | 4d 4f 55 53 45 0d 00 fa |CHICKEN,|MOUSE...|
|00000560| 30 dc 53 4b 55 4e 4b 2c | 57 41 4c 52 55 53 2c 41 |0.SKUNK,|WALRUS,A|
|00000570| 4e 54 2c 57 4f 52 4d 2c | 46 49 53 48 2c 46 52 4f |NT,WORM,|FISH,FRO|
|00000580| 47 2c 54 4f 41 44 2c 4e | 45 57 54 2c 5a 0d 01 04 |G,TOAD,N|EWT,Z...|
|00000590| eb dc 46 4c 4f 57 45 52 | 53 2c 49 52 49 53 2c 4c |..FLOWER|S,IRIS,L|
|000005a0| 49 4c 59 2c 52 4f 53 45 | 2c 41 53 50 49 43 2c 41 |ILY,ROSE|,ASPIC,A|
|000005b0| 53 54 45 52 2c 42 52 49 | 41 52 2c 44 41 49 53 59 |STER,BRI|AR,DAISY|
|000005c0| 2c 54 55 4c 49 50 2c 4f | 52 43 48 49 44 2c 54 48 |,TULIP,O|RCHID,TH|
|000005d0| 52 49 46 54 2c 56 49 4f | 4c 45 54 2c 43 4f 57 53 |RIFT,VIO|LET,COWS|
|000005e0| 4c 49 50 2c 46 55 43 48 | 53 49 41 2c 44 41 48 4c |LIP,FUCH|SIA,DAHL|
|000005f0| 49 41 2c 47 4f 52 53 45 | 2c 50 41 4e 53 59 2c 4c |IA,GORSE|,PANSY,L|
|00000600| 55 50 49 4e 45 2c 49 42 | 45 52 49 53 2c 42 4c 55 |UPINE,IB|ERIS,BLU|
|00000610| 45 42 45 4c 4c 2c 43 41 | 4d 45 4c 4c 49 41 2c 43 |EBELL,CA|MELLIA,C|
|00000620| 41 50 53 49 43 55 4d 2c | 44 41 46 46 4f 44 49 4c |APSICUM,|DAFFODIL|
|00000630| 2c 46 4f 58 47 4c 4f 56 | 45 2c 47 45 52 41 4e 49 |,FOXGLOV|E,GERANI|
|00000640| 55 4d 2c 48 59 41 43 49 | 4e 54 48 2c 4a 41 50 4f |UM,HYACI|NTH,JAPO|
|00000650| 4e 49 43 41 2c 4c 41 42 | 55 52 4e 55 4d 2c 4c 41 |NICA,LAB|URNUM,LA|
|00000660| 56 41 4e 44 45 52 2c 4d | 41 47 4e 4f 4c 49 41 2c |VANDER,M|AGNOLIA,|
|00000670| 4d 41 52 49 47 4f 4c 44 | 0d 01 0e 2a dc 50 52 49 |MARIGOLD|...*.PRI|
|00000680| 4d 52 4f 53 45 2c 52 48 | 4f 44 4f 44 45 4e 44 52 |MROSE,RH|ODODENDR|
|00000690| 4f 4e 2c 43 48 52 59 53 | 41 4e 54 48 45 4d 55 4d |ON,CHRYS|ANTHEMUM|
|000006a0| 2c 5a 0d 01 18 df dc 44 | 52 49 4e 4b 53 2c 41 4c |,Z.....D|RINKS,AL|
|000006b0| 45 2c 46 49 58 2c 47 49 | 4e 2c 4e 4f 47 2c 52 55 |E,FIX,GI|N,NOG,RU|
|000006c0| 4d 2c 47 52 4f 47 2c 4f | 55 5a 4f 2c 50 4f 52 54 |M,GROG,O|UZO,PORT|
|000006d0| 2c 52 4f 53 45 2c 53 41 | 4b 45 2c 57 49 4e 45 2c |,ROSE,SA|KE,WINE,|
|000006e0| 43 49 44 45 52 2c 50 4c | 4f 4e 4b 2c 50 55 4e 43 |CIDER,PL|ONK,PUNC|
|000006f0| 48 2c 54 4f 44 44 59 2c | 54 4f 4e 49 43 2c 42 49 |H,TODDY,|TONIC,BI|
|00000700| 54 54 45 52 2c 42 52 41 | 4e 44 59 2c 43 4c 41 52 |TTER,BRA|NDY,CLAR|
|00000710| 45 54 2c 43 4f 47 4e 41 | 43 2c 4c 49 51 4f 52 2c |ET,COGNA|C,LIQOR,|
|00000720| 50 45 52 4e 4f 44 2c 53 | 43 4f 54 43 48 2c 53 48 |PERNOD,S|COTCH,SH|
|00000730| 41 4e 44 59 2c 53 48 45 | 52 52 59 2c 57 48 49 53 |ANDY,SHE|RRY,WHIS|
|00000740| 4b 59 2c 41 4c 43 4f 48 | 4f 4c 2c 43 41 4d 50 41 |KY,ALCOH|OL,CAMPA|
|00000750| 52 49 2c 43 4f 52 44 49 | 41 4c 2c 4c 49 51 55 45 |RI,CORDI|AL,LIQUE|
|00000760| 52 2c 4d 41 52 54 49 4e | 49 2c 52 45 54 53 49 4e |R,MARTIN|I,RETSIN|
|00000770| 41 2c 53 50 49 52 49 54 | 2c 54 45 51 55 49 4c 4c |A,SPIRIT|,TEQUILL|
|00000780| 41 0d 01 22 45 dc 41 44 | 56 4f 43 41 41 54 2c 42 |A.."E.AD|VOCAAT,B|
|00000790| 55 52 47 55 4e 44 59 2c | 43 4f 43 4b 54 41 49 4c |URGUNDY,|COCKTAIL|
|000007a0| 2c 44 52 41 4d 42 55 49 | 45 2c 44 55 42 4f 4e 4e |,DRAMBUI|E,DUBONN|
|000007b0| 45 54 2c 47 55 49 4e 45 | 53 53 2c 43 48 41 4d 50 |ET,GUINE|SS,CHAMP|
|000007c0| 41 47 4e 45 2c 5a 0d 01 | 2c 05 3a 0d 01 36 0a dd |AGNE,Z..|,.:..6..|
|000007d0| f2 69 6e 69 74 0d 01 40 | 05 db 0d 01 4a 2b f1 8a |.init..@|....J+..|
|000007e0| 38 2c 30 29 bd 31 33 31 | 3b bd 31 34 31 3b 22 57 |8,0).131|;.141;"W|
|000007f0| 6f 72 64 73 65 61 72 63 | 68 20 47 65 6e 65 72 61 |ordsearc|h Genera|
|00000800| 74 6f 72 2e 22 0d 01 54 | 2b f1 8a 38 2c 31 29 bd |tor."..T|+..8,1).|
|00000810| 31 33 31 3b bd 31 34 31 | 3b 22 57 6f 72 64 73 65 |131;.141|;"Wordse|
|00000820| 61 72 63 68 20 47 65 6e | 65 72 61 74 6f 72 2e 22 |arch Gen|erator."|
|00000830| 0d 01 5e 22 f1 8a 31 32 | 2c 32 29 bd 31 34 30 3b |..^"..12|,2).140;|
|00000840| bd 31 33 34 3b 22 42 79 | 20 4d 2e 44 72 61 70 65 |.134;"By| M.Drape|
|00000850| 72 22 0d 01 68 41 e8 8a | 32 2c 34 29 22 53 69 64 |r"..hA..|2,4)"Sid|
|00000860| 65 20 6c 65 6e 67 74 68 | 20 28 35 2d 32 30 29 22 |e length| (5-20)"|
|00000870| 3b 89 28 31 30 29 6c 65 | 6e 25 3a e7 20 6c 65 6e |;.(10)le|n%:. len|
|00000880| 25 3c 35 20 84 20 6c 65 | 6e 25 3e 32 30 20 e5 8d |%<5 . le|n%>20 ..|
|00000890| 44 40 41 0d 01 72 24 e8 | 8a 32 2c 36 29 22 41 6e |D@A..r$.|.2,6)"An|
|000008a0| 61 67 72 61 6d 73 20 28 | 59 2f 4e 29 22 3b 89 28 |agrams (|Y/N)";.(|
|000008b0| 31 33 29 3b 61 61 24 0d | 01 7c 4b e8 8a 32 2c 38 |13);aa$.|.|K..2,8|
|000008c0| 29 22 4c 6f 77 65 72 20 | 63 61 73 65 20 66 69 6c |)"Lower |case fil|
|000008d0| 6c 20 63 68 61 72 61 63 | 74 65 72 73 20 22 3b 66 |l charac|ters ";f|
|000008e0| 6c 63 24 3a e7 20 66 6c | 63 24 3c 3e 22 59 22 20 |lc$:. fl|c$<>"Y" |
|000008f0| 66 6c 63 73 25 3d 30 20 | 8b 20 66 6c 63 73 25 3d |flcs%=0 |. flcs%=|
|00000900| 33 32 0d 01 86 2d e8 8a | 32 2c 31 30 29 22 4d 61 |32...-..|2,10)"Ma|
|00000910| 78 69 6d 75 6d 20 6e 75 | 6d 62 65 72 20 6f 66 20 |ximum nu|mber of |
|00000920| 77 6f 72 64 73 22 89 28 | 35 29 6d 61 78 6e 25 0d |words".(|5)maxn%.|
|00000930| 01 90 09 f2 64 61 74 61 | 0d 01 9a 1f f1 8a 31 30 |....data|......10|
|00000940| 2c 32 34 29 bd 31 32 39 | 3b 22 50 6c 65 61 73 65 |,24).129|;"Please|
|00000950| 20 77 61 69 74 22 3b 0d | 01 a4 37 de 20 67 72 69 | wait";.|..7. gri|
|00000960| 64 24 28 6c 65 6e 25 2c | 6c 65 6e 25 29 2c 77 72 |d$(len%,|len%),wr|
|00000970| 64 24 28 31 30 30 29 2c | 64 69 72 25 28 38 2c 32 |d$(100),|dir%(8,2|
|00000980| 29 2c 70 6c 63 65 25 28 | 34 30 30 2c 32 29 0d 01 |),plce%(|400,2)..|
|00000990| ae 29 70 6c 63 64 25 3d | 30 3a 70 75 74 25 3d 30 |.)plcd%=|0:put%=0|
|000009a0| 3a 64 6f 78 25 3d 30 3a | 64 6f 79 25 3d 30 3a 6c |:dox%=0:|doy%=0:l|
|000009b0| 65 6d 61 78 25 3d 30 0d | 01 b8 0d 63 72 6f 6d 61 |emax%=0.|...croma|
|000009c0| 78 25 3d 30 0d 01 c2 13 | ef 32 33 3b 38 32 30 32 |x%=0....|.23;8202|
|000009d0| 3b 30 3b 30 3b 30 3b 0d | 01 cc 05 e1 0d 01 d6 05 |;0;0;0;.|........|
|000009e0| 3a 0d 01 e0 0a dd f2 64 | 61 74 61 0d 01 ea 17 f1 |:......d|ata.....|
|000009f0| 3a f1 8a 32 2c 31 32 29 | 22 53 75 62 6a 65 63 74 |:..2,12)|"Subject|
|00000a00| 3b 22 0d 01 f4 0d 6c 69 | 6e 65 25 3d 32 30 30 0d |;"....li|ne%=200.|
|00000a10| 01 fe 0a f7 6c 69 6e 65 | 25 0d 02 08 0a f3 74 69 |....line|%.....ti|
|00000a20| 74 6c 24 0d 02 12 13 e7 | 74 69 74 6c 24 3d 22 30 |tl$.....|titl$="0|
|00000a30| 22 e5 8d 64 74 41 0d 02 | 1c 1c 70 6c 6e 25 3d 31 |"..dtA..|..pln%=1|
|00000a40| 32 2b 28 28 6c 69 6e 65 | 25 2d 31 39 30 29 2f 32 |2+((line|%-190)/2|
|00000a50| 30 29 0d 02 26 3c f1 8a | 31 31 2c 70 6c 6e 25 29 |0)..&<..|11,pln%)|
|00000a60| 74 69 74 6c 24 3b 3a f1 | 8a 32 34 2c 70 6c 6e 25 |titl$;:.|.24,pln%|
|00000a70| 29 22 28 59 2f 4e 29 22 | 3b 89 28 35 29 3b 3a e8 |)"(Y/N)"|;.(5);:.|
|00000a80| 8a 32 39 2c 70 6c 6e 25 | 29 3b 64 61 6e 24 0d 02 |.29,pln%|);dan$..|
|00000a90| 30 14 e7 20 64 61 6e 24 | 3d 22 59 22 20 e5 8d 44 |0.. dan$|="Y" ..D|
|00000aa0| 4e 42 0d 02 3a 12 6c 69 | 6e 65 25 3d 6c 69 6e 65 |NB..:.li|ne%=line|
|00000ab0| 25 2b 32 30 0d 02 44 09 | e5 8d 64 7e 41 0d 02 4e |%+20..D.|..d~A..N|
|00000ac0| 05 e1 0d 02 58 05 3a 0d | 02 62 0b dd f2 77 6f 72 |....X.:.|.b...wor|
|00000ad0| 64 73 0d 02 6c 05 db 0d | 02 76 27 f1 8a 32 39 2c |ds..l...|.v'..29,|
|00000ae0| 36 29 bd 31 32 39 3a f1 | 8a 32 39 2c 37 29 bd 31 |6).129:.|.29,7).1|
|00000af0| 32 39 3a f1 8a 32 39 2c | 38 29 bd 31 32 39 0d 02 |29:..29,|8).129..|
|00000b00| 80 10 f1 8a 33 31 2c 37 | 29 3b bd 32 35 35 0d 02 |....31,7|);.255..|
|00000b10| 8a 16 f1 8a 30 2c 32 32 | 29 bd 31 33 31 3b 22 77 |....0,22|).131;"w|
|00000b20| 6f 72 64 22 0d 02 94 1b | f1 8a 32 36 2c 34 29 bd |ord"....|..26,4).|
|00000b30| 31 33 31 3b 22 64 69 72 | 65 63 74 69 6f 6e 22 0d |131;"dir|ection".|
|00000b40| 02 9e 17 f1 8a 32 39 2c | 31 31 29 bd 31 33 31 3b |.....29,|11).131;|
|00000b50| 22 67 72 69 64 22 0d 02 | a8 1b f1 8a 32 37 2c 31 |"grid"..|....27,1|
|00000b60| 32 29 bd 31 33 31 3b 22 | 70 6f 73 69 74 69 6f 6e |2).131;"|position|
|00000b70| 22 0d 02 b2 1f f1 8a 32 | 35 2c 31 37 29 bd 31 33 |"......2|5,17).13|
|00000b80| 31 3b 22 77 6f 72 64 73 | 20 70 6c 61 63 65 64 22 |1;"words| placed"|
|00000b90| 0d 02 bc 1a f1 8a 32 36 | 2c 32 32 29 22 77 6f 72 |......26|,22)"wor|
|00000ba0| 64 73 20 66 61 69 6c 65 | 64 22 0d 02 c6 0a 77 64 |ds faile|d"....wd|
|00000bb0| 63 25 3d 31 0d 02 d0 12 | 72 77 24 3d 77 72 64 24 |c%=1....|rw$=wrd$|
|00000bc0| 28 77 64 63 25 29 0d 02 | da 0c e7 72 77 24 3d 22 |(wdc%)..|...rw$="|
|00000bd0| 22 e1 0d 02 e4 0b f2 64 | 69 72 6d 69 78 0d 02 ee |"......d|irmix...|
|00000be0| 0b 64 69 72 63 25 3d 31 | 0d 02 f8 20 70 6f 73 25 |.dirc%=1|... pos%|
|00000bf0| 3d 31 3a f1 8a 30 2c 32 | 34 29 bd 31 32 39 3b 72 |=1:..0,2|4).129;r|
|00000c00| 77 24 3b 89 28 37 29 3b | 0d 03 02 09 f2 69 6e 66 |w$;.(7);|.....inf|
|00000c10| 6f 0d 03 0c 05 3a 0d 03 | 16 29 70 6c 78 25 3d 70 |o....:..|.)plx%=p|
|00000c20| 6c 63 65 25 28 70 6f 73 | 25 2c 31 29 3a 70 6c 79 |lce%(pos|%,1):ply|
|00000c30| 25 3d 70 6c 63 65 25 28 | 70 6f 73 25 2c 32 29 0d |%=plce%(|pos%,2).|
|00000c40| 03 20 14 f1 8a 32 32 2c | 31 34 29 bd 31 32 39 70 |. ...22,|14).129p|
|00000c50| 6f 73 25 0d 03 2a 33 f2 | 74 72 79 28 64 69 72 25 |os%..*3.|try(dir%|
|00000c60| 28 64 69 72 63 25 2c 31 | 29 2c 64 69 72 25 28 64 |(dirc%,1|),dir%(d|
|00000c70| 69 72 63 25 2c 32 29 2c | 72 77 24 2c 70 6c 78 25 |irc%,2),|rw$,plx%|
|00000c80| 2c 70 6c 79 25 29 0d 03 | 34 1d e7 70 6f 73 25 3d |,ply%)..|4..pos%=|
|00000c90| 6c 65 6e 25 5e 32 80 64 | 69 72 63 25 3d 38 e5 8d |len%^2.d|irc%=8..|
|00000ca0| 44 66 43 0d 03 3e 23 e7 | 70 6f 73 25 3d 6c 65 6e |DfC..>#.|pos%=len|
|00000cb0| 25 5e 32 64 69 72 63 25 | 3d 64 69 72 63 25 2b 31 |%^2dirc%|=dirc%+1|
|00000cc0| 3a e5 8d 64 78 42 0d 03 | 48 0f 70 6f 73 25 3d 70 |:..dxB..|H.pos%=p|
|00000cd0| 6f 73 25 2b 31 0d 03 52 | 09 e5 8d 54 56 43 0d 03 |os%+1..R|...TVC..|
|00000ce0| 5c 05 3a 0d 03 66 54 e7 | 70 6c 63 64 25 3d 30 d4 |\.:..fT.|plcd%=0.|
|00000cf0| 31 2c 2d 31 35 2c 38 32 | 2c 31 8b 77 72 64 24 28 |1,-15,82|,1.wrd$(|
|00000d00| 70 75 74 25 29 3d 77 72 | 64 24 28 77 64 63 25 29 |put%)=wr|d$(wdc%)|
|00000d10| 3a f2 70 72 77 6f 72 64 | 28 62 73 78 25 2c 62 73 |:.prword|(bsx%,bs|
|00000d20| 79 25 2c 62 73 78 73 25 | 2c 62 73 79 73 25 2c 62 |y%,bsxs%|,bsys%,b|
|00000d30| 73 77 6f 72 64 24 29 0d | 03 70 0f 77 64 63 25 3d |sword$).|.p.wdc%=|
|00000d40| 77 64 63 25 2b 31 0d 03 | 7a 15 70 6c 63 64 25 3d |wdc%+1..|z.plcd%=|
|00000d50| 30 3a 63 72 6f 6d 61 78 | 25 3d 30 0d 03 84 14 e7 |0:cromax|%=0.....|
|00000d60| 70 75 74 25 3d 6d 61 78 | 6e 25 e5 8d 74 58 43 0d |put%=max|n%..tXC.|
|00000d70| 03 8e 09 e5 8d 64 50 42 | 0d 03 98 05 e1 0d 03 a2 |.....dPB|........|
|00000d80| 05 3a 0d 03 ac 0a dd f2 | 69 6e 66 6f 0d 03 b6 13 |.:......|info....|
|00000d90| f1 8a 64 6f 78 25 2c 64 | 6f 79 25 29 22 20 22 0d |..dox%,d|oy%)" ".|
|00000da0| 03 c0 2c f1 8a 33 31 2b | 64 69 72 25 28 64 69 72 |..,..31+|dir%(dir|
|00000db0| 63 25 2c 31 29 2c 37 2b | 64 69 72 25 28 64 69 72 |c%,1),7+|dir%(dir|
|00000dc0| 63 25 2c 32 29 29 3b bd | 32 35 35 0d 03 ca 19 64 |c%,2));.|255....d|
|00000dd0| 6f 78 25 3d 33 31 2b 64 | 69 72 25 28 64 69 72 63 |ox%=31+d|ir%(dirc|
|00000de0| 25 2c 31 29 0d 03 d4 18 | 64 6f 79 25 3d 37 2b 64 |%,1)....|doy%=7+d|
|00000df0| 69 72 25 28 64 69 72 63 | 25 2c 32 29 0d 03 de 14 |ir%(dirc|%,2)....|
|00000e00| f1 8a 32 32 2c 31 39 29 | bd 31 32 39 70 75 74 25 |..22,19)|.129put%|
|00000e10| 0d 03 e8 18 f1 8a 32 33 | 2c 32 34 29 77 64 63 25 |......23|,24)wdc%|
|00000e20| 2d 70 75 74 25 2d 31 3b | 0d 03 f2 05 e1 0d 03 fc |-put%-1;|........|
|00000e30| 05 3a 0d 04 06 1e dd f2 | 74 72 79 28 78 73 25 2c |.:......|try(xs%,|
|00000e40| 79 73 25 2c 77 6f 72 64 | 24 2c 78 25 2c 79 25 29 |ys%,word|$,x%,y%)|
|00000e50| 0d 04 10 0a 63 72 6f 25 | 3d 30 0d 04 1a 10 77 6c |....cro%|=0....wl|
|00000e60| 25 3d a9 28 77 6f 72 64 | 24 29 0d 04 24 2a e7 78 |%=.(word|$)..$*.x|
|00000e70| 25 2b 78 73 25 2a 28 77 | 6c 25 2d 31 29 3c 31 84 |%+xs%*(w|l%-1)<1.|
|00000e80| 78 25 2b 78 73 25 2a 28 | 77 6c 25 2d 31 29 3e 6c |x%+xs%*(|wl%-1)>l|
|00000e90| 65 6e 25 e1 0d 04 2e 2a | e7 79 25 2b 79 73 25 2a |en%....*|.y%+ys%*|
|00000ea0| 28 77 6c 25 2d 31 29 3c | 31 84 79 25 2b 79 73 25 |(wl%-1)<|1.y%+ys%|
|00000eb0| 2a 28 77 6c 25 2d 31 29 | 3e 6c 65 6e 25 e1 0d 04 |*(wl%-1)|>len%...|
|00000ec0| 38 0a 77 63 74 25 3d 31 | 0d 04 42 18 e7 61 61 24 |8.wct%=1|..B..aa$|
|00000ed0| 3d 22 59 22 f2 61 6e 61 | 67 28 77 6f 72 64 24 29 |="Y".ana|g(word$)|
|00000ee0| 0d 04 4c 11 78 63 25 3d | 78 25 3a 79 63 25 3d 79 |..L.xc%=|x%:yc%=y|
|00000ef0| 25 0d 04 56 37 e7 67 72 | 69 64 24 28 78 63 25 2c |%..V7.gr|id$(xc%,|
|00000f00| 79 63 25 29 3c 3e 22 22 | 80 67 72 69 64 24 28 78 |yc%)<>""|.grid$(x|
|00000f10| 63 25 2c 79 63 25 29 3c | 3e c1 77 6f 72 64 24 2c |c%,yc%)<|>.word$,|
|00000f20| 77 63 74 25 2c 31 29 e1 | 0d 04 60 2d e7 67 72 69 |wct%,1).|..`-.gri|
|00000f30| 64 24 28 78 63 25 2c 79 | 63 25 29 3d c1 77 6f 72 |d$(xc%,y|c%)=.wor|
|00000f40| 64 24 2c 77 63 74 25 2c | 31 29 63 72 6f 25 3d 63 |d$,wct%,|1)cro%=c|
|00000f50| 72 6f 25 2b 31 0d 04 6a | 44 e7 77 63 74 25 3d 77 |ro%+1..j|D.wct%=w|
|00000f60| 6c 25 70 6c 63 64 25 3d | 31 3a e5 8d 44 74 44 8b |l%plcd%=|1:..DtD.|
|00000f70| 77 63 74 25 3d 77 63 74 | 25 2b 31 3a 79 63 25 3d |wct%=wct|%+1:yc%=|
|00000f80| 79 63 25 2b 79 73 25 3a | 78 63 25 3d 78 63 25 2b |yc%+ys%:|xc%=xc%+|
|00000f90| 78 73 25 3a e5 8d 44 56 | 44 0d 04 74 50 e7 63 72 |xs%:..DV|D..tP.cr|
|00000fa0| 6f 25 3e 3d 63 72 6f 6d | 61 78 25 63 72 6f 6d 61 |o%>=crom|ax%croma|
|00000fb0| 78 25 3d 63 72 6f 25 3a | 62 73 78 73 25 3d 78 73 |x%=cro%:|bsxs%=xs|
|00000fc0| 25 3a 62 73 79 73 25 3d | 79 73 25 3a 62 73 77 6f |%:bsys%=|ys%:bswo|
|00000fd0| 72 64 24 3d 77 6f 72 64 | 24 3a 62 73 78 25 3d 78 |rd$=word|$:bsx%=x|
|00000fe0| 25 3a 62 73 79 25 3d 79 | 25 0d 04 7e 05 e1 0d 04 |%:bsy%=y|%..~....|
|00000ff0| 88 05 3a 0d 04 92 30 dd | f2 70 72 77 6f 72 64 28 |..:...0.|.prword(|
|00001000| 70 62 73 78 25 2c 70 62 | 73 79 25 2c 70 62 73 78 |pbsx%,pb|sy%,pbsx|
|00001010| 73 25 2c 70 62 73 79 73 | 25 2c 70 62 73 77 6f 72 |s%,pbsys|%,pbswor|
|00001020| 64 24 29 0d 04 9c 19 70 | 78 63 25 3d 70 62 73 78 |d$)....p|xc%=pbsx|
|00001030| 25 3a 70 79 63 25 3d 70 | 62 73 79 25 0d 04 a6 17 |%:pyc%=p|bsy%....|
|00001040| e3 70 77 25 3d 31 b8 20 | a9 28 70 62 73 77 6f 72 |.pw%=1. |.(pbswor|
|00001050| 64 24 29 0d 04 b0 21 f1 | 8a 70 78 63 25 2c 70 79 |d$)...!.|.pxc%,py|
|00001060| 63 25 29 3b c1 70 62 73 | 77 6f 72 64 24 2c 70 77 |c%);.pbs|word$,pw|
|00001070| 25 2c 31 29 0d 04 ba 25 | 67 72 69 64 24 28 70 78 |%,1)...%|grid$(px|
|00001080| 63 25 2c 70 79 63 25 29 | 3d c1 70 62 73 77 6f 72 |c%,pyc%)|=.pbswor|
|00001090| 64 24 2c 70 77 25 2c 31 | 29 0d 04 c4 25 70 78 63 |d$,pw%,1|)...%pxc|
|000010a0| 25 3d 70 78 63 25 2b 70 | 62 73 78 73 25 3a 70 79 |%=pxc%+p|bsxs%:py|
|000010b0| 63 25 3d 70 79 63 25 2b | 70 62 73 79 73 25 0d 04 |c%=pyc%+|pbsys%..|
|000010c0| ce 08 ed 70 77 25 0d 04 | d8 0f 70 75 74 25 3d 70 |...pw%..|..put%=p|
|000010d0| 75 74 25 2b 31 0d 04 e2 | 10 d4 31 2c 2d 31 35 2c |ut%+1...|..1,-15,|
|000010e0| 31 30 30 2c 31 0d 04 ec | 05 e1 0d 04 f6 05 3a 0d |100,1...|......:.|
|000010f0| 05 00 0d dd f2 64 69 72 | 66 69 6c 6c 0d 05 0a 09 |.....dir|fill....|
|00001100| f7 8d 44 50 45 0d 05 14 | 0c e3 63 74 25 3d 31 b8 |..DPE...|..ct%=1.|
|00001110| 38 0d 05 1e 10 f3 64 69 | 72 78 25 2c 64 69 72 79 |8.....di|rx%,diry|
|00001120| 25 0d 05 28 15 64 69 72 | 25 28 63 74 25 2c 31 29 |%..(.dir|%(ct%,1)|
|00001130| 3d 64 69 72 78 25 0d 05 | 32 15 64 69 72 25 28 63 |=dirx%..|2.dir%(c|
|00001140| 74 25 2c 32 29 3d 64 69 | 72 79 25 0d 05 3c 08 ed |t%,2)=di|ry%..<..|
|00001150| 63 74 25 0d 05 46 05 e1 | 0d 05 50 2a dc 30 2c 2d |ct%..F..|..P*.0,-|
|00001160| 31 2c 31 2c 2d 31 2c 31 | 2c 30 2c 31 2c 31 2c 30 |1,1,-1,1|,0,1,1,0|
|00001170| 2c 31 2c 2d 31 2c 31 2c | 2d 31 2c 30 2c 2d 31 2c |,1,-1,1,|-1,0,-1,|
|00001180| 2d 31 0d 05 5a 05 3a 0d | 05 64 0c dd f2 64 69 72 |-1..Z.:.|.d...dir|
|00001190| 6d 69 78 0d 05 6e 0d e3 | 6d 69 78 25 3d 31 b8 38 |mix..n..|mix%=1.8|
|000011a0| 0d 05 78 17 72 61 6e 25 | 3d b3 28 38 2d 6d 69 78 |..x.ran%|=.(8-mix|
|000011b0| 25 29 2b 6d 69 78 25 0d | 05 82 27 73 77 78 25 3d |%)+mix%.|..'swx%=|
|000011c0| 64 69 72 25 28 72 61 6e | 25 2c 31 29 3a 73 77 79 |dir%(ran|%,1):swy|
|000011d0| 25 3d 64 69 72 25 28 72 | 61 6e 25 2c 32 29 0d 05 |%=dir%(r|an%,2)..|
|000011e0| 8c 1d 64 69 72 25 28 72 | 61 6e 25 2c 31 29 3d 64 |..dir%(r|an%,1)=d|
|000011f0| 69 72 25 28 6d 69 78 25 | 2c 31 29 0d 05 96 1d 64 |ir%(mix%|,1)....d|
|00001200| 69 72 25 28 72 61 6e 25 | 2c 32 29 3d 64 69 72 25 |ir%(ran%|,2)=dir%|
|00001210| 28 6d 69 78 25 2c 32 29 | 0d 05 a0 15 64 69 72 25 |(mix%,2)|....dir%|
|00001220| 28 6d 69 78 25 2c 31 29 | 3d 73 77 78 25 0d 05 aa |(mix%,1)|=swx%...|
|00001230| 15 64 69 72 25 28 6d 69 | 78 25 2c 32 29 3d 73 77 |.dir%(mi|x%,2)=sw|
|00001240| 79 25 0d 05 b4 09 ed 6d | 69 78 25 0d 05 be 05 e1 |y%.....m|ix%.....|
|00001250| 0d 05 c8 05 3a 0d 05 d2 | 0e dd f2 70 6c 61 63 65 |....:...|...place|
|00001260| 6d 69 78 0d 05 dc 0b 70 | 6c 63 74 25 3d 31 0d 05 |mix....p|lct%=1..|
|00001270| e6 0f e3 6e 78 25 3d 31 | b8 6c 65 6e 25 0d 05 f0 |...nx%=1|.len%...|
|00001280| 0f e3 6e 79 25 3d 31 b8 | 6c 65 6e 25 0d 05 fa 16 |..ny%=1.|len%....|
|00001290| 70 6c 63 65 25 28 70 6c | 63 74 25 2c 31 29 3d 6e |plce%(pl|ct%,1)=n|
|000012a0| 78 25 0d 06 04 16 70 6c | 63 65 25 28 70 6c 63 74 |x%....pl|ce%(plct|
|000012b0| 25 2c 32 29 3d 6e 79 25 | 0d 06 0e 11 70 6c 63 74 |%,2)=ny%|....plct|
|000012c0| 25 3d 70 6c 63 74 25 2b | 31 0d 06 18 06 ed 2c 0d |%=plct%+|1.....,.|
|000012d0| 06 22 13 e3 6d 69 78 25 | 3d 31 b8 20 6c 65 6e 25 |."..mix%|=1. len%|
|000012e0| 5e 32 0d 06 2c 1e 72 61 | 6e 25 3d b3 28 28 6c 65 |^2..,.ra|n%=.((le|
|000012f0| 6e 25 5e 32 29 2d 6d 69 | 78 25 29 2b 6d 69 78 25 |n%^2)-mi|x%)+mix%|
|00001300| 0d 06 36 29 73 77 78 25 | 3d 70 6c 63 65 25 28 6d |..6)swx%|=plce%(m|
|00001310| 69 78 25 2c 31 29 3a 73 | 77 79 25 3d 70 6c 63 65 |ix%,1):s|wy%=plce|
|00001320| 25 28 6d 69 78 25 2c 32 | 29 0d 06 40 1f 70 6c 63 |%(mix%,2|)..@.plc|
|00001330| 65 25 28 6d 69 78 25 2c | 31 29 3d 70 6c 63 65 25 |e%(mix%,|1)=plce%|
|00001340| 28 72 61 6e 25 2c 31 29 | 0d 06 4a 1f 70 6c 63 65 |(ran%,1)|..J.plce|
|00001350| 25 28 6d 69 78 25 2c 32 | 29 3d 70 6c 63 65 25 28 |%(mix%,2|)=plce%(|
|00001360| 72 61 6e 25 2c 32 29 0d | 06 54 16 70 6c 63 65 25 |ran%,2).|.T.plce%|
|00001370| 28 72 61 6e 25 2c 31 29 | 3d 73 77 78 25 0d 06 5e |(ran%,1)|=swx%..^|
|00001380| 16 70 6c 63 65 25 28 72 | 61 6e 25 2c 32 29 3d 73 |.plce%(r|an%,2)=s|
|00001390| 77 79 25 0d 06 68 09 ed | 6d 69 78 25 0d 06 72 05 |wy%..h..|mix%..r.|
|000013a0| e1 0d 06 7c 05 3a 0d 06 | 86 0a dd f2 66 69 6c 6c |...|.:..|....fill|
|000013b0| 0d 06 90 10 d4 31 2c 2d | 31 35 2c 31 31 32 2c 35 |.....1,-|15,112,5|
|000013c0| 0d 06 9a 0f e3 66 79 25 | 3d 31 b8 6c 65 6e 25 0d |.....fy%|=1.len%.|
|000013d0| 06 a4 0f e3 66 78 25 3d | 31 b8 6c 65 6e 25 0d 06 |....fx%=|1.len%..|
|000013e0| ae 1d 6c 65 74 74 24 3d | bd 28 28 b3 28 32 36 29 |..lett$=|.((.(26)|
|000013f0| 2b 36 34 29 2b 66 6c 63 | 73 25 29 0d 06 b8 58 e7 |+64)+flc|s%)...X.|
|00001400| 20 67 72 69 64 24 28 66 | 78 25 2c 66 79 25 29 3d | grid$(f|x%,fy%)=|
|00001410| 22 22 f1 8a 66 78 25 2c | 66 79 25 29 3b 6c 65 74 |""..fx%,|fy%);let|
|00001420| 74 24 3a 67 72 69 64 24 | 28 66 78 25 2c 66 79 25 |t$:grid$|(fx%,fy%|
|00001430| 29 3d 6c 65 74 74 24 20 | 8b 20 f1 8a 66 78 25 2c |)=lett$ |. ..fx%,|
|00001440| 66 79 25 29 20 67 72 69 | 64 24 28 66 78 25 2c 66 |fy%) gri|d$(fx%,f|
|00001450| 79 25 29 0d 06 c2 06 ed | 2c 0d 06 cc 22 f1 8a 32 |y%).....|,..."..2|
|00001460| 35 2c 31 29 bd 31 33 36 | 3b 22 50 72 65 73 73 20 |5,1).136|;"Press |
|00001470| 61 20 6b 65 79 22 3b 3a | 47 3d a5 0d 06 d6 05 e1 |a key";:|G=......|
|00001480| 0d 06 e0 05 3a 0d 06 ea | 0a dd f2 73 6f 72 74 0d |....:...|...sort.|
|00001490| 06 f4 11 f7 6c 69 6e 65 | 25 3a f3 74 69 74 6c 24 |....line|%:.titl$|
|000014a0| 0d 06 fe 0a 6e 75 6d 25 | 3d 30 0d 07 08 09 f3 20 |....num%|=0..... |
|000014b0| 72 64 24 0d 07 12 13 e7 | 20 72 64 24 3d 22 5a 22 |rd$.....| rd$="Z"|
|000014c0| 20 e5 8d 44 44 47 0d 07 | 1c 17 e7 20 a9 28 72 64 | ..DDG..|... .(rd|
|000014d0| 24 29 3e 6c 65 6e 25 20 | e5 8d 54 48 47 0d 07 26 |$)>len% |..THG..&|
|000014e0| 0f 6e 75 6d 25 3d 6e 75 | 6d 25 2b 31 0d 07 30 12 |.num%=nu|m%+1..0.|
|000014f0| 77 72 64 24 28 6e 75 6d | 25 29 3d 72 64 24 0d 07 |wrd$(num|%)=rd$..|
|00001500| 3a 09 e5 8d 54 48 47 0d | 07 44 0b 64 6f 6e 65 25 |:...THG.|.D.done%|
|00001510| 3d 30 0d 07 4e 0a 6d 6c | 6e 25 3d 30 0d 07 58 17 |=0..N.ml|n%=0..X.|
|00001520| e3 63 74 25 3d 64 6f 6e | 65 25 2b 31 20 b8 20 6e |.ct%=don|e%+1 . n|
|00001530| 75 6d 25 0d 07 62 31 e7 | 20 a9 28 77 72 64 24 28 |um%..b1.| .(wrd$(|
|00001540| 63 74 25 29 29 3e 6d 6c | 6e 25 20 6d 6c 6e 25 3d |ct%))>ml|n% mln%=|
|00001550| a9 20 77 72 64 24 28 63 | 74 25 29 3a 70 6c 63 25 |. wrd$(c|t%):plc%|
|00001560| 3d 63 74 25 0d 07 6c 08 | ed 63 74 25 0d 07 76 11 |=ct%..l.|.ct%..v.|
|00001570| 64 6f 6e 65 25 3d 64 6f | 6e 65 25 2b 31 0d 07 80 |done%=do|ne%+1...|
|00001580| 14 73 77 61 70 24 3d 77 | 72 64 24 28 70 6c 63 25 |.swap$=w|rd$(plc%|
|00001590| 29 0d 07 8a 1a 77 72 64 | 24 28 70 6c 63 25 29 3d |)....wrd|$(plc%)=|
|000015a0| 77 72 64 24 28 64 6f 6e | 65 25 29 0d 07 94 15 77 |wrd$(don|e%)....w|
|000015b0| 72 64 24 28 64 6f 6e 65 | 25 29 3d 73 77 61 70 24 |rd$(done|%)=swap$|
|000015c0| 0d 07 9e 16 e7 20 64 6f | 6e 65 25 3d 6e 75 6d 25 |..... do|ne%=num%|
|000015d0| 20 e5 8d 74 72 47 0d 07 | a8 09 e5 8d 44 4e 47 0d | ..trG..|....DNG.|
|000015e0| 07 b2 05 e1 0d 07 bc 05 | 3a 0d 07 c6 10 dd f2 61 |........|:......a|
|000015f0| 6e 61 67 28 61 6e 77 24 | 29 0d 07 d0 10 61 6e 6c |nag(anw$|)....anl|
|00001600| 25 3d a9 28 61 6e 77 24 | 29 0d 07 da 0e e7 20 61 |%=.(anw$|)..... a|
|00001610| 6e 6c 25 3c 33 20 e1 0d | 07 e4 1a e3 61 6e 6d 25 |nl%<3 ..|....anm%|
|00001620| 3d 31 b8 20 a8 28 61 6e | 6c 25 2f 32 2b 30 2e 35 |=1. .(an|l%/2+0.5|
|00001630| 29 0d 07 ee 16 61 6e 73 | 24 3d c1 61 6e 77 24 2c |)....ans|$=.anw$,|
|00001640| 61 6e 6d 25 2c 31 29 0d | 07 f8 1a 61 6e 70 25 3d |anm%,1).|...anp%=|
|00001650| b3 28 61 6e 6c 25 2d 61 | 6e 6d 25 29 2b 61 6e 6d |.(anl%-a|nm%)+anm|
|00001660| 25 0d 08 02 1c e7 20 61 | 6e 6d 25 3d 32 20 80 20 |%..... a|nm%=2 . |
|00001670| 61 6e 70 25 3d 32 20 61 | 6e 70 25 3d 33 0d 08 0c |anp%=2 a|np%=3...|
|00001680| 53 6c 73 24 3d c0 61 6e | 77 24 2c 61 6e 6d 25 2d |Sls$=.an|w$,anm%-|
|00001690| 31 29 2b c1 61 6e 77 24 | 2c 61 6e 70 25 2c 31 29 |1)+.anw$|,anp%,1)|
|000016a0| 2b c1 61 6e 77 24 2c 61 | 6e 6d 25 2b 31 2c 61 6e |+.anw$,a|nm%+1,an|
|000016b0| 70 25 2d 61 6e 6d 25 2d | 31 29 2b 61 6e 73 24 2b |p%-anm%-|1)+ans$+|
|000016c0| c2 61 6e 77 24 2c 61 6e | 6c 25 2d 61 6e 70 25 29 |.anw$,an|l%-anp%)|
|000016d0| 0d 08 16 0c 61 6e 77 24 | 3d 6c 73 24 0d 08 20 09 |....anw$|=ls$.. .|
|000016e0| ed 61 6e 6d 25 0d 08 2a | 0e 77 6f 72 64 24 3d 61 |.anm%..*|.word$=a|
|000016f0| 6e 77 24 0d 08 34 05 e1 | 0d 08 3e 05 3a 0d 08 48 |nw$..4..|..>.:..H|
|00001700| 0b dd f2 70 72 69 6e 74 | 0d 08 52 09 ee 20 85 20 |...print|..R.. . |
|00001710| e0 0d 08 5c 0a 2a 46 58 | 35 2c 31 0d 08 66 05 db |...\.*FX|5,1..f..|
|00001720| 0d 08 70 22 e8 8a 36 2c | 38 29 22 50 72 69 6e 74 |..p"..6,|8)"Print|
|00001730| 20 77 6f 72 64 73 65 61 | 72 63 68 20 22 3b 61 6e | wordsea|rch ";an|
|00001740| 73 24 0d 08 7a 15 e7 20 | 61 6e 73 24 3c 3e 22 59 |s$..z.. |ans$<>"Y|
|00001750| 22 20 e5 8d 64 4a 48 0d | 08 84 08 db 3a ef 32 0d |" ..dJH.|....:.2.|
|00001760| 08 8e 1b f1 74 69 74 6c | 24 3b 22 20 57 4f 52 44 |....titl|$;" WORD|
|00001770| 53 45 41 52 43 48 2e 22 | 27 27 0d 08 98 1f e3 70 |SEARCH."|''.....p|
|00001780| 72 79 25 3d 31 b8 20 6c | 65 6e 25 3a e3 70 72 78 |ry%=1. l|en%:.prx|
|00001790| 25 3d 31 b8 20 6c 65 6e | 25 0d 08 a2 26 e7 20 70 |%=1. len|%...&. p|
|000017a0| 72 78 25 3d 31 20 f1 20 | 67 72 69 64 24 28 70 72 |rx%=1 . |grid$(pr|
|000017b0| 78 25 2c 70 72 79 25 29 | 3b 3a e5 8d 74 76 48 0d |x%,pry%)|;:..tvH.|
|000017c0| 08 ac 1a f1 22 20 22 3b | 67 72 69 64 24 28 70 72 |...." ";|grid$(pr|
|000017d0| 78 25 2c 70 72 79 25 29 | 3b 0d 08 b6 11 ed 70 72 |x%,pry%)|;.....pr|
|000017e0| 78 25 3a f1 3a ed 70 72 | 79 25 0d 08 c0 07 f1 27 |x%:.:.pr|y%.....'|
|000017f0| 27 0d 08 ca 08 ef 33 3a | db 0d 08 d4 21 e8 8a 36 |'.....3:|....!..6|
|00001800| 2c 38 29 22 50 72 69 6e | 74 20 77 6f 72 64 20 6c |,8)"Prin|t word l|
|00001810| 69 73 74 20 22 3b 61 6e | 73 24 0d 08 de 15 e7 20 |ist ";an|s$..... |
|00001820| 61 6e 73 24 3c 3e 22 59 | 22 20 e5 8d 54 6e 49 0d |ans$<>"Y|" ..TnI.|
|00001830| 08 e8 08 db 3a ef 32 0d | 08 f2 12 e3 70 77 25 3d |....:.2.|....pw%=|
|00001840| 30 b8 20 70 75 74 25 2d | 31 0d 08 fc 15 f1 77 72 |0. put%-|1.....wr|
|00001850| 64 24 28 70 77 25 29 3b | 22 20 20 20 22 3b 0d 09 |d$(pw%);|"   ";..|
|00001860| 06 1e 6c 65 6d 61 78 25 | 3d 6c 65 6d 61 78 25 2b |..lemax%|=lemax%+|
|00001870| a9 28 77 72 64 24 28 70 | 77 25 29 29 0d 09 10 1e |.(wrd$(p|w%))....|
|00001880| e7 20 a8 28 28 70 77 25 | 2b 31 29 2f 32 29 3d 28 |. .((pw%|+1)/2)=(|
|00001890| 70 77 25 2b 31 29 2f 32 | 20 f1 0d 09 1a 08 ed 70 |pw%+1)/2| ......p|
|000018a0| 77 25 0d 09 2e 08 ef 33 | 3a db 0d 09 38 1f e8 8a |w%.....3|:...8...|
|000018b0| 36 2c 38 29 22 41 6e 6f | 74 68 65 72 20 70 72 69 |6,8)"Ano|ther pri|
|000018c0| 6e 74 20 22 3b 61 6e 73 | 24 0d 09 42 13 e7 61 6e |nt ";ans|$..B..an|
|000018d0| 73 24 3c 3e 22 59 22 e5 | 8d 44 56 49 0d 09 4c 09 |s$<>"Y".|.DVI..L.|
|000018e0| e5 8d 44 66 48 0d 09 56 | 05 e1 0d ff             |..DfH..V|....    |
+--------+-------------------------+-------------------------+--------+--------+