home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / MISC / LOGGER.PRG < prev    next >
Encoding:
Text File  |  1993-02-01  |  1.3 KB  |  46 lines
  1. *****************************************************************
  2. *     * 09/92               LOGGER.PRG                          *
  3. *****************************************************************
  4. *     * Author's Name: Jeb Long                                 *
  5. *     *                                                         *
  6. *     * Description:                                            *
  7. *     * Creates header block for a new program                  *
  8. *     *                                                         *
  9. *****************************************************************
  10. SET TALK OFF
  11. CLEAR
  12. STORE  REPLICATE(" ",50) TO DESC1, DESC2
  13. STORE  REPLICATE(" ",8) TO FNAME
  14. @ 10,10 GET FNAME
  15. @ 11,10 GET DESC1
  16. @ 12,10 GET DESC2
  17. READ CYCLE
  18.  
  19. BegLine = "*     * "
  20. STORE  REPLICATE("*",64) TO STAR
  21. STORE TRIM(UPPER(FNAME)) + ".PRG" TO FNAME
  22. SET ALTERNATE TO (FNAME)
  23. SET ALTERNATE ON
  24. ? STAR
  25. ? BegLine + DTOC(DATE())
  26. ?? FNAME AT 35
  27. ?? TIME() AT 54
  28. ?? "*" AT 63
  29. ? STAR
  30. DO LINE WITH "Author's Name: J Long"
  31. DO LINE WITH ""
  32. DO LINE WITH "Description:"
  33. DO LINE WITH " "+DESC1
  34. IF !empty(Desc1)
  35.     DO LINE WITH " " + DESC2
  36. ENDIF
  37. ? STAR
  38. SET ALTERNATE OFF
  39. SET ALTERNATE TO
  40. MODI COMM (FNAME)
  41. PROCEDURE LINE
  42. PARAMETER Message
  43. ? BegLine+Message
  44. ?? "*" AT 63
  45. RETURN
  46.