home *** CD-ROM | disk | FTP | other *** search
- symbols
- message startup
- message entered
-
- sector sector1 linkid=1
- sector sector2 linkid=2
-
- end
-
- # ========================================================================================
-
- code
- startup:
- ca1=0;
- ca2=0;
- return;
-
- entered:
- if ( (getsenderid()==1)&&(ca1==0) ) {
- ca1=1;
- dwsetreftopic("Laser.tpc");
- }
- if ( (getsenderid()==2)&&(ca2==0) ) {
- ca2=1;
- dwsetreftopic("Trajectory.tpc");
- }
- return;
-
-
- end
-
-