1 WRITE "Enter a number to be squared: "
  READ x

2 SET y=x*x

3  WRITE " "
   WRITE " "
   WRITE x," * ",x," = ",y


4 WRITE " "
  WRITE " "
  WRITE "Again (1 = yes)?"
  READ z

  IF z==1 1

  WRITE "Good bye!"

  STOP