;******************************************************************************
Download
1 / 288

;****************************************************************************** - PowerPoint PPT Presentation


  • 100 Views
  • Uploaded on

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

loader
I am the owner, or an agent authorized to act on behalf of the owner, of the copyrighted work described.
capcha
Download Presentation

PowerPoint Slideshow about ' ;******************************************************************************' - powa


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.While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server.


- - - - - - - - - - - - - - - - - - - - - - - - - - E N D - - - - - - - - - - - - - - - - - - - - - - - - - -
Presentation Transcript
;******************************************************************************;******************************************************************************



; Terry






; shoot when




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


Boolean exitflag flag to determine when we should exit
BOOLEAN exitflag ' Flag to determine when we should exit;******************************************************************************


String text the text that the caller types
STRING text ' The text that the caller types;******************************************************************************


String key keystroke text
STRING key ' Keystroke text;******************************************************************************


String bs an ascii backspace character
STRING BS ' An ASCII backspace character;******************************************************************************


String bs2 an ascii backspace character
STRING BS2 ' An ASCII backspace character;******************************************************************************


String cr an ascii carriage return character
STRING CR ' An ASCII carriage return character;******************************************************************************


String esc an ascii esc character
STRING ESC ' An ASCII esc character;******************************************************************************


Integer len length of the text the caller has typed
INTEGER len ' Length of the text the caller has typed;******************************************************************************


Integer oldx last column position of cursor
INTEGER oldx ' Last column position of cursor;******************************************************************************


Integer oldy last row position of cursor
INTEGER oldy ' Last row position of cursor;******************************************************************************


Integer newy new row position of cursor
INTEGER newy ' New row position of cursor;******************************************************************************


Integer upcount a count of the number of lines to move up
INTEGER upcount ' A count of the number of lines to move up;******************************************************************************










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


Initializations
; Initializations;***********************************************************************


Bs chr 8 backspace key
BS = CHR(8) ' Backspace Key;***********************************************************************


Bs2 chr 127 alternate backspace key
BS2 = CHR(127) ' Alternate Backspace Key;***********************************************************************


Cr chr 13 carriage return
CR = CHR(13) ' Carriage Return;***********************************************************************


Esc chr 27 esc character
ESC = CHR(27) ' ESC character;***********************************************************************






' There are basically







Nprompt @x08 @x0f@minleft@@x08 left @x0fv@x08 iew @x0fspace@x08 mark more
nprompt = "@X08(@[email protected]@@X08 left), (@[email protected])iew, (@[email protected])=Mark, More? "



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


Main program
; Main Program;***********************************************************************





Endif
ENDIF input.

















Keystrokes that were collected
' keystrokes that were collected. keyboard buffer with the


If len 0 key then
IF (len = 0 & key = " ") THEN keyboard buffer with the


Oldx getx
oldx = getx() keyboard buffer with the


Oldy gety
oldy = gety() keyboard buffer with the


Newy oldy
newy = oldy keyboard buffer with the



PRINT CR+"@CLREOL@@X08Press @[email protected] to move up, @[email protected] to select, @[email protected] to view, @[email protected] to exit"+CR




Gosub findfile
GOSUB findfile is found, it


















Gosub findfile1
GOSUB findfile instead.





Goto bottom
GOTO bottom instead.


Endif1
ENDIF instead.


Endif2
ENDIF instead.


Endwhile
ENDWHILE instead.







To view the file
' to VIEW the file. buffer with a command


Gosub unhighlight1
GOSUB unhighlight buffer with a command


Gosub restorecursor1
GOSUB restorecursor buffer with a command


If key cr then
IF (key = CR) THEN buffer with a command


Kbdstuff f filename cr
KBDSTUFF "F "+filename+CR buffer with a command


END buffer with a command


Elseif upper key v then
ELSEIF (UPPER(key) = "V") THEN buffer with a command




Savescrn
SAVESCRN view command



END view command


Endif3
ENDIF view command


ELSE view command


Gosub restorecursor2
GOSUB restorecursor view command


Endif4
ENDIF view command


Gosub restoreline1
GOSUB restoreline view command


Goto bottom1
GOTO bottom view command









If len 0 then
IF (len > 0) THEN keystrokes.


Print bs
PRINT BS+" " keystrokes.


Len len 1
len = len - 1 keystrokes.



ELSE keystrokes.


Goto bottom2
GOTO bottom keystrokes.


Endif5
ENDIF keystrokes.











' on the screen.




Goto bottom3
GOTO bottom characters" so anything



Savescrn1
SAVESCRN THEN


Newline
NEWLINE THEN



Newline versions of the help file
NEWLINE ' versions of the help file


WAIT the help file


Restscrn
RESTSCRN the help file


Goto bottom4
GOTO bottom the help file










Endif6
ENDIF limit.



Print key
PRINT key limit.


Endif7
ENDIF limit.


Bottom
:bottom limit.


Endwhile1
ENDWHILE limit.




Process the request
' process the request. and let PCBoard


' and let PCBoard




Will restore the screen
' will restore the screen invocation of FLAG.PPE


If upper left text 1 v then
IF (UPPER(LEFT(text,1)) = "V") THEN invocation of FLAG.PPE


Savescrn2
SAVESCRN invocation of FLAG.PPE


Endif8
ENDIF invocation of FLAG.PPE


If upper left text 1 d then
IF (UPPER(LEFT(text,1)) = "D") THEN invocation of FLAG.PPE



MORE command prompt to download."


Text chr 13
text=CHR(13) command prompt to download."


Endif9
ENDIF command prompt to download."


Kbdstuff text
KBDSTUFF text command prompt to download."


END command prompt to download."


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







Restorecursor
:restorecursor cursor down that


If newy oldy then
IF (newy < oldy) THEN cursor down that



Endif10
ENDIF cursor down that


Newy oldy1
newy = oldy cursor down that


Clreol
CLREOL cursor down that


Return
RETURN cursor down that


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




Restoreline
:restoreline and then sets the


Print nprompt
PRINT nprompt and then sets the


Defcolor
DEFCOLOR and then sets the


Return1
RETURN and then sets the


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










' it.




' variable empty.







Findfile
:findfile by printing the


If newy 1 then
IF (newy = 1) THEN by printing the


Filename
filename = "" by printing the


Return2
RETURN by printing the


Endif11
ENDIF by printing the


Upcount 0
upcount = 0 by printing the


While newy 1 do
WHILE (newy >= 1) DO by printing the


Newy newy 1
newy = newy - 1 by printing the


Upcount upcount 1
upcount = upcount + 1 by printing the




As offline or deleted
' as OFFLINE or DELETED) the file was marked



If filesize 0 then
if (filesize > 0) THEN the file was marked












Filelen len filename
filelen = LEN(filename) the name of the screen


Check for a valid filename
' check for a valid filename the name of the screen



IF (! (INSTR(filename," ") | INSTR(filename,",") | INSTR(filename,":") | INSTR(filename,"\") | INSTR(filename,"*") | INSTR(filename,"<") | INSTR(filename,">"))) THEN


Dotpos instr filename
dotpos = INSTR(filename,".") INSTR(filename,":") | INSTR(filename,"\") | INSTR(filename,"*") | INSTR(filename,"<") | INSTR(filename,">"))) THEN








Color @x5f
COLOR @X5F dotpos) <= 3)) THEN


Print filename cr
PRINT filename+CR dotpos) <= 3)) THEN


Return3
RETURN dotpos) <= 3)) THEN


Endif12
ENDIF dotpos) <= 3)) THEN


Endif13
ENDIF dotpos) <= 3)) THEN


Endif14
ENDIF dotpos) <= 3)) THEN


Endif15
ENDIF dotpos) <= 3)) THEN


Endif16
ENDIF dotpos) <= 3)) THEN


Endwhile2
ENDWHILE dotpos) <= 3)) THEN



Filename1
filename = "" dotpos) <= 3)) THEN




Newy newy upcount
newy = newy + upcount move up so we need


Return4
RETURN move up so we need


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




Unhighlight
:unhighlight printing the saved


Print savetext cr
PRINT savetext+CR printing the saved


Return5
RETURN printing the saved


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


ad