1 / 288

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

;******************************************************************************. ; FLAG.PPE version 2.1 released on 9/22/93 by David W. Terry. ;. ; FLAG.PPE is a replacement for PCBoard's internal "more?" prompt, gives.

powa
Download Presentation

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

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. ; FLAG.PPE version 2.1 released on 9/22/93 by David W. Terry

  3. ;

  4. ; FLAG.PPE is a replacement for PCBoard's internal "more?" prompt, gives

  5. ; PCBoard v15.0 the easiest-to-use system for flagging and viewing files of

  6. ; any BBS around. It gives callers the ability to point and shoot when

  7. ; flagging or viewing files.

  8. ;

  9. ; NOTE: Please DO NOT DISTRIBUTE modified source code without prior permission

  10. ; or without meeting the requirements set forth in FLAG.DOC.

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

  12. BOOLEAN exitflag ' Flag to determine when we should exit

  13. STRING text ' The text that the caller types

  14. STRING key ' Keystroke text

  15. STRING BS ' An ASCII backspace character

  16. STRING BS2 ' An ASCII backspace character

  17. STRING CR ' An ASCII carriage return character

  18. STRING ESC ' An ASCII esc character

  19. INTEGER len ' Length of the text the caller has typed

  20. INTEGER oldx ' Last column position of cursor

  21. INTEGER oldy ' Last row position of cursor

  22. INTEGER newy ' New row position of cursor

  23. INTEGER upcount ' A count of the number of lines to move up

  24. STRING filename ' The name of the file that is being flagged

  25. STRING savetext ' A saved copy - including color codes for restoration

  26. STRING nprompt ' The new prompt to be displayed to the caller

  27. STRING oprompt ' The original prompt that was used in PCBTEXT

  28. INTEGER dotpos ' Used when validating filenames

  29. INTEGER filelen ' Used when validating filenames

  30. INTEGER filesize ' Used when validating filenames

  31. DATE filedate ' Used when validating filenames

  32. ;***********************************************************************;***********************************************************************

  33. ; Initializations

  34. BS = CHR(8) ' Backspace Key

  35. BS2 = CHR(127) ' Alternate Backspace Key

  36. CR = CHR(13) ' Carriage Return

  37. ESC = CHR(27) ' ESC character

  38. len = 0 ' Initialize to 0 bytes in the input buffer

  39. text = "" ' Initialize to an empty input buffer

  40. ' Below is the prompt we are going to show the caller. There are basically

  41. ' two differences between it and the standard prompt:

  42. '

  43. ' 1) It uses @minleft@ instead of @timeleft@. The reason is that @minleft@

  44. ' shows the caller how many minutes are left AFTER deducting the time

  45. ' estimated for any files currently flagged for download.

  46. ' 2) It removes the (F)lag option, although it will still work (!), and

  47. ' replaces it with (SPACE)=Mark instead.

  48. nprompt = "@X08(@X0F@MINLEFT@@X08 left), (@X0FV@X08)iew, (@X0FSPACE@X08)=Mark, More? "

  49. oprompt = "(@TIMELEFT@ min left), (H)elp, (V)iew, (F)lag, More"

  50. ;***********************************************************************;***********************************************************************

More Related