$$字符串定义
1 Z* M- o3 ]9 V; h+ u$ Istring/str(20)* _7 P5 s3 y5 z& U6 Q; `8 D' Z
" A+ l- F& j8 U8 z
$$选择打印内容。0 `7 s# B4 U" h
l10:! W, b/ o" X4 Z! H8 a
choose/'choose option','打印unigraphics','打印open grip',resp7 F3 P8 W$ a6 ~ D
jump/l10:,trm:,,,l20:,l30:,resp& o3 e. v( e: S/ c
6 R# y2 q5 k, b& x* |& B& ~ V: N' r
$$若选择打印unigraphics,则执行l20:语句标号下的程序指令。
" e8 \$ Y; U7 z- A Kl20:8 R( [2 F6 G; B
str='unigraphics'
9 B0 E& X+ ]* |/ q8 m3 l, Tprint/str4 G' \1 _7 s8 Q) [
0 V. C: c1 ]# b, J: q+ kjump/trm:
4 y; E) b4 |0 w; Z$$若选择打印open grip,则执行l30:语句标号下的程序指令。
. J ^( g& j1 N: d2 Q! Ul30: Z+ P4 O/ X! v9 K/ d
str='open grip'
$ R+ {6 q' s5 j6 x4 D3 a* mNOTE/0,1,str+ e* F! C! X2 X. G6 `$ l: L
1 ^* M9 N I# ?. X! k$$程序结束
8 F/ `4 Q" u6 o* w1 z: e! L% x% Ktrm:4 M0 m* L3 {* J8 I: G8 }
halt/ q* `) u2 y7 V) d$ D) U% S
2 ^1 q; g5 ?! K+ s, h
8 x* C' S- a. Y0 I4 f# f
5 R t- j2 W3 b# }" N& i2 ^
/ Z! U+ }5 N3 |4 v; _- t6 ]( F* T
# G' q2 v# F3 J `. N+ Z6 W3 J
(上语句中,jump/l10:,trm:,,,l20:,l30:,resp什么意思) |