begin
  integer inum
  real rnum
  string (255) str = "improperly initialised?"
  
  inum = 0123
  inum = 123
  inum = X'AA'
  inum = X'aa'
  inum = K'77'
  inum = B'1101'
  inum = 10_0123
  inum = 16_aa
  inum = 16_AA
  inum = M'FRED'
  inum = M'fred'
  !! NOT IMP77: inum = 'FRED'
  !! NOT IMP77: inum = 'fred'
  inum = 8_77
  inum = 2_1101

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

  str = "improperly assigned?"
  !! NOT IMP77: str = 'ditto, old style'
  
endofprogram