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.
Products
Media
Image Gallery
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