Programmer 7500/MAX_PROGRAMMERS.iso/PASCAL/TJOCKREF.ZIP/MISCTTT.TXT

Text File | 1988-08-26 | 5.0 KB | 233 lines

SHORT:Beep               To give a beep on system speaker
Beep                                                           MiscTTT



Purpose   To give 'em a beep.

Declaration    Beep;

Uses CRT, DOS, MiscTTT.

Remarks   This gives a more pleasant tone than ^G.

Example


               USES CRT, DOS, MISCTTT;
               BEGIN
                 IF ........  THEN
                    BEEP;
               END.



!SHORT:Date              Display system date formatted
Date                                                           MiscTTT



Purpose   To display the system date nicely formatted

Returns   String;

Declaration    Date:string;

Uses CRT, DOS, MiscTTT.



Remarks   The format of the returned string is the day followed by the
          month, day of month and year e.g.

               Monday February 1, 1988

Example


               USES CRT, FASTTTT, DOS, MISCTTT;
               BEGIN
                 CLRSCR;
                 WRITECENTER(1,YELLOW,BLACK,DATE);
               END.


The date would be written at the top center of the screen.

!SEEALSO:Time


!SHORT:Exists            Determine if a file exists
Exists                                                         MiscTTT



Purpose   To determine if a file exists

Returns   Boolean;

Declaration    Exists(Fl:string):boolean;

          Fl is the name of the file, including drive and path if
          necessary.

Uses CRT, DOS, MiscTTT.

Example


               USES CRT, DOS, MISCTTT;
               BEGIN
                 IF NOT EXIST('C:\CONFIG.SYS') THEN
                 BEEP;
               END.




!SHORT:FlushKeyBuffer    Remove all keystrokes from keyboard buffer
FlushKeyBuffer                                                 MiscTTT



Purpose   To remove all keystrokes from the keyboard buffer.

Declaration    FlushkeyBuffer;

Remarks   This procedure is most frequently used when you want to stop
          the type-ahead effect.

Uses CRT, DOS, MiscTTT.

Example


               USES CRT, FASTTTT, DOS, MISCTTT;
               VAR ANS : CHAR;
               BEGIN
                 WRITEAT(1,WHEREY+1,WHITE,RED,'ARE YOU SURE YOU WANT TO
                 DELETE IT? (Y/N);
                 FLUSHKEYBUFFER;
                 ANS := GETKEY;
                 IF UPCASE(ANS) = 'Y' THEN
                 DELRECORD;
               END.


The keyboard is flushed in case the user had previously typed a Y in
anticipation of a different question.



!SHORT:Printer_Ready     Indicate if printer is connected and online
Printer_Ready                                                  MiscTTT



Purpose   To indicate if the printer is connected and online.

Returns   boolean;

Declaration    Printer_Ready: boolean;

Uses CRT, DOS, MiscTTT;

Remarks   This function is most useful when you want to bullet proof a
          printer option and makes sure that the printer is connected
          and on-line before trying to send it data.

Example


               USES CRT, DOS, MISCTTT;
               BEGIN
                 IF PRINTER_READY THEN PRINTSCREEN;
               END.




!SHORT:Print_Screen      Emulate print screen key
Print_Screen                                                   MiscTTT



Purpose   To emulate the Print Scrn key.

Declaration    PrintScreen

Uses CRT, DOS, MiscTTT.

Example


               USES CRT, DOS, MISCTTT
               BEGIN
                 PRINTSCREEN;
               END.





!SHORT:Reset_Printer     Clear a printer's setting back to default
Reset_Printer                                                  MiscTTT



Purpose   To clear a printer's settings back to the default.

Declaration    Reset_Printer;

Uses CRT, DOS, MiscTTT.



Remarks   This procedure uses a unique technique that will reset most
          of the PC printers on the market place today. It is
          recommended that this procedure be called prior to sending
          set-up strings to a printer.

Example


               USES CRT, DOS, MISCTTT
               BEGIN
                 RESET_PRINTER;
               END.

!SEEALSO:Printer_Ready


!SHORT:Time              Display system time formatted
Time                                                           MiscTTT



Purpose   To display the system time nicely formatted

Returns   String;

Declaration    Time:string;

Uses CRT, DOS, MiscTTT;



Remarks   The format of the returned string is hour:min:sec a.m. or
          hour:min:sec p.m.

Example


               USES CRT, FASTTTT, DOS, MISCTTT;
               BEGIN
                 CLRSCR;
                 WRITECENTER(1,YELLOW,BLACK,TIME);
               END.


The time would be written at the top center of the screen.

!SEEALSO:Date