PostIt! 6.0 3/16

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

'>>> Start of page 3.

DECLARE SUB Shadow (Uprow, Ltcol, Lorow, Rtcol)
DECLARE SUB ShortCopyright ()
DECLARE SUB Twirl ()
DECLARE SUB WarningScreen ()
DECLARE FUNCTION Analyze (Filename$)
DECLARE FUNCTION CheckForFile& ()
DECLARE FUNCTION Compress$ (A$)
DECLARE FUNCTION GetInput$ (Prompt$, MaxLen%)
DECLARE FUNCTION Num2Str$ (A)
DECLARE FUNCTION ParseFileName$ ()

DIM SHARED Lines$(1 TO 24), Shift(5), Proplr$   ' global vars.
DIM SHARED LinesOut, PageLength, CurrentPage, FileLength
DIM SHARED LineLength, BytesOut, TotalLinesOut, NewFileFlag
DIM SHARED SourceFile$, DestFile$, DestExten$, RealSource$, ToDo$
DIM SHARED Row, Col, CheckSum, CurrentByte, CurrentBit, Char
DIM SHARED Work$, ComprChar$, Qt$, Prefix$, TabStops
DIM SHARED WhatFmt$, SmallScript

    Initialize
    Good$ = "abcdefghijklmnopqrstuvwxyz"
    Good$ = Good$ + UCASE$(Good$) + "0123456789#$"

    LineLength = 65     ' please don't change this for the
                        ' sake of safety

    GetInformation

    IF ToDo$ = "E" THEN ExtractFile

    IF WhatFmt$ = "N" THEN   'Launch code wrapper if wanted
        MsgSplit SourceFile$, RealSource$, DestFile$,_
 DestExten$, PageLength, LinesOut, LineLength
    END IF

    T! = TIMER      ' start timer

    PrepareFile     ' open file, print header, etc.
    JustDoIt        ' do the binary stuff
    PrintDecoder    ' print decoder, close file

    T! = TIMER - T!  ' stop timer

    LOCATE Row, Col
    PRINT "          "
    PRINT
    PRINT TotalLinesOut; "lines in"; CurrentPage;
    PRINT "file(s) written."
    PRINT USING "Elapsed time: ##.# secs."; T!
END

FUNCTION Analyze (Filename$)

OPEN Filename$ FOR BINARY AS #5

Tmp$ = INPUT$(20, #5)
FOR A = 1 TO 20
  Ch$ = MID$(Tmp$, A, 1)
  IF Ch$ < " " THEN Analyze = True: EXIT FOR
  IF Ch$ > "~" THEN HiASCII = HiASCII + 1
NEXT
IF HiASCII > 12 THEN Analyze = True

CLOSE #5

END FUNCTION

FUNCTION CheckForFile&

OPEN SourceFile$ FOR BINARY AS #1
A& = LOF(1)
IF A& = 0 THEN
    CLOSE
    KILL SourceFile$
    PRINT "   File not found."
END IF
CheckForFile& = A&

END FUNCTION

SUB CopyrightScreen

'>>> Continued on page 4

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