$$字符串定义
5 ]" e4 O8 X+ v Y* y( K1 ^7 sstring/str(20)
/ B4 e0 O% u5 q! p% W
) y n1 [6 V. e9 K* i$$选择打印内容。
7 r3 i/ h* `% h$ R" L% f$ W; yl10:
# H6 p) V7 I. e- D* g \2 ochoose/'choose option','打印unigraphics','打印open grip',resp& K4 x" U. z, _" L
jump/l10:,trm:,,,l20:,l30:,resp+ q1 O {7 a) Z+ z' I" C- V, F1 U
1 x# M( I9 @% u2 V1 w, k$$若选择打印unigraphics,则执行l20:语句标号下的程序指令。 C ~4 Q* l) N4 i4 I. S; A
l20:0 v- f) `# c# L' [5 J. ]
str='unigraphics'
$ c; Y; @' d1 w" h( G' Gprint/str
$ m. t: D' K! w; V' L3 I, q2 K _% g6 b1 f: D
jump/trm:: N- n# ]1 u8 V m
$$若选择打印open grip,则执行l30:语句标号下的程序指令。$ n, w% R. k9 t/ ?: v) a) \) H0 p
l30:
* U' [- L+ s% Y1 m+ W' Pstr='open grip'
5 ?9 }5 W( q7 [' A# wNOTE/0,1,str% u6 P; ]# i3 J" | c: B' y
* F, s: i* Y- `1 e1 }; K# [$$程序结束; D# I0 e$ \0 h/ |
trm:
; `4 I- E. O, r% X, a& @halt
; \; F+ W- C1 o, r
+ ^% d2 M i& Y' `3 u: q" `& x6 p0 |
2 R! q' N1 ^3 F6 d! ?
7 C, F7 Y, S6 g" e+ z1 C
/ v; z- D1 G- O4 ~; P(上语句中,jump/l10:,trm:,,,l20:,l30:,resp什么意思) |