 10 REM PERMUTATIONS OF 4 DIGITS
 14 :
 15 REM *BUGFIX*
 16 REM This is probably an ommission on my part
 17 REM but I don't have the book handy to check
 18 DIM A(10)
 19 :
 20 PRINT "TYPE ANY 4 DIGITS"
 30 INPUT A(1), A(2), A(3), A(4)
 40 FOR J1 = 1 TO 4
 50 FOR J2 = 1 TO 4
 60 IF J2 = J1 THEN 130
 70 FOR J3 = 1 TO 4
 80 IF J3 = J1 THEN 120
 90 IF J3 = J2 THEN 120
100 LET J4 = 10 -(J1+J2+J3)
110 PRINT A(J1); A(J2); A(J3); A(J4)
120 NEXT J3
130 NEXT J2
140 NEXT J1
150 END
