#include <perms.h>

//          Edinburgh IMP77 Compiler - Version 8.4
//
//     1  %begin

int main(int argc, char **argv) { /*%begin*/
  _imp_initialise(argc, argv);

  //     2    %real num

  float NUM;

  //     3    num = 0123

  NUM = 123;

  //     4    num = 0123.234

  NUM = 0123.234;

  //     5    num = 0123.0234

  NUM = 0123.0234;

  //     6    num = 0123.4@2

  NUM = 0123.4E2;

  //     7    num = 0123.4@-2

  NUM = 0123.4E-2;

  //     8    num = 0123@2

  NUM = 0123E2;

  //     9    num = 0123@+2

  NUM = 0123 + 2;

  //    10    num = 0123@-2

  NUM = 0123E-2;

  //    11    num = 123

  NUM = 123;

  //    12    num = .234

  NUM = .234;

  //    13    num = .234@3

  NUM = .234E3;

  //    14    num = 0123.

  NUM = 0123.;

  //    15    num = 0123.@4

  NUM = 0123.E4;

  //    16    num = 0.@3

  NUM = 0.E3;

  //    17    !num = 0.@      ;! rejected forms:
  //    18    !num = .@3
  //    19  %endofprogram

  _imp_stop(0);
  return 0;
end_0:;
}