Wordsum 195
260 IF A(1)=0 THEN 250 270 IF X=1 THEN 310 280 FOR Y=1 TO X-I
290 IF A(X)=A(Y) THEN 250 300 NEXT
310 NEXT X
320 P=0
330 FOR X=LEN(P$) TO 1 STEP-1
340 T=INT(T+(A(X)*10'P)) 350 P=P+1
360 NEXT X
370 S=9*(1000+INT(RND*9000))
380 I=T-S
390 S$=STR$(6):T$=STR$(T):I$=STR$(1)
400 S$=MID$(S$,2):T$=MID$(T$,2):1$=MID$( 1$,2)
410 FOR X=1 TO LEN(T$) 420 FOR Y=1 TO LEN(I$)
430 IF MID$(1$,Y,1)=MID$(T$,X,1) THEN C( X)=1:MID$(1$,Y,1)=A$(X)
440 NEXT
450 NEXT X
460 FOR X=1 TO LEN(T$) 470 FOR Y=1 TO LEN(S$)
480 IF MID$(S$,Y,1)=MID$(T$,X,1) THEN C( X)=1:MID$(5$,Y,1)=A$(X)
490 NEXT
500 NEXT X
510 FOR X=1 TO LEN(T$)
520 IF C(X)=0 THEN MID$(T$,X,1)=A$(X) 530 NEXT X
540 REM *** PRINT SUM ON SCREEN ****
550 LOCATE #1, 23-2*LEN (1$),2:PRINT #1,
560 FOR X=1 TO LEN(I$)
570 PRINT #1, MID$(I$,X,1);" ";
580 NEXT
590 LOCATE #1, 23-2*LEN(S$),4:PRINT #1,;
600 FOR X=1 TO LEN(S$)
610 PRINT #1, MID$(S$,X,1);" 620 NEXT
630 SD= 180:GOSUB 1060
640 LOCATE #1, 10,5:PRINT #1,"