** This clears the output and log windows and recalls the program;
DM 'OUT;CLEAR;LOG;CLEAR;PGM;RECALL';

/* ---------------------------------------------------------------
 program:       CRTEMP.SAS
 output:
 does:          Create templates for graphs
                percentages are coded so that there is a little
                        space between graphs
--------------------------------------------------------------- */;

*Creates a macro variable for the folder where all this project work is saved;
*%LET PATH=H:\USERS\WENDY\NOTES180;    * school;
%LET PATH=A:       ;                 * publicatoin;

OPTIONS PS=68 LS=120 PAGENO=1 NODATE NOCENTER ERRORS=3;

* automatically prints the date and time on the footnote of output;
FOOTNOTE  "CRTEMP.SAS      &SYSTIME    &SYSDATE";
TITLE ' ';

* Designates file names to store the program, the output and the log;
FILENAME PROGRAM "d:\bios180\CRTEMP.SAS";
FILENAME LOG     "d:\bios180\CRTEMP.LOG";
FILENAME OUTPUT  "d:\bios180\CRTEMP.OUT";
* Saves the program to above designated file;
DM 'PGM; FILE PROGRAM REPLACE';

* Designates file name where data is stowhite;
LIBNAME DATA "d:\bios180\";

*set the graphics environment;
GOPTIONS RESET=GLOBAL GUNIT=PCT NOBORDER;

*Start the GREPLAY procedure;
PROC GREPLAY TC=DATA.TEMPLATE NOFS;

** Define a template, then panels 1 and 2 and 3 for the title;
TDEF NEW2VT des='2 vertical squares of = size w/ title'

1/      llx=0   lly=0
        ulx=0   uly=94
        urx=48  ury=94
        lrx=48  lry=0

2/      llx=52  lly=0
        ulx=52  uly=94
        urx=100 ury=94
        lrx=100 lry=0

3/      llx=0   lly=94
        ulx=0    uly=100
        urx=100    ury=100
        lrx=100    lry=94     ;

TEMPLATE NEW2VT;


** Repeat previous template without leaving room at the top for a title;
TDEF NEW2V des='2 vertical squares of = size'

1/      llx=0   lly=0
        ulx=0   uly=100
        urx=48  ury=100
        lrx=48  lry=0

2/      llx=52  lly=0
        ulx=52  uly=100
        urx=100 ury=100
        lrx=100 lry=0   ;
TEMPLATE NEW2V;


** Create template with 2 horizontal squares;
TDEF NEW2H des='2 horizontal squares of = size'

2/      llx=15   lly=0
        ulx=15   uly=48
        urx=85  ury=48
        lrx=85  lry=0

1/      llx=15  lly=52
        ulx=15  uly=100
        urx=85 ury=100
        lrx=85 lry=52  ;
 TEMPLATE NEW2H;


** Do a 4 box template with title;
TDEF NEW4T des=' 4 squares of = size,w/ title'

3/      llx=0   lly=0
        ulx=0   uly=45
        urx=48  ury=45
        lrx=48  lry=0

1/      llx=0  lly=49
        ulx=0  uly=94
        urx=48 ury=94
        lrx=48 lry=49

2/      llx=52    lly=49
        ulx=52    uly=94
        urx=100    ury=94
        lrx=100    lry=49

4/      llx=52    lly=0
        ulx=52    uly=45
        urx=100    ury=45
        lrx=100    lry=0

5/      llx=0   lly=96
        ulx=0    uly=100
        urx=100    ury=100
        lrx=100    lry=96 ;

TEMPLATE NEW4T;


** Do a 4 box template;
TDEF NEW4 des=' 4 squares of = size'

3/      llx=0   lly=0
        ulx=0   uly=48
        urx=48  ury=48
        lrx=48  lry=0

1/      llx=0  lly=52
        ulx=0  uly=100
        urx=48 ury=100
        lrx=48 lry=52

2/      llx=52    lly=52
        ulx=52    uly=100
        urx=100    ury=100
        lrx=100    lry=52

4/      llx=52    lly=0
        ulx=52    uly=48
        urx=100    ury=48
        lrx=100    lry=0   ;

TEMPLATE NEW4;


** Do a 6 box template with title;
TDEF NEW6T des=' 6 squares of = size,w/ title'

4/      llx=0   lly=0
        ulx=0   uly=45
        urx=31.3  ury=45
        lrx=31.3  lry=0

1/      llx=0  lly=49
        ulx=0  uly=94
        urx=31.3 ury=94
        lrx=31.3 lry=49

2/      llx=34.3    lly=49
        ulx=34.3    uly=94
        urx=65.6    ury=94
        lrx=65.6    lry=49

3/      llx=68.6    lly=49
        ulx=68.6    uly=94
        urx=100    ury=94
        lrx=100    lry=49

6/      llx=68.6    lly=0
        ulx=68.6    uly=45
        urx=100    ury=45
        lrx=100    lry=0

5/      llx=34.3    lly=0
        ulx=34.3    uly=45
        urx=65.6    ury=45
        lrx=65.6    lry=0

7/      llx=0   lly=96
        ulx=0    uly=100
        urx=100    ury=100
        lrx=100    lry=96     ;

TEMPLATE NEW6T;


** Do a 6 box template;
TDEF NEW6 des=' 6 squares of = size'

4/      llx=0   lly=0
        ulx=0   uly=48
        urx=31.3  ury=48
        lrx=31.3  lry=0

1/      llx=0  lly=52
        ulx=0  uly=100
        urx=31.3 ury=100
        lrx=31.3 lry=52

2/      llx=34.3    lly=52
        ulx=34.3    uly=100
        urx=65.6    ury=100
        lrx=65.6    lry=52

3/      llx=68.6    lly=52
        ulx=68.6    uly=100
        urx=100    ury=100
        lrx=100    lry=52

6/      llx=68.6    lly=0
        ulx=68.6    uly=48
        urx=100    ury=48
        lrx=100    lry=0

5/      llx=34.3    lly=0
        ulx=34.3    uly=48
        urx=65.6    ury=48
        lrx=65.6    lry=0        ;

TEMPLATE NEW6;

** list catalog data.template and see if all the new
** templates were added (prints list to log);
LIST TC;
RUN;
QUIT


** Automatically saves contents of the output and log windows;
DM 'LOG; FILE LOG    REPLACE';
DM 'OUT; FILE OUTPUT REPLACE';