(FILECREATED "14-JUL-83 03:07:52" {INDIGO}<LOOPS>TRUCKIN>MULTI>WS.;1
 539    

      changes to:  (VARS WSCOMS))


(PRETTYCOMPRINT WSCOMS)

(RPAQQ WSCOMS
 ((* * LOADLOOPS changes)
	       (FNS WAITMS)))
(* * LOADLOOPS changes)


(DEFINEQ

(WAITMS

  [LAMBDA (numMS)                                            (* dgb: "14-JUL-83 03:04")

    (forDuration
 (ITIMES numMS \RCLKMILLISECOND) timerUnits
 (QUOTE TICKS) do
 usingTimer
 WaitMSTimer 
											NIL
       finally
 (RETURN T])
)
(DECLARE: DONTCOPY
  (FILEMAP (NIL (239 517 (WAITMS 249 . 515)))))
STOP