10 REM PRIME NUMBERS
   12 MODE4
   14 VDU 19,0,4,0,0,0
   20 CLS
   30 PRINT:PRINT TAB(8,1) "LIST OF PRIME NUMBERS"
   40 PRINT TAB(0,4)"PRIME NUMBERS = 1   2 ......"
   50 T=0
   60 A=1
   70 Y=0
   80 FOR N=1 TO 167
   90 A=A+2
  100 M=1
  110 M=M+1
  120 IF M>A/2 THEN 160
  130 B=A/M
  140 IF B=INT(B) THEN 90 ELSE GOTO 110
  150 IF B=1 THEN PRINT TAB(20,3) A ELSE GOTO 110
  160 PRINT TAB(Y*4,6+T);A
  170 IF (Y/10)=INT(Y/10) THEN Y=0
  180 IF Y=0 THEN T=T+1
  190 IF N<2 THEN T=T-1
  200 Y=Y+1
  210 NEXT
  220 END