options ls=80 ps=64;

data a;
  infile"ibm9401t.t" FIRSTOBS=1;
  input  name $1-10 date 13-18 T $ 20-21 hour 23-24 min 25-26
         sec 27-28 tprice 32-38 size 40-48 d1 $ 50-50 d2 52-53 d3 55-63
         d4 65-68;
  tprice=tprice/100000;
  keep name  date hour min sec tprice size;

/*
data a;
  infile 'ibm1wt.dat';
  input name $  date hour min sec tprice;
*/
data b;
  set a;
  if round(8*tprice,1)/8 ne tprice then delete;
  if tprice=0 then delete;
  if hour < 9 then delete;
  if hour > 17 then delete;
  if date=940103 then t=(hour-9)*3600+(min)*60+sec+28800*252.5;
  if date=940104 then t=(hour-9)*3600+(min)*60+sec+28800*253.5;
  if date=940105 then t=(hour-9)*3600+(min)*60+sec+28800*254.5;
  if date=940106 then t=(hour-9)*3600+(min)*60+sec+28800*255.5;
  if date=940107 then t=(hour-9)*3600+(min)*60+sec+28800*256.5;
  if date=940110 then t=(hour-9)*3600+(min)*60+sec+28800*257.5;
  if date=940111 then t=(hour-9)*3600+(min)*60+sec+28800*258.5;
  if date=940112 then t=(hour-9)*3600+(min)*60+sec+28800*259.5;
  if date=940113 then t=(hour-9)*3600+(min)*60+sec+28800*260.5;
  if date=940114 then t=(hour-9)*3600+(min)*60+sec+28800*261.5;
  if date=940117 then t=(hour-9)*3600+(min)*60+sec+28800*262.5; 
  if date=940118 then t=(hour-9)*3600+(min)*60+sec+28800*263.5;
  if date=940119 then t=(hour-9)*3600+(min)*60+sec+28800*264.5;
  if date=940120 then t=(hour-9)*3600+(min)*60+sec+28800*265.5;
  if date=940121 then t=(hour-9)*3600+(min)*60+sec+28800*266.5;
  if date=940124 then t=(hour-9)*3600+(min)*60+sec+28800*267.5;
  if date=940125 then t=(hour-9)*3600+(min)*60+sec+28800*268.5;
  if date=940126 then t=(hour-9)*3600+(min)*60+sec+28800*269.5;
  if date=940127 then t=(hour-9)*3600+(min)*60+sec+28800*270.5;
  if date=940128 then t=(hour-9)*3600+(min)*60+sec+28800*271.5;
  if date=940131 then t=(hour-9)*3600+(min)*60+sec+28800*272.5;
/*  if date=940131 then t=(hour-9)*3600+(min)*60+sec+28800*253;
  if date=940131 then t=(hour-9)*3600+(min)*60+sec+28800*61;  */
  keep   tprice t;
/*
proc sort out=c;
  by t;
*/
data d;
  set b;
  file 'ibm9401t1.dat';
  put t tprice;