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

'Note to QBasic users:
' The  COMMAND$  function  is  utilized in this version so if you are
' using QBasic you should delete  the  lines marked "**** Delete this
' line for QBasic use ******".   All such lines *MUST* be deleted  or
' REMmed out for this version to work with QBasic.
'
'Note:   The  loader  outputted  with  the  encoded  data   has  been
' "compressed" in order to squeeze it into 8 lines.  Each line of the
' loader is less that 72 characters,  so don't worry if it looks like
' some lines are too long when you load it into QB.   When QB expands
' the loader to make  it  look  "nicer,"   some  lines will look like
' they're too long to put on an echo, even though they aren't.   What
' I'm trying to say is:   Only  post  the  files  outputted  by  this
' program, don't load them into QB and resave them.
'
'Tech stuff:
' The output files created  by  this  program  should be "echo safe".
' The following 64 characters are used to encode the binary file:
'
' abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789()
'
' The script file is checked at runtime to see if all of the  encoded
' data  is  present.   Also,  a simple checksum is used to inform the
' user if the script file was  screwed or not(The file created is not
' deleted if this occurs,  however.   If only a  few  characters  are
' garbled,   then  some  of the output file may be still extractable.
' But if the 6-bit output  stream  falls  out of sync, then there's a
' very good  chance  that  the  rest  of  the  archive  is  completly
' unusable.)
'
' If anybody has any suggestions,  or finds any bugs in this program,
' then please drop me a message and tell me about it! -Rich Geldreich

'********************************************************************
DEFINT A-Z

CONST True = -1, False = NOT True
CONST frontpage = 0, backpage = 1   '<-- for popping the warning
                                    '    screen in and out -> MHB
DECLARE FUNCTION Compress$ (A$)
DECLARE FUNCTION Num2Str$ (A)
DECLARE SUB DrawBox (Uprow, Ltcol, Lorow, Rtcol, Solid)
DECLARE SUB Shadow (Uprow, Ltcol, Lorow, Rtcol)
DECLARE SUB CopyrightScreen ()
DECLARE SUB WarningScreen ()
DECLARE SUB Linein (LineColor%)
DECLARE SUB Lineout (LineColor%)
DECLARE SUB Linein (LineColor%)
DECLARE SUB Delay (secs!)            '<-!- needed by the text
DECLARE SUB Twirl ()                 '     magic stuff -> MHB
DECLARE SUB PutBytes (A)
DECLARE SUB PutByte (A)
DECLARE SUB Print.Line (A$)
DECLARE SUB MsgSplit (source.file$, Real.Source$, Dest.File$,_
 Dest.Exten$, Page.Length, Lines.Out, Line.Length) 'SAW
DECLARE FUNCTION Analyze$ (filename$)

DIM SHARED Lines$(1 TO 24), Shift(5), Proplr$

Proplr$ = CHR$(179) + "/-\"

FOR DefShift = 0 TO 5
    Shift(DefShift) = 2 ^ DefShift
NEXT

Line.Length = 73   '<-!-change this if desired

'Get source filename.
    LOCATE , , 0, 1, 7
    source.file$ = RTRIM$(COMMAND$)  '**** Delete this line for QBasic
' use ******

    IF LEN(source.file$) <> 0 THEN
        COLOR 15, 0
        CLS
        PRINT " PostIt! Version v5.0"
        PRINT
        COLOR 11
        PRINT " Freeware by Rich Geldreich, 1992."
        PRINT " Loader modifications by Jim Giordano."
        PRINT " User interface and graphics by "
        PRINT " Mark H Butler and Quinn Tyler Jackson."
        PRINT " Text code wrapping by Scott Wunsch."
        PRINT " Compression by Victor Yiu."
        COLOR 14
        PRINT
        GOSUB CheckForFile
        IF A& = 0 THEN END
    ELSE
        CopyrightScreen
        COLOR 7

'>>> Continued on page 3.

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