Averageloop
  SET sum=0
  FOR i=0:1 {
    READ !,"Number: ",num
    QUIT:num=""
    SET sum=sum+num
  }
  SET average=sum/i

SET x=$ZUTIL(68,42)
  IF x=0 {
    WRITE !,"Initially standard format ",x
    WRITE !,"Standard $JOB format: ",$JOB
    SET y=$ZUTIL(68,42,1)
    WRITE !,"Extended $JOB format: ",$JOB
    SET y=$ZUTIL(68,42,0) ; restore setting
    QUIT
  }
  ELSE {
    WRITE !,"Initially extended format",x
    WRITE !,"Extended $JOB format: ",$JOB
    SET y=$ZUTIL(68,42,0)
    WRITE !,"Standard $JOB format: ",$JOB
    SET y=$ZUTIL(68,42,1) ; restore setting
  QUIT
  }

SET age=""
READ !,"What is your age? ",age QUIT:age=""
IF age<30 {
  SET loc="Young" }
ELSEIF (age>29)&(age<60) {
  SET loc="Midage" }
ELSEIF age>59 {
  SET loc="Elder" }
ELSE {
  WRITE "data input error"
  QUIT }
GOTO @loc
QUIT
Young
  WRITE !,"You're still young"
  QUIT
Midage
  WRITE !,"You're in your prime"
  QUIT
Elder
  WRITE !,"You have a lifetime of wisdom to impart"
  QUIT