PostIt! 6.0 7/16

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

'>>> Start of page 7.

END IF
COLOR 15
PRINT " on this file."

WhatFmt$ = UCASE$(GetInput$("Which format [" + R$ + "]? ", 1))
IF (WhatFmt$ <> "Y") AND (WhatFmt$ <> "N") THEN WhatFmt$ = R$
LOCATE CSRLIN - 1, 19
PRINT WhatFmt$

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

IF WhatFmt$ = "Y" THEN
    IF A& > 24550 THEN
        COLOR 7: PRINT
        PRINT "Binary file exceeds maximum size of 24K!"
        END
    ELSE
        FileLength = A&
    END IF

  A$ = UCASE$(GetInput$("Use condensed script format [Y]? ", 1))
    IF A$ <> "N" THEN
        SmallScript = True
        A$ = "Y"
    END IF
    LOCATE CSRLIN - 1, 34
    PRINT A$
ELSE
    PRINT
    A$ = "Expand tabs to how many spaces [4]? "
    TabStops = VAL(GetInput$(A$, 1))
    IF TabStops <= 0 THEN
        TabStops = 4
        LOCATE CSRLIN - 1, 36
        PRINT TabStops
    END IF
END IF
PRINT

A$ = "What is the destination prefix (max. 6 chars.) ["
DestFile$ = UCASE$(GetInput$(A$ + DefaultFile$ + "]? ", 6))
IF LEN(DestFile$) = 0 THEN
    DestFile$ = DefaultFile$
    LOCATE CSRLIN - 1, 52 + LEN(DefaultFile$)
    PRINT DefaultFile$
END IF

IF SmallScript THEN
    DExt$ = ".PI6"
ELSE
    DExt$ = ".BAS"
END IF
DestExten$ = UCASE$(GetInput$("What is the destination extension"+_
" (max. 3 chars.) [" + DExt$ + "]? ", 3))
IF LEN(DestExten$) = 0 THEN
    DestExten$ = DExt$
    LOCATE CSRLIN - 1, 59
    PRINT DExt$
ELSEIF INSTR(DestExten$, ".") = 0 THEN
    DestExten$ = "." + DestExten$
END IF

PageLength = VAL(GetInput$("Page length [85]? ", 3))
IF PageLength < 5 THEN
    PageLength = 85
    LOCATE CSRLIN - 1, 19
    PRINT "85 "
END IF

LinesOut$ = GetInput$("Lines to reserve on first message [5]? ",_
 2)
LinesOut = VAL(LinesOut$)
IF (LEN(LinesOut$) = 0) OR (LinesOut < 0) THEN
    LinesOut = 5
    LOCATE CSRLIN - 1, 40
    PRINT "5 "
END IF

LOCATE , , 0

'>>> Continued on page 8

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