begin
  real num
  num = 0123
  num = 0123.234
  num = 0123.0234
  num = 0123.4@2
  num = 0123.4@-2
  num = 0123@2
  num = 0123@+2
  num = 0123@-2
  num = 123
  num = .234
  num = .234@3
  num = 0123.
  num = 0123.@4
  num = 0.@3
  !num = 0.@      ;! rejected forms:
  !num = .@3
endofprogram