===========================================================================
 BBS: The Abacus * HST/DS * Potterville MI
Date: 02-28-93 (18:58)             Number: 70
From: CALVIN FRENCH                Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: CINPUT.BAS input routine       Conf: (35) Quick Basi
---------------------------------------------------------------------------
Here's part 1 of this handy dandy routine!
________O_/________________________| SNIP |______________________\_O_______
        O \                        | HERE |                      / O
'This file created by PostIt! v4.0.
'>>> Start of page 1.

' --- C-INPUT.BAS
' Released on Thu 02-18-1993 to be used at the discretion of all
' BASIC programmers. Please feel free to change/improve/mutilate
' etc. it.
' Programmed by: Calvin French of Calypso Software
'
' **************************************************************
' This is a great (and handy, too) li'l routine to handle input-
' ting from the user. It's works like a charm, w/ char scrolling
' and everything.
' Row: The row on which to input
' Colstart: The starting column on which to input
' ColEnd: Where you want the input to scroll
' ForeColor: Foreground color
' BackColor: Background color
' **************************************************************
' Well, there's my little, but (hopefully) helpful bit 'o code
' that I'll gladly submit to you guys! Look for more in the near
' future!
'
' PS: It _does_ have some er, um, interesting (?!) little 'bugs'
' but if you modify it a little, it should work just fine!
' Have fun!
'
DEFINT A-Z
DECLARE FUNCTION CInput$ (Row, Colstart, ColEnd, Forecolor, BackColor)

CLS

COLOR 15, 3
LOCATE 3, 1
PRINT CHR$(201) + STRING$(55, 205) + CHR$(187)
PRINT CHR$(186) + SPACE$(55) + CHR$(186)
PRINT CHR$(186) + SPACE$(55) + CHR$(186)
PRINT CHR$(186) + SPACE$(55) + CHR$(186)
PRINT CHR$(200) + STRING$(55, 205) + CHR$(188)
LOCATE 3, 5
PRINT " Please Enter The File You Wish To View "
COLOR 1, 3
LOCATE 4, 3
PRINT "File Name: "
TmpInput$ = CInput$(4, 14, 50, 7, 0)

COLOR 1, 3
LOCATE 5, 3
PRINT "ERROR! "
LOCATE 6, 3
PRINT "Drive C: Formatted by PKZ204E! Cannot read disk!"
COLOR 15, 0
LOCATE 10, 2
PRINT "Oh Yeah, you typed: "

'>>> Continued on page 2.

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