The sickness unto death

      integer go to,do 100 if,return
      real read(4)
      logical go to if
      real logical(30)
      data read/4h(1x,,3hi5,,4hf8.1,1h)/
      data go to,do 100 if,if 100 do/2,1,30/
      assign 100 to if go to
      do 100 if=do 100 if,if 100 do 
      return=if 
      logical(if)=return
      go to if=if-go to*(if/go to).eq.do 100 if 
      if(go to if) go to if go to 
      call call(logical,return) 
  100 continue
      print read, (if,logical(if),if=do 100 if,if 100 do) 
      stop
      end 
      subroutine call( integer,real ) 
      integer real
      real integer(real)
      common(if)=if*if
      integer(real)=common(real)
      return
      end