See all articles from SUM v4 n3
The January issue of SUM contained a program for solving Jumbled Word Puzzles. Robert Fischer went to work and developed a much shorter version of the BASIC pro- gram which will also allow words of any length up to 16 characters (but only 6 fit in the on-screen box). To start over, push the zero key. To communicate with Mr. Fischer, write to 221 Scoggins Street, Summerville, GA 30747.
Source Code
10 POKE 23658,8: BORDER 0: PAPPER 0: INK 7: CLS : PRINT AT 2,9; INK 2;"S H U F F L E": INK 7: PLOT 72,103: DRAW 104,0: DRAW 0,-25: DRAW -104,0: DRAW 0,25: PRINT AT 20,6; INK 1; "ENTER 2 TO 6 LETTERS": INPUT B$: LET A=LEN B$
110 PRINT AT 20,3;"PRESS ANY KEY TO CONTINUE ",TAB 10;"0 RESTARTS": LET Z$=B$: LET C$="": FOR I=1 TO A
140 LET R=INT (A*END)+1: IF B$(R)="0" THEN GO TO 140
160 LET C$=C$+B$(R)+" ": LET B$(R)="0": NEXT I: PRINT AT 10,16-A;INK 6;C$
220 LET B$=Z$: PAUSE 0: LET A$=INKEY$: GO TO 110-(100 AND A$="0")
450 SAVE "SHUFFLE" LINE 10