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)
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