
 
 G o s u b   S e t B u t t o n s 
 
 S t o p 
 
 
 
 L a b e l   S e t B u t t o n s 
 
 	 B u t t o n   1   T e x t   P e n D o w n 
 
 	 B u t t o n   P e n D o w n   T e x t   " P e n   D O W N " 
 
 	 B u t t o n   P e n D o w n   C o l o r   S k y B l u e 
 
 	 
 
 	 B u t t o n   2   T e x t   P e n U p 
 
 	 B u t t o n   P e n U p   T e x t   " P e n   U P " 
 
 	 B u t t o n   P e n U p   C o l o r   W h i t e 
 
 	 
 
 	 B u t t o n   4   T e x t   P e n S i n g l e 
 
 	 B u t t o n   P e n S i n g l e   T e x t   " P e n   s i n g l e " 
 
 	 B u t t o n   P e n S i n g l e   C o l o r   P a l e G r e e n 
 
 	 
 
 	 B u t t o n   5   T e x t   " T E S T " 
 
 	 B u t t o n   T E S T   C o l o r   A q u a 
 
 	 B u t t o n   T E S T   S l o t   1 2 
 
 	 
 
 	 B u t t o n   8   T e x t   D i s a b l e B u t t o n s 
 
 	 B u t t o n   D i s a b l e B u t t o n s   C o l o r   S a l m o n 
 
 R e t u r n 
 
 
 
 L a b e l     D i s a b l e B u t t o n s 
 
 	 F o r   v 1   =   1   T o   3 2 
 
 	 	 B u t t o n   v 1   C o l o r   M o c c a s i n 
 
 	 	 B u t t o n   v 1   D i s a b l e d 
 
 	 N e x t 
 
 R e t u r n 
 
 
 
 L a b e l   P e n D o w n 
 
 	 S l o t ( 1 5 )   =   0 
 
 	 W a i t   S e c o n d s   0 . 1 
 
 R e t u r n 
 
 
 
 L a b e l   P e n U p 
 
 	 S l o t ( 1 5 )   =   5 0 0 
 
 	 W a i t   S e c o n d s   0 . 1 
 
 R e t u r n 
 
 
 
 L a b e l   P e n S i n g l e 
 
 	 G o s u b   P e n D o w n 
 
 	 L o a d   s o u n d \ C l i c k 3 . w a v 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 G o s u b   P e n D o w n 
 
 R e t u r n 
 
 
 
 
 
 ' W A T C H   W S 1 
 
 ' W A T C H   W S 2 
 
 ' W A T C H   S e q u e n c e I n d e x 
 
 ' W A T C H   G e t S e p a r a t e d S t r i n g 
 
 ' E X E C   D e s t X   =   1 2 
 
 