'GLOBAL Springers AS SpringersType GLOBAL hDlgShk AS LONG DECLARE FUNCTION Init_Springers () AS LONG DECLARE SUB SpringLog(a$) DECLARE SUB testshaker1 () DECLARE SUB testShaker2 () DECLARE SUB testspring1 () DECLARE SUB testspring2 () DECLARE SUB testspring3 () DECLARE SUB testspring4 () DECLARE SUB testshakers () 'not a task!! DECLARE SUB SirenTest () DECLARE SUB StartSirenTest() DECLARE SUB StopSirenTest () DECLARE SUB LightTest () DECLARE SUB StartLightTest() DECLARE SUB StopLightTest () DECLARE SUB SpringersMessageHandler() '(msg AS WORD) ' composition procedures / tasks: DECLARE SUB ForSprings () 'constant 52 for task nr. - was: SpringPiece () 'piece 20 ' %Springs_4Springs DECLARE SUB ForSprings_Stop () ' only called from DLL by its codepointer in TaskEX().StopCptr DECLARE SUB ShakeIt () 'piece 21 'Springs_Shaky DECLARE SUB ShakeIt_Stop () DECLARE SUB ShakeDown () DECLARE SUB SpringShake () 'piece 22 'SpringShake DECLARE SUB SpringShake_Stop () ' only called from DLL by its codepointer in TaskEX().StopCptr DECLARE CALLBACK FUNCTION CBShk 'for shakertest 'callbacks for springtest windows DECLARE CALLBACK FUNCTION CBSpr 'midified ex-hardware tasks DECLARE SUB Shakedown () ' added 06.08.2001 DECLARE SUB Spring1 () ' task code DECLARE SUB Spring2 () DECLARE SUB Spring3 () DECLARE SUB Spring4 () DECLARE SUB SPR_light_task () DECLARE SUB SPR_siren_Task () ' task code DECLARE FUNCTION IsShaker1Up () AS LONG DECLARE FUNCTION IsShaker2Up () AS LONG DECLARE SUB Shake1 () DECLARE SUB shake2 () ' tests for the new mapping DECLARE SUB Springer1 () DECLARE SUB Springer2 () DECLARE SUB Springer3 () DECLARE SUB Springer4 () DECLARE SUB Springer5 () DECLARE SUB Springer6 () DECLARE SUB shaker1 () DECLARE SUB Shaker2 () DECLARE SUB Sirene () DECLARE SUB Police_Light ()