<mdl.int>/pure.mid.15

   1
   2 TITLE SETPUR
   3
   4 1PASS
   5
   6 BOT==700000
   7
   8 .GLOBAL .LPUR,.LIMPU,HIBOT,PHIBOT,REALGC,THIBOT
   9 REALGC==200000
  10
  11 LOC 140
  12
  13 .LIMPU==140
  14
  15 HIBOT==BOT
  16 PHIBOT==BOT_<-10.>
  17 THIBOT==BOT_<-9.>
  18
  19 .LPUR==BOT
  20
  21 LOC BOT
  22
  23 END
  24 \f\ 3\f