1 / 128

; *****************************************************************

; *****************************************************************. ; * *. ; * LASTON V 1.30 *. ; * *.

onella
Télécharger la présentation

; *****************************************************************

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. ; *****************************************************************

  2. ; * *

  3. ; * LASTON V 1.30 *

  4. ; * *

  5. ; * Written in PPL for PCBoard *

  6. ; * *

  7. ; * Designed By: Gary Meeker *

  8. ; * *

  9. ; * Began development: 04-01-93 *

  10. ; * *

  11. ; *****************************************************************

  12. ;

  13. ; This writes the entry:

  14. ;

  15. ; Last on: MM-DD-YY (HH:MM) for ? Minute(s) - #nn

  16. ;

  17. ; or

  18. ;

  19. ; Last on (n): MM-DD-YY (HH:MM) for ? Minute(s) - #nn

  20. ;

  21. ; to the CALLER Log showing the last date/time of the callers last call

  22. ; as well as the number of times on the system. No variable exists yet

  23. ; for minutes on last call. The Language Number chosen may also be shown.

  24. STRING ConfigFile, LangList, ShowPrompt, ModemID, CallerID, LogText, JoinConf

  25. STRING Language, Flags, last_date, last_time, last_length, times_on, Prompt

  26. STRING Char

  27. BYTE X, Count, AutoJoin

  28. INTEGER CallerNum

  29. BOOLEAN WrModem, WrCallSec, WrCallNum, WrLastOn, LogLine, Logon, Flag

  30. WrLastOn = TRUE

  31. ; If command line parameter exists read it

  32. IF (TOKCOUNT() > 0) THEN

  33. GETTOKEN Prompt

  34. ELSE

  35. PRINTLN "Logging last access information."

  36. Logon = TRUE

  37. END IF

  38. ;Force Prompt to Upper

  39. Prompt = UPPER(Prompt)

  40. ;Assume no language match or language number not desired

  41. Language = ": "

  42. ConfigFile = PPEPATH()+PPENAME()+".CFG"

  43. IF (EXIST(ConfigFile)) THEN

  44. ;Read the list of language extensions from LASTON.CFG and tokenize them

  45. ;Read the control flags

  46. FOPEN 1, ConFigFile, O_RD, S_DN

  47. FGET 1, LangList

  48. FGET 1, Flags

  49. ; If Command line given then find the Prompt replaced in config file

  50. IF (!Logon) THEN

More Related