PostIt! 6.0 10/16

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

'>>> Start of page 10.

Lines$(2) = SPACE$(39) + "þ" + SPACE$(2)
Lines$(1) = SPACE$(39) + "." + SPACE$(2)
Lines$(23) = STRING$(80, "Ä")
Sp = 39
Ln = 0
FOR I = 2 TO 21
    Lines$(I) = SPACE$(Sp) + STRING$(Ln, "Ä") + SPACE$(2)
    Sp = Sp - 2
    Ln = Ln + 4
NEXT

COLOR LineColor, 0
FOR I = 1 TO 23
    LOCATE 13, 1
    PRINT Lines$(I);
    Delay .03
NEXT

COLOR 15, LineColor
X = 12
y = 13
FOR I = 1 TO 13
    LOCATE y, 1
    PRINT STRING$(80, " ");
    LOCATE X, 1
    PRINT STRING$(80, " ");
    DrawBox X, 1, y, 80, -1
    Delay .03
    IF X > 1 THEN X = X - 1
    y = y + 1
NEXT

END SUB

SUB Lineout (LineColor)  '*** By Mark H Butler

Lines$(1) = STRING$(80, "Ä")
Sp = 2
Ln = 76
FOR I = 2 TO 21
    Lines$(I) = SPACE$(Sp) + STRING$(Ln, "Ä") + SPACE$(2)
    Sp = Sp + 2
    Ln = Ln - 4
NEXT
Lines$(22) = SPACE$(39) + "þ" + SPACE$(2)
Lines$(23) = SPACE$(39) + "." + SPACE$(2)

COLOR 0, 0
X = 1
y = 25
FOR I = 1 TO 12
    LOCATE y, 1
    PRINT STRING$(80, CHR$(32));
    LOCATE X, 1
    PRINT STRING$(80, CHR$(32));
    Delay .03
    X = X + 1
    y = y - 1
NEXT
COLOR LineColor, 0
FOR I = 1 TO 23
    LOCATE 13, 1: PRINT Lines$(I);
    Delay .03
NEXT
COLOR 7
CLS

END SUB

SUB MsgSplit (Filename$, TheName$, OutN$, Ext$, LPP, Reserve,_
 LineLength)

CLOSE
OPEN Filename$ FOR INPUT AS #1

Tab$ = CHR$(9): TabSub$ = SPACE$(TabStops)
LinesOut = Reserve + 1
FileOutNum = 1: OnMsgNumber = 1
LPP = LPP - 4   ' lines per page

Base$ = LEFT$(OutN$, 6)

'>>> Continued on page 11

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