2,20,12,1,20,13,@,Signal2
4,2,2,0,CALL PROCEDURE TEST,0,0,0,0
4,31,4,0,Dummy track that defines the procedures to be called.,0,0,0,0
4,7,24,0,Arriving train will print messages when crossing the signal.,0,0,0,0
4,7,20,0,Click on tracks S1 or S2 to print the track name in the alert window,0,0,0,0
4,18,15,0,S2,0,0,0,0
4,10,15,0,S1,0,0,0,0
4,24,13,0,B,21,13,0,0
4,6,13,0,A,0,0,9,13
2,14,12,1,14,13,@39pCall.tds,Signal1
0,21,13,1,0,200,0,0,0,0,noname
0,19,13,1,0,1,0,0,0,0,noname
0,18,13,1,1,1000,0,0,0,0,S2
0,20,13,1,0,1,0,0,0,0,noname
0,17,13,1,0,1,0,0,0,0,noname
0,28,4,1,0,1,0,0,0,0,noname
0,16,13,1,0,1,0,0,0,0,noname
0,15,13,1,0,200,0,0,0,0,noname
0,14,13,1,0,1,0,0,0,0,noname
0,13,13,1,0,1,0,0,0,0,noname
0,11,13,1,1,1000,0,0,0,0,S1
0,12,13,1,0,1,0,0,0,0,noname
0,10,13,1,0,1,0,0,0,0,noname
0,9,13,1,0,200,0,0,0,0,noname
(script 18,13
OnClicked:
    call alert
   do option traceScript = 0
end

)
(script 28,4
proc alert
    print Track.station
end

proc alertSignal
    print Signal.name
    if Signal(Signal1).aspect ! Signal(Signal2).aspect
      print diff
   else
     print same
   end
end

proc alertTrain
    print Train.name
    print Track.station
end

proc testReturn
    print "In testReturn"
    return
    print "never executed"
end
)
(script 11,13
OnClicked:
    call alert
   do option traceScript = 1
end

)
