1 / 156

; QSCAN.PPE - Written by Dan Shore - SysOp

; QSCAN.PPE - Written by Dan Shore - SysOp. ; The Shoreline BBS. ;. ; Purpose: Replacement of the "Q"uick Scan Command for use with. ; the msg tagging PPE's (QSCAN, READ, KILL, RECOVER, MORE, MEC). ;. ; To install:. ;.

shelley
Download Presentation

; QSCAN.PPE - Written by Dan Shore - SysOp

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. ; QSCAN.PPE - Written by Dan Shore - SysOp

  2. ; The Shoreline BBS

  3. ;

  4. ; Purpose: Replacement of the "Q"uick Scan Command for use with

  5. ; the msg tagging PPE's (QSCAN, READ, KILL, RECOVER, MORE, MEC)

  6. ;

  7. ; To install:

  8. ;

  9. ; 1) Edit your CMD.LST file(s) to add this:

  10. ;

  11. ; Charges Per PPE/MNU File Specification -or-

  12. ; Command Sec Minute Use Keystroke Substitution

  13. ; ÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ÍÍÍ ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ

  14. ; 1) Q 5 0 0 C:\PCB\PPE\QSCAN\QSCAN.PPE

  15. ;

  16. ; Note: You may have to change the pathname to the PPE.

  17. ;

  18. ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ

  19. STRING user_input ' Generic user_input variable

  20. STRING hold ' Garbage string variable

  21. STRING main_prompt ' Generic variable for displaying prompts

  22. STRING sema_path ' Path/Filename of semaphore file

  23. STRING page_length_file ' file written to node directory that contains users

  24. ' original page length

  25. STRING tag_msg_file ' Path/Filename of tagged msgs

  26. INT cmd_line_count ' Used to check for stacked commands

  27. INT x ' Garbage integer variable

  28. ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ

  29. :MAIN

  30. '

  31. ' Determine path/filename of tagged msg file and semaphore file

  32. '

  33. hold = READLINE(PCBDAT(),204)

  34. hold = FILEINF(hold,6) + ":" + FILEINF(hold,7)

  35. '

  36. ' Determine paths and names of files used by QSCAN.PPE

  37. '

  38. sema_path = hold + "msgtag.use"

  39. tag_msg_file = hold + "mtg" + STRING(CURCONF()) + ".lst"

  40. page_length_file = hold + "userpl.dat"

  41. '

  42. ' Count the command line for stacked commands

  43. '

  44. cmd_line_count = TOKCOUNT()

  45. '

  46. ' See if we have a stacked command

  47. '

  48. IF (cmd_line_count) THEN

  49. hold = ""

  50. FOR x = 1 TO cmd_line_count

More Related