20 lines
633 B
Mathematica
20 lines
633 B
Mathematica
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
; ;
|
|
; Copyright 2001 Sanchez Computer Associates, Inc. ;
|
|
; ;
|
|
; This source code contains the intellectual property ;
|
|
; of its copyright holder(s), and is made available ;
|
|
; under a license. If you do not know the terms of ;
|
|
; the license, please stop and do not read further. ;
|
|
; ;
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
chkop ;display undefined triple codes
|
|
u ""
|
|
n x
|
|
w !,"missing triple op codes: ",!
|
|
s x=""
|
|
chkop1 s x=$o(opx(x)) i x="" g chkop9
|
|
i '$d(work(x)),'$d(work(x+.1)) w x,?7,opx(x),!
|
|
g chkop1
|
|
chkop9 q
|