|
ENTITY/obj
) \: @7 B& o, R' k. BSTRING/na(132)' _( s: d) [% j' F$ _8 H/ A- j
+ r6 B& A: }- _5 r
IFTHEN/&ACTPRT==1( M" X+ y+ b% M$ q3 \
MESSG/'Please open or create a new file'1 d6 y' v% F. V& P+ l) T5 {
JUMP/END:
0 Y1 V, |# Y6 ^4 t4 B- A ENDIF
' l/ r9 Y$ G) K% `; f1 D$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
- W" F6 W% N% W5 i: q( ~2 ~5 j" w8 T$ D; l7 c a
IDENT/'Please select an object ...',obj,RESP4 b. {* D* i2 D# V' k
na=&name(obj)
2 B. [/ _6 k$ R2 U3 U PRINT/na
* D: }5 x s8 K' T% z MESSG/na
" a7 x1 \5 y0 Y P' z; Z* n% d1 q& n7 ^1 p- f) w/ {$ t/ ]2 `
) W- \$ @6 ~3 n; m
END:* `6 _9 O2 f6 n* h8 z
HALT
( K9 P1 V8 ~$ Q+ q8 F |
|