$$字符串定义
?7 m# o; S, `/ Bstring/str(20)' b" h, R ?5 }
' r' L7 Z( Y# S
$$选择打印内容。8 ~7 J# J' H7 }) t T
l10:
! g C; i% Y2 s _. s* g8 echoose/'choose option','打印unigraphics','打印open grip',resp: I4 Z) r4 ^4 I; r1 [$ l: V: `
jump/l10:,trm:,,,l20:,l30:,resp- R- \9 K* k$ k3 N: z+ I* i
' K" m: ~& u% U$ D( N( {
$$若选择打印unigraphics,则执行l20:语句标号下的程序指令。
) k- b' G6 o @( l8 N& i6 j- vl20:
8 ^: r, J4 ~! \7 x% b) R0 jstr='unigraphics'; E- S% s& }7 g4 Z
print/str
2 Q1 _: U$ s: q" ]' i) Y+ h! l; {% G+ P* w% k3 C
jump/trm:
* ]# k2 _! J$ l" A$$若选择打印open grip,则执行l30:语句标号下的程序指令。
+ w9 {! h% S* ?/ w& Q5 {- r0 Tl30:' U( ^+ |2 J) s* q8 X, I3 F- `) g
str='open grip'1 o/ c6 x V3 k& t# i
NOTE/0,1,str+ f8 w6 e# f$ Y4 X9 x9 j6 W: W: K
% f I9 t# M; t8 z6 H3 f
$$程序结束
( T: [ c0 x% d6 r# s% \" r9 ~* p3 utrm:" {4 G6 X4 B. I8 O; [- d
halt
+ z7 A e$ K0 c8 d
8 }7 L% K& W0 t( L/ E: U: T) {# }& K1 }
6 z, c) c+ A2 [7 h/ Q3 ?2 J7 a$ K3 x* _6 A2 O* d! O2 w
5 F9 X) C; f, _$ X% {8 _/ g
(上语句中,jump/l10:,trm:,,,l20:,l30:,resp什么意思) |