/* Hello World (Kommentar ist notwendig!!!) */

SAY "Hello World"

Quicksort: PROCEDURE expose A.
PARSE ARG lo, hi
/* lo ist der unterste Index, hi ist der oberste Index 
   des zu sortierenden (Teil-)Feldes A. */

/* Aufteilung */

i = lo
j = hi
Pivot = (lo + hi) % 2
x = a.Pivot
Do Until i > j
  Do While a.i < x
    i = i + 1
  end
  Do While a.j > x
    j = j - 1
  end
  if i <= j then do
    h   = a.i
    a.i = a.j
    a.j = h
    i   = i + 1
    j   = j - 1
  end
end

/* Rekursion */

if lo < j then call quicksort lo, j
if i < hi then call quicksort i, hi

Return 0
^Z

/* */

DO I=1 TO 10
   SAY I*I
END

/* */

I=1

DO 10
   SAY I*I
   I = I + 1
END