--------------------------------------
MACRO4x4
by Sidney A. Powers
Copyright (c) 1990
MindCraft Publ. Corp.
Concord, MA 01742
--------------------------------------
{solves a four by four matrix using Crout's method              }

1:<asp><down:down:down:down:down>!{   moves cursor 5 lines down }
2:<asp><up:up:up:up:up>!{             moves cursor 5 lines up   }
3:<asp><up:up:up:up>!{                moves cursor 4 lines up   }
4:<asp><up:up:up>!{                   moves cursor 3 lines up   }
5:<asp><left:left:left>!{             moves cursor 3 spaces left}
6:<asp><left:left:left:left>!{        moves cursor 4 spaces left}
7:<asp><left:left:left:left:left>!{   moves cursor 5 spaces left}

T:<asp><sa-1>+(sa-2:rtn:{                         1,1 copied    }
down>+<sa-2:rtn:{                                 1,2 copied    }
down>+<sa-2:rtn:{                                 1,3 copied    }
down>+<sa-2:rtn:{                                 1,4 copied    }
sa-4:right>+<sa-2>/<left:rtn:{                    2,1 processed }
right>+<sa-2>/<left:left:rtn:{                    3,1 processed }
right>+<sa-2>/<sa-5:rtn:{                         4,1 processed }
right :right>+<sa-2>/<sa-7:rtn:{                  5,1 processed }
sa-6:down>+<sa-2>-(<left>*<up>)<rtn:{             2,2 processed }
down>+<sa-2>-(<left>*<up:up>)<rtn:{               3,2 processed }
down>+<sa-2>-(<left*<sa-4>)<rtn:{                 4,2 processed }
up:up:right>+(<sa-2>-(<left:left>*<up>))/<left:rtn:{
-                                                 2,3 processed }
right>+(<sa-2>-(<sa-5>*<up>))/<left:left:rtn:{    2,4 processed }
right:right>+(<sa-2>-(<sa-7>*<up>))/<left: sa-5:rtn:{
-                                                 2,5 processed }
sa-5:down>+<sa-2>-(<left:left>*<up:up>)-(<left>*<up>)< rtn:{
-                                                 3,3 processed }
down>+<sa-2>-(<left:left>*<sa-4>)-(<left)*<up:up>)<rtn:{
-                                                 4,3 processed }
right:up>+(<sa-2>-(<sa-5>*<up:up>)-(<left:left>*<up>))/<left:rtn:{
-                                                 3,4 processed }
right:right>+(<sa-2>-(<sa-7>*<up:up>)-(<sa-6>*<up>))/<sa-5:rtn:{
-                                                 3,5 processed }
left:left:down>+(<sa-2>-(<sa-5>*(sa-4>)-(<left:left>*<up:up>)-(<left>*<up>))<rtn:{                                             4,4 processed }
right:right>+(<sa-2>-(<sa-7>*<sa-4>)-(<sa-6>*<up:up>)-(<sa-5>*<up>))/<left:left: rtn:{                                         5,4 processed }
:{                                                              }
:{ answers ---------------------------------------------------- }
left:down:down>"C3 = <right>+<up:up:rtn:{         C3 determined }
left:down>"C2 = <right>+<sa-3>-(<sa-3:left:left>*<up>)<rtn:{
-                                                 C2 determined }
left:down>"C1 =
<right>+<sa-2:up>-(<sa-2:up:left:left>*<up:up>)-(<sa-2:up:left:left:left>*<up>)<rtn:{
-                                                 C1 determined }
left:down>"C0 =
<right>+<sa-3:sa-3>-(<sa-3:sa-3:left:left>*<sa-4>)-(<sa-3:sa-3:sa-5>*<up:up>)-(<sa-3:sa-3:sa-6>*<up>)< rtn:{                   C0 determined }
!
End