1 / 392

; *** This is a modified version of FLAG.PPE for use with PWA File Viewer ***

;. ;. ; *** This is a modified version of FLAG.PPE for use with PWA File Viewer ***. ; *** FLAG.PPE was written by David W. Terry and is in no way affiliated ***. ; *** with PWA or Defcon 4. ***. ;. ;.

ganit
Download Presentation

; *** This is a modified version of FLAG.PPE for use with PWA File Viewer ***

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. ; *** This is a modified version of FLAG.PPE for use with PWA File Viewer ***

  4. ; *** FLAG.PPE was written by David W. Terry and is in no way affiliated ***

  5. ; *** with PWA or Defcon 4. ***

  6. ;

  7. ;

  8. ;******************************************************************************;******************************************************************************

  9. ; FLAG.PPE version 3.0 released on 12/18/93 by David W. Terry

  10. ;

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

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

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

  14. ; flagging or viewing files.

  15. ;

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

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

  18. ;******************************************************************************;******************************************************************************

  19. ' check to see if caller has ANSI capabilities and, if not, display the old

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

  21. ;***********************************************************************;***********************************************************************

  22. IF (! ANSION()) THEN

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

  24. END

  25. ENDIF

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

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

  28. STRING text ' The text that the caller types

  29. STRING key ' Keystroke text

  30. STRING BS ' An ASCII backspace character

  31. STRING BS2 ' An ASCII backspace character

  32. STRING CR ' An ASCII carriage return character

  33. STRING ESC ' An ASCII esc character

  34. STRING PWAFV ' Name and Location of PWA File Viewer

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

  36. BYTE oldy ' Last row position of cursor

  37. BYTE newy ' New row position of cursor

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

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

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

  41. STRING PWA_FV_PPE ' Name and location of PWA File View CNF File

  42. ;***********************************************************************;***********************************************************************

  43. ; Initializations

  44. BS = CHR(8) ' Backspace Key

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

  46. CR = CHR(13) ' Carriage Return

  47. ESC = CHR(27) ' ESC character

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

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

  50. let PWA_FV_PPE = READLINE(STRING(PPEPATH()+ "FLAGFV.DAT"),1)

More Related