'===========================================================================
' Subject: DEMONSTRATION OF LED LETTERING    Date: 03-15-97 (21:20)       
' Author:  Xtance Coders Alliance            Code: QB, QBasic, PDS        
' Origin:  harryst@castel.nl               Packet: DEMOS.ABC
'===========================================================================
' a Xtance Coders Alliance Release
' 
' Mr. Snow presents the Demo made by Me and VS-BOS!
'
' mail - mrsnow@freemail.nl
'
' 02-08-96
'
'

DECLARE SUB Screenin ()
DECLARE SUB Slowblijf (a$, kl11!, kl12!, kl13!, kl21!, kl22!, kl23!, y1!, clr!, met!, wachtTijd!)
DECLARE SUB rand ()
DECLARE SUB blijf (a$, kl11!, kl12!, kl13!, kl21!, kl22!, kl23!, y1!, clr!, met!)
DECLARE SUB wacht (tijd!)
DECLARE SUB kleur (k%, r%, g%, B%)
DECLARE SUB knipper (clr, tijd, m11, m12, m13, m21, m22, m23, n11, n12, n13, n21, n22, n23)
start:
RANDOMIZE TIMER
tim1 = TIMER
KEY 15, CHR$(0) + CHR$(1)
ON KEY(15) GOSUB einde
KEY(15) ON
FOR i% = 32 TO 0 STEP -1
 FOR j% = 1 TO 2000
 NEXT j%
h% = i%
kleur 7, h%, h%, h%
NEXT i%
tim2 = INT(1 / (TIMER - tim1))

SCREEN 12

a$ = CHR$(34) + "[XCa] 1996 " + CHR$(34)
blijf a$, 0, 1, 1, 0, 1, 1, 100, 1, 1

a$ = "Presents "
Slowblijf a$, 1, 0, 1, 0, 0, 0, 200, 3, 1, 7.5

a$ = "in cooperation with"
blijf a$, 1, 1, 1, 0, 0, 0, 300, 5, 1

wacht 1000
LINE (14, 30)-(626, 466), 0, BF
LINE (0, 158)-(640, 198), 0, BF
a$ = "Mr. SN()W "
blijf a$, 1, 0, 0, 0, 0, 1, 150, 1, 2
a$ = "and"
blijf a$, 1, 1, 1, 0, 0, 0, 250, 3, 2
a$ = "The DarkMan"
blijf a$, 1, 0, 0, 0, 0, 1, 350, 5, 2
wacht 1000
FOR i% = 0 TO 16
IF i > 480 - i% THEN LINE (i%, i%)-(640 - i%, 480 - i% + 16), (i% / 4 - FIX(i% / 4)) * 4 + 11, B
IF 480 - i% > i% THEN LINE (i%, i% + 16)-(640 - i%, 480 - i%), (i% / 4 - FIX(i% / 4)) * 4 + 11, B
NEXT i%
LINE (14, 30)-(626, 466), 0, BF
LINE (0, 0)-(640, 16), 0, BF
LINE (14, 30)-(626, 466), 0, BF

a$ = "The      Wizzard"
blijf a$, 0, 1, 1, 1, 1, 1, 100, 1, 3
a$ = "   Game       "
blijf a$, 1, 1, 1, 1, 1, 1, 100, 7, 1
a$ = "BBS"
blijf a$, 0, 1, 1, 1, 1, 1, 150, 3, 4
a$ = "Groningen"
blijf a$, 0, 1, 1, 1, 1, 1, 250, 5, 2
a$ = "The Netherlands"
blijf a$, 0, 1, 1, 1, 1, 1, 350, 9, 3
wacht 1000
LINE (14, 30)-(626, 466), 0, BF
a$ = "Call now"
blijf a$, 1, 1, 1, 1, 1, 1, 100, 1, 1
a$ = "050-5412191"
blijf a$, 1, 0, 0, 1, 0, 0, 200, 3, 1
i = INT(TIMER)
DO
knipper 3, 50, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0
LOOP UNTIL INKEY$ <> "" OR INT(TIMER) - i = 59
SCREEN 0
COLOR 7, 1
PRINT "INTRO Coded by Mr. SN()W for " + CHR$(34) + "The GAME Wizzard BBS" + CHR$(34)
PRINT "Online time: 7 days a week 17:00 / 22:00 hourz"
COLOR 7, 0
END

END

einde:
SCREEN 0
PRINT "You are a nasty USER"
FOR i = 1 TO 15
BEEP
NEXT i
PRINT "Never do that again..."
PRINT "INTRO Coded by Mr. SN()W for " + CHR$(34) + "The GAME Wizzard BBS" + CHR$(34)
PRINT "Online time: 7 days a week 17:00 / 22:00 hourz"




GRaphic:

SUB blijf (a$, kl11, kl12, kl13, kl21, kl22, kl23, y1, clr, met)


kleur 15, 1, 0, 0
COLOR 15
h% = clr
kleur h%, 0, 0, 64
kleur h% + 1, 0, 0, 64
x1 = (640 - (LEN(a$) * 32)) / 2 'Mode 640
LOCATE 1, 1: PRINT a$
FOR i% = 0 TO LEN(a$) * 8
FOR j% = 1 TO 16
IF met = 1 THEN
 IF POINT(i%, j%) = 15 THEN
  LINE (x1 + i% * 4, y1 + j% * 4)-(x1 + 3 + i% * 4, y1 + 3 + j% * 4), clr + 1, B
 END IF
 IF POINT(i%, j%) = 15 THEN
  LINE (x1 + i% * 4, y1 + j% * 4)-(x1 + 2 + i% * 4, y1 + 2 + j% * 4), clr, BF
 END IF
END IF
IF met = 2 THEN
 IF POINT(i%, j%) = 15 THEN
  LINE (x1 + i% * 4, y1 + j% * 4)-(x1 + 3 + i% * 4, y1 + 3 + j% * 4), clr + 1, B
 END IF
 IF POINT(i%, j%) = 15 THEN
  LINE (x1 + i% * 4, y1 + j% * 4)-(x1 + 2 + i% * 4, y1 + 2 + j% * 4), clr
 END IF
END IF
IF met = 3 THEN
 IF POINT(i%, j%) = 15 THEN
  LINE (x1 + i% * 4, y1 + 3 + j% * 4)-(x1 + 3 + i% * 4, y1 + j% * 4), clr + 1
 END IF
 IF POINT(i%, j%) = 15 THEN
  LINE (x1 + i% * 4, y1 + j% * 4)-(x1 + 2 + i% * 4, y1 + 2 + j% * 4), clr
 END IF
END IF
IF met = 4 THEN
 IF POINT(i%, j%) = 15 THEN
  LINE (x1 + i% * 4, y1 + j% * 4)-(x1 + i% * 4, y1 + 3 + j% * 4), clr + 1
  END IF
 IF POINT(i%, j%) = 15 THEN
  LINE (x1 + i% * 4 + 2, y1 + j% * 4)-(x1 + i% * 4 + 2, y1 + 2 + j% * 4), clr
 END IF
END IF

NEXT j%
NEXT i%
COLOR 0: LOCATE 1, 1: PRINT "                    "
e% = 0: f% = 0: g% = 0
FOR i% = 1 TO 63
FOR k = 1 TO 2
FOR j% = 1 TO wach
NEXT j%
NEXT k
wacht .5
IF kl11 = 1 THEN e% = i% ELSE e% = 0
IF kl12 = 1 THEN f% = i% ELSE f% = 0
IF kl13 = 1 THEN g% = i% ELSE g% = 0
h% = clr
kleur h%, e%, f%, g%
IF kl21 = 1 THEN e% = i% ELSE e% = 0
IF kl22 = 1 THEN f% = i% ELSE f% = 0
IF kl23 = 1 THEN g% = i% ELSE g% = 0
h% = clr
kleur h% + 1, e%, f%, g%
NEXT i%
FOR k = 1 TO 100
FOR j% = 1 TO wach
NEXT j%
NEXT k
e% = 0: f% = 0: g% = 0
'FOR i% = 63 TO 1 STEP -1
'FOR k = 1 TO 2
'FOR j% = 1 TO wacht STEP 2
'NEXT j%
'NEXT k
'IF kl11 = 1 THEN e% = i% ELSE e% = 0
'IF kl12 = 1 THEN f% = i% ELSE f% = 0
'IF kl13 = 1 THEN g% = i% ELSE g% = 0
'kleur 1, e%, f%, g%
'IF kl21 = 1 THEN e% = i% ELSE e% = 0
'IF kl22 = 1 THEN f% = i% ELSE f% = 0
'IF kl23 = 1 THEN g% = i% ELSE g% = 0
'kleur 2, e%, f%, g%
'NEXT i%
'CLS

END SUB

SUB kleur (k%, r%, g%, B%)
OUT &H3C8, k%
OUT &H3C9, r%
OUT &H3C9, g%
OUT &H3C9, B%
END SUB

SUB knipper (clr, tijd, m11, m12, m13, m21, m22, m23, n11, n12, n13, n21, n22, n23)
wacht tijd
IF m11 = 1 THEN r% = 63 ELSE r% = 0
IF m12 = 1 THEN g% = 63 ELSE g% = 0
IF m13 = 1 THEN B% = 63 ELSE B% = 0
h% = clr
kleur h%, r%, g%, B%
IF m21 = 1 THEN r% = 63 ELSE r% = 0
IF m22 = 1 THEN g% = 63 ELSE g% = 0
IF m23 = 1 THEN B% = 63 ELSE B% = 0
kleur h% + 1, r%, g%, B%
wacht tijd
IF n11 = 1 THEN r% = 63 ELSE r% = 0
IF n12 = 1 THEN g% = 63 ELSE g% = 0
IF n13 = 1 THEN B% = 63 ELSE B% = 0
h% = clr
kleur h%, r%, g%, B%
IF n21 = 1 THEN r% = 63 ELSE r% = 0
IF n22 = 1 THEN g% = 63 ELSE g% = 0
IF n23 = 1 THEN B% = 63 ELSE B% = 0
kleur h% + 1, r%, g%, B%

END SUB

SUB rand
SHARED kle
kle = kle + .1
kle = 63
IF kle = 64 THEN kle = 0
aa% = (INT(TIMER * 1000) / 63 - FIX(INT(TIMER * 1000) / 63)) * 63
ab% = (INT(TIMER * 100) / 63 - FIX(INT(TIMER * 100) / 63)) * 63
ac% = (INT(TIMER * 10) / 63 - FIX(INT(TIMER * 10) / 63)) * 63
'kleur 11, aa%, ab%, ac%
kleur 12, 63 - aa%, 63 - ab%, 63 - ac%
kleur 14, aa% / 2 + 32, ab% / 2 + 32, ac% / 2 + 32
kleur 13, aa%, ab%, ac%
IF INT(RND * 2) = 1 THEN aa% = kle ELSE aa% = 0
IF INT(RND * 2) = 1 THEN ab% = kle ELSE ab% = 0
IF INT(RND * 2) = 1 THEN ac% = kle ELSE ac% = 0
kleur 11, aa%, ab%, ac%
END SUB

SUB Slowblijf (a$, kl11, kl12, kl13, kl21, kl22, kl23, y1, clr, met, wachtTijd)


kleur 15, 1, 0, 0
COLOR 15
h% = clr
kleur h%, 0, 0, 64
kleur h% + 1, 0, 0, 64
x1 = (640 - (LEN(a$) * 32)) / 2
LOCATE 1, 1: PRINT a$
FOR i% = 0 TO LEN(a$) * 8
FOR j% = 1 TO 16
IF met = 1 THEN
 IF POINT(i%, j%) = 15 THEN
  LINE (x1 + i% * 4, y1 + j% * 4)-(x1 + 3 + i% * 4, y1 + 3 + j% * 4), clr + 1, B
 END IF
 IF POINT(i%, j%) = 15 THEN
  LINE (x1 + i% * 4, y1 + j% * 4)-(x1 + 2 + i% * 4, y1 + 2 + j% * 4), clr, BF
 END IF
END IF
IF met = 2 THEN
 IF POINT(i%, j%) = 15 THEN
  LINE (x1 + i% * 4, y1 + j% * 4)-(x1 + 3 + i% * 4, y1 + 3 + j% * 4), clr + 1, B
 END IF
 IF POINT(i%, j%) = 15 THEN
  LINE (x1 + i% * 4, y1 + j% * 4)-(x1 + 2 + i% * 4, y1 + 2 + j% * 4), clr
 END IF
END IF
IF met = 3 THEN
 IF POINT(i%, j%) = 15 THEN
  LINE (x1 + i% * 4, y1 + 3 + j% * 4)-(x1 + 3 + i% * 4, y1 + j% * 4), clr + 1
 END IF
 IF POINT(i%, j%) = 15 THEN
  LINE (x1 + i% * 4, y1 + j% * 4)-(x1 + 2 + i% * 4, y1 + 2 + j% * 4), clr
 END IF
END IF
IF met = 4 THEN
 IF POINT(i%, j%) = 15 THEN
  LINE (x1 + i% * 4, y1 + j% * 4)-(x1 + i% * 4, y1 + 3 + j% * 4), clr + 1
  END IF
 IF POINT(i%, j%) = 15 THEN
  LINE (x1 + i% * 4 + 2, y1 + j% * 4)-(x1 + i% * 4 + 2, y1 + 2 + j% * 4), clr
 END IF
END IF

NEXT j%
NEXT i%
COLOR 0: LOCATE 1, 1: PRINT "                    "
e% = 0: f% = 0: g% = 0
FOR i% = 1 TO 63
FOR k = 1 TO 2
FOR j% = 1 TO wach
NEXT j%
NEXT k
wacht wachtTijd
IF kl11 = 1 THEN e% = i% ELSE e% = 0
IF kl12 = 1 THEN f% = i% ELSE f% = 0
IF kl13 = 1 THEN g% = i% ELSE g% = 0
h% = clr
kleur h%, e%, f%, g%
IF kl21 = 1 THEN e% = i% ELSE e% = 0
IF kl22 = 1 THEN f% = i% ELSE f% = 0
IF kl23 = 1 THEN g% = i% ELSE g% = 0
h% = clr
kleur h% + 1, e%, f%, g%
NEXT i%
FOR k = 1 TO 100
FOR j% = 1 TO wach
NEXT j%
NEXT k
e% = 0: f% = 0: g% = 0
'FOR i% = 63 TO 1 STEP -1
'FOR k = 1 TO 2
'FOR j% = 1 TO wacht STEP 2
'NEXT j%
'NEXT k
'IF kl11 = 1 THEN e% = i% ELSE e% = 0
'IF kl12 = 1 THEN f% = i% ELSE f% = 0
'IF kl13 = 1 THEN g% = i% ELSE g% = 0
'kleur 1, e%, f%, g%
'IF kl21 = 1 THEN e% = i% ELSE e% = 0
'IF kl22 = 1 THEN f% = i% ELSE f% = 0
'IF kl23 = 1 THEN g% = i% ELSE g% = 0
'kleur 2, e%, f%, g%
'NEXT i%
'CLS

END SUB

SUB wacht (tijd)
SHARED tim2
FOR i = 1 TO tijd * 50 * tim2
'rand
NEXT i
END SUB