  L O C A L   C R I D : = " Z   L I G H T S   V 0 . 4      2 0 1 7   S t e p h e n G 1 C M Z " ; 
 
   L O C A L   N L : = C H A R ( 1 0 ) ; 
 
 
 
   / / V 0 . 4   T E S T E D   O N   8 1 5 1   A N D   1 1 5 8 6   ( A N D R O I D ) 
 
 
 
   / / C U S T O M I S E 
 
   L O C A L   H I N T S : = 1 ;   / / C H E A T 
 
 
 
   E X P O R T   A C T _ T I M E ; / / : = { } ; 
 
   E X P O R T   A C T _ T I M E _ S O S ; / / : = { } ; 
 
   E X P O R T   W P M : = 3 ; 
 
 
 
   L O C A L   D O T T ; 
 
 
 
   L O C A L   C O L R N A M E : = { " R E D " , " G R E E N " , " B L U E " , " W H I T E " } ; 
 
   L O C A L   C O L R G B : = { # F F 0 0 0 0 h , # 0 0 F F 0 0 h , # 0 0 0 0 F F h , # F F F F F F h } ; 
 
   
 
   L O C A L   L I G H T O N : = "   O N :   T a p   E s c   t o   e x i t " ; 
 
   L O C A L   L I G H T T : = " T a p   a   k e y   t o   s e e   e l a p s e d   t i m e   s " ; 
 
   L O C A L   W A B T H L P : = { " A B O U T / H e l p " } ; 
 
   L O C A L   W B C N : = { " B e a c o n " } ; / / U N U S E D 
 
   L O C A L   W B L N K L I G H T : = { " B l i n k   L i g h t " } ; 
 
   L O C A L   W C O L R : = { " C o l o u r " } ; 
 
   L O C A L   W S T D Y L I G H T : = { " S t e a d y   L i g h t " } ; 
 
   L O C A L   W W P M : = { " W o r d s   P e r   M i n u t e   ( W P M ) " } ; 
 
   L O C A L   C H O I C E S : = { W A B T H L P ( 1 ) , " I N F O " , W S T D Y L I G H T ( 1 ) , W C O L R ( 1 ) , W B L N K L I G H T ( 1 ) , " S O S " , W W P M ( 1 ) } ; 
 
   L O C A L   L G L : = " N o   l i a b i l i t y   i s   a c c e p t e d . " ; 
 
   L O C A L   C O L R : = # F F F F F F h ; 
 
   L O C A L   T S ; 
 
 
 
   C L S ( ) 
 
   B E G I N 
 
     R E C T _ P ( 0 , 0 , 3 2 0 - 4 5 , 2 4 0 , C O L R ) ; 
 
     R E C T _ P ( 0 , 2 0 , 3 2 0 , 2 4 0 , C O L R ) ; 
 
   E N D ; 
 
 
 
   S C R I D ( ) 
 
   B E G I N 
 
     I F   1   T H E N 
 
       T E X T O U T _ P ( C R I D , 0 , 0 , 0 , 0 , 3 2 0 , C O L R ) ; 
 
     E N D ; 
 
   E N D ; 
 
 
 
     L I G H T E L F ( ) 
 
     B E G I N 
 
       L O C A L   E L F S T : = { " U s e   o f   l i g h t s   m a y   h a v e   h e a l t h   a n d   l e g a l   c o n s e q u e n c e s . 
 
 T h e   u s e r   i s   r e s p o n s i b l e . 
 
 " + L G L } ; 
 
       R E T U R N   M S G B O X ( E L F S T ( 1 ) , 1 ) ; 
 
     E N D ; 
 
 
 
   E X P O R T   A B O U T ( ) 
 
   B E G I N 
 
     L O C A L   S T : = " S t e p h e n G 1 C M Z   i s   a   p r o g r a m m e r   a n d   c a n   w o r k   t o   y o u r   r e q u i r e m e n t s . " + N L ; 
 
     L O C A L   S Z : = " L I G H T S   p r o v i d e s   u s e f u l   p r a c t i c a l   r e s u l t s . 
 
 A s k ,   i f   y o u   h a v e   s p e c i f i c   r e q u i r e m e n t s . " + N L ; 
 
     L O C A L   T H A N X : = " " ;   
 
     
 
     P R I N T ( ) ;   P R I N T ( C R I D ) ; 
 
     P R I N T ( S T + N L + S Z ) ; 
 
     P R I N T ( T H A N X ) ; 
 
     P R I N T ( L G L ) ; 
 
     W A I T ; 
 
 
 
     L I G H T E L F ( ) ; 
 
   E N D ; 
 
 
 
   E X P O R T   I N F O ( ) 
 
   B E G I N 
 
     L I G H T E L F ( ) ; 
 
   E N D ; 
 
 
 
   A T ( T S ) 
 
   B E G I N   
 
     / / R E T U R N   { H H , M M , S S }   ;   
 
     R E T U R N   T S ; 
 
   E N D ; 
 
 
 
   E X P O R T   L I G H T C O L R ( ) 
 
   B E G I N 
 
     L O C A L   C H S ; 
 
 
 
     C H O O S E ( C H S , " " , C O L R N A M E ) ; 
 
     I F   C H S   T H E N 
 
         C O L R : = C O L R G B ( C H S ) ; 
 
     E N D ; 
 
   E N D ; 
 
 
 
   E X P O R T   L I G H T S T E A D Y ( ) 
 
   B E G I N 
 
     L O C A L   W R ; 
 
     L O C A L   D U N : = 0 ; 
 
   
 
     C L S ( ) ; 
 
     T S : = T i m e ; 
 
     A C T _ T I M E : = { W S T D Y L I G H T , A T ( T S ) } ; / / M U S T   C O N T A I N   L I S T 
 
     S C R I D ( ) ; 
 
     T E X T O U T _ P ( T S + L I G H T O N , 0 , 1 8 0 ) ; 
 
     T E X T O U T _ P ( L I G H T T , 0 , 2 2 0 ) ; 
 
     T E X T O U T _ P ( " D E M O   T E X T " , 0 , 1 0 0 , 7 ) ; 
 
     
 
     R E P E A T 
 
       T E X T O U T _ P ( ( T i m e - T S ) , 0 , 2 0 0 , 0 , # F F F F F F h , 3 2 0 , 0 ) ; 
 
       W R : = W A I T ( "1 ) ; 
 
       I F   T Y P E ( W R ) = = 0   T H E N   
 
         I F   W R = = 4   T H E N 
 
           D U N : = 1 ; 
 
         E N D ; 
 
       E N D ; 
 
     U N T I L   D U N ;   / / W R = = 4 ; 
 
   E N D ; 
 
 
 
   E X P O R T   L I G H T B L I N K ( ) 
 
   B E G I N 
 
     T S : = T i m e ; 
 
     A C T _ T I M E : = { W B L N K L I G H T , A T ( T S ) } ; / / M U S T   C O N T A I N   L I S T 
 
     R E P E A T 
 
       R E C T _ P ( 0 , 2 0 , 3 2 0 , 2 4 0 , 0 , C O L R ) ; 
 
       T E X T O U T _ P ( T S + L I G H T O N , 0 , 1 8 0 ) ; 
 
       T E X T O U T _ P ( T i m e - T S , 0 , 2 0 0 , 0 , # F F F F F F h , 3 2 0 , 0 ) ; 
 
       T E X T O U T _ P ( " D E M O   T E X T " , 0 , 1 0 0 , 7 ) ; 
 
       S C R I D ( ) ; 
 
       W A I T ( 1 ) ; 
 
       R E C T _ P ( 0 , 2 0 , 3 2 0 , 2 4 0 , 0 , 0 ) ; 
 
       W A I T ( 1 ) ; 
 
     U N T I L   G E T K E Y = = 4 ; / / C H E C K   B O T H   T B D 
 
   E N D ; 
 
 
 
   S I G O F F ( ) 
 
   B E G I N 
 
     L O C A L   W D : = G R O B W _ P ( ) ; 
 
     L O C A L   H T : = G R O B H _ P ( ) ; 
 
 
 
     R E C T _ P ( 0 , 2 0 , W D , H T , 0 , 0 ) ; 
 
   E N D ; 
 
 
 
   S I G O N ( ) 
 
   B E G I N 
 
     L O C A L   W D : = G R O B W _ P ( ) ; 
 
     L O C A L   H T : = G R O B H _ P ( ) ; 
 
     
 
     R E C T _ P ( 0 , 2 0 , W D , H T , 0 , C O L R ) ; 
 
   E N D ; 
 
 
 
   D A H ( ) 
 
   B E G I N 
 
     L O C A L   W D C : = G R O B W _ P / 2 ; 
 
     L O C A L   H T C : = G R O B H _ P / 2 ; 
 
     S I G O N ( ) ; 
 
     I F   H I N T S   T H E N 
 
       R E C T _ P ( W D C - 1 5 , H T C - 5 , W D C + 1 5 , H T C + 5 , 0 , 0 ) ; 
 
     E N D ; 
 
     W A I T ( 3 * D O T T ) ; 
 
     S I G O F F ( ) ; 
 
     W A I T ( D O T T ) ; 
 
   E N D ; 
 
 
 
   D I T ( ) 
 
   B E G I N 
 
     L O C A L   W D C : = G R O B W _ P / 2 ; 
 
     L O C A L   H T C : = G R O B H _ P / 2 ; 
 
     S I G O N ( ) ; 
 
     I F   H I N T S   T H E N 
 
       A R C _ P ( W D C , H T C , 5 , 0 ) ; 
 
     E N D ; 
 
     W A I T ( D O T T ) ; 
 
     S I G O F F ( ) ; 
 
     W A I T ( D O T T ) ;   
 
   E N D ; 
 
 
 
   E X P O R T   L I G H T _ S O S ( ) 
 
   B E G I N 
 
     L O C A L   O K ; 
 
     L O C A L   O K C : = " O K   T O   C O N F I R M ? " ; 
 
     L O C A L   M Y W P M : = M A X ( M I N ( W P M , 5 0 ) , 1 ) ; 
 
     / / L O C A L   B A U D : = R O U N D ( 0 . 8 3 * M Y W P M , 0 ) ; / / A P P R O X 
 
     D O T T : = 1 . 2 / M Y W P M ; 
 
   
 
     O K : = M S G B O X ( M Y W P M + "   W P M " + N L + " . = " + D O T T + "   s " + N L + O K C , 1 ) ; 
 
     I F   O K   T H E N 
 
       T S : = T i m e ; 
 
       A C T _ T I M E _ S O S : = { { " S O S " } , A T ( T S ) } ; / / M U S T   C O N T A I N   L I S T 
 
       C L S ( ) ; 
 
       T E X T O U T _ P ( T S , 0 , 0 ) ; 
 
       / / I N T E R W O R D   G A P 
 
       / / S E P E R A T E S   ,   R E P O S I T I O N 
 
       S I G O F F ( ) ; 
 
       O K : = W A I T ( 7 * D O T T ) ; 
 
       R E P E A T 
 
         D I T ( ) ;   D I T ( ) ;   D I T ( ) ;   / / S 
 
         D A H ( ) ;   D A H ( ) ;   D A H ( ) ;   / / O 
 
         D I T ( ) ;   D I T ( ) ;   D I T ( ) ;   / / S 
 
         O K : = W A I T ( 3 * D O T T ) ;   / / I N T E R L E T T E R   G A P 
 
       U N T I L   G E T K E Y = = 4 ;   
 
     E N D ; 
 
   E N D ; 
 
 
 
   A S K _ W P M ( ) 
 
   B E G I N 
 
     L O C A L   O K ; 
 
     L O C A L   T T L : = W W P M ( 1 ) ; 
 
     L O C A L   L B L : = " W P M " ; 
 
     L O C A L   H L P : = " 1 . . 2 5   R E C O M M E N D E D " ; 
 
     O K : = I N P U T ( W P M , T T L , L B L , H L P , 5 , 5 ) ; 
 
     I F   O K   T H E N 
 
       W P M : = M A X ( W P M , 1 ) ; 
 
     E N D ; 
 
   E N D ; 
 
 
 
 H E L P ( ) 
 
   B E G I N 
 
     L O C A L   C H S ; 
 
     / / L O C A L   H L P C H C : = C O N C A T ( C H O I C E S , { " V A R I A B L E S " } ) ; 
 
     L O C A L   H L P C O L R : = " R e d   l i g h t   m a y   h e l p   p r e s e r v e   n i g h t   v i s i o n " ; 
 
     L O C A L   C N W : = " C o n n e c t i v i t y   N o t   W o r k i n g " ; 
 
     L O C A L   H L P V A R S : = " 
 
 A C T _ T I M E : 
 
 A C T _ T I M E _ S O S : 
 
   A c t i v a t i o n   t i m e 
 
 
 
 W P M :   " + W W P M ( 1 ) + " 
 
   @ H o m e : 
 
   W P M : = n   [ n = = 1 . . 2 5 ] " ; 
 
   
 
     L O C A L   S E L : = { 1 , 1 , 0 , 1 , 0 , 1 , 0 } ; / / S E L E C T   C H O I C E S   W   H L P 
 
     L O C A L   S E L C H O I C E S : = E X E C O N ( " I F T E ( & 2 , & 1 , C H A R ( 0 ) ) " , C H O I C E S , S E L ) ; / / S Y N : D I D I E R 
 
     L O C A L   H L P C H C : = C O N C A T ( S E L C H O I C E S , { " V A R I A B L E S " } ) ; 
 
 
 
     R E P E A T 
 
       P R I N T ( ) ;   
 
       C H O O S E ( C H S , W A B T H L P ( 1 ) , H L P C H C ) ; 
 
       I F   C H S   T H E N 
 
         P R I N T ( H L P C H C ( C H S ) ) ; 
 
         C A S E 
 
           I F   C H S = = 1   T H E N   A B O U T ( ) ;   W A I T   E N D ; 
 
           I F   C H S = = 2   T H E N   I N F O ( ) ;   W A I T   E N D ; 
 
           I F   C H S = = 4   T H E N   P R I N T ( H L P C O L R ) ;   W A I T   E N D ; 
 
           I F   C H S = = 6   T H E N   P R I N T ( C N W ) ;   W A I T   E N D ; 
 
           I F   C H S = = 8   T H E N   P R I N T ( H L P V A R S ) ;   W A I T   E N D ; 
 
           D E F A U L T 
 
           E N D ; 
 
         E N D ; 
 
       U N T I L   C H S = = 0 ; 
 
     W A I T ; 
 
   E N D ; 
 
 
 
   E X P O R T   Z _ L I G H T S ( ) 
 
   B E G I N 
 
     L O C A L   C H S , O K ; 
 
     / / S C R I D ( ) ; 
 
     R E P E A T 
 
       O K : = C H O O S E ( C H S , C R I D , C H O I C E S ) ; 
 
       / /   P R I N T ( " ( D I A G N O S T I C )   " + C H S ) ; W A I T ( 3 ) ; 
 
       / / W O R K A R O U N D   B U G   I N   1 1 5 8 6   ( A N D R O I D ) 
 
 
 
       / / I N   8 1 5 1   O K   N O T   R E Q U I R E D :   C H S   R E T U R N S   0   O N   E S C A P E 
 
       / / W O R K A R O U N D : 
 
       / / I N   T B D   O K   R E Q U I R E D :   C H S   R E P E A T S   P R E V I O U S   V A L U E   O N   E S C A P E 
 
       I F   O K   T H E N   / / W O R K A R O U N D 
 
         C A S E     
 
           I F   C H S = = 1   T H E N   H E L P ( )       E N D ; 
 
           I F   C H S = = 2   T H E N   I N F O ( )       E N D ; 
 
           I F   C H S = = 3   T H E N   L I G H T S T E A D Y ( )   E N D ; 
 
           I F   C H S = = 4   T H E N   L I G H T C O L R ( )       E N D ; 
 
           I F   C H S = = 5   T H E N   L I G H T B L I N K ( )     E N D ; 
 
           I F   C H S = = 6   T H E N   L I G H T _ S O S ( )       E N D ; 
 
           I F   C H S = = 7   T H E N   A S K _ W P M ( )           E N D ;   
 
           D E F A U L T 
 
         E N D ; / / C A S E 
 
       E N D ; / / I F 
 
     U N T I L   O K = = 0 ; / / W O R K A R O U N D 
 
 
 
 / / F I N A L L Y 
 
 / / I   H A D   C O N S I D E R E D   A   W A K E U P   A L A R M .   B U T   A U T O   D I M M I N G   O F S C R E E N 
 
 
 
 
 
   E N D ; 
 
 