PROC square(BYTE number)››  CARD total››  total=number*number›  PrintF("%E%U * %U = %U%E",number,number,total)››RETURN››PROC main()››  BYTE num››  Print("Give me a number: ")›  num=InputB()››  square(num)››RETURN››››