ELBROWSE.BAS 4/5

 BBS: Inland Empire Archive
Date: 02-10-93 (12:53)             Number: 316
From: CORIDON HENSHAW              Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: ELBROWSE.BAS 4/5               Conf: (2) Quik_Bas

Hello All!

===Chop===
                        PRINT "Search:";
                        SEEKGE #4, TextInput$(25, 46, 1, 20)
                        IF NOT EOF(4) THEN
                                ExitFlag = 5
                        ELSE
                                LOCATE 25, 38
                                PRINT "Echo not found, press any key";
                                Junk$ = INPUT$(1)
                                LOCATE 25, 38
                                PRINT "                             ";
                                SEEKEQ #4, CurrItem$
                        END IF

                CASE "R", "r" 'Generate full information file
                        COLOR 14, 1
                        LOCATE 25, 38
                        PRINT "Filename:                ";
                        Filename$ = UCASE$(TextInput$(25, 48, 1, 20))
                        IF DIR$(Filename$) = Filename$ THEN
                                LOCATE 25, 38
                                PRINT "File exists.  Overwrite? (N)";

                                DO
                                        Ikey$ = UCASE$(INKEY$)
                                        LOCATE 25, 38 + 26, 1


                                        IF Ikey$ <> "" AND LEN(Ikey$) = 1 THEN
                                                PRINT Ikey$;
                                        ELSEIF Ikey$ = CHR$(8) THEN 'BKSPC
                                                PRINT " ";
                                        END IF

                                LOOP UNTIL Ikey$ = "Y" OR Ikey$ = "N"

                                        LOCATE , , 0
                                        IF Ikey$ = "N" AND
Filename$ <> "CON"_ THEN
                                                LOCATE 25, 38
                                          PRINT "
                 ";
                                        ELSE
                                                ExitFlag = 6
                                                CurrItem$ = Filename$
                                        END IF
                        ELSE
                                ExitFlag = 6
                                CurrItem$ = Filename$
                        END IF
                CASE CHR$(0) + "Q" 'PGDN
                        ExitFlag = 7
                CASE CHR$(0) + "I" 'PGUP
                        ExitFlag = 8
                CASE ELSE
                        BEEP
        END SELECT
LOOP UNTIL ExitFlag > -1

ScrollText = ExitFlag
EXIT FUNCTION

UpdateScreen:
EVENT OFF
COLOR 7, 0
StartBuffer = BaseLine
FOR X = StartLine TO EndLine
        LOCATE X
        IF StartBuffer <= UBOUND(TextBuffer) THEN
                PRINT TextBuffer(StartBuffer) + STRING$(80 -
 _ LEN(TextBuffer(StartBuffer)), " ");
        ELSE
                PRINT STRING$(80, " ");
        END IF
        StartBuffer = StartBuffer + 1
NEXT
EVENT ON
RETURN

END FUNCTION

FUNCTION TextInput$ (Row, Col, Cursor, MaxLen)
LOCATE Row, Col, Cursor
DO
        DO
                Ikey$ = INKEY$
        LOOP UNTIL Ikey$ <> ""
        SELECT CASE Ikey$
                CASE CHR$(0) + "M" 'Right
                        EditPos = EditPos + 1
                        IF NOT EditPos < InputLength THEN
                                EditPos = InputLength
                                BEEP
                        END IF
                        LOCATE Row, Col + EditPos, Cursor

                CASE CHR$(0) + "K" 'Left
                        EditPos = EditPos - 1
                        IF NOT EditPos > 0 THEN
                                EditPos = 0
                                BEEP
                        END IF
                        LOCATE Row, Col + EditPos, Cursor
===Chop===

Coridon Henshaw \ Sirrus Software

--- GEcho 1.00
 * Origin: TCS Concordia - Mail Only - Toronto, Ontario (1:250/820)