Problem Statement

Write a small program that emulates a nautical bell producing a ringing bell pattern at certain times throughout the day. The bell timing should be in accordance with Greenwich Mean Time, unless locale dictates otherwise. It is permissible for the program to daemonize, or to slave off a scheduler, and it is permissible to use alternative notification methods (such as producing a written notice "Two Bells Gone"), if these are more usual for the system type.

Let's start with the solution:

Dim As Byte m = 0
For n As Byte = 0 To 23
    If n = 23 Then
        Print " 23" + ":30" + " = " + "7 bells" 
    Else
        m += 1
        Print ""; n Mod 23; ":30"; " ="; m; " bells" 
    End If
    If n = 23 Then
        Print " 00" + ":00" + " = " + "8 bells" 
    Else
        m += 1
        Print ""; (n Mod 23+1); ":00"; " ="; m; " bells" 
        If m = 8 Then  m = 0
    End If
Next n

Sleep