/**  File Warnings **/
/*A: K McIsaac*/
/*S: University of Western Australia, Nedlands 6009, Australia*/
/*D: June, 1988 */
/*K: File; Get; Loadonce; Warning */
/*B:  */
/*: Print file loading status on status line */

<<XStr0
<<XPr
<<XStatus
<<XBeep

<($f_=(Beep[];PrW[CJoin["File ","$f"," not found"]])) :: <$f

Loadonce :;
Loadonce[$file_=If[Loadedp[$file],\
		PrW[CJoin["$file"," already loaded"]],1]] :: \
   (Lcl[%get];PushS[CJoin["Loading ","$file"," ..."]]; \
    Prset[$file,Loaded];%get : Get[$file]; \
    PopS[]; If[%get,%get])


/*:W  Redefines Loadonce */
