{:::::::::::::::::::::::::::::::::::::::::
::      Sito:  www.byteman.it  OpenWeb  ::
::  Raccolta:  Particelle PAS+ASM       ::
::    Autore:  Salvo Rosta aka byteman  ::
::    Titolo:  TPUCRONO.INT             ::
:: Revisione:  27-08-1995               ::
:::::::::::::::::::::::::::::::::::::::::}


Var
  TP_FlagVdClk: Boolean;

Function  XTick: LongInt;
Function  XMilliSec: LongInt;

Function  XGetTimeSt: String;
Function  XTimeOK(InTime: String): Boolean;
Procedure XStringTime(InTime: String; Var Ore,Min,Sec: Integer; var Err: Boolean);
Procedure XTimeString(Ore,Min,Sec: Integer; var StrTime: String);
Procedure XStringSecMi(InTime: String; Var SecMi: LongInt; Var Err: Boolean);
Procedure XSecMiString(SecMi: LongInt; Var OutTime: String; Var Err: Boolean);
Procedure XSecsBetween(Time1,Time2: String; Var Secs: LongInt; Var Err: Boolean);
Procedure XOffsetTime(InTime: String; Offset: LongInt; Var OutTime: String; Var Err: Boolean);
Procedure XTestInTime(InTime,Time1,Time2: String; Var Intern,Err: Boolean);
Procedure XInputTimeSt(Var InTime: String; C,R,CL: Byte);

Function  XGetDateSt: String;
Function  XDateOK(InDate: String): Boolean;
Procedure XStringDate(InDate: String; Var Giorno,Mese,Anno: Integer; var Err: Boolean);
Procedure XDateString(Giorno,Mese,Anno: Integer; var StrDate: String);
Procedure XStringJulian(InDate: String; Var Julian: LongInt; Var Err: Boolean);
Procedure XJulianString(Julian: LongInt; Var OutDate: String; Var Err: Boolean);
Procedure XDaysBetween(Date1,Date2: String; Var Giorni: LongInt; Var Err: Boolean);
Procedure XOffsetDate(InDate: String; Offset: LongInt; Var OutDate: String; Var Err: Boolean);
Procedure XTestInDate(InDate,Date1,Date2: String; Var Intern,Err: Boolean);
Procedure XInputDateSt(Var InDate: String; C,R,CL: Byte);
Procedure XDayWeek(InDate: String; Var DayWeek: String; Var Err: Boolean);
Procedure XDayWeekN(InDate: String; Var DayWeekN: Word; Var Err: Boolean);
Procedure XScanBetweenD(Date1,Date2: String; Var Giorni,Mesi,Anni: Integer; Var Err: Boolean);
Function  XWeekNum(InDate: String): Word;
Function  XWeekMNum(InDate: String): Word;
Procedure XVideoClockOn(C,R: Word; CL: Byte);
Procedure XVideoClockOff;
Procedure XVideoClockAlarm(St: String);
Procedure XVideoClockHide;
Procedure XVideoClockShow;
Procedure XVideoClockAttr(C,R: Word; CL: Byte);

Function  XTestRTC: Boolean;
Function  XReadRTC(NByte: Byte): Byte;
Procedure XWriteRTC(VByte,NByte: Byte);

Function  XTickToTime(L: LongInt): String;
Function  XTimeToTick(St: String): LongInt;
Procedure XDelayTick(L: LongInt);

Function  XCrono: Word;
Procedure XSndAllarme;
Procedure XSndBeep;
Procedure XSndBeepino;
Procedure XSndClick;
Procedure XSndBloBlob;
Procedure XSndEvviva;
Procedure XSndComi;
Procedure XSndFliFli;
Procedure XPausa(T: Word);
Procedure XSndCheer;
Procedure XSndNCounter;
Procedure XSndPhoneTone;
Procedure XSndWhooper;
Procedure XSndSiren;
Procedure XSndPhasor;
Procedure XSndToc;
Procedure XSndSweep(T1,T2,Step,Delay: Word);