PostIt! 6.0 4/16

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

'>>> Start of page 4.

Linein 1
COLOR 15, 1
LOCATE 4, 1
PRINT "        ±±±±±±±±±Ü                                       "+_
"     ±±Ü"
PRINT "         ±±Ûßßß±±Û                                       "+_
"     ±±Û"
PRINT "         ±±Û   ±±Û ±±±±±±Ü ±±±±±±Ü ±±±±±±±±Ü ±±±±Ü"+_
" ±±±±±±±±Ü  ±±Û"
PRINT "         ±±±±±±±±Û ±±Ûß±±Û ±±Ûßßßß  ßß±±Ûßßß  ±±Ûß "+_
" ßß±±Ûßßß  ±±Û"
PRINT "         ±±Ûßßßßßß ±±Û ±±Û ±±±±±±Ü    ±±Û     ±±Û     ±±Û"+_
"     ±±Û"
PRINT "         ±±Û       ±±Û ±±Û  ßßß±±Û    ±±Û     ±±Û     ±±Û"+_
"      ßß"
PRINT "        ±±±±Û      ±±±±±±Û ±±±±±±Û    ±±Û    ±±±±Û    ±±Û"+_
"     ±±Ü"
PRINT "         ßßßß       ßßßßßß  ßßßßßß     ßß     ßßßß     ßß"+_
"      ßß  v6.0"
COLOR 14, 1
PRINT "                Ò Ò Â ÒÄÄ¿ ÄÒÄ ÖÄÒÄ¿ ÖÄÒÄ¿ ÒÄÄ¿ ÖÄ· Â   "+_
" ÒÄ¿  Ò  Â"
PRINT "                º º ³ ÇÄÂÙ  º    º     º   ÇÄ   º º ³   "+_
" ÇÄÁ¿ ÓÄÄ´"
PRINT "                ÓÄÐÄÙ Ð ÁÄ ÄÐÄ   Ð     Ð   ÐÄÄÙ Ð ÓÄÙ   "+_
" ÐÄÄÙ ÓÄÄÙ"
PRINT "        ÒÄÄ¿ ÄÒÄ ÖÄÄ¿ Ò  Â    ÖÄÄÄ ÒÄÄ¿ ÒÄ   ÖÄ¿  ÒÄÄ¿"+_
" ÒÄÄ¿ ÄÒÄ ÖÄÄ¿ Ò  Â"
PRINT "        ÇÄÂÙ  º  º    ÇÄÄ´    º Ú¿ ÇÄ   º    º À¿ ÇÄÂÙ ÇÄ"+_
"    º  º    ÇÄÄ´"
PRINT "        Ð ÁÄ ÄÐÄ ÓÄÄÙ Ð  Á    ÓÄÄÙ ÐÄÄÙ ÐÄÄÙ ÓÄÄÙ Ð ÁÄ"+_
" ÐÄÄÙ ÄÐÄ ÓÄÄÙ Ð  Á"
PRINT
COLOR 13, 1
PRINT SPC(22); "Decoder revisions by Jim Giordano."
PRINT SPC(19); "Graphical & user interface revisions by"
PRINT SPC(20); "Mark H Butler and Quinn Tyler Jackson."
PRINT SPC(21); "Text code wrapping by Scott Wunsch."
PRINT SPC(16); "Compression & new script format by Victor Yiu."
COLOR 15
Solid = False
DrawBox 1, 1, 25, 80, Solid

COLOR 7
Delay 5
WarningScreen

Delay 1
Lineout 1

COLOR 15, 0
CLS
PRINT "PostIt! Version 6.0"
PRINT

END SUB

SUB Delay (Secs!)

Begin! = TIMER
DO
LOOP UNTIL ((TIMER - Begin!) >= Secs!) OR (Begin! > TIMER)

END SUB

SUB DrawBox (Uprow, Ltcol, Lorow, Rtcol, Solid)

wide = Rtcol - Ltcol - 1
LOCATE Uprow, Ltcol
PRINT CHR$(201); STRING$(wide, CHR$(205)); CHR$(187);
FOR I = Uprow + 1 TO Lorow - 1
    LOCATE I, Ltcol
    PRINT CHR$(186);
    IF Solid THEN PRINT SPACE$(wide);
    LOCATE I, Rtcol
    PRINT CHR$(186);
NEXT
LOCATE Lorow, Ltcol
PRINT CHR$(200); STRING$(wide, CHR$(205)); CHR$(188);

END SUB

'>>> Continued on page 5

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