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)