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'