;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; InSitu Script sample code 3
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun Time (time while after) 	(If (Ramp time) after while 1))

(Do (Time 5000 (Noop) (Every 4 (Noop))))
