FIRST FIVE HUNDRED PRIMES:
begin 
    integer J, K, N, Q, R;
    integer array PRIME[1:500];
P1: PRIME[1] := 2; N := 3; J := 1;
P2: J := J + 1; PRIME[J] := N;
P3: IF J = 500 THEN GO TO P9;
P4: N := N + 2;
P5: K := 2;
P6: Q := N % PRIME[K]; R := N - Q * PRIME[K];
    if R = 0 then go to P4;
P7: if Q <= PRIME[K] then go to P2;
P8: K := K + 1; go to P6;
P9: OUTSTRING(1, "First Five Hundred Primes\n");
    for J := 1 step 1 until 50 do 
    begin 
      for K := 1 step 1 until 10 do 
      begin 
        integer P;
        P := PRIME[J + 50 * (K - 1)];
        if P < 1000 then OUTCHAR(1, "0", 1);
        if P < 100 then OUTCHAR(1, "0", 1);
        if P < 10 then OUTCHAR(1, "0", 1);
        OUTINTEGER(1, P)
      end K;
      OUTSTRING(1, "\n")
    end J
end