proc sort3 &a &b &c .
   if a > c : swap a c
   if b > c : swap b c
   if a > b : swap a b
.
x = 77444
y = -12
z = 0
sort3 x y z
print x & " " & y & " " & z
#
proc sort3str &a$ &b$ &c$ .
   if strcmp a$ c$ > 0 : swap a$ c$
   if strcmp b$ c$ > 0 : swap b$ c$
   if strcmp a$ b$ > 0 : swap a$ b$
.
x$ = "lions, tigers, and"
y$ = "bears, oh my!"
z$ = "(from the \"Wizard of OZ\")"
sort3str x$ y$ z$
print x$
print y$
print z$