Rosetta Code

Nautical bell: Difference between revisions

Page Discussion

Nautical bell (view source)

Revision as of 10:44, 25 September 2017

59 bytes added ,  6 years ago
m
→‎{{header|REXX}}: added/changed comments and whitespace, used a template for the output, changed highlighting in the REXX section header.
m (→‎{{header|REXX}}: added/changed comments and whitespace, used a template for the output, changed highlighting in the REXX section header.)
Line 1,197:
 
If any arguments are specified, that text is used as a prefix to the times shown (once a minute).
<br>Also, the number of bells sounded are shown &nbsp; (if any arguments are specified).
<br>If no arguments are specified, no times are shown.
 
Line 1,204:
This REXX program makes use of &nbsp; '''delay''' &nbsp; BIF, &nbsp; which delays (sleeps) for a specified amount of seconds.
 
Some REXXes don't have a &nbsp; '''delay''' &nbsp; BIF, &nbsp; so one is included &nbsp; <big> [[DELAY.REX|here]]. </big>
 
Also, some REXXes don't have a &nbsp; '''sound''' &nbsp; BIF, &nbsp; which produces sounds via the PC speaker,
&nbsp; so one is included &nbsp; <big> [[SOUND.REX|here]]. </big>
<lang rexx>/*REXX program sounds "ship's bells" (using PC speaker) when executing (perpetually).*/
echo= ( arg()\==0) ) /*echo time and bells if any arguments.*/
signal on halt /*allow a clean way to stop the program*/
t.1= '00:30 01:00 01:30 02:00 02:30 03:00 03:30 04:00'
Line 1,215:
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=substr(t, 4, 2) /*the current time. */
ct=time('C') /*[↓] maybe add leading zero to time. */
hhmmc=left( right( ct, 7, 0), 5) /*HH:MM (maybe with a leading zero). */
if echo then say center(arg(1) ct, 79) /*echo the 1st argargument with the time? */
if ss\==00 & mn\==00 & mn\==30 then do; call delay /*wait for60-ss; the next minute ? */iterate
callend /* [↑] delay 60-ss;for fraction of a iterateminute.*/
end /* [↑↓] delaythe number of bells to minutepeel fraction{$}*/
do j=1 for 3 until $\==0; $=wordpos(hhmmc, /* [↓] number bells to peelt.*/j)
end do /*j=1 for 3 until $\==0; $=wordpos(hhmmc,t.j)*/
end /*j*/
 
if $\==0 & echo then say center($ "bells", 79) /*echo the number of bells ? */
 
do k=1 for $; call sound 650,1; call delay 1 + (k//2==0)
end /*k*/ /*[↑] peel, and then pause. for effect.*/
call delay 60; if rc\==0 then leave /*ensure we don't re─peel. /*ensure we don't re-peel. */
end /*forever*/
halt: /*stick a fork in it, we're all done. */</lang>
'''{{out|output''' |text=&nbsp; when using the input of: &nbsp; <big> <tt> the time is: </tt> </big>}}
<pre>
the time is: 1:48pm
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/226466"