Return to Symbol

Accessing Expressions By Name Example

This example demonstrates the use of a register GPA to prompt you to approve a selected radius.

 
$$
$$ Declarations
$$
    ENTITY/CR(20),OBJ
    NUMBER/NUM(3)
    K=1
$$
$$ User Prompts
$$
    L10:GPOS/'INDICATE CENTER',NUM,RESP
    JUMP/L10:,TERM:,,,,RESP
    L20:IDENT/'SELECT CIRCLE RAD',OBJ,RESP
    JUMP/L10:,TERM:,,,,RESP
    &REGA=&RADIUS(OBJ)
    L30:CHOOSE/'ACCEPT RADIUS IN A ?','YES','NO',RESP
    JUMP/L20:,TERM:,,,,L20:,RESP
$$
$$ Circle Creation
$$
    CR(K)=CIRCLE/NUM,&REGA
    K=K+1
    IF/K>20,JUMP/END:
    L40:CHOOSE/'MAKE ANOTHER ?','YES','NO',RESP
    JUMP/L40:,TERM:,,,L10:,TERM:,RESP
    END:MESSG/'I MADE MY 20'
    TERM:HALT