===========================================================================
 BBS: The Abacus * HST/DS * Potterville MI
Date: 05-17-93 (12:49)             Number: 46
From: CORIDON HENSHAW              Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: (5) Assorted text scrolli      Conf: (35) Quick Basi
---------------------------------------------------------------------------
'>>> Start of page 5.

                            GOSUB UpdateTag
                        END IF
                CASE CHR$(0) + "G" 'Home
                        IF BaseLine <> StartLine THEN
                            BarLine = StartLine
                            BaseLine = StartLine
                            GOSUB UpdateTag
                        ELSE
                            IF BarLine <> StartLine THEN
                                BarLine = StartLine
                                GOSUB UpdateTag
                            ELSE
                                Chirp
                            END IF
                        END IF
                CASE CHR$(0) + "O" 'End
                        IF BaseLine <> TopBound - TotalLines THEN
                            BaseLine = TopBound - TotalLines
                            BarLine = EndLine
                            GOSUB UpdateTag
                        ELSE
                            IF BarLine <> TotalLines THEN
                                BarLine = TotalLines
                                GOSUB UpdateTag
                            ELSE
                                Chirp
                            END IF
                        END IF
                CASE CHR$(0) + "I" 'PGUP
                        IF BaseLine - TotalLines >= 1 THEN
                            BaseLine = BaseLine - TotalLines
                            BarLine = StartLine
                            GOSUB UpdateTag
                        ELSE
                            IF BaseLine <> 1 THEN
                                BaseLine = StartLine
                                BarLine = StartLine
                                GOSUB UpdateTag
                            ELSE
                                Chirp
                            END IF
                        END IF
                CASE CHR$(0) + "Q" 'PGDN
                        IF BaseLine + TotalLines <= TopBound -_
 TotalLines THEN
                            BaseLine = BaseLine + TotalLines
                            BarLine = EndLine
                            GOSUB UpdateTag
                        ELSE
                            IF BaseLine <> TopBound - TotalLines THEN
                                BaseLine = TopBound - TotalLines
                                BarLine = EndLine
                                GOSUB UpdateTag
                            ELSE
                                Chirp
                            END IF
                        END IF
                CASE CHR$(32) 'Space
                        IF TaggedEntrys(CurrEntry) <> 1 THEN
                            TaggedEntrys(CurrEntry) = 1
                            GOSUB UpdateTag
                        ELSE
                            TaggedEntrys(CurrEntry) = 2
                            GOSUB UpdateTag
                        END IF
                CASE CHR$(13) 'Enter
                        ExitFlag = 1
                        TagMenu = 1
                CASE CHR$(27) 'ESC
                        ExitFlag = 0
                        TagMenu = 0
                CASE ELSE
                        Chirp
        END SELECT
        CurrEntry = BaseLine + BarLine - 1
LOOP UNTIL ExitFlag > -1

IF ExitFlag <> 0 THEN
    FOR X = LowerBound TO TopBound
        IF TaggedEntrys(X) = 1 THEN TaggedList(Y) = X: Y = Y + 1
    NEXT

'>>> See Next Page >>>

--- GEcho 1.00
 * Origin: TCS Concordia - Mail Only - Toronto, Ontario (1:250/820)
SEEN-BY: 1/211 11/2 4 13/13 101/1 108/89 109/25 110/69 114/5 123/19 124/1
SEEN-BY: 153/752 154/40 77 157/2 159/100 125 430 575 950 203/23 209/209
SEEN-BY: 261/1023 280/1 390/1 396/1 15 397/2 2230/100 2440/5 3603/20