A very popular syndicated newspaper feature is JUMBLE, a word puzzle involving four jumbled words which need to be unjumbled, then a master word made up of letters from the first four. My problem with this puzzle was one of frustration; I usually gave up before I finally was able to unjumble all the words. Now Ken Duda has done me, and all our readers who enjoy this puzzle a favor by writing a program that will keep reshuffling the letters in a word for you until you can identify a real word. Also included is a recent copy of the puzzle for you to practice with. Type in the the letters for a word once, then just press any key, and the computer keeps switching the letters around until you figure the word out. To enter in a new word, hit Cap/Shift & BREAK, then RUN the program again.
Products
Media
Image Gallery
Source Code
10 POKE 23658,8: REM CAPS LOCK
20 BORDER 0: PAPER 0: INK 7: CLS
30 PRINT AT 10,2;"HOW MANY LETTERS? (5 OR 6)"
40 INPUT A
50 IF A=6 THEN GO TO 250
60 CLS
70 PRINT AT 2,9; INK 2;"S H U F F L E"
80 GO SUB 430
90 PRINT AT 20,3; INK 1;"PRESS ANY KEY TO CONTINUE"
100 INPUT B$
110 GO SUB 200
120 LET c$=""
130 FOR I=1 TO 5
140 LET R= INT (5* RND )+1
150 IF B$ (R)="0" THEN GO TO 140
160 LET C$=C$+B$(R)+" "
170 LET B$ (R)="0"
180 NEXT I
190 PRINT AT 10, 11; INK 6;C$: GO TO 220
200 LET Z$=B$
210 RETURN
220 LET B$=Z$
230 PAUSE 0
240 GO TO 110
250 CLS: PRINT AT 2,9; INK 2; "S H U F F L E"
260 GO SUB 430
270 PRINT AT 20,3; INK 1; "PRESS ANY KEY TO CONTINUE"
280 INPUT B$
290 GO SUB 380
300 LET C$=""
310 FOR I=1 TO 6
320 LET R= INT (6*, RND) +1
330 IF B$ (R)="0" THEN GO TO 320
340 LET C$=C$+B$(R)+" "
350 LET B$(R) ="0"
360 NEXT I
370 PRINT AT 10, 10; INK 6;C$: GO SUB 430: GO TO 400
380 LET Z$=B$
390 RETURN
400 LET B$=Z$
410 PAUSE 0
420 GO TO 290
430 INK 7: PLOT 72, 103: DRAW 103,0: DRAW 0, -25: DRAW - 103,0: DRAW 0,25
440 RETURN
450 SAVE "SHUFFLE" LINE 10