Menu("CALCULATE WHAT?","PARALLELOGRAM?",P,"REG POLYGON?",G,"CIRCLE?",C)
Lbl P
Disp "CALC PERLELGRAM","ENTER LENGTH","WIDTH"
Prompt L,W
2(L+W)→Z
Disp "PERM IS",Z
Stop
Lbl G
Disp "CALC REG POLYGON","ENTER","NUMBER OF SIDES","LENGTH OF SIDES"
Prompt N,L
NL→Y
Disp "PERM IS",Y
Stop
Lbl C
Disp "CALC CIRCLE","ENTER DIAMETER"
Prompt D
πD→X
Disp "CIRCUM IS",X
Stop