; pos=yes warn=0
*fix 1 0 0 0

*begin
*calibrate clino 90
1 2 1 0 90 ; corrected to 1 2 1 0 0
*infer plumbs on
1 3 1 - 90 ; corrected to 1 3 1 - up
*infer plumbs off
1 4 1 0 90 ; corrected to 1 4 1 0 0
*begin
*infer plumbs on
1 5 1 - 90 ; corrected to 1 5 1 - up
*end
1 6 1 0 90 ; corrected to 1 6 1 0 0
*infer plumbs on
*begin
*infer plumbs off
1 7 1 0 90 ; corrected to 1 7 1 0 0
*end
1 8 1 - 90 ; corrected to 1 8 1 - up
*end

*begin
*begin
*calibrate clino -90
1 D2 1 0 -90 ; corrected to 1 D2 1 0 0
*infer plumbs on
D3 1 1 - -90 ; corrected to D3 1 1 - down
*infer plumbs off
1 D4 1 0 -90 ; corrected to 1 D4 1 0 0
*begin
*infer plumbs on
D5 1 1 - -90 ; corrected to D5 1 1 - down
*end
1 D6 1 0 -90 ; corrected to 1 D6 1 0 0
*infer plumbs on
*begin
*infer plumbs off
1 D7 1 0 -90 ; corrected to 1 D7 1 0 0
*end
D8 1 1 - -90 ; corrected to D8 1 1 - down
*end

*calibrate tape -1

1 A 0 0 0 ; corrected to 1 A 1 0 0
*infer equates on
1 B 0 0 0 ; converted to *equate 1 B
*infer equates off
1 C 0 0 0 ; corrected to 1 C 1 0 0
*begin
*infer equates on
1 D 0 0 0 ; converted to *equate 1 D
*end
1 E 0 0 0 ; corrected to 1 E 1 0 0
*infer equates on
*begin
*infer equates off
1 F 0 0 0 ; corrected to 1 F 1 0 0
*end
1 G 0 0 0 ; converted to *equate 1 G
*end
