PACKET ispinitbaisyserverDEFINES initbs,baisyserver:TASK VAR bs;PROC initbs:
bs:=/"baisy server"END PROC initbs;TASK PROC baisyserver:bsEND PROC 
baisyserver;initbsEND PACKET ispinitbaisyserver;