% cat byteSieve.b

// Byte Sieve - Integer version

GET "libhdr.h"
GET "sys.h"

MANIFEST
{
  size = 1000
}

LET start () = VALOF
{
  LET flags = getvec (size/4 + 1)
  LET tStart, tEnd = ?,?
  LET count = 0

  writes ("Starting*n")
  UNLESS flags THEN
  {
    writes ("Out of memory*n")
    RESULTIS 1
  }

  FOR i = 0 TO size DO    // Assume everything is prime to start with
    flags%i := 1

  flags%0 := 0  // 0 and 1 are not prime
  flags%1 := 0

  tStart := sys (Sys_cputime)

  FOR i = 2 TO sqrt (size) DO
  {
    LET k = ?

    IF flags%i = 1 THEN   // It's prime
    {
      LET k = i + i
      WHILE k <= size DO
      {
        flags%k := 0      // ... but all multiples aren't
        k := k + i
      }
    }
  }

  tEnd := sys (Sys_cputime)

  writef ("Time: %d ms*n", tEnd - tStart)

  FOR i = 0 TO size-1 DO
    TEST flags%i THEN
      wrch ('**')
    ELSE
      wrch ('.')
  newline ()

// Count

  FOR i = 0 TO size DO
    IF flags%i = 1 THEN
      count := count + 1

  writef ("  %d  primes found.*n", count)

  freevec (flags)

  RESULTIS 0
}

AND sqrt (s) = VALOF
{
  LET x,y = s/2, (s/x+x)/2
  writef ("sqrt (%n) = ", s)

  {
    x := y
    y := (s/x+x)/2
  } REPEATWHILE x > y
  writef ("%n*n", x)
  RESULTIS x
}

%
% bc byteSieve.b to byteSieve

Ruby BCPL (10 Oct 2014) with simple floating point
Code size =   356 bytes of 32-bit little ender Cintcode
%
% byteSieve
Starting
sqrt (1000) = 31
Time: 84ms

  168 primes found.
%

A collection of 1970s articles in BYTE magazine about or using Pascal for microcomputers.

From the back: "This book not only provides a general introduction to the Pascal language, but is also a tremendous resource for software. There are two versions of a Pascal compiler (one written in Basic, the other in 8080 assembly language), a P-Code interpreter written in both Pascal and 8080 assembly languages, a chess-playing program, and an APL interpreter."