jac@yoko.rutgers.edu (Jonathan A. Chandross) (05/03/91)
Submitted-by: Jawaid Bazyar (bazyar@cs.uiuc.edu)
Posting-number: Volume 1, Source:45
Archive-name: util/gs/shell/orca/qtime
Architecture: ONLY_2gs
Version-number: 1.2
Display the time in English.
Requires Orca shell.
Enjoy.
###################################
=qtime.doc
-
-============
- QTIME
-============
-
-Version 1.2
-
-Displays time in real English, also chimes.
-
------
-Jawaid Bazyar
-Derek Taubert
-
-Copyright 1990 by Procyon Software
-Freeware - distribute but don't sell!
-
-This utility is FreeWare. Distribute them as much as you like, just
-don't sell them or distribute modified versions. Send me your comments -
-I'm eager to hear from you for suggestions and improvements.
-
-Also, if you make any modifications to the code please do not redistribute
-them. Instead, send me the changed source along with an explanation and
-I will consider including your change in the next version.
-
- Jawaid Bazyar
- 1120 Maple Street
- Mt. Vernon, IL 62864
-
- Internet/ARPAnet bazyar@cs.uiuc.edu
- GEnie J.BAZYAR
-
-
-
=qtime.c
-/* qtime.c Displays time in real English, also chimes
-** This version current from 18/9/89
-** 02/91 Jawaid Bazyar fixed return type and value of main
-** 01/91 Derek Taubert Few changes to port to Apple IIgs
-** 09/89 Ade Lovett Complete rewrite
-** 04/86 Mark Dapoz Converted to C for UNIX
-** 12/79-12/82 Mike Cowlishaw
-**
-*/
-#include <stdio.h>
-#include <types.h>
-#include <misctool.h>
-
-char *minutesaying[] = {
- "","just after ","a little after ","nearly ","almost "
-};
-char *fiveminsaying[] = {
- "","five past ","ten past ","a quarter past ","twenty past ",
- "twenty-five past ","half past ","twenty-five to ","twenty to ",
- "a quarter to ","ten to ","five to ",""
-};
-char *hoursaying[] = {
- "one","two","three","four","five","six","seven","eight","nine",
- "ten","eleven",""
-};
-
-int main()
-{
- char qtime[200];
- int i, hr, mn;
- TimeRec clock;
-
- clock = ReadTimeHex();
- mn = clock.minute+(clock.second>29);
- hr = clock.hour+(clock.minute>32);
-
- strcpy(qtime, "It's ");
- strcat(qtime, minutesaying[mn%5]);
- strcat(qtime, fiveminsaying[mn/5+(mn%5>2)]);
-
- if (hr%12) {
- strcat(qtime, hoursaying[(hr -= (hr>12)*12+1)]);
- strcat(qtime, (mn%60) ? "." : " o'clock.");
- } else {
- strcat(qtime, (hr == 12) ? "Noon." : "Midnight.");
- hr = 12;
- }
-
- if (!(mn%15))
- if (mn%60)
- printf("(Ding-Dong!)\n\n");
- else {
- printf("(");
- for (i=hr; i>=0; i--)
- printf("Bong%s",(i==0 ? "!)\n\n" : ","));
- }
- printf("%s\n",qtime);
- return 0;
-}
-
+ END OF ARCHIVE