1 WAIT (5000) 5 PRINT 10 REM: PROGRAM FOR LISTING PRIME NUMBERS FROM 1 TO 200 20 PRINT 30 PRINT TAB(12)" LIST OF PRIME NUMBERS BETWEEN 1 AND 200" 40 PRINT TAB(12)" ***************************************" 50 PRINT 100 DIM A[6],B[6] 150 READ B[1],B[2],B[3],B[4],B[5],B[6] 175 FOR I=1 TO 6 180 PRINT B[I]; 190 NEXT I 200 FOR X=15 TO 200 STEP 2 305 FOR K=1 TO 6 320 LET A[K]=X/B[K] 330 LET A[K]=A[K]-INT(A[K]) 340 NEXT K 350 IF (A[1] AND A[2] AND A[3] AND A[4] AND A[5] AND A[6])>0 THEN 400 375 GOTO 410 400 PRINT X; 410 NEXT X 420 DATA 2,3,5,7,11,13 430 PRINT 450 PRINT 460 WAIT (10000) 800 REM: PROGRAM BY J. J. PICAZO 900 END