Word jumble program. Scrambles the word, you guess the letter and its position. Some words with spelling errors.
Appears on
Gallery
Source Code
5 PAPER 0: BORDER 0: INK 9: CLS 10 LET n=10 20 RESTORE : FOR i=1 TO INT (1+n*RND): READ w$: NEXT i 30 DATA "RIO DE JANEIRO","INFEDELITY","IMMORTALITY","ANACHRONISM","OPTHALMOLOGY", "ADMINISTRATION","ASTROPHYSICS","PSYCHIATRY","PLANETARIUM","INDECISION" 40 LET l=LEN w$: DIM p$(l): DIM x$(l): FOR i=1 TO l: LET p$(i)="-": NEXT i 50 LET c=0: LET t=100: LET x$=w$ 60 FOR i=1 TO l: LET r=INT (1+l*RND): LET z$=x$(i): LET x$(i)=x$(r): LET x$(r)=z$: NEXT i 70 CLS : PAPER 0: BORDER 0: INK 7 80 FOR r=1 TO 12: CIRCLE 20,24,r: NEXT r 90 PLOT 18,26: DRAW 0,149: DRAW 4,0: DRAW 0,-149: PLOT 20,24: DRAW 0,58 95 INK 7: FOR i=1 TO 11: PRINT AT i,3;"- ";210-10*i: NEXT i 100 INK 7: PRINT AT 1,15;"AWFUL ANAGRAM";AT 3,12;"\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::";AT 7,12;"\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::": FOR i=4 TO 6: PRINT AT i,12;"\::";AT i,30;"\::": NEXT i: PRINT AT 5,14;x$ 110 INK 6: PRINT AT 10,15;"YOUR ATTEMPT";AT 12,12;"\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::";AT 16,12;"\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::": FOR I=13 TO 15: PRINT AT i,12;"\::";AT i,30;"\::": NEXT i: PRINT AT 14,14;p$ 115 PRINT INK 6;AT 15,14;"123456789012345" 120 INK 7: PRINT AT 18,12;" ";AT 19,12;" " 130 INPUT "Enter letter: ";l$;",position:";p 140 IF p<>INT p OR p<1 OR p>l OR p>LEN w$ THEN INPUT (p;" is invalid. Reenter position:");p: GO TO 140 150 IF w$(p)<>l$ THEN GO TO 190 160 LET c=c+1: LET p$(p)=l$: PRINT AT 14,14; INK 6;p$ 170 IF c=l THEN PRINT AT 16,12;"YOU ARE FREE!": GO TO 220 180 GO TO 120 190 LET t=t+10: DRAW INK 7;0,8: IF t=200 THEN PRINT AT 18,12;"You've failed - the";AT 19,12;"cauldron shakes...": FOR i=-25 TO 25: BEEP 0.1,i: NEXT i: PRINT AT 0,0;: FOR i=1 TO 704: PRINT INVERSE 1;" ";: NEXT i: BORDER 0: GO TO 220 200 IF t=190 THEN PRINT AT 18,12; FLASH 1;"Cauldron is very hot": PAUSE 200 210 GO TO 120 220 INPUT "key 1 fo repeat, 0 to stop:"; LINE z$: IF z$="1" THEN RUN 225 BORDER 0: PAPER 0: INK 7: CLS 230 STOP 9997 STOP 9998 SAVE "ANAGRAMS" LINE 1