===========================================================================
 BBS: The Abacus * HST/DS * Potterville MI
Date: 02-28-93 (17:02)             Number: 18
From: VICTOR YIU                   Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: PostIt! 5.0  3/11              Conf: (35) Quick Basi
---------------------------------------------------------------------------
'>>> Start of page 3.

        Delay 5
        WarningScreen
        PRINT "Please input the filename of the source file."
        COLOR 6
        PRINT "This could be a binary file or simple text-format code"+_
" you"
        PRINT "would like to be wrapped."
        COLOR 14
        DO
            LINE INPUT "þþ "; source.file$
            source.file$ = LTRIM$(RTRIM$(source.file$))
            IF LEN(source.file$) = 0 THEN
                COLOR 7: LOCATE , , 1, 6, 7
                END
            END IF
            GOSUB CheckForFile
        LOOP WHILE A& = 0
    END IF

    'max file size is actually about 24576 bytes
    '(because 24576*1.33333 is >32767)

'Get the source filename without the drive & path
    FOR S = LEN(source.file$) TO 1 STEP -1
        IF INSTR("\:", MID$(source.file$, S, 1)) THEN EXIT FOR
    NEXT
    Real.Source$ = MID$(source.file$, S + 1)

'Get destination prefix & extenstion.
    Ext = INSTR(Real.Source$, ".")
    IF Ext <> 0 THEN
        Dest.Temp$ = LEFT$(Real.Source$, Ext - 1)
    ELSE
        Dest.Temp$ = Real.Source$
    END IF
    Dest.Temp$ = UCASE$(LEFT$(Dest.Temp$, 7))
    PRINT "What is the destination's prefix? 1-7 letters, default is " +_
 Dest.Temp$ + "."
    DO
        PRINT "þþ ";
        LINE INPUT Dest.File$
        Dest.File$ = RTRIM$(LTRIM$(Dest.File$))
        IF LEN(Dest.File$) = 0 THEN
            Row = CSRLIN
            Col = POS(0)
            Dest.File$ = Dest.Temp$
            LOCATE Row - 1, Col + 4
            PRINT Dest.File$
        END IF
        A = LEN(Dest.File$) > 7
        IF A THEN
            PRINT "Destination filename is appended with a number,"+_
" therefore"
            PRINT "it must be 7 characters or less."
        END IF
    LOOP WHILE A

    PRINT "What is the destination's extension? 1-3 letters, default"+_
" BAS."

    LINE INPUT "þþ "; Dest.Exten$
    Dest.Exten$ = LEFT$(RTRIM$(LTRIM$(Dest.Exten$)), 3)
    IF LEN(Dest.Exten$) = 0 THEN
        Row = CSRLIN
        Col = POS(0)
        Dest.Exten$ = "BAS"
        LOCATE Row - 1, Col + 4
        PRINT Dest.Exten$
    END IF
    Dest.Exten$ = "." + LEFT$(Dest.Exten$, 3)

'Get a valid page length.

    DO
        PRINT "Page Length (Must be at least 3, defaults to 95)"
        LINE INPUT "þþ "; Page.Length$
        Page.Length$ = LEFT$(RTRIM$(LTRIM$(Page.Length$)), 4)
        IF LEN(Page.Length$) = 0 THEN
            Row = CSRLIN
            Col = POS(0)
            Page.Length = 95
            LOCATE Row - 1, Col + 4
            PRINT "95"
            EXIT DO
        ELSE
            Page.Length = CINT(VAL(Page.Length$))
        END IF
        A = Page.Length < 3
        IF A THEN PRINT "Bad page length!"
    LOOP WHILE A

'>>> Continued on page 4.

--- Blue Wave/RA v2.10 [NR]
 * Origin: Hard Disc Cafe / Houston Texas / (713) 589-2690 / Node -*N (1:106/30.
0)
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