Anagrammatic
This is a simple anagram jumbler. There are few things more infuriating than staring blankly at crossword clues, unable to de- jumble the letters. This little program will hopefully get your brain ticking again with some fresh ideas on how to unscramble the problem.
10 REM ANAGRAMMATIC
20 REM @ H.WALWYN
30 MODE 1:BORDER 0:INK 0,0:INK 1,24:INK 2,20:INK 3,6:PAPER 0:PEN 3
FOR x=1 TO 7:WINDOW #1,1,40,1,25:NEXT 40 DIM B$(10),C$(10),Q(10)
50 REM
60 PEN 1: PRINT TAB(15): PRINT "ANAGRAMM ATIC":PEN
70 LOCATE 1,5:PRINT"IF YOU ARE A CROSSWO RD ADDICT YOU WILL KNOW THE PROBLEMS OF TYPING TO REARRANGELETTERS"
80 PRINT:PRINT"FOLLOW THE INSTRUCTIONS
AND THEN SIT BACK AND WATCH THE SC REEN AS EVERY POSSIBLE COMBINATION RUNS UP BEFORE YOUR VERY EYES."
90 PRINT:PRINTuTHE AIM IS NOT TO LOOK AT EVERY GROUP, BUT SIMPLY TO GLANCE AT T HE SCREEN OCCASIONALLY AND YOU MAY WELL GET SOME INSPIRATION."
100 PRINT:PRINTuALTERNATIVELY,
PUT IN A PRINTER SUBROU
TINE FOR COPY."
110 LOCATE 11,23:PEN 2:PRINTHPRESS ENTER TO STARTH:PEN 3
120 IF INKEY$<>CHR$(13) THEN 120 ELSE CL
130 LOCATE I4,2:PRINT CHR$(24)"ANAGRAMMA TICH:PRINT CHR$(24)
140 LOCATE 1,5:PEN 2:PRINTuTYPE ONLY THD SE LETTERS WHICH ARE TO BE REARRANGED.": PEN 1