10 DIM P(1000)
	20 FOR I=2 TO 1000
	30 LET P(I)=1
	40 NEXT I
	50 LET P(1)=0
	60 FOR Q=2 TO 32
	70 IF P(Q)=0 THEN GOTO 110
	80 FOR I=Q*Q TO 1000 STEP Q
	90 LET P(I)=0
	100 NEXT I
	110 NEXT Q
	120 PRINT "FERTIG"
	130 PAUSE 1000
	140 LET C=0
	150 FOR I=1 TO 1000
	160 IF P(I)=0 THEN GOTO 240
	170 IF C<8 THEN GOTO 200
	180 PRINT
	190 LET C=0
	200 LET C=C+1
	210 IF I<10 THEN PRINT " ";
	220 IF I<100 THEN PRINT " ";
	230 PRINT I;" ";
	240 NEXT I