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

'Get # of lines to reserve for notes, messages, etc.

    PRINT "How many lines are to be reserved on the first page.  Default"+_
" 5."
    LINE INPUT "þþ "; Lines.Out$
    Lines.Out$ = LEFT$(RTRIM$(LTRIM$(Lines.Out$)), 4)
    IF LEN(Lines.Out$) = 0 THEN
        Row = CSRLIN
        Col = POS(0)
        Lines.Out = 5
        LOCATE Row - 1, Col + 4
        PRINT "5"
    ELSE
        Lines.Out = VAL(Lines.Out$)
    END IF

'Determine whether to run the traditional PostIt!, or the new code
' wrapper.
    PRINT "Post in traditional PostIt! (binary) format (as opposed to"+_
" just wrapping"
    PRINT " the code)?"

    COLOR 6
    Recommended$ = Analyze$(source.file$)
    IF Recommended$ = "Y" THEN
      PRINT "After analyzing " + Real.Source$ + ", I would recommend ";
      PRINT "the traditional format (Y)."
    ELSE
      PRINT "After analyzing " + Real.Source$ + ", I would recommend ";
      PRINT "the code wrapper (N)."
    END IF
    COLOR 14

    PRINT "þþ ";
    LINE INPUT What.Format$
    What.Format$ = UCASE$(LEFT$(What.Format$, 1))
    IF Recommended$ = "Y" THEN
      IF What.Format$ <> "N" THEN What.Format$ = "Y"
    ELSE
      IF What.Format$ <> "Y" THEN What.Format$ = "N"
    END IF
    LOCATE CSRLIN - 1, POS(0) + 4
    PRINT Dest.Exten$

    IF What.Format$ = "Y" THEN
        IF A& > 24550 THEN
            BEEP
            PRINT "Binary file exceeds maximum size of 24,550 bytes!"
            COLOR 7: LOCATE , , 1, 6, 7
            END
        ELSE
            FileLength = A&
        END IF
    END IF

'Launch code wrapper if requested.
    IF What.Format$ = "N" THEN
        MsgSplit source.file$, Real.Source$, Dest.File$, Dest.Exten$,_
 Page.Length, Lines.Out, Line.Length
    END IF

    COLOR 7

'first 2 lines are the loader's initialization code

    Lines.Out = Lines.Out + 2
    Total.Lines.Out = 2

    Qt$ = CHR$(34)
    Prefix$ = "G" + Qt$
    ComprChar$ = "!#$%-="

    Current.Page = 1
    Work$ = Prefix$
    CurrentBit = 0
    Char = 0
    A$ = " "

'Open output file.

    F$ = UCASE$(Dest.File$ + Num2Str$(Current.Page) + Dest.Exten$)
    PRINT
    PRINT "Now writing: "; F$; " ";
    Row = CSRLIN: Col = POS(0)

    T! = TIMER

    OPEN F$ FOR OUTPUT AS #2 LEN = 8192 'use 8k output buffer for a
' little
                                        'speed
'Print the first 2 lines of the loader.

'>>> Continued on page 5.

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