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)
Outer Court
Echo Basic Postings

Books at Amazon:

Back to BASIC: The History, Corruption, and Future of the Language

Hackers: Heroes of the Computer Revolution (including Tiny BASIC)

Go to: The Story of the Math Majors, Bridge Players, Engineers, Chess Wizards, Scientists and Iconoclasts who were the Hero Programmers of the Software Revolution

The Advent of the Algorithm: The Idea that Rules the World

Moths in the Machine: The Power and Perils of Programming

Mastering Visual Basic .NET