DM "output; clear; log; clear";

Data applicant;
infile 'C:\Teaching\Math593\datafile07\applican.txt';
ID+1; cand_ID=put(ID,2.);
input FL APP AA LA SC LC HON SMS EXP DRV AMB GSP PLT KJ SUIT; run;

%include 'C:\Teaching\Math593\macro\scale.sas';
%include 'C:\Teaching\Math593\macro\faces.sas';
%include 'C:\Teaching\Math593\macro\stars.sas';

%scale(data=applicant,
       out=scaledapp,
       outstat=range,
       var =FL--SUIT,
	   id=cand_ID);

%faces(data=scaledapp,    
       res=3,
       blks=1, rows=4, cols=4,
       l1 =FL, r1 =FL,
       l2 =APP, r2 =APP,
       l3 =AA, r3 =AA,
       l4 =LA, r4 =LA,
       l5 =SC, r5 =SC,
       l6 =LC, r6 =LC,
       l7 =HON, r7 =HON,
       l8 =SMS, r8 =SMS,
       l9 =EXP, r9 =EXP,
       l10=DRV, r10=DRV,
       l11=AMB, r11=AMB,
       l12=GSP, r12=GSP,
       l13=GSP, r13=GSP,
       l14=POT, r14=POT,
       l15=KJ, r15=KJ,
       l16=KJ,   r16=KJ,
       l17=SUIT,  r17=SUIT,
       l18=SUIT,  r18=SUIT,
	   id=cand_ID);

 %stars(data=scaledapp,
   var =FL APP AA LA SC LC HON SMS EXP DRV AMB GSP PLT KJ SUIT,
   id=cand_ID,
   across=6, down=6, color='black');