TITLE SETPUR

1PASS

BOT==700000

.GLOBAL .LPUR,.LIMPU,HIBOT,PHIBOT,REALGC,THIBOT
REALGC==200000

LOC 140

.LIMPU==140

HIBOT==BOT
PHIBOT==BOT_<-10.>
THIBOT==BOT_<-9.>

.LPUR==BOT

LOC BOT

END