™š:†%œ%L¤ØÙCHAÒËTP¤LÎTØX¨PLÒTÙY¨ÚSÔXOFÆLÔPREVX¨PREVY¨T¤TOFÆLNG¨WORDS¨AR¤WÄBL¤ÉB¤ÃÔTÉTIMÅDÌSCORE¨ROUNÄFIRST¨AOFÆÌWIÎWINNEÒDUÐÊS±S²T±T²ADÄNONÅRANDOÍFIRE¨FIRÅÎGOAÌE``@@@¯ @@Aü @ @A  @… @@ AA Ð@AäAðÐÐ@¥ @0,@@AB6A ¹!@A"Å#A$@%@P&'(A)@*@+,-@./B7pA0Ñ12@3@P SCRAMBLE›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 **›6°8‰,-@•: 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,‡ŠP68‰,-‡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“<“%@ ,T6•8‰,-—%@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,06°8,-ë0T:@,*°8@,06°8@,-ì 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Ä ¤Î33•8, @)•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™<™%@ ,WB2ye…4˜A3€ý ::¨-A•8@,$@&@ %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™<™%@ ,m…4˜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™,-a6•8™,-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$€D:SCRAMBLE.BAS