home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / WHATV2.ZIP / WHAT.DOC next >
Encoding:
Text File  |  1987-02-14  |  2.1 KB  |  31 lines
  1. The following is an example of the resultant output from the program
  2. what.pas. This file is written to a disk file and may then be sent to your
  3. printer.
  4.  
  5.  
  6. (*--------------------------------------------------------------------------*)
  7. (* The file WHAT.PAS contains the following :                               *)
  8. (*                                                                          *)
  9. (* PROGRAM WHAT;                                                            *)
  10. (* PROCEDURE PRINTER(WHICH: PRTYPE);                                        *)
  11. (* PROCEDURE CLEARFRAME;                                                    *)
  12. (* PROCEDURE UPPER_CASE(VAR STRG : STR);                                    *)
  13. (* PROCEDURE SELECT(    PROMPT : STR80;                                     *)
  14. (* PROCEDURE HELP;                                                          *)
  15. (* PROCEDURE GETLN(VAR S:STR80; OKSET:CHARSET; MAXLEN:INTEGER);             *)
  16. (* FUNCTION IVAL(VAR S:STR80):INTEGER;                                      *)
  17. (* PROCEDURE DTOJ(DAY,MONTH,YEAR: INTEGER;VAR JULIAN: INTEGER);             *)
  18. (* PROCEDURE JTOD(JULIAN: INTEGER;VAR DAY,MONTH,YEAR: INTEGER);             *)
  19. (* FUNCTION DAYOFWEEK(JULIAN: INTEGER): INTEGER;                            *)
  20. (* PROCEDURE WRITEDATE(JULIAN: INTEGER);                                    *)
  21. (* PROCEDURE WRITEDATEPRINTER(JULIAN: INTEGER);                             *)
  22. (* FUNCTION TAB(SPACES : INTEGER) : STR80;                                  *)
  23. (* FUNCTION FILE_EXISTS(FNAME : NAME) : BOOLEAN;                            *)
  24. (* PROCEDURE BLAST; (* CLEARSCREEN *)                                       *)
  25. (* PROCEDURE PUT_UP_MESSAGE;                                                *)
  26. (* PROCEDURE GETOUTFILENAME(VAR OUTFILENAME : STR14);                       *)
  27. (* PROCEDURE GETFILENAME(VAR FILENAME : STR14);                             *)
  28. (* PROCEDURE PRINT_IT_OUT;                                                  *)
  29. (*                                                                          *)
  30. (*--------------------------------------------------------------------------*)
  31.