>
    STO PLUS 1<br>
    C SECOND THE DIFFERENCE IN RAY HEIGHTS (STORE IN #2)<br>
    C SET THE OBJECT POSITION<br>
    FOB 1<br>
    C TRACE THE FIRST RAY<br>
    RAY 0 7<br>
    C GET THE X POSITION ON SURFACE 5<br>
    GET X 5<br>
    C STORE IN REGISTER 2<br>
    STO 2<br>
    C TRACE THE SECOND RAY<br>
    RAY 0 -8<br>
    C GET THE X POSITION ON SURFACE 5<br>
    GET X 5<br>
    C STORE MINUS INTO REG 2<br>
    STO MINUS 2<br>
    EOM<br>
</strong></p>

<p>Now macro function FUN01 exists and sets up t