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. ;***********************************************************************;***********************************************************************