21) PRIME NUMBERS (169 B)
To use: LOAD 8, RUN 700

710 REM
720 REM PRIME NUMBERS
730 REM
740 DIM A(90)
750 LET R=1
760 LET A(1)=2
770 PRINT 2,
780 FOR X=3 TO 460
790 FOR Y=1 TO R
800 IF X/A(R)>A(R) THEN GOTO 830
810 IF X=(X/A(Y))*A(Y) THEN GOTO 860
820 NEXT Y
830 LET R=R+1
840 LET A(R)=X
850 PRINT X,
860 LET X=X+1
870 NEXT X
880 STOP