job tog perm disc1 100 1 temp disc 200 5 size 20000
claim
mode list.yes
rtp86job = set 1 disc
if ok.no
  finis  
lookup rtp86gram
if ok.no
  lib temp.libbobs rtp86gram
rtp86job = edit rtp86gram
i/
job tog perm disc1 100 2 temp disc 200 5 perm maxi2 200 1 area 8 size 210080
mode list.yes
(rtp86tab = set 30 disc
if ok.no 
finis
bobstables = assign rtp86tab
lookup bobs
if ok.no
lib temp.libbobs bobs
out86gram=set 1 disc
o out86gram
head cpu
bobs
head cpu
copy rtp86tab. 10.15
o c
lib on.libbobs out86gram rtp86tab
finis)

/,
g b/;;/@/, 
l t,
l./goalsymbol/,
g b/</%/,
l t,
l./goalsymbol/,
g b/>/%/,
l t,
l./!/,
g b/::=/~/,
l t,
;find simple expression og lav relationerne tilbage til det rigtige
l./simple expression%=%/,
l./%%/, r/%%%/% <>/,
l1, r/% % %/% < %/,
l1, r/%=/<=/,
l1, r/% % %/% > %/,
l1, r/%=/>=/,



f
if ok.no
finis
i rtp86job
finis