blob: ea283a67c7cf81fcb76e5bc5ba1ecf79bf4b10c1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
o<g843> sub
(debug, in g843 x=#<x> y=#<y> z=#<z> p=#<p> q=#<q>)
O100 if [exists[#<p>] NE 1.]
(debug, the P word was not set)
O100 endif
; signal success be returning a value > 0:
o<g843> endsub [1]
m2
|