10 REM FOUR-LETTER WORD UNSCRAMBLER
20 PRINT "TYPE ANY FOUR ASCII CODES RAPRESENTING LETTERS:"
30 PRINT
40 INPUT L(1),L(2),L(3),L(4)
50 PRINT
60 FOR I1=1 TO 4
70     FOR I2=1 TO 4
80          IF I2=I1 THEN 150
90		FOR I3=1 TO 4
100		    IF I3=I1 THEN 140
110		    IF I3=I2 THEN 140
120		    LET I4=10-(I1+I2+I3)
130		    PRINT CHR$(L(I1));CHR$(L(I2));CHR$(L(I3));CHR$(L(I4))
140		NEXT I3
150    NEXT I2
160 NEXT I1
170 END
