# Basic Code 2 of 3

``` BBS: Inland Empire Archive
Date: 06-12-93 (21:13)             Number: 363
From: STEVE DEMO                   Refer#: NONE
To: EARL MONTGOMERY               Recvd: NO
Subj: Basic Code 2 of 3              Conf: (2) Quik_Bas```
```'>>> Start of page 2.
FOR x = 0 TO 49                  ' Get Sections of the Display
' into Arrays
FOR xxx = 0 TO 319
D = D + 1
PixClr = POINT(xxx, x): aDoitA(D) = PixClr
PixClr = POINT(xxx, x + 50): aDoitb(D) = PixClr
PixClr = POINT(xxx, x + 100): aDoitc(D) = PixClr
PixClr = POINT(xxx, x + 150): aDoitD(D) = PixClr
NEXT xxx
NEXT x
D = 0
'******** uncompress  arrays back into a picture
FOR times = 1 TO 2
D = 0
FOR x = 199 TO 150 STEP -1
FOR xxx = 0 TO 319
D = D + 1
PixClr = DoitA(D): PSET (xxx, x), PixClr
NEXT xxx
NEXT x
D = 0
FOR x = 149 TO 100 STEP -1
FOR xxx = 0 TO 319
D = D + 1
PixClr = Doitb(D): PSET (xxx, x), PixClr
NEXT xxx
NEXT x
D = 0
FOR x = 99 TO 50 STEP -1
FOR xxx = 0 TO 319
D = D + 1
PixClr = Doitc(D): PSET (xxx, x), PixClr
NEXT xxx
NEXT x
D = 0
FOR x = 49 TO 0 STEP -1
FOR xxx = 0 TO 319
D = D + 1
PixClr = Doitd(D): PSET (xxx, x), PixClr
NEXT xxx
NEXT x
D = 0
SOUND 400, 2
g = g + 1
IF g = 1 THEN
SCREEN 0: WIDTH 40: COLOR 31
CLS : LOCATE 10, 11: PRINT "Ain't Basic Fun ?": SLEEP 3: SCREEN_
13
END IF
IF g = 2 THEN
SCREEN 0: WIDTH 40: COLOR 31
CLS : LOCATE 10, 11: PRINT "Cool Can I play 2": SLEEP 3: SCREEN_
13
END IF
FOR x = 0 TO 49
FOR xxx = 319 TO 0 STEP -1
D = D + 1
PixClr = aDoitA(D): PSET (xxx, x), PixClr
PixClr = aDoitb(D): PSET (xxx, x + 50), PixClr
PixClr = aDoitc(D): PSET (xxx, x + 100), PixClr
PixClr = aDoitD(D): PSET (xxx, x + 150), PixClr
NEXT xxx
NEXT x
D = 0
FOR x = 49 TO 0 STEP -1
FOR xxx = 0 TO 319
D = D + 1
PixClr = DoitA(D): PSET (xxx, x), PixClr
PixClr = Doitb(D): PSET (xxx, x + 50), PixClr
PixClr = Doitc(D): PSET (xxx, x + 100), PixClr
PixClr = Doitd(D): PSET (xxx, x + 150), PixClr
NEXT xxx
NEXT x
D = 0
FOR x = 0 TO 49
FOR xxx = 0 TO 319
D = D + 1
PixClr = aDoitA(D): PSET (xxx, x), PixClr
PixClr = aDoitb(D): PSET (xxx, x + 50), PixClr
PixClr = aDoitc(D): PSET (xxx, x + 100), PixClr
PixClr = aDoitD(D): PSET (xxx, x + 150), PixClr
'>>> Continued on page 3

___ Blue Wave/QWK v2.11

--- Maximus 2.01wb
* Origin: Semper Fi BBS  Ft. Wayne, IN  (219) 424-4292 (1:236/21)
```

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