Žm%„%ËTP¤LÎTØX¨PLÒTÙY¨ÚÉFIRST¨SÔXOFÆFIRE¨WÄWORDS¨LÔPREVX¨PREVY¨T¤TOFÆLNG¨AOFÆAR¤BL¤ÙB¤ÔTÉTIMÅÌSCORE¨WIÎWINNEÒROUNÄÃRANDOÍL¤ØDUÐÊNONÅÎS±S²ADÄDÌGOAÌ€@@ @ @ @@@€@€€€@ !"#$€%&'()*+,-./ !!SCRAMBLE ªÁÎÔÉêÊÁ赪Ðdz³ª›BY F. NEIL SIMMS›ANTIC MAGAZINE›. AP A.** init and begin **›&** time delay loop **›( F:A@,@@2$5** INPUT: string TP$ **›6**** OUTPUT: LN (nonblank LEN(TP$)) **›7?€-@@$7€<€,4 26‚-€&@5'? @e< €6‚-@A$Æ** move cursor **›Èm 6ƒ-„8…,6†-‡8…,1ƒ†ˆ)ˆ&@2GB7`%‰‰$@@%@@[B7a%‰Ahm@wË Š8…,ˆ6Š8…,-Ì ,ƒ†ÍI#‹"@)‹"@)‹"@16†-†&@=† @I6†-@ÒI#‹"@ )‹"@)‹"@16†-†%@=†!@I6†-@ÜC‹!@*‹ @'6ƒ-ƒ&@5ƒ @%ŒC6ƒ-@%ŒæC‹!@*‹ @'6ƒ-ƒ%@5ƒ!@%ŒC6ƒ-@%Œú/ 1ƒ†ˆˆ%@2,ƒ†&6„8…,-ƒ/6‡8…,-†$Ž##** mark square or end word **›68…,-@•: 6Ž-8…,6ƒ-„8…,6†-‡8…,&1ƒ†ˆ:ˆ!A"AšB"A€B** always mark square if first letter **›¤11O:‘8…,&ƒ,!@)O:’8…,&†,!@AàY!B7`%‰‰$@`%@`5B7a%‰AhAˆ%A(G,ƒ†P6‘8…,-ƒY6’8…,-†ê:6“7”%<”%,.>:ˆ&@2,) @ :6•8…,-%@ï Aó==** square was already marked - process word if valid **›ôHŽ!@™+2…AU@@5 AH** array full **›ùo!B7`%‰‰$@`%@`5B7a%‰AhL•8…, @Ao** word is too short to count **›þT6–-…$A%Ž$@C6—7–%@<–%@,.“7”<”%@ ,T68…,-Ž%@6“7”<”%@ ,.˜p(…™-@@46‰-+™&@,$@@-@™b(@š7‰%@<‰%@,f ™p A@i™-@@/6‰-+™&@,$@C-@@&™e(@š7‰%@<‰%@,i ™Q6•8…,-$@‡@@-@%@$…@Q(@8…,& 1ƒ†ˆˆ%@2,ƒ†X$æ** main play loop **›èB7a%…$@ê0T:,*8,068,-ë0T:@,*8@,068@,-ì F:AB,AírAB@6…-(…*6Œ-@ $…@6”-@$…%@I6-•8…,R6Ž-8…,`6‰-…$@r@‡@ò, 6‹-R:…,‹@" A, A0ü! 6›-T:…,(›*(8…,! A** update TIME **›6œ-F:A@,œAP 6-&@XA@@`'@‡@9-@ @K(@ X(A& A&** end of main loop **›®** end of round **›°V A'*‰-@6?0<B2yHA@‰R @@V ‰µT@‡@'-@@(@ duplicates:Tž-@º"8ž,!@6…-ž" A0Ä žÎ338, @)8@, @A@ÓB A(-@8(@ matches: B A3Ø> A(-@@ >(@accept < > rejectâV-@.(@ óãïòéîçº Bž-@H6…-žR A5V žìŠ-)‰-@ 9(@˜˜= ‰O-@@n(@óãïòéîç ãïíðìåôåä€A@AŠ @@öQ'Ÿ8,  *Ÿ8@,  AQ** skip following if not end of game **›1Ÿ8,!Ÿ8@,'6¡-1 A•##Ÿ8,"Ÿ8@,A— 6¡-@H-@@>(@player #¡%@ wins!H A˜.-@@.(@ it's a tie!“‰-@PAP@1A@; @@W2‰@@{2@A&‰@@ ‰‰ A'“ A A@ A ! A%/6¢-¢%@A@‡@g-@&@$+¢!@ ,@u(@¢ A&<& A&** start next round **›Ü? A& AP€! A?** end of game - restart **›Î** display letter grid **›ÐT@‡@+(@>:A%,=-@T(@ócRÁíbLÅÕO‰-@@%;6£-P:F:¤,$@–'AV,%@K6š7‰<‰,.¥7£<£,O ‰Ú—™-@@/6‰-+™&@,$@;-@™](@š7‰%@<‰%@,q-@@&™“(@š7‰%@<‰%@,— ™÷** border **›øm™-@@@3¦-@@9-¦™H(@«V-¦%@ ™e(@«i ¦m ™m¦-@@@3™-@@9-¦™H(@«V-¦%@ ™e(@«i ™m ¦ 9‰-@6…-‰+6Œ-@ $…5 A9 ‰4$ ** build scoring window **›Ä Q@‡@1‰-@@=-‰@Q(@×ÏÒÄÓÎ …-‰%@@)(@0 5-‰@I(@óãïòå]-‰%@@(@Ÿ8‰&@$+‰"@,,… ‰Ó K%2A @@7A@@A @@K A'Ø s-@@'(@ôéíå9-@ @J(@200\-@@s(@round: ö $& ** "go on" prompt **›( t@‡@'-@ H(@press æéòå to go on]F:B2y,"@`'j AP€t A2 IT:,*T:@,--@@ ?(@FIREI A&< %%(T:,)(T:@,A& F H-@$(@˜˜6-@ E(@˜˜H$Š ** turn off sound **›Œ *B7a'B7c*$î ** 4 clicks **›ð L‰-@@)A@@;B2yE @@I ‰L$¶ ** find and delete dups **›¸ q@‰-@%A$…8…,$@&@%A$…@S6.—7‰<‰%@ ,_6§-qB2yÌ 4˜A0`Ñ 88¨-‰%@8…,$@&@%A$…@Ö 0—7¨<¨%@ ,A0UÛ ##F:A@,*(§A05Ý %%(T:,)(T:@,A07à b6—7¨<¨%@ ,.˜(§7-%@$…@D(@VA@A b6§-@ï  ¨ô  ‰þ KA@A  @@;-%@$…@H(@˜K$â &&** find matches and eliminate **›ä e2‰-@8,$@&@ @E6.—7‰<‰%@ ,WB2ye4˜A3€ý ::¨-A8@,$@&@ %A@ 0—7¨<¨%@ ,A3u / @@/(T:,)(T:@,A3@ g6—7¨<¨%@ ,.˜)6—7‰<‰%@ ,.˜;-@@H(@ZA@A€]'g A3€/  ¨4  ‰> / @@-@@,(@˜/$ª $$** let players review words **›¬ m6©-@L‰-@%A$…8…,$@&@ %A$…@_6.—7‰<‰%@ ,m4˜A6Ê †-%@$…@,(@˜@ª-@@^-@%@$…&ª@v(@7@<ª,z ª†6©-Ô 36«-R:,!6¬-R:@,3A@@ Þ !!«@*¬@A5`ã …-@@ )(@òåêåãôK2A@@U @@g-@@ {(@reject… A5è !!«@*¬@A5@í …-@@ )(@áããåðôK2A@@U @U…6­-@$+‚ @,%+‚&@,$+‚@,ò b6Ÿ8…,-Ÿ8…,%­#@‡@?-@%@$…@P(@Ÿ8…,b@‡@ü 3 @@-@@ 3(@accept%%(T:,)(T:@,A5 A' @@ ‰U©#-@%@$…@9(@no wordsKA@AU @@/-%@$…@,(@˜/$ž** initialize var's **› t 6—. 6—7A ,.—)6—7@,.—/6“.—C‰-@R6•8‰,-a68‰,-p6Š8‰,-@t ‰ªc6„8,-@-6„8@,-@B6‡8,-@W6‡8@,-@c6-AÒ$†** initialize **›ˆm +@/6®-F:A`,%AV$F:Aa,;6 -@PG6¤-B7pa0@@@m6¯-@P¦)‰-@@%®%‰@) ‰°E®%@@e.®%@ F:A`,E®%@!F:Aa,Ä””—;A ,“;@ ,•9@,9@,„9@,‡9@,‘9@,’9@,š;@%,¥;@–,˜;@,;@,Ÿ9@,Ί9@,9@,Ójj6¥.`AAAAAAAABBBCCCDDDDEEEEEEEEEEFFGGGHHHIIIIIIIJKKLLLLLMMMNNNNNOOOOOOPPPQRRRRSSSSSTTTTTUUUUVVWWXYYYZØ= A@6˜.“(6Ÿ8,-=6Ÿ8@,-ì‹ A  A%#6¢-@5@‡@G-@@U(@¢g-@@y(@0 ‹-@@ö'(@0 '@‡@IA@@'-@@ I(@ select GOAL: ¯  B-@8(@press óôáòô to beginB @@&6ª-F:B2y,&ª"@AQpYª"@6¯-¯%@P)¯!A56¯-@PG-@@ Y(@¯ (t-@@ )(@óåìåãô;-@@N(@start`A@@j @@t AQ 2K-@$(@˜˜6-@ E(@˜˜K6 -¯P$€D3:SCRAMBLE.BAS