===========================================================================
 BBS: The Abacus * HST/DS * Potterville MI
Date: 02-28-93 (19:29)             Number: 71
From: CALVIN FRENCH                Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: CINPUT.BAS part 2              Conf: (35) Quick Basi
---------------------------------------------------------------------------
'>>> Start of page 2.

PRINT TmpInput$

'PPS: Hope you enjoyed the little joke, hee hee =)  (great big smile)

FUNCTION CInput$ (Row, Colstart, ColEnd, Forecolor, BackColor)

Viewlen = (ColEnd - Colstart) + 2  ' Viewable Length
TempInput$ = ""                    ' Reset TempInput$
Pointer = 1                        ' Reset Pointer

COLOR Forecolor, BackColor         ' Set Color

LOCATE Row, Colstart               ' Blank Out Desired Areas
PRINT SPACE$(ColEnd - Colstart + 5)  '          "
LOCATE Row, Colstart               '          "

StartInput:
RestartLoop = 0                    ' Reset RestartLoop
     DO
          DO: key$ = INKEY$: LOOP UNTIL key$ <> ""
          IF LEN(TempInput$) > Viewlen THEN Pointer = Pointer + 1
          IF LEN(key$) > 1 THEN
               RestartLoop = 1
               GOTO StartInput
          END IF
          IF key$ = CHR$(8) THEN
               IF n = 0 THEN
                    BEEP
               ELSEIF LEN(TempInput$) > Viewlen THEN
                    Pointer = Pointer - 2
                    TempInput$ = LEFT$(TempInput$, (LEN(TempInput$) -_
 1))
                    LOCATE Row, 1
                    n = n - 1
               ELSE
                    TempInput$ = LEFT$(TempInput$, (LEN(TempInput$) -_
 1))
                    LOCATE Row, 1
                    n = n - 1
               END IF
          END IF

          IF key$ = CHR$(27) THEN RestartLoop = 0
          IF key$ = CHR$(13) THEN
               ChangeDirectory = 1
               EXIT DO
          END IF
          IF key$ <> CHR$(8) THEN
               n = n + 1
               TempInput$ = TempInput$ + key$
          END IF
     LOCATE Row, Colstart
          IF Pointer > 1 THEN
               COLOR Forecolor
               PRINT MID$(TempInput$, Pointer - 1, Viewlen + 2);
               COLOR Forecolor + 16: PRINT "_ "
          ELSEIF Pointer = 1 THEN
               COLOR Forecolor
               PRINT MID$(TempInput$, Pointer, Viewlen + 2);

'>>> Continued on page 3.

... OFFLINE 1.39 * She kept saying I diddn't listen to her, or something.

--- Maximus 2.01wb
 * Origin: RJ's Byteline =[HST/DS]= Calgary (403)247-3180 CANADA (1:134/75)
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 950 203/23 209/209 280/1
SEEN-BY: 390/1 396/1 15 397/2 2230/100 3603/20