TITLE SETPUR

1PASS

BOT==700000

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

LOC 140

.LIMPU==140

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

.LPUR==BOT

LOC BOT

END