|
ENTITY/obj
# Q1 A0 T: ^/ bSTRING/na(132)
5 m6 q. S: S3 x* p$ B8 m. u0 ^1 E2 j
IFTHEN/&ACTPRT==18 \1 X/ W7 R N
MESSG/'Please open or create a new file'4 h0 [ b4 `0 _4 E( g) k5 B
JUMP/END:
% d( s9 V: a+ v0 B1 |* r [& K, {: U6 n ENDIF% D. h5 v5 H7 j6 O3 \# Z8 S
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$9 a; w: t8 _! i0 x3 m" A% ]. i
# M" n3 ^/ ?0 _% M" l' B IDENT/'Please select an object ...',obj,RESP/ j$ b @4 ]- i/ x/ F2 G5 w' ?, f
na=&name(obj)
. F' ?- g) C/ [! {$ ?1 v$ M PRINT/na9 }3 l8 N- k" |2 W; t* K
MESSG/na
7 C, l9 {6 F; l9 f) S2 U' m; F5 k0 H% `% x
1 ~2 S l+ I: gEND:) U+ g8 k ?, |4 d$ W
HALT
c" M0 x7 h3 T3 t |
|