PostIt! 6.0 2/16

 BBS: Inland Empire Archive
Date: 04-02-93 (22:58)             Number: 325
From: VICTOR YIU                   Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: PostIt! 6.0   2/16             Conf: (2) Quik_Bas

'>>> Start of page 2.

' instead of nothing.  I also added a little bit of text mode "screen
' magic" to further augment  Quinn T. Jackson's copyright screen  and
' warning screen additions.   Fixed bug from version 2.8  that caused
' succeeding output files after the first  one to overwrite  the same
' filename due to the filename number suffix not incrementing. I also

' caused the program to skip the opening screens if an input filename
' is entered from the command line when the program is run. (I didn't
' think folks wanted to see those screens *every* time they wanted to
' use PostIt! Sometimes ya just want to get on with it right?)
'      (9-1-1992)
' Hardcoded a  CHR$(32)  (a space character)  to the end of each full
' length G-sub data line in the attempt to thwart  line truncation in
' transit on the Net. Just a theory that I hope is correct! -> MHB
'
'Additions and Modifications by Quinn Tyler Jackson (August 22, 1992):
'
' Postit! now prints a warning screen, warning users of possible
' abuse of binary-to-text posts.  Also, instead of the old '80% DONE'
' meter, this version uses a graphical bar that looks like this:
'
' ²²²ħħħħħħħħħħ (One block=2% completion.)
'
' I have also added a nice starting screen, giving Rich  credit where
' it is due!   Bells and whistles, boys!
' <qtj>
'
'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  decoder outputted  with  the  encoded  data   has  been
' "compressed" in order to squeeze it into 8 lines.  Each line of the
' decoder 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 decoder 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 SUB CopyrightScreen ()
DECLARE SUB Delay (Secs!)
DECLARE SUB DrawBox (Uprow, Ltcol, Lorow, Rtcol, Solid)
DECLARE SUB ExtractFile ()
DECLARE SUB Initialize ()
DECLARE SUB GetInformation ()
DECLARE SUB JustDoIt ()
DECLARE SUB Linein (LineColor%)
DECLARE SUB Lineout (LineColor%)
DECLARE SUB MsgSplit (SourceFile$, RealSource$, DestFile$,_
 DestExten$, PageLength, LinesOut, LineLength) 'SAW
DECLARE SUB PrepareFile ()
DECLARE SUB PrintDecoder ()
DECLARE SUB PrintLine (A$)
DECLARE SUB PutByte (A)
DECLARE SUB PutBytes (A)

'>>> Continued on page 3

--- Blue Wave/RA v2.12 [NR]
 * Origin: Hard Disc Cafe | Houston Texas | (713) 589-2690 |  (1:106/30.0)