$SCREN²80:TAAB²8:C²SCREN­2:×110A—53281,9:—53280,10:™"“ž"cà1,C«8,2," ANAGRAMS ",1‰à1,C«11,4,"BY BARTON LYNN ROLSKY"´ – ¥ MOD(A)²µ((A­MOD«µ(A­MOD))¬MODª.05)ùà1,(C«13)¬«(C³±20),12,"WHAT IS THE ANAGRAM STRING":…A$:‹A$²""§20"þ%:™"“";:Y²Ã(A$):MOD²Y:108:I²«1:L²0D#N²µ(SCREN­(TAAB¬µ(Y­TAABª1)))O(†B$(Y)l2X²1¤Y:B$(X)²Ê(A$,X,1):‚~<Z²1¤F:X²1¤Y•FA$²"":L²Lª1:K²1¤YŸPI²Iª1·ZA$²A$ªB$(¥MOD(I)ª1)Æ[‚:™A$;" ";Ý\MOD²N:‹¥MOD(L)²0§™6]MOD²N¬22:‹¥MOD(L)²0§à1,C«15,23," HIT ANY KEY FOR NEXT SCREEN ",1:þ&:¡ù Z$:þ%:™"“";@^MOD²Y}dJ²0¤Y«1:B$(J)²B$(Jª1):‚:B$(Y)²B$(0):—53280,I¯15:‚:I²Iª1ÀeB$(Y)²B$(¥MOD(I)ª1):B$(¥MOD(I)ª1)²B$(0):B$(0)²B$(Y):I²Iª1:‚:þ&ià1,C«18,23," <*> TO QUIT TO RUN AGAIN ",1:¡ù Z$:™"“";j‹Z$²"*"§ €kŠ"lF²19mX²1¤Y«1:F²F¬X:‚:ŽRnþ&:™:™Ó(ER)" AT"EL:€