<mdl.int>/txpure.mid.3

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