current record not complex means it contains a stock record, so print its contents if bought early enough
if(!complex(ptr) && prior(ptr,&date))
printinfo (ptr);