かなり古い文献のプログラムなのですが、
①
funcA(data)
short *data;
{
char max;
　　
　　max = *data;

②
funcB(number)
char *number;
{
short no;
　　
　　*number = no;
　　
③
short data;
unsigned short cnt;

cnt = (long)data;
sprintf(data, "%5ld",(long)cnt);

このような表現がありました。
①②はchar型にshort型を代入（？）してるみたいだし、③はわざわざlong型にキャストしてshort型に代入してる？
試しにVisual C++6でビルドしてみたところ、エラーにはならないが、ワーニング（データが失われる・・・）となりました。これは、
１．この文献の記述がそもそも間違っている
２．意図的に大きい型を小さい型に代入しようとしている（warningは気にしていない？）
３．昔のＣ言語の仕様と今の仕様が違う（昔はエラーにならなかった？）
４．VCでコンパイルしたのがダメ
どれなのでしょうか？