1 / 359

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

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

huy
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. ; FLAG.PPE version 3.0 released on 12/18/93 by David W. Terry

  3. ;

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

  5. ; PCBoard v15.1 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. ' check to see if caller has ANSI capabilities and, if not, display the old

  13. ' prompt and exit - let PCBoard handle the input.

  14. ;***********************************************************************;***********************************************************************

  15. IF (! ANSION()) THEN

  16. DISPFILE PPEPATH()+"FLAGOLD",LANG

  17. END

  18. ENDIF

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

  20. BOOLEAN rip ' Flag to indicate RIPscrip is in use

  21. STRING text ' The text that the caller types

  22. STRING key ' Keystroke text

  23. STRING BS ' An ASCII backspace character

  24. STRING BS2 ' An ASCII backspace character

  25. STRING CR ' An ASCII carriage return character

  26. STRING ESC ' An ASCII esc character

  27. BYTE len ' Length of the text the caller has typed

  28. BYTE oldy ' Last row position of cursor

  29. BYTE newy ' New row position of cursor

  30. STRING filenames(23) ' The names of the files found on the screen

  31. STRING filename ' The name of the file that is being processed

  32. STRING fileimage ' Includes the color codes for restoration of text

  33. ;***********************************************************************;***********************************************************************

  34. ; Initializations

  35. BS = CHR(8) ' Backspace Key

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

  37. CR = CHR(13) ' Carriage Return

  38. ESC = CHR(27) ' ESC character

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

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

  41. ;***********************************************************************;***********************************************************************

  42. ; Main Program

  43. ; DOD MODE ON

  44. :RESPAWN

  45. ; DOD MODE OFF

  46. ' in case the last invocation of flag.ppe saved

  47. RESTSCRN ' the screen, restore it now

  48. CLREOL ' clear the line for input

  49. GOSUB displayprompt ' display the new prompt

  50. GOSUB scanforfiles ' build filenames array

More Related