24 lines
424 B
Plaintext
24 lines
424 B
Plaintext
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$
|