tasks a-s

Task/Nautical-bell/REXX/nautical-bell.rexx

@@ -0,0 +1,24 @@
+/*REXX pgm sounds "bells" (using PC speaker) when running (perpetually).*/
+echo= arg()\==0                        /*echo time & bells if any args. */
+signal on halt                         /*allow a clean way to stop prog.*/
+t.1 = '00:30   01:00   01:30   02:00   02:30   03:00   03:30   04:00'
+t.2 = '04:30   05:00   05:30   06:00   06:30   07:00   07:30   08:00'
+t.3 = '08:30   09:00   09:30   10:00   10:30   11:00   11:30   12:00'
+
+       do forever;  t=time();  ss=right(t,2);  mn=right(t,2)    /*times.*/
+       ct=time('C')                              /*[↓] add leading zero.*/
+       hhmmc=left( right( ct, 7, 0),  5)         /*HH:MM (leading zero).*/
+       if echo  then say center(arg(1) ct, 79)   /*echo arg1 with time ?*/
+       if ss\==00 & mn\==00 & mn\==30 then       /*wait for next min ?  */
+         do;  call delay 60-ss;  iterate;  end   /*delay fraction of min*/
+
+                                                 /*[↓]  # bells to peel.*/
+         do j=1 for 3  until $\==0;  $=wordpos(hhmmc,t.j);  end /*j*/
+
+       if $\==0 & echo  then say center($ "bells", 79)    /*echo bells? */
+
+         do k=1 for $; call sound 650,1; call delay 1+(k//2==0); end /*k*/
+                                                 /*[↑]   peel and pause.*/
+       call delay 60                             /*ensure don't re-peel.*/
+       end   /*forever*/
+halt:                                  /*stick a fork in it, we're done.*/