This example creates a table of text on the screen which represents a set of standard radii use on a drawing. The user can then select the text to define the circle radius.
ENTITY/ENT,CR1
STRING/STR(8)
DATA/X,0,Y,0,Z,0
NOTE/1,0,'.062'
NOTE/1,.5,'.125'
NOTE/1,1,'.250'
NOTE/1,1.5,'.375'
NOTE/1,2,'.500'
L10:GPOS/'SELECT CIRCLE CEN',X,Y,Z,RESP
JUMP/L10:,TERM:,,,,RESP
L20:IDENT/'PICK CIRCLE RAD',ENT,RESP
JUMP/L20:,TERM:,,,,RESP
STR=&DMTEXT(ENT)
NUM=VALF(STR)
CR1=CIRCLE/X,Y,Z,NUM
JUMP/L10:
TERM:
HALT