*3-5;
data testdata;
   input X Y;
   Z = 100 + 50*X + 2*X**2 - 25*Y + Y**2;
datalines;

1 2
3 5
5 9
9 11
;

title "Listing of TESTDATA";
proc print data=testdata noobs;
run;

*3-6;
data bank;
   infile 'c:\books\learning\bankdata.txt' pad;
   ***Note: PAD not necessary but a good idea
      See Chapter 21 for a discussion of this;
   input Name      $ 1-15
         Acct      $ 16-20
         Balance     21-26
         Rate        27-30;
    Interest = Balance * Rate;
    format Balance Interest dollar10.2;
run;

title "Listing of BANK";
proc print data=bank noobs;
run;