DEFINT A-Z

TYPE highscores              ‘type for highscores
 rank AS STRING * 3         ‘rank
 dat  AS STRING * 8         ‘date
 nam  AS STRING * 25        ‘name
 lines  AS STRING * 4       ‘lines cleared
 num  AS STRING * 6         ‘Score
END TYPE

TYPE hues                    ‘define the type for hues
 red AS INTEGER             ‘red component
 grn AS INTEGER             ‘green component
 blu AS INTEGER             ‘blue component
END TYPE

DECLARE SUB P3×5Num (x, y, num, colour)
DECLARE SUB EndGame ()
DECLARE SUB TileScreen (tile)
DECLARE SUB Button (x, y, opt, size, fill)
DECLARE SUB BlankPal ()
DECLARE SUB CalcRowDiff ()
DECLARE SUB ChangePitPal ()
DECLARE SUB Clearbuffer ()
DECLARE SUB CheckForCleared ()
DECLARE SUB DisplayNextPiece ()
DECLARE SUB DoFillPit ()
DECLARE SUB DrawBlocks ()
DECLARE SUB DrawPlayPiece (x, y, playpiece, piecepostion)
DECLARE SUB DrawPlayScreen ()
DECLARE SUB DropPlayPiece ()
DECLARE SUB DropRows ()
DECLARE SUB Editor (score() AS highscores, cnt)
DECLARE SUB EndToQBasic ()
DECLARE SUB Eraserows ()
DECLARE SUB Findrowdiff ()
DECLARE SUB GameEnd ()
DECLARE SUB GetArea (ax, ay, bx, by, replace)
DECLARE SUB GetHighScores (mode)
DECLARE SUB GetOptions ()
DECLARE SUB MarkCptRows ()
DECLARE SUB PauseGame ()
DECLARE SUB p5×7font (px, y, Message$, colour)
DECLARE SUB RestorePal ()
DECLARE SUB StoreToGrid ()
DECLARE SUB ShowHighScores (score() AS highscores, mode)
DECLARE SUB SoundFX (fx%)
DECLARE SUB sortgridarray ()
DECLARE SUB Stay (Millisecs!)
DECLARE SUB TitleScreen ()
DECLARE SUB Updatescore ()
DECLARE SUB UpdatePieceMeter (restart)

DECLARE FUNCTION CheckMove (mode)
DECLARE FUNCTION CheckRotate ()
DECLARE FUNCTION Colorvalue& (attribute)
DECLARE FUNCTION GetPiece ()
DECLARE FUNCTION InputText$ (x, y, length)
DECLARE FUNCTION TimeToDrop ()
DECLARE FUNCTION ReturnEvent ()

COMMON SHARED grid(), blocks(), masks(), font(), smallnum(), meterpieces()
COMMON SHARED completerows()
COMMON SHARED xpiece, ypiece, pieceorientation, playpiece, piecelanded
COMMON SHARED gamescore&, oldhigh$, sngle, duble, triple, matrix
COMMON SHARED levelnum, droptime!, linescleared, levelmark, nextlevelmark
COMMON SHARED handicap, soundmode, slammode, gameover, Xpit, Ypit

‘mapped key values
CONST F1 = -59
CONST F2 = -60
CONST F3 = -61
CONST up = -72
CONST left = -75
CONST right = -77
CONST down = -80
CONST Insert = -82
CONST backspace = 8
CONST enter = 13
CONST Esc = 27
CONST space = 32
CONST Plus = 43
CONST Minus = 45
CONST Zero = 48
CONST Dot = 46
CONST Slash = 47
CONST two = 50
CONST Four = 52
CONST five = 53
CONST Six = 54
CONST Eight = 56

‘other
CONST True = 1
CONST false = 0
CONST blockheight = 7
CONST blockwidth = 11
CONST drop = 1
OUT &H60, &HF3                        ‘inform keyboard port
FOR d& = 1 TO 800: NEXT               ‘let hardware settle
OUT &H60, 0                           ’send fast typematic rate

DEF fnrnd (num) = INT(RND * num) + 1  ‘function for random number generation
RANDOMIZE TIMER                       ’seed the random number generator

SCREEN 13                             ’set video

LOCATE 10, 15: COLOR 7
PRINT “Please Wait.”                  ‘next few routines take some time

DIM completerows(1 TO 4)              ‘DIM array to hold completed rows

DIM grid(0 TO 22, 0 TO 12)            ‘DIM array for play pit

FOR y = 0 TO 22                       ‘to contain moves
 grid(y, 0) = 1
NEXT
FOR y = 0 TO 22                       ‘ditto
 grid(y, 11) = 1
NEXT
FOR x = 0 TO 11                       ‘ditto
 grid(22, x) = 1
NEXT

DIM smallnum(9, 5, 3)                    ‘DIM array for small numbers
FOR offset = 0 TO 9                      ‘first to last
 FOR ypos = 1 TO 5                      ‘top to bottom
  FOR xpos = 1 TO 3                    ‘left to right
   READ dat                           ‘READ data
   smallnum(offset, ypos, xpos) = dat ’store the data
  NEXT
 NEXT
NEXT
DIM masks(27, 3, 3)                       ‘DIM array for masks
FOR offset = 0 TO 27                      ‘first to last
 FOR bity = 0 TO 3                       ‘top to bottom
  FOR bitx = 0 TO 3                     ‘left to right
   READ dat                            ‘get data
   masks(offset, bity, bitx) = dat     ’store to array
  NEXT
 NEXT
NEXT

DIM meterpieces(6, 20, 8)                  ‘DIM array for meter pieces
FOR offset = 0 TO 6                        ‘first to last
 FOR y = 1 TO 8                           ‘top to bottom
  FOR x = 1 TO 20                        ‘left to right
   READ dat                              ‘READ data
   meterpieces(offset, x, y) = dat      ’store to array
  NEXT
 NEXT
NEXT

DIM font(127, 4, 6)                       ‘DIM array for fonts
FOR offset = 0 TO 127                     ‘read in fonts
 FOR y = 0 TO 6                           ‘top to bottom
 FOR x = 0 TO 4                          ‘left to right
   READ dat                             ‘get data
   font(offset, x, y) = dat             ’store it
 NEXT
 NEXT
NEXT

OPEN “QBMATRIX.OPT” FOR BINARY AS #1            ‘check for existance of .opt
length = LOF(1)
CLOSE #1
IF length = 0 THEN                              ‘file did not exist
 OPEN “QBMATRIX.OPT” FOR OUTPUT AS #1           ‘create file with defaults
 levelnum = 0: handicap = 0: slammode = 0: soundmode = 1
 WRITE #1, levelnum, handicap, slammode, soundmode
 CLOSE #1
ELSE                                            ‘file exists
 OPEN “QBMATRIX.OPT” FOR INPUT AS #1            ‘load saved options
 INPUT #1, levelnum, handicap, slammode, soundmode
 CLOSE #1
END IF

Stay (1)                   ‘initilaize delay routine
BlankPal                   ‘hide the screen writes
DrawBlocks                 ‘makes blocks used to make play pieces
CLS                        ‘clear screen
RestorePal                 ‘restore pallete
TitleScreen                ‘draw intro screen
CLS                        ‘clear screen

droptime! = .5             ‘initialize drop speed
GetOptions
Xpit = 11                  ’set start position
Ypit = 35                  ‘ditto
‘levelnum = 0              ‘initialize level
‘handicap = 0              ‘initialize handicap
levelmark = 30             ‘initialize level occurance
nextlevelmark = levelmark  ’set
ChangePitPal               ‘initialize pit color
DrawPlayScreen             ‘initilaize play screen
UpdatePieceMeter (-1)      ‘initialize meter
playpiece = GetPiece       ‘initialize playpiece
xpiece = Xpit * 6          ‘ditto
ypiece = Ypit              ‘ditto
DoFillPit                  ‘in case of handicap
DrawPlayPiece xpiece, ypiece, playpiece, pieceorientation  ‘ ditto

DO                                                   ‘main loop
 
  event = ReturnEvent                              ‘get event
  
  IF TimeToDrop THEN event = drop

  SELECT CASE event                                ‘process event
  CASE Esc, Slash, Minus: EndToQBasic              ‘user wants out
  CASE Plus:  PauseGame                            ‘nature calling ?
  CASE up, Eight, space, five                                   ‘do rotate
   rempiece = pieceorientation                                 ‘to restore
   pieceorientation = (pieceorientation + 1) MOD 4             ‘adjust
   IF CheckRotate THEN                                         ‘ok ?
    DrawPlayPiece xpiece, ypiece, playpiece, rempiece         ‘remove
    DrawPlayPiece xpiece, ypiece, playpiece, pieceorientation ‘draw new
   ELSE                                                        ‘not ok
    pieceorientation = rempiece                               ‘restore
   END IF

  CASE left, Four                                               ‘do left
   IF CheckMove(left) THEN                                     ‘ok ?
    DrawPlayPiece xpiece, ypiece, playpiece, pieceorientation ‘remove
    xpiece = xpiece – blockwidth                              ‘adjust
    DrawPlayPiece xpiece, ypiece, playpiece, pieceorientation ‘draw new
   END IF

  CASE right, Six                                               ‘do right
   IF CheckMove(right) THEN                                    ‘ok?
    DrawPlayPiece xpiece, ypiece, playpiece, pieceorientation  ‘remove
    xpiece = xpiece + blockwidth                               ‘adjust
    DrawPlayPiece xpiece, ypiece, playpiece, pieceorientation  ‘draw new
   END IF

  CASE drop
   IF CheckMove(down) THEN                                     ‘ok ?
    DrawPlayPiece xpiece, ypiece, playpiece, pieceorientation ‘remove
    ypiece = ypiece + blockheight                             ‘adjust
    DrawPlayPiece xpiece, ypiece, playpiece, pieceorientation ‘draw new
   ELSE                                                        ‘not ok ?
   IF ypiece <= Ypit + blockheight THEN                       ‘at top ?
 gameover = True                                          ’set flag
 EndGame                                                  ‘end game
   END IF                                                     ‘otherwise
   piecelanded = True                              ‘change piece color
   DrawPlayPiece xpiece, ypiece, playpiece, pieceorientation  ‘ ditto
   piecelanded = false                           ‘did it
   CheckForCleared
   Updatescore                                   ‘taly score
   xpiece = Xpit * 6                             ‘reset
   ypiece = Ypit                                 ‘ditto
   pieceorientation = 0                          ‘reset
   playpiece = GetPiece                          ‘get new
   DrawPlayPiece xpiece, ypiece, playpiece, pieceorientation ‘draw
  END IF
  
  CASE down, two                                               ‘do down
   DO
 IF CheckMove(down) THEN                                     ‘ok ?
  DrawPlayPiece xpiece, ypiece, playpiece, pieceorientation  ‘remove
  ypiece = ypiece + blockheight                              ‘adjust
  DrawPlayPiece xpiece, ypiece, playpiece, pieceorientation  ‘draw new
 ELSE                                                        ‘not ok ?
  IF ypiece <= Ypit + blockheight THEN                       ‘at top ?
   gameover = True                                          ’set flag
   EndGame                                                  ‘end game
  END IF                                                     ‘otherwise
  piecelanded = True                              ‘change piece color
  DrawPlayPiece xpiece, ypiece, playpiece, pieceorientation  ‘ditto
  piecelanded = false                           ‘did it
  CheckForCleared
  Updatescore                                   ‘taly score
  xpiece = Xpit * 6                             ‘reset
  ypiece = Ypit                                 ‘ditto
  pieceorientation = 0                          ‘reset
  playpiece = GetPiece                          ‘get new
  DrawPlayPiece xpiece, ypiece, playpiece, pieceorientation ‘draw
  EXIT DO
 END IF
   LOOP WHILE slammode

  CASE Dot
   soundmode = NOT soundmode                     ‘toggle sound mode
   LINE (274, 75)-(294, 85), 17, BF              ‘clear old text
   IF soundmode THEN                             ‘print new
 p5×7font 274, 75, “On”, 81                  ‘ditto
   ELSE                                          ‘ditto
 p5×7font 274, 75, “Off”, 80                 ‘ditto
   END IF

  CASE Insert, Zero                                ‘do insert
   IF slammode THEN                               ’slammode on
 slammode = NOT slammode                      ‘change it
 LINE (274, 62)-(294, 70), 17, BF             ‘clear old
 p5×7font 274, 62, “Off”, 7                   ‘report
   ELSE                                           ’slammode off
 slammode = NOT slammode                      ‘change it
 LINE (274, 62)-(294, 70), 17, BF             ‘clear old
 p5×7font 274, 62, “On”, 15                   ‘report
   END IF
  
  END SELECT

LOOP

 

‘Small Numbers

DATA  1,1,1
DATA  1,0,1
DATA  1,0,1
DATA  1,0,1
DATA  1,1,1

DATA  0,1,0
DATA  0,1,0
DATA  0,1,0
DATA  0,1,0
DATA  0,1,0

DATA  1,1,1
DATA  0,0,1
DATA  1,1,1
DATA  1,0,0
DATA  1,1,1

DATA  1,1,1
DATA  0,0,1
DATA  0,1,1
DATA  0,0,1
DATA  1,1,1

DATA  1,0,1
DATA  1,0,1
DATA  1,1,1
DATA  0,0,1
DATA  0,0,1

DATA  1,1,1
DATA  1,0,0
DATA  1,1,1
DATA  0,0,1
DATA  1,1,1

DATA  1,0,0
DATA  1,0,0
DATA  1,1,1
DATA  1,0,1
DATA  1,1,1

DATA  1,1,1
DATA  0,0,1
DATA  0,0,1
DATA  0,0,1
DATA  0,0,1

DATA  1,1,1
DATA  1,0,1
DATA  1,1,1
DATA  1,0,1
DATA  1,1,1

DATA  1,1,1
DATA  1,0,1
DATA  1,1,1
DATA  0,0,1
DATA  0,0,1

 

‘Data For Masks

‘playpiece 0
DATA 1,1,1,1
DATA 0,0,0,0
DATA 0,0,0,0
DATA 0,0,0,0

DATA 0,1,0,0
DATA 0,1,0,0
DATA 0,1,0,0
DATA 0,1,0,0

DATA 1,1,1,1
DATA 0,0,0,0
DATA 0,0,0,0
DATA 0,0,0,0

DATA 0,1,0,0
DATA 0,1,0,0
DATA 0,1,0,0
DATA 0,1,0,0
 
    ’playpiece 1
DATA 1,1,1,0
DATA 0,1,0,0
DATA 0,0,0,0
DATA 0,0,0,0

DATA 0,1,0,0
DATA 1,1,0,0
DATA 0,1,0,0
DATA 0,0,0,0

DATA 0,1,0,0
DATA 1,1,1,0
DATA 0,0,0,0
DATA 0,0,0,0

DATA 1,0,0,0
DATA 1,1,0,0
DATA 1,0,0,0
DATA 0,0,0,0
    ‘playpiece 2
DATA 1,1,0,0
DATA 1,1,0,0
DATA 0,0,0,0
DATA 0,0,0,0

DATA 1,1,0,0
DATA 1,1,0,0
DATA 0,0,0,0
DATA 0,0,0,0

DATA 1,1,0,0
DATA 1,1,0,0
DATA 0,0,0,0
DATA 0,0,0,0

DATA 1,1,0,0
DATA 1,1,0,0
DATA 0,0,0,0
DATA 0,0,0,0

    ’playpiece 3
DATA 1,1,1,0
DATA 0,0,1,0
DATA 0,0,0,0
DATA 0,0,0,0

DATA 0,1,0,0
DATA 0,1,0,0
DATA 1,1,0,0
DATA 0,0,0,0

DATA 1,0,0,0
DATA 1,1,1,0
DATA 0,0,0,0
DATA 0,0,0,0

DATA 1,1,0,0
DATA 1,0,0,0
DATA 1,0,0,0
DATA 0,0,0,0
    ‘playpiece 4

DATA 1,1,1,0
DATA 1,0,0,0
DATA 0,0,0,0
DATA 0,0,0,0

DATA 1,1,0,0
DATA 0,1,0,0
DATA 0,1,0,0
DATA 0,0,0,0

DATA 0,0,1,0
DATA 1,1,1,0
DATA 0,0,0,0
DATA 0,0,0,0

DATA 1,0,0,0
DATA 1,0,0,0
DATA 1,1,0,0
DATA 0,0,0,0

    ’playpiece 5
DATA 0,1,1,0
DATA 1,1,0,0
DATA 0,0,0,0
DATA 0,0,0,0

DATA 1,0,0,0
DATA 1,1,0,0
DATA 0,1,0,0
DATA 0,0,0,0

DATA 0,1,1,0
DATA 1,1,0,0
DATA 0,0,0,0
DATA 0,0,0,0

DATA 1,0,0,0
DATA 1,1,0,0
DATA 0,1,0,0
DATA 0,0,0,0
    ‘playpiece 6

DATA 1,1,0,0
DATA 0,1,1,0
DATA 0,0,0,0
DATA 0,0,0,0

DATA 0,1,0,0
DATA 1,1,0,0
DATA 1,0,0,0
DATA 0,0,0,0

DATA 1,1,0,0
DATA 0,1,1,0
DATA 0,0,0,0
DATA 0,0,0,0

DATA 0,1,0,0
DATA 1,1,0,0
DATA 1,0,0,0
DATA 0,0,0,0
‘bitmaps for random meters
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7
DATA 4,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,7
DATA 4,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,7
DATA 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,7
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,39,39,39,39,39,39,39,39,39,39,39,39,39,39,39
DATA 0,0,0,0,0,34,36,36,36,36,36,36,36,36,36,36,36,36,36,39
DATA 0,0,0,0,0,34,36,36,36,36,36,36,36,36,36,36,36,36,36,39
DATA 0,0,0,0,0,34,34,34,34,34,34,36,36,36,34,34,34,34,34,39
DATA 0,0,0,0,0,0 ,0 ,0 ,0 ,0 ,34,36,36,36,39,0 ,0 ,0 ,0 ,0
DATA 0,0,0,0,0,0 ,0 ,0 ,0 ,0 ,34,36,36,36,39,0 ,0 ,0 ,0 ,0
DATA 0,0,0,0,0,0 ,0 ,0 ,0 ,0 ,34,36,36,36,39,0 ,0 ,0 ,0 ,0
DATA 0,0,0,0,0,0 ,0 ,0 ,0 ,0 ,34,34,34,34,39,0 ,0 ,0 ,0 ,0

DATA 0,0,0,0,0,0,0,0,0,0,127,127,127,127,127,127,127,127,127,127
DATA 0,0,0,0,0,0,0,0,0,0,122,125,125,125,125,125,125,125,125,127
DATA 0,0,0,0,0,0,0,0,0,0,122,125,125,125,125,125,125,125,125,127
DATA 0,0,0,0,0,0,0,0,0,0,122,125,125,125,125,125,125,125,125,127
DATA 0,0,0,0,0,0,0,0,0,0,122,125,125,125,125,125,125,125,125,127
DATA 0,0,0,0,0,0,0,0,0,0,122,125,125,125,125,125,125,125,125,127
DATA 0,0,0,0,0,0,0,0,0,0,122,125,125,125,125,125,125,125,125,127
DATA 0,0,0,0,0,0,0,0,0,0,122,122,122,122,122,122,122,122,122,127

DATA 0,0,0,0,0,15,15,15,15,15, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0,0,0,0,0,12,14,14,14,15, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0,0,0,0,0,12,14,14,14,15, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0,0,0,0,0,12,14,14,14,15, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0,0,0,0,0,12,14,14,14,15,15,15,15,15,15,15,15,15,15,15
DATA 0,0,0,0,0,12,14,14,14,14,14,14,14,14,14,14,14,14,14,15
DATA 0,0,0,0,0,12,14,14,14,14,14,14,14,14,14,14,14,14,14,15
DATA 0,0,0,0,0,12,12,12,12,12,12,12,12,12,12,12,12,12,12,15

DATA 0,0,0,0,0,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30
DATA 0,0,0,0,0,25,28,28,28,28,28,28,28,28,28,28,28,28,28,30
DATA 0,0,0,0,0,25,28,28,28,28,28,28,28,28,28,28,28,28,28,30
DATA 0,0,0,0,0,25,28,28,28,25,25,25,25,25,25,25,25,25,25,25
DATA 0,0,0,0,0,25,28,28,28,30,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0
DATA 0,0,0,0,0,25,28,28,28,30,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0
DATA 0,0,0,0,0,25,28,28,28,30,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0
DATA 0,0,0,0,0,25,25,25,25,30,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0

DATA 0,0,0,0,0,  0,  0,  0,  0,  0,103,103,103,103,103,103,103,103,103,103
DATA 0,0,0,0,0,  0,  0,  0,  0,  0,100,102,102,102,102,102,102,102,102,103
DATA 0,0,0,0,0,  0,  0,  0,  0,  0,100,102,102,102,102,102,102,102,102,103
DATA 0,0,0,0,0,  0,  0,  0,  0,  0,100,102,102,102,100,100,100,100,100,103
DATA 0,0,0,0,0,103,103,103,103,103,100,102,102,102,103,  0,  0,  0,  0,  0
DATA 0,0,0,0,0,100,102,102,102,102,102,102,102,102,103,  0,  0,  0,  0,  0
DATA 0,0,0,0,0,100,102,102,102,102,102,102,102,102,103,  0,  0,  0,  0,  0
DATA 0,0,0,0,0,100,100,100,100,100,100,100,100,100,103,  0,  0,  0,  0,  0

DATA 0,0,0,0,0,48,48,48,48,48,48,48,48,48,48, 0, 0, 0, 0, 0
DATA 0,0,0,0,0,43,45,45,45,45,45,45,45,45,48, 0, 0, 0, 0, 0
DATA 0,0,0,0,0,43,45,45,45,45,45,45,45,45,48, 0, 0, 0, 0, 0
DATA 0,0,0,0,0,43,43,43,43,43,43,45,45,45,48, 0, 0, 0, 0, 0
DATA 0,0,0,0,0, 0, 0, 0, 0, 0,43,45,45,45,48,48,48,48,48,48
DATA 0,0,0,0,0, 0, 0, 0, 0, 0,43,45,45,45,45,45,45,45,45,48
DATA 0,0,0,0,0, 0, 0, 0, 0, 0,43,45,45,45,45,45,45,45,45,48
DATA 0,0,0,0,0, 0, 0, 0, 0, 0,43,43,43,43,43,43,43,43,43,48

 

‘font bitmaps, duplicates first 128 charactors of ASCII set
‘ 0 NUL
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
‘ 1
DATA 1,1,0,1,1
DATA 1,1,0,1,1
DATA 0,1,0,1,0
DATA 0,0,0,0,0
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,1,1,1,1
‘ 2
DATA 1,1,1,1,1
DATA 1,0,1,0,1
DATA 1,0,1,0,1
DATA 1,1,1,1,1
DATA 1,0,1,0,1
DATA 1,0,0,0,1
DATA 1,1,1,1,1
‘ 3
DATA 0,0,0,0,0
DATA 0,1,0,1,0
DATA 1,1,1,1,1
DATA 1,1,1,1,1
DATA 0,1,1,1,0
DATA 0,0,1,0,0
DATA 0,0,0,0,0
‘4
DATA 0,0,0,0,0
DATA 0,0,1,0,0
DATA 0,1,1,1,0
DATA 1,1,1,1,1
DATA 1,1,1,1,1
DATA 0,1,1,1,0
DATA 0,0,1,0,0
‘5
DATA 0,1,1,1,0
DATA 0,1,1,1,0
DATA 1,1,1,1,1
DATA 1,1,1,1,1
DATA 1,1,1,1,1
DATA 0,0,1,0,0
DATA 0,0,1,0,0
‘6
DATA 0,0,1,0,0
DATA 0,1,1,1,0
DATA 1,1,1,1,1
DATA 1,1,0,1,1
DATA 0,0,1,0,0
DATA 0,0,1,0,0
DATA 0,0,0,0,0
‘7
DATA 0,0,0,0,0
DATA 0,0,1,0,0
DATA 0,1,1,1,0
DATA 0,1,1,1,0
DATA 1,1,1,1,1
DATA 1,1,1,1,1
DATA 0,0,0,1,0
‘8
DATA 1,1,1,1,1
DATA 1,1,0,1,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 1,1,1,0,1
‘9
DATA 0,0,0,0,0
DATA 0,1,1,1,0
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 0,1,1,1,0
DATA 0,0,0,0,0
‘10
DATA 1,1,1,1,1
DATA 1,0,0,0,1
DATA 0,1,1,1,0
DATA 0,1,1,1,0
DATA 0,1,1,1,0
DATA 1,0,0,0,1
DATA 1,1,1,1,1
‘11
DATA 0,0,1,1,1
DATA 0,0,0,1,1
DATA 0,0,1,0,1
DATA 0,1,1,0,0
DATA 1,0,0,1,0
DATA 1,0,0,1,0
DATA 0,1,1,0,0
‘12
DATA 0,1,1,1,0
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 0,1,1,1,0
DATA 0,0,1,0,0
DATA 0,1,1,1,0
DATA 0,0,1,0,0
‘13
DATA 0,0,1,1,1
DATA 0,0,1,0,0
DATA 0,0,1,1,0
DATA 0,0,1,0,0
DATA 1,1,1,0,0
DATA 1,1,1,0,0
DATA 1,1,1,0,0
‘14
DATA 1,1,1,1,1
DATA 1,0,0,0,1
DATA 1,1,1,1,1
DATA 0,1,0,0,1
DATA 1,1,0,0,1
DATA 1,1,0,1,1
DATA 0,0,0,1,1
‘15
DATA 1,0,1,0,1
DATA 0,1,1,1,0
DATA 0,1,0,1,0
DATA 1,1,0,1,1
DATA 0,1,0,1,0
DATA 0,1,1,1,0
DATA 1,0,1,0,1
‘16
DATA 1,1,0,0,0
DATA 1,1,1,0,0
DATA 1,1,1,1,0
DATA 1,1,1,1,1
DATA 1,1,1,1,0
DATA 1,1,1,0,0
DATA 1,1,0,0,0
‘17
DATA 0,0,0,1,1
DATA 0,0,1,1,1
DATA 0,1,1,1,1
DATA 1,1,1,1,1
DATA 0,1,1,1,1
DATA 0,0,1,1,1
DATA 0,0,0,1,1
‘18
DATA 0,0,1,0,0
DATA 0,1,1,1,0
DATA 0,0,1,0,0
DATA 0,0,1,0,0
DATA 0,1,1,1,0
DATA 0,1,1,1,0
DATA 0,0,1,0,0
‘19
DATA 1,1,0,1,1
DATA 1,1,0,1,1
DATA 1,1,0,1,1
DATA 1,1,0,1,1
DATA 1,1,0,1,1
DATA 0,0,0,0,0
DATA 1,1,0,1,1
‘20
DATA 1,1,1,1,1
DATA 1,1,0,1,0
DATA 1,1,0,1,0
DATA 0,1,0,1,0
DATA 0,1,0,1,0
DATA 0,1,0,1,0
DATA 0,1,0,1,0
‘21
DATA 0,0,1,1,0
DATA 0,1,0,0,1
DATA 0,0,1,0,0
DATA 0,0,0,1,0
DATA 0,0,0,0,1
DATA 0,0,0,0,1
DATA 1,1,1,1,0
‘22
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 1,1,1,1,1
DATA 1,1,1,1,1
‘23
DATA 0,0,1,0,0
DATA 0,1,1,1,0
DATA 0,0,1,0,0
DATA 0,0,1,0,0
DATA 0,1,1,1,0
DATA 0,0,1,0,0
DATA 1,1,1,1,1
‘24
DATA 0,0,1,0,0
DATA 0,1,1,1,0
DATA 1,1,1,1,1
DATA 0,0,1,0,0
DATA 0,0,1,0,0
DATA 0,0,1,0,0
DATA 0,0,1,0,0
‘25
DATA 0,0,1,0,0
DATA 0,0,1,0,0
DATA 0,0,1,0,0
DATA 0,0,1,0,0
DATA 1,1,1,1,1
DATA 0,1,1,1,0
DATA 0,0,1,0,0
‘26
DATA 0,0,0,0,0
DATA 0,0,1,0,0
DATA 0,0,1,1,0
DATA 1,1,1,1,1
DATA 0,0,1,1,0
DATA 0,0,1,0,0
DATA 0,0,0,0,0
‘27
DATA 0,0,0,0,0
DATA 0,0,1,0,0
DATA 0,1,1,0,0
DATA 1,1,1,1,1
DATA 0,1,1,0,0
DATA 0,0,1,0,0
DATA 0,0,0,0,0
‘28
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 1,0,0,0,0
DATA 1,1,1,1,1
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
‘29
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 0,1,0,1,0
DATA 1,1,1,1,1
DATA 0,1,0,1,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
‘30
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 0,0,1,0,0
DATA 0,1,1,1,0
DATA 1,1,1,1,1
‘31
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 1,1,1,1,1
DATA 0,1,1,1,0
DATA 0,0,1,0,0
‘32
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
‘33
DATA 1,0,0,0,0
DATA 1,0,0,0,0
DATA 1,0,0,0,0
DATA 1,0,0,0,0
DATA 1,0,0,0,0
DATA 0,0,0,0,0
DATA 1,0,0,0,0
‘34
DATA 0,1,0,1,0
DATA 0,1,0,1,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
‘35
DATA 0,1,0,1,0
DATA 0,1,0,1,0
DATA 1,1,1,1,1
DATA 0,1,0,1,0
DATA 1,1,1,1,1
DATA 0,1,0,1,0
DATA 0,1,0,1,0
‘36
DATA 0,0,1,0,0
DATA 1,1,1,1,1
DATA 1,0,0,0,0
DATA 1,1,1,1,1
DATA 0,0,0,0,1
DATA 1,1,1,1,1
DATA 0,0,1,0,0
‘37
DATA 1,1,0,0,0
DATA 1,1,0,0,1
DATA 0,0,0,1,0
DATA 0,0,1,0,0
DATA 0,1,0,0,0
DATA 1,0,0,1,1
DATA 0,0,0,1,1
‘38
DATA 0,1,1,0,0
DATA 1,0,0,0,0
DATA 1,0,0,0,0
DATA 0,1,0,0,0
DATA 1,0,1,1,0
DATA 1,0,1,1,0
DATA 0,1,0,0,1
‘39
DATA 0,1,0,0,0
DATA 1,0,0,0,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
‘40
DATA 0,1,0,0,0
DATA 1,0,0,0,0
DATA 1,0,0,0,0
DATA 1,0,0,0,0
DATA 1,0,0,0,0
DATA 1,0,0,0,0
DATA 0,1,0,0,0
‘41
DATA 1,0,0,0,0
DATA 0,1,0,0,0
DATA 0,1,0,0,0
DATA 0,1,0,0,0
DATA 0,1,0,0,0
DATA 0,1,0,0,0
DATA 1,0,0,0,0
‘42
DATA 0,0,0,0,0
DATA 1,0,1,0,1
DATA 0,1,1,1,0
DATA 1,1,1,1,1
DATA 0,1,1,1,0
DATA 1,0,1,0,1
DATA 0,0,0,0,0
‘43
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 0,0,1,0,0
DATA 0,1,1,1,0
DATA 0,0,1,0,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
‘44
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 0,1,0,0,0
DATA 1,0,0,0,0
‘45
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 0,1,1,1,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
‘46
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 1,0,0,0,0
‘47
DATA 0,0,0,0,0
DATA 0,0,0,0,1
DATA 0,0,0,1,0
DATA 0,0,1,0,0
DATA 0,1,0,0,0
DATA 1,0,0,0,0
DATA 0,0,0,0,0
‘48
‘Numbers
DATA 0,1,1,1,0
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 0,1,1,1,0
‘49
DATA 0,0,1,0,0
DATA 0,0,1,0,0
DATA 0,0,1,0,0
DATA 0,0,1,0,0
DATA 0,0,1,0,0
DATA 0,0,1,0,0
DATA 0,0,1,0,0
‘50
DATA 0,1,1,1,0
DATA 1,0,0,0,1
DATA 0,0,0,1,0
DATA 0,0,1,0,0
DATA 0,1,0,0,0
DATA 1,0,0,0,0
DATA 1,1,1,1,1
‘51
DATA 0,1,1,1,0
DATA 1,0,0,0,1
DATA 0,0,0,0,1
DATA 0,1,1,1,0
DATA 0,0,0,0,1
DATA 1,0,0,0,1
DATA 0,1,1,1,0
‘52
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 0,1,1,1,1
DATA 0,0,0,0,1
DATA 0,0,0,0,1
DATA 0,0,0,0,1
‘53
DATA 1,1,1,1,1
DATA 1,0,0,0,0
DATA 1,0,0,0,0
DATA 1,1,1,1,0
DATA 0,0,0,0,1
DATA 0,0,0,0,1
DATA 1,1,1,1,0
‘54
DATA 1,0,0,0,0
DATA 1,0,0,0,0
DATA 1,0,0,0,0
DATA 1,1,1,1,0
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 0,1,1,1,0
‘55
DATA 1,1,1,1,0
DATA 0,0,0,0,1
DATA 0,0,0,0,1
DATA 0,0,0,0,1
DATA 0,0,0,0,1
DATA 0,0,0,0,1
DATA 0,0,0,0,1
‘56
DATA 0,1,1,1,0
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 0,1,1,1,0
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 0,1,1,1,0
‘57
DATA 0,1,1,1,0
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 0,1,1,1,1
DATA 0,0,0,0,1
DATA 0,0,0,0,1
DATA 0,0,0,0,1
‘58
DATA 0,0,0,0,0
DATA 0,0,1,0,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 0,0,1,0,0
DATA 0,0,0,0,0
‘59
DATA 0,0,0,0,0
DATA 0,0,1,0,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 0,0,1,0,0
DATA 0,1,0,0,0
‘60
DATA 0,0,0,0,0
DATA 0,0,0,1,0
DATA 0,0,1,0,0
DATA 0,1,0,0,0
DATA 0,0,1,0,0
DATA 0,0,0,1,0
DATA 0,0,0,0,0
‘61
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 1,1,1,1,1
DATA 0,0,0,0,0
DATA 1,1,1,1,1
DATA 0,0,0,0,0
DATA 0,0,0,0,0
‘62
DATA 0,0,0,0,0
DATA 0,1,0,0,0
DATA 0,0,1,0,0
DATA 0,0,0,1,0
DATA 0,0,1,0,0
DATA 0,1,0,0,0
DATA 0,0,0,0,0
‘63
DATA 0,1,1,1,0
DATA 1,0,0,0,1
DATA 0,0,0,0,1
DATA 0,0,0,1,0
DATA 0,0,1,0,0
DATA 0,0,0,0,0
DATA 0,0,1,0,0
‘64
DATA 0,1,1,1,0
DATA 1,0,0,0,1
DATA 1,0,1,0,1
DATA 1,0,1,1,1
DATA 1,0,0,0,0
DATA 1,0,0,0,1
DATA 0,1,1,1,0
‘ 65   Capitol
DATA 1,1,1,1,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,1,1,1,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
‘66
DATA 1,1,1,1,0
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,1,1,1,0
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,1,1,1,0
‘67
DATA 1,1,1,1,1
DATA 1,0,0,0,0
DATA 1,0,0,0,0
DATA 1,0,0,0,0
DATA 1,0,0,0,0
DATA 1,0,0,0,0
DATA 1,1,1,1,1
‘68
DATA 1,1,1,1,0
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,1,1,1,0
‘69
DATA 1,1,1,1,1
DATA 1,0,0,0,0
DATA 1,0,0,0,0
DATA 1,1,1,0,0
DATA 1,0,0,0,0
DATA 1,0,0,0,0
DATA 1,1,1,1,1
‘70
DATA 1,1,1,1,1
DATA 1,0,0,0,0
DATA 1,0,0,0,0
DATA 1,1,1,0,0
DATA 1,0,0,0,0
DATA 1,0,0,0,0
DATA 1,0,0,0,0
‘71
DATA 1,1,1,1,1
DATA 1,0,0,0,0
DATA 1,0,0,0,0
DATA 1,0,1,1,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,1,1,1,1
‘72
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,1,1,1,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
‘73
DATA 1,1,1,1,1
DATA 0,0,1,0,0
DATA 0,0,1,0,0
DATA 0,0,1,0,0
DATA 0,0,1,0,0
DATA 0,0,1,0,0
DATA 1,1,1,1,1
‘74
DATA 0,0,0,0,1
DATA 0,0,0,0,1
DATA 0,0,0,0,1
DATA 0,0,0,0,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,1,1,1,1
‘75
DATA 1,0,0,0,1
DATA 1,0,0,1,0
DATA 1,0,1,0,0
DATA 1,1,0,0,0
DATA 1,0,1,0,0
DATA 1,0,0,1,0
DATA 1,0,0,0,1
‘76
DATA 1,0,0,0,0
DATA 1,0,0,0,0
DATA 1,0,0,0,0
DATA 1,0,0,0,0
DATA 1,0,0,0,0
DATA 1,0,0,0,0
DATA 1,1,1,1,1
‘77
DATA 1,1,1,1,1
DATA 1,0,1,0,1
DATA 1,0,1,0,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
‘78
DATA 1,1,1,1,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
‘79
DATA 1,1,1,1,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,1,1,1,1
‘80
DATA 1,1,1,1,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,1,1,1,1
DATA 1,0,0,0,0
DATA 1,0,0,0,0
DATA 1,0,0,0,0
‘81
DATA 0,1,1,1,0
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 0,0,0,1,1
DATA 0,1,1,1,1
‘82
DATA 1,1,1,1,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,1,1,1,1
DATA 1,1,0,0,0
DATA 1,0,1,0,0
DATA 1,0,0,1,1
‘83
DATA 1,1,1,1,1
DATA 1,0,0,0,0
DATA 1,0,0,0,0
DATA 1,1,1,1,1
DATA 0,0,0,0,1
DATA 0,0,0,0,1
DATA 1,1,1,1,1
‘84
DATA 1,1,1,1,1
DATA 0,0,1,0,0
DATA 0,0,1,0,0
DATA 0,0,1,0,0
DATA 0,0,1,0,0
DATA 0,0,1,0,0
DATA 0,0,1,0,0
‘85
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,1,1,1,1
‘86
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 0,1,0,1,0
DATA 0,1,0,1,0
DATA 0,0,1,0,0
‘87
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,0,1,0,1
DATA 1,0,1,0,1
DATA 1,1,1,1,1
‘88
DATA 1,0,0,0,1
DATA 0,1,0,1,0
DATA 0,1,0,1,0
DATA 0,0,1,0,0
DATA 0,1,0,1,0
DATA 0,1,0,1,0
DATA 1,0,0,0,1
‘89
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 0,1,0,1,0
DATA 0,0,1,0,0
DATA 0,0,1,0,0
DATA 0,0,1,0,0
DATA 0,0,1,0,0
‘90
DATA 1,1,1,1,1
DATA 0,0,0,0,1
DATA 0,0,0,1,0
DATA 0,0,1,0,0
DATA 0,1,0,0,0
DATA 1,0,0,0,0
DATA 1,1,1,1,1
‘91
DATA 0,1,1,1,0
DATA 0,1,0,0,0
DATA 0,1,0,0,0
DATA 0,1,0,0,0
DATA 0,1,0,0,0
DATA 0,1,0,0,0
DATA 0,1,1,1,0
‘92
DATA 0,0,0,0,0
DATA 1,0,0,0,0
DATA 0,1,0,0,0
DATA 0,0,1,0,0
DATA 0,0,0,1,0
DATA 0,0,0,0,1
DATA 0,0,0,0,0
‘93
DATA 0,1,1,1,0
DATA 0,0,0,1,0
DATA 0,0,0,1,0
DATA 0,0,0,1,0
DATA 0,0,0,1,0
DATA 0,0,0,1,0
DATA 0,1,1,1,0
‘94
DATA 0,0,1,0,0
DATA 0,1,0,1,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
‘95
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 1,1,1,1,1
‘96
DATA 0,0,1,0,0
DATA 0,0,0,1,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
‘97
‘Lower case
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 1,1,1,1,1
DATA 1,0,0,0,1
DATA 1,1,1,1,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
‘98
DATA 1,0,0,0,0
DATA 1,0,0,0,0
DATA 1,1,1,1,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,1,1,1,1
‘99
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 1,1,1,1,1
DATA 1,0,0,0,0
DATA 1,0,0,0,0
DATA 1,0,0,0,0
DATA 1,1,1,1,1
‘100
DATA 0,0,0,0,1
DATA 0,0,0,0,1
DATA 1,1,1,1,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,1,1,1,1
‘101
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 1,1,1,1,1
DATA 1,0,0,0,1
DATA 1,1,1,1,1
DATA 1,0,0,0,0
DATA 1,1,1,1,1
‘102
DATA 0,0,1,1,1
DATA 0,1,0,0,0
DATA 1,1,1,1,1
DATA 0,1,0,0,0
DATA 0,1,0,0,0
DATA 0,1,0,0,0
DATA 0,1,0,0,0
‘103
DATA 1,1,1,1,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,1,1,1,1
DATA 0,0,0,0,1
DATA 1,1,1,1,1
‘104
DATA 1,0,0,0,0
DATA 1,0,0,0,0
DATA 1,1,1,1,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
‘105
DATA 1,0,0,0,0
DATA 0,0,0,0,0
DATA 1,0,0,0,0
DATA 1,0,0,0,0
DATA 1,0,0,0,0
DATA 1,0,0,0,0
DATA 1,0,0,0,0
‘106
DATA 0,0,0,1,0
DATA 0,0,0,1,0
DATA 0,0,0,1,0
DATA 0,0,0,1,0
DATA 0,0,0,1,0
DATA 0,0,0,1,0
DATA 1,1,1,1,0
‘107
DATA 1,0,0,0,0
DATA 1,0,0,0,0
DATA 1,0,0,0,1
DATA 1,0,0,1,0
DATA 1,1,1,0,0
DATA 1,0,0,1,0
DATA 1,0,0,0,1
‘108
DATA 1,0,0,0,0
DATA 1,0,0,0,0
DATA 1,0,0,0,0
DATA 1,0,0,0,0
DATA 1,0,0,0,0
DATA 1,0,0,0,0
DATA 1,0,0,0,0
‘109
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 1,1,1,1,1
DATA 1,0,1,0,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
‘110
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 1,1,1,1,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
‘111
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 1,1,1,1,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,1,1,1,1
‘112
DATA 1,1,1,1,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,1,1,1,1
DATA 1,0,0,0,0
DATA 1,0,0,0,0
‘113
DATA 1,1,1,1,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,1,1,1,1
DATA 0,0,0,0,1
DATA 0,0,0,0,1
‘114
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 1,1,1,1,0
DATA 1,0,0,0,0
DATA 1,0,0,0,0
DATA 1,0,0,0,0
DATA 1,0,0,0,0
‘115
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 1,1,1,1,1
DATA 1,0,0,0,0
DATA 1,1,1,1,1
DATA 0,0,0,0,1
DATA 1,1,1,1,1
‘116
DATA 0,0,1,0,0
DATA 0,0,1,0,0
DATA 1,1,1,1,1
DATA 0,0,1,0,0
DATA 0,0,1,0,0
DATA 0,0,1,0,0
DATA 0,0,1,0,0
‘117
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,1,1,1,1
‘118
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 0,1,0,1,0
DATA 0,1,0,1,0
DATA 0,0,1,0,0
‘119
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,0,1,0,1
DATA 1,1,1,1,1
‘120
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 1,0,0,0,1
DATA 0,1,0,1,0
DATA 0,0,1,0,0
DATA 0,1,0,1,0
DATA 1,0,0,0,1
‘121
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,0,0,0,1
DATA 1,1,1,1,1
DATA 0,0,0,0,1
DATA 0,0,0,0,1
DATA 1,1,1,1,1
‘122
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 1,1,1,1,1
DATA 0,0,0,1,0
DATA 0,0,1,0,0
DATA 0,1,0,0,0
DATA 1,1,1,1,1
‘123
DATA 0,0,1,0,0
DATA 0,1,0,0,0
DATA 0,1,0,0,0
DATA 1,0,0,0,0
DATA 0,1,0,0,0
DATA 0,1,0,0,0
DATA 0,0,1,0,0
‘124
DATA 0,0,1,0,0
DATA 0,0,1,0,0
DATA 0,0,1,0,0
DATA 0,0,0,0,0
DATA 0,0,1,0,0
DATA 0,0,1,0,0
DATA 0,0,1,0,0
‘125
DATA 0,0,1,0,0
DATA 0,0,0,1,0
DATA 0,0,0,1,0
DATA 0,0,0,0,1
DATA 0,0,0,1,0
DATA 0,0,0,1,0
DATA 0,0,1,0,0
‘126
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 0,0,1,0,1
DATA 0,1,0,1,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
‘127
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 0,0,0,0,0
DATA 0,0,1,0,0
DATA 0,1,0,1,0
DATA 1,0,0,0,1
DATA 1,1,1,1,1
‘// data for cursor pointer in choseoptions

DATA 1,0,0,0,0,0
DATA 1,1,0,0,0,0
DATA 1,1,1,0,0,0
DATA 1,1,1,1,0,0
DATA 1,1,1,1,1,0
DATA 1,1,1,1,1,1
DATA 1,1,0,0,0,0
DATA 1,0,0,0,0,0

 

‘data to recontruct qbmatrix.scr in the event it is erased

DATA 1. ,04/11/94 ,Timothy Truman,       0,100
DATA 2. ,04/15/94 ,David Pastore,        0,100
DATA 3. ,04/25/94 ,John Matias,          0,100
DATA 4. ,04/15/94 ,Denise Eberts,        0,100
DATA 5. ,04/18/94 ,Mike,                 0, 50
DATA 6. ,04/18/94 ,Bonnie Soffan,        0, 50
DATA 7. ,04/19/94 ,Patty Effilo,         0, 50
DATA 8. ,04/11/94 ,Kelsi,                0, 45
DATA 9. ,04/21/94 ,Tracy,                0, 45
DATA 10.,04/21/94 ,Heather,              0, 45
DATA 11.,04/22/94 ,Pop Tart,             0, 30
DATA 12.,04/23/94 ,Muffin Man,           0, 30
DATA 13.,04/23/94 ,Cindy Bell,           0, 30
DATA 14.,04/23/94 ,John Smith,           0, 20
DATA 15.,04/25/94 ,Jane Doe,             0, 20

SUB BlankPal
OUT &H3C8, 0                ‘inform video card
FOR reg = 0 TO 144          ‘blank first 144 registers
 OUT &H3C9, 0              ’send red component
 OUT &H3C9, 0              ’send red component
 OUT &H3C9, 0              ’send green comonent
NEXT
END SUB

SUB Button (x, y, opt, size, fill)

‘draws the shaded buttons on the options screen and load/save game screen.
Clearbuffer

offsety = 14

SELECT CASE (size)

CASE 0
 offsetx = 16
CASE 1
 offsetx = 66
CASE 2
 offsetx = 150
CASE 3
 offsetx = 66
 offsety = 34
CASE 4
 offsetx = 130
 offsety = 15
END SELECT
SELECT CASE (opt)

CASE 0

 LINE (x, y)-(x + offsetx, y), 24
 LINE (x + 2, y + 1)-(x + offsetx – 2, y + 1), 24

 LINE (x + offsetx, y)-(x + offsetx, y + offsety), 24
 LINE (x + offsetx – 1, y + 1)-(x + offsetx – 1, y + offsety – 2), 24

 LINE (x, y)-(x, y + offsety), 18
 LINE (x + 1, y + 1)-(x + 1, y + offsety – 1), 18

 LINE (x, y + offsety)-(x + offsetx, y + offsety), 18
 LINE (x + 1, y + offsety – 1)-(x + offsetx – 1, y + offsety – 1), 18

CASE 1

 LINE (x, y)-(x + offsetx, y), 18
 LINE (x + 2, y + 1)-(x + offsetx – 2, y + 1), 18

 LINE (x + offsetx, y)-(x + offsetx, y + offsety), 18
 LINE (x + offsetx – 1, y + 1)-(x + offsetx – 1, y + offsety – 2), 18

 LINE (x, y)-(x, y + offsety), 24
 LINE (x + 1, y + 1)-(x + 1, y + offsety – 1), 24

 LINE (x, y + offsety)-(x + offsetx, y + offsety), 24
 LINE (x + 1, y + offsety – 1)-(x + offsetx – 1, y + offsety – 1), 24

END SELECT

IF fill THEN LINE (x + 2, y + 2)-(x + offsetx – 2, y + offsety – 2), 126, BF

 

END SUB

SUB ChangePitPal

‘ Changes pit color atribute each time it is called.
‘ After ten times it recycles back to the first color.
STATIC initialize, colour

IF initialize = 0 THEN
 initialize = 1
 colour = levelnum
 IF colour > 9 THEN colour = 9
END IF

SELECT CASE colour

CASE 0                           ‘ grays (If using Matrix.pal)
 PALETTE 212, Colorvalue&(140)  ‘ highlight color
 PALETTE 204, Colorvalue&(132)  ‘ shade color
 PALETTE 208, Colorvalue&(136)  ‘ block color

CASE 1                           ‘ use the colors of piece 0
 PALETTE 212, Colorvalue&(7)    ‘ hc
 PALETTE 204, Colorvalue&(4)    ‘ sc
 PALETTE 208, Colorvalue&(6)    ‘ bc
    
CASE 2                           ‘ use the colors of piece 1
 PALETTE 212, Colorvalue&(39)   ‘ hc
 PALETTE 204, Colorvalue&(34)   ‘ sc
 PALETTE 208, Colorvalue&(36)   ‘ bc

CASE 3                           ‘ use the colors of piece 2
 PALETTE 212, Colorvalue&(127)  ‘ hc
 PALETTE 204, Colorvalue&(122)  ‘ sc
 PALETTE 208, Colorvalue&(125)  ‘ bc

CASE 4                           ‘ use the colors of piece 3
 PALETTE 212, Colorvalue&(15)   ‘ hc
 PALETTE 204, Colorvalue&(12)   ‘ sc
 PALETTE 208, Colorvalue&(14)   ‘ bc

CASE 5                           ‘ use the colors of piece 4
 PALETTE 212, Colorvalue&(30)   ‘ hc
 PALETTE 204, Colorvalue&(25)   ‘ sc
 PALETTE 208, Colorvalue&(28)   ‘ bc

CASE 6                           ‘ use the colors of piece 5
 PALETTE 212, Colorvalue&(103)  ‘ hc
 PALETTE 204, Colorvalue&(100)  ‘ sc
 PALETTE 208, Colorvalue&(102)  ‘ bc
      
CASE 7                           ‘ use the colors of piece 6
 PALETTE 212, Colorvalue&(48)   ‘ hc
 PALETTE 204, Colorvalue&(43)   ‘ sc
 PALETTE 208, Colorvalue&(45)   ‘ bc

CASE 8                           ‘ pink (If using Matrix.pal)
 PALETTE 212, Colorvalue&(63)   ‘ hc
 PALETTE 204, Colorvalue&(59)   ‘ sc
 PALETTE 208, Colorvalue&(61)   ‘ bc

CASE 9                           ‘ brown(If using Matrix.pal)
 PALETTE 212, Colorvalue&(55)   ‘ hc
 PALETTE 204, Colorvalue&(51)   ‘ sc
 PALETTE 208, Colorvalue&(53)   ‘ bc
 
END SELECT

colour = (colour + 1) MOD 10     ‘ increment the color
END SUB

SUB CheckForCleared

     ’store landing in grid grid array
FOR xmask = 0 TO 3                ‘left to right
 FOR ymask = 0 TO 3             ‘top to bottom
  offset = (playpiece * 4) + pieceorientation    ‘get offset for mask
  IF masks(offset, ymask, xmask) = 1 THEN          ‘Bit there ?
   gridx = (((xpiece + (xmask * blockwidth)) / blockwidth) – 1)
   gridy = (((ypiece + (ymask * blockheight))) / blockheight) – 5
   grid(gridy, gridx) = 1
  END IF
 NEXT
NEXT

Clearbuffer
CALL SoundFX(0)                             ‘make landing noise
Clearbuffer

       ’find complete rows
FOR ygrid = 0 TO 21                         ‘top to bottom
 FOR xgrid = 1 TO 10                       ‘left to right
  IF grid(ygrid, xgrid) = 1 THEN xcount = xcount + 1 ‘increment if occupied
   IF xcount = 10 THEN                     ‘complete row  ?
  numrows = numrows + 1                 ‘increment rowcount
  completerows(numrows) = ygrid         ’store the row value for later
   END IF
  NEXT
  xcount = 0                                 ‘new row
NEXT

DIM word$(4, 10)                             ‘DIM array for text
        ’stuff arrays with text
word$(1, 1) = ” “: word$(2, 1) = ” “: word$(3, 1) = ” “: word$(4, 1) = ” “:
word$(1, 2) = ” “: word$(2, 2) = ” “: word$(3, 2) = ” “: word$(4, 2) = ” “:
word$(1, 3) = “S”: word$(2, 3) = “D”: word$(3, 3) = “T”: word$(4, 3) = “M”
word$(1, 4) = “I”: word$(2, 4) = “O”: word$(3, 4) = “R”: word$(4, 4) = “A”
word$(1, 5) = “N”: word$(2, 5) = “U”: word$(3, 5) = “I”: word$(4, 5) = “T”
word$(1, 6) = “G”: word$(2, 6) = “B”: word$(3, 6) = “P”: word$(4, 6) = “R”
word$(1, 7) = “L”: word$(2, 7) = “L”: word$(3, 7) = “L”: word$(4, 7) = “I”
word$(1, = “E”: word$(2, = “E”: word$(3, = “E”: word$(4, = “X”
word$(1, 9) = ” “: word$(2, 9) = ” “: word$(3, 9) = ” “: word$(4, 9) = ” “:
word$(1, 10) = ” “: word$(2, 10) = ” “: word$(3, 10) = ” “: word$(4, 10) = ” “:

DIM pit(10000)                              ‘DIM array to store pit
DIM image(43)                               ‘DIM array to store blocks

IF numrows THEN                             ‘found cleared rows  ?
 FOR columns = 1 TO 10                     ‘left to right
  FOR rows = 1 TO numrows                 ‘first row to last
   x = (columns + 1) * 11                 ‘calculate x screen position
   y = ((completerows(rows) + 5) * 7)     ‘calculate y screen positon
       ’GET whats there
   GET (x, y)-(x + blockwidth – 1, y + blockheight – 1), image
   PUT (x, y), image                      ‘PUT it back to erase

   SELECT CASE numrows                    ‘print charactor at cleared x
   CASE 1: ele$ = word$(1, letter)        ‘ditto
   CASE 2: ele$ = word$(2, letter)        ‘ditto
   CASE 3: ele$ = word$(3, letter)        ‘ditto
   CASE 4: ele$ = word$(4, letter)        ‘ditto
   END SELECT
   p5×7font x, y, ele$, 212             ‘ditto
  NEXT
  Stay (15)                               ’slow down the action
  letter = letter + 1                     ‘increment for next charactor
 NEXT                                     ‘next row
 SoundFX (1)                              ‘make row clear noise
END IF

 

    ‘now erase the text and clear the row in the grid() array
FOR column = 1 TO 10                       ‘left to right
 x = (column + 1) * 11                    ‘calc x
 FOR row = 1 TO numrows                   ‘first cleared row to last
  posy = (completerows(row) + 5) * 7    ‘calc y
  GET (x, y)-(x + blockwidth – 1, y + blockheight – 1), image ‘GET area
  PUT (x, y), image                     ‘PUT to erase
 NEXT
NEXT

‘graphicaly drop blocks above cleared rows down and sort grid array

FOR row = 1 TO numrows
 FOR ygrid = completerows(numrows) TO 1 STEP -1′count from cleared row up
  FOR xgrid = 1 TO 10                         ‘left to right
   grid(ygrid, xgrid) = grid(ygrid – 1, xgrid)  ‘drop rows in grid
  NEXT                                       ‘next column
 NEXT                                         ‘next row

 xget = (blockwidth) + Xpit                   ‘calc left side of pit
 xend = ((blockwidth + 1) * 10) + Xpit        ‘calc right side of pit
 ytoget = (completerows(row) * blockheight) + Ypit – 1  ‘calc bottom y
 ytodrop = (Ypit + blockheight)               ‘calc y drop
 
 GET (xget, Ypit)-(xend, ytoget), pit         ‘GET pit
 PUT (xget, Ypit), pit                        ‘PUT to erase
 PUT (xget, ytodrop), pit, PSET               ‘PUT to drop
NEXT
    
IF numrows THEN
 SoundFX (0)                                     ‘make landing noise
 linescleared = linescleared + numrows           ‘add lines cleared
 SELECT CASE numrows                             ‘add line clear types
 CASE 1: sngle = sngle + 1                       ‘increment
 CASE 2: duble = duble + 1                       ‘ditto
 CASE 3: triple = triple + 1                     ‘ditto
 CASE 4: triple = triple + 1                     ‘ditto
 END SELECT
END IF

END SUB

FUNCTION CheckMove (mode)

ok = True                                            ‘assume piece can move

offset = (playpiece * 4) + pieceorientation          ‘calc offset

FOR xmask = 0 TO 3                                   ‘left to right
 FOR ymask = 0 TO 3                                 ‘top to bottom
  IF masks(offset, ymask, xmask) = 1 THEN          ‘bit there ?

   xgrid = ((xpiece + (xmask * blockwidth)) / blockwidth) – 1   ‘calc grid
   ygrid = ((ypiece + (ymask * blockheight)) / blockheight) – 5 ‘ditto

   SELECT CASE mode                                   ‘which direction  ?
   CASE right
 IF grid(ygrid, xgrid + 1) = 1 THEN ok = false   ‘look right
   CASE left
 IF grid(ygrid, xgrid – 1) = 1 THEN ok = false   ‘look left
   CASE down
 IF grid(ygrid + 1, xgrid) = 1 THEN ok = false ‘look down
   END SELECT
  END IF
 NEXT
NEXT
 

CheckMove = ok

END FUNCTION

FUNCTION CheckRotate

ok = True                           ‘assume piece can be rotated

offset = (playpiece * 4) + pieceorientation            ‘calc offset

FOR xmask = 0 TO 3                                     ‘left to right
 FOR ymask = 0 TO 3                                   ‘top to bottom
  IF masks(offset, ymask, xmask) = 1 THEN
   xgrid = ((xpiece + (xmask * blockwidth)) / blockwidth) – 1
   ygrid = ((ypiece + (ymask * blockheight)) / blockheight) – 5
   IF grid(ygrid, xgrid) = 1 THEN ok = false
  END IF
 NEXT
NEXT

CheckRotate = ok

END FUNCTION

SUB Clearbuffer             ‘clear key buffer
DEF SEG = &H40              ‘point to low memory
POKE &H1A, PEEK(&H1C)       ‘point head to tail
END SUB

FUNCTION Colorvalue& (attribute)
‘ returns color value of requested attribute
OUT &H3C7, attribute         ‘ Inform video card of request
red = INP(&H3C9)             ‘ get red component
grn = INP(&H3C9)             ‘ get green component
blu = INP(&H3C9)             ‘ get blue component
Colorvalue& = (65536 * blu) + (256 * grn) + red   ‘ Calculate color value

END FUNCTION

SUB DoFillPit
DIM holes(3)                            ‘dim array for hole values

endy = 22 – handicap                    ‘how far up the pit ?

FOR ygrid = 21 TO endy STEP -1          ’start at bottom
 screeny = (ygrid + 5) * 7             ‘calc graphic coordinate

 FOR num = 0 TO 3
  holes(num) = (RND * 10) + 1         ‘generate hole values
 NEXT

 FOR xgrid = 1 TO 10                   ‘left to right

  nohole = True                      ‘reset flag
  FOR num = 0 TO 3                   ‘check for holes
   IF holes(num) = xgrid THEN nohole = false   ‘don’t put a block
  NEXT

  IF nohole = True THEN
   screenx = (xgrid + 1) * 11                  ‘calc graphic coordinate
   PUT (screenx, screeny), blocks(77, ‘PUT block
   grid(ygrid, xgrid) = 1                  ‘ store value into grid array
  END IF

 NEXT xgrid
NEXT ygrid

 

END SUB

SUB DrawBlocks

DEFINT A-Z

REDIM blocks(77, 10)            ‘ need storage area
      
    ’ start Drawing and storing blocks
DO

 row = 0
 Row2 = row + 7 – 1
 col = col + 15
 col2 = col + 11 – 1
 
 colour = colour + 1

 SELECT CASE (colour)
 CASE (1)                         ‘ reds
  bc = 6                         ‘ bc – block color
  sc = 4                         ‘ sc – shade color
  hc = 7                         ‘ hc – highlight color

 CASE (2)
  bc = 36: sc = 34: hc = 39      ‘ purples
 
 CASE (3)
  bc = 125: sc = 122: hc = 127    ‘ blues
   
 CASE (4)
  bc = 14: sc = 12: hc = 15       ‘ greens
    
 CASE (5)
  bc = 28: sc = 25: hc = 30       ‘ yellows
 
 CASE (6)
  bc = 102: sc = 100: hc = 103    ‘ light blues

 CASE (7)
  bc = 45: sc = 43: hc = 48       ‘ dark oranges

 CASE (8)
  bc = 136: sc = 132: hc = 140    ‘ grays

 CASE (9)
  bc = 208: sc = 204: hc = 212    ‘ color changing blocks
 END SELECT
 
 LINE (col, row)-(col2, Row2), bc, BF      ‘ draw block
 LINE (col, Row2)-(col2, Row2), sc         ‘ shade bottom
 LINE (col2, row)-(col2, Row2), hc         ‘ highlight right side
 LINE (col, row)-(col2, row), hc           ‘ higlight top
 LINE (col, row)-(col, Row2), sc           ‘ shade left side
       
 GET (col, row)-(col2, Row2), blocks(77, colour)   ‘ store block

 
 LOOP UNTIL colour = 9
END SUB

SUB DrawPlayPiece (x, y, playpiece, pieceorientation)

‘ Draws playpiece at x,y in position pieceorientation. If piece has stoped
‘ traveling ,piecelanded will be true and playpiece will change color.
FOR xscan = 0 TO 3
 FOR yscan = 0 TO 3
  offset = (playpiece * 4) + pieceorientation
  IF masks(offset, yscan, xscan) = 1 THEN
   xpos = (xscan * blockwidth)
   ypos = (yscan * blockheight)
   IF piecelanded THEN
 PUT (xpos + x, ypos + y), blocks(77, playpiece + 1)
 PUT (xpos + x, ypos + y), blocks(77, 9)
   ELSE
 PUT (xpos + x, ypos + y), blocks(77, playpiece + 1)
   END IF
  END IF
 NEXT
NEXT

END SUB

SUB DrawPlayScreen

 

       ‘ border
PUT (11, 0), blocks(77, 3)                 ‘ top left corner
FOR backx = 22 TO 294 STEP 11              ‘ top line
 PUT (backx, 0), blocks(77, 3)
NEXT
PUT (backx, 0), blocks(77, 3)              ‘ top Right Corner

FOR backy = 7 TO 183 STEP 7
 PUT (backx, backy), blocks(77, 3)        ‘ right side
NEXT
PUT (backx, backy), blocks(77, 3)          ‘ bottom right corner
FOR backx = 286 TO 22 STEP -11             ‘ right bottom
 PUT (backx, backy), blocks(77, 3)
NEXT
PUT (backx, backy), blocks(77, 3)          ‘ bottom left corner
FOR backy = 7 TO 184 STEP 7
 PUT (backx, backy), blocks(77, 3)        ‘ left side
NEXT

LINE (132, 48)-(296, 188), 121, BF
LINE (132, 48)-(132, 188), 122
LINE (200, 100)-(296, 100), 125
LINE (132, 100)-(132, 188), 125

p5×7font 140, 95, “Statistics”, 74
LINE (132, 93)-(200, 105), 125, B
LINE (132, 48)-(296, 48), 125
LINE (132, 93)-(132, 48), 125
LINE (230, 48)-(230, 100), 125
LINE (230, 60)-(296, 60), 125

GetHighScores (1)

p5×7font 136, 50, “Score”, 68
p5×7font 170, 50, “0″, 69
p5×7font 136, 65, “HighScore”, 70
p5×7font 190, 65, oldhigh$, 71
p5×7font 136, 80, “Lines”, 72
p5×7font 166, 80, “0″, 68

p5×7font 234, 62, “Insert”, 76
IF slammode THEN
 p5×7font 274, 62, “On”, 15
ELSE
 p5×7font 274, 62, “Off”, 7
END IF

p5×7font 235, 75, “Sound”, 79
IF soundmode THEN
 p5×7font 275, 75, “On”, 81
ELSE
 p5×7font 275, 75, “Off”, 80
END IF

p5×7font 240, 49, “Messages”, 74
p5×7font 22, 6, “Next”, 65
levelnum$ = LTRIM$(STR$(levelnum))
p5×7font 111, 14, levelnum$, 67
p5×7font 99, 6, “Level”, 66
p5×7font 250, 110, “Singles”, 84
p5×7font 250, 130, “Doubles”, 86
p5×7font 250, 150, “Triples”, 88
p5×7font 250, 170, “Matrixs”, 90
END SUB

SUB EndGame
 
SoundFX 4
LINE (44, 57)-(109, 84), 21, BF               ‘make a plate
LINE (44, 57)-(109, 84), 23, B                ‘ditto
p5×7font 49, 66, “GAME OVER”, 140             ‘let em know what happened
DO: LOOP UNTIL ReturnEvent                    ‘wait for a keypress
GetHighScores (0)                             ‘display highscores
RUN                                           ‘restart Matrix
END

END SUB

SUB EndToQBasic
x1 = 105: x2 = 210: y1 = 50: y2 = 115     ‘define box

GetArea x1, y1, x2, y2, 0                 ’save area

LINE (x1, y1)-(x2, y2), 29, BF            ‘draw box
LINE (x1, y1)-(x2, y2), 26, B             ‘ditto

p5×7font 120, 67, “Exit to Qbasic”, 32       ‘print text
p5×7font 120, 68, “Exit to Qbasic”, 0       ‘print text

p5×7font 127, 79, “   (Y/N)   “, 32          ‘ditto
p5×7font 127, 78, “   (Y/N)   “, 0          ‘ditto

p5×7font 127, 89, ” (R)estart “, 32          ‘ditto
p5×7font 127, 88, ” (R)estart “, 0          ‘ditto

DO                                        ‘input loop

 a$ = INKEY$                              ‘get key press
 SELECT CASE a$                           ‘process it
 CASE “Y”, “y”: END
 CASE “N”, “n”: EXIT DO
 CASE “R”, “r”: RUN
 END SELECT

LOOP

GetArea x1, y1, x2, y2, 1                 ‘restore screen
    
END SUB

SUB GetArea (ax, ay, bx, by, replace)

STATIC x, y, stor()

IF replace = 0 THEN
 size1 = ax – bx
 size2 = ay – by
 totalsize = size1 * size2
 REDIM stor(totalsize)
 GET (ax, ay)-(bx, by), stor
 x = ax
 y = ay
ELSE
 PUT (x, y), stor, PSET
 ERASE stor
END IF

END SUB

SUB GetHighScores (mode)

DIM score(1 TO 16) AS highscores

filespec$ = “QBMATRIX.SCR”

OPEN filespec$ FOR RANDOM AS #1 LEN = 46            ‘open  file
FOR n = 1 TO 15                                     ‘first to last
 GET #1, n, score(n)                               ‘load it in
NEXT n                                              ‘next entry
CLOSE #1                                            ‘close the file

IF VAL(score(1).num) = 0 THEN                       ‘did file exist
  OPEN filespec$ FOR RANDOM AS #1 LEN = 46         ‘create file
  FOR n = 1 TO 15                                  ‘first to last
   READ a$, B$, c$, d$, e$                        ‘read in data
   score(n).rank = a$                            ’store it
   score(n).dat = B$                             ‘ditto
   score(n).nam = c$                             ‘ditto
   score(n).lines = d$                             ‘ditto
   score(n).num = e$                             ‘ditto
   PUT #1, n, score(n)                            ‘write it
  NEXT n                                          ‘next entry
 CLOSE #1                                          ‘close file
END IF
SELECT CASE mode

CASE 0

 Temp$ = LTRIM$(STR$(gamescore&))                    ‘convert to clean string
 addpad = 6 – LEN(Temp$)                             ‘calc padding
 gamescor$ = Temp$ + STRING$(addpad, 32)             ‘add it

 FOR rank = 1 TO 15                                  ‘find players rank

  IF gamescore& > VAL(score(rank).num) THEN         ‘make the list ?
 
   FOR bump = 14 TO rank STEP -1                   ’sort it
 score(bump + 1).dat = score(bump).dat        ‘bump ahead
 score(bump + 1).nam = score(bump).nam        ‘ditto
 score(bump + 1).lines = score(bump).lines        ‘ditto
 score(bump + 1).num = score(bump).num        ‘ditto
   NEXT                                            ‘bump next
   month$ = MID$(DATE$, 1, 2)                      ‘get month
   day$ = MID$(DATE$, 4, 2)                        ‘get day
   year$ = MID$(DATE$, 9, 2)                       ‘get year
   format$ = month$ + “/” + day$ + “/” + year$     ‘format the date
   score(rank).dat = format$                       ’store it
   score(rank).lines = LTRIM$(STR$(linescleared))  ’store it
   score(rank).num = gamescor$                     ’store gamescore
   score(rank).nam = “”
   ShowHighScores score(), 1                       ‘print the list
   y = (rank * 10) + 26                            ‘calc y
   score(rank).nam = InputText$(93, y, 24)         ‘enter name
   OPEN filespec$ FOR RANDOM AS #1 LEN = 46        ‘open file
   FOR n = 1 TO 15                                 ‘first to last
    PUT #1, n, score(n)                           ‘write entry
   NEXT                                            ‘next entry
   CLOSE #1                                        ‘close file
   EXIT FOR                                        ‘all done
  END IF
 NEXT

CASE 1                                               ‘return highscore
 oldhigh$ = score(1).num
CASE 2
 ShowHighScores score(), 0                          ‘print the list
END SELECT

 

END SUB

SUB GetOptions

xmin = 20                              ’set cursor limits
ymin = 20
xmax = 300
ymax = 190

CLS

LINE (11, 7)-(307, 188), 124, BF      ‘make a background plate

TileScreen (0)

     
       ‘ini buttons
Button 35, 24, 0, 1, 1               ‘quick drop
Button 35, 44, 0, 1, 1               ‘ditto
Button 219, 24, 0, 1, 1              ’sound mode
Button 219, 44, 0, 1, 1              ‘ditto
Button 126, 24, 0, 3, 1              ‘Play matrix
      
       ’ print headers
p5×7font 140, 10, “Options”, 95
p5×7font 149, 32, “Play”, 0
p5×7font 135, 43, “QB Matrix”, 0
p5×7font 150, 31, “Play”, 84
p5×7font 136, 42, “QB Matrix”, 84
p5×7font 145, 62, “Level”, 96
p5×7font 136, 92, “Handicap”, 96
p5×7font 48, 28, “Slam on”, 96
p5×7font 48, 48, “Slam off”, 96
p5×7font 216, 28, “  Sound On”, 96
p5×7font 214, 48, “  Sound Off”, 96

p5×7font 14, 148, ” Use Arrow keys or numeric key pad to move cursor.”, 96
p5×7font 32, 158, ” Press space bar or 5 key to press buttons.”, 96
x = 45                                         ‘level number buttons
FOR n = 0 TO 9
 Button x – 5, 74, 0, 0, 1
 p5×7font x, 77, CHR$(n + 48), 96
 x = x + 25
NEXT n

x = 45                                         ‘number handicap buttons
FOR n = 0 TO 9
 Button x – 5, 104, 0, 0, 1
 p5×7font x, 107, CHR$(n + 48), 96
 x = x + 25
NEXT n

         ’set previous options
xbut = (levelnum * 25) + 40                    ‘calc button
Button xbut, 74, 1, 0, 0                       ‘push it in
xbut = (handicap * 25) + 40                    ‘calc button
Button xbut, 104, 1, 0, 0                      ‘push it in
IF slammode THEN                      ‘Set slammode
 Button 35, 24, 1, 1, 0
ELSE
 Button 35, 44, 1, 1, 0
END IF

IF soundmode THEN                       ’set sound
 Button 219, 24, 1, 1, 0               ‘push button
ELSE                                    ’sound off
 Button 219, 44, 1, 1, 0               ‘push button
END IF

 

PALETTE 255, (65536 * 0) + (256 * 0) + 60      ‘define cusor
curwidth = 6                                   ‘ditto
curheight = 8                                  ‘ditto
DIM cursor(1 TO curwidth, 1 TO curheight)      ‘dim array
FOR y = 1 TO curheight                         ‘top to bottom
 FOR x = 1 TO curwidth                        ‘left to right
  READ dat                                    ‘read data
  cursor(x, y) = dat                         ’store to array
  NEXT
NEXT
xcur = 160: ycur = 40                                      ’set position

bytes = ((xcur + curwidth) * (ycur + curheight)) / 2 + 2   ‘calc bytes
DIM background(bytes)                                  ‘to restore background

 

DO                                                        ‘ input loop
  GET (xcur, ycur)-(xcur + curwidth, ycur + curheight), background

  FOR y = 1 TO curheight
  FOR x = 1 TO curwidth                             ‘Draw cursor
   IF cursor(x, y) = 1 THEN PSET (xcur + x, ycur + y), 255
  NEXT
  NEXT
 
  DO
   event = ReturnEvent
   red = red + 1: IF red > 63 THEN red = 10          ’strobe cursor
   PALETTE 255, (65536 * blu) + (256 * grn) + red    ‘ditto
  LOOP UNTIL event
 
  PUT (xcur, ycur), background, PSET

 
  SELECT CASE event
        ‘process events
  CASE Esc
   EndToQBasic
  CASE up, Eight
   IF ycur > ymin THEN ycur = ycur – 6
  CASE down, two
   IF ycur < ymax THEN ycur = ycur + 6
  CASE left, Four
   IF xcur > xmin THEN xcur = xcur – 6
  CASE right, Six
   IF xcur < xmax THEN xcur = xcur + 6
  CASE enter, space, five
  
   IF xcur >= 126 AND xcur <= 191 THEN
    SELECT CASE ycur
    CASE 25 TO 57                                    ‘Play Matrix
  OPEN “QBMATRIX.OPT” FOR OUTPUT AS #1          ‘open file
  WRITE #1, levelnum, handicap, slammode, soundmode  ’save game options
  CLOSE #1                                   ‘close the file
  EXIT DO                                ‘leave options screen
    END SELECT
   END IF
  
  IF ycur >= 74 AND ycur <= 88 THEN          ‘level select
   IF xcur >= 40 AND xcur <= 280 THEN
    FOR x = 40 TO 265 STEP 25              ‘reset all buttons
  Button x, 74, 0, 0, 0
    NEXT
    xbut = (((xcur – 40) \ 25) * 25) + 40    ‘calc button
    Button xbut, 74, 1, 0, 0                ‘push it in
    levelnum = ((xcur – 40) \ 25)            ‘calc levelnum
    droptime! = (.5 / (levelnum + 1))  ‘calc new droptime
   END IF
  END IF

 
  IF ycur >= 104 AND ycur <= 118 THEN         ‘handicap select
   IF xcur >= 40 AND xcur <= 280 THEN
    FOR x = 40 TO 265 STEP 25               ‘reset all buttons
    Button x, 104, 0, 0, 0                 ‘pop ‘em  out
    NEXT
    xbut = (((xcur – 40) \ 25) * 25) + 40   ‘calc button
    Button xbut, 104, 1, 0, 0               ‘push it in
    handicap = ((xcur – 40) \ 25)           ‘calc handicap
   END IF
  END IF
 
  IF xcur >= 35 AND xcur <= 102 THEN
   SELECT CASE ycur
   CASE 25 TO 38                        ’slammode on
    slammode = -1                      ’set slammode
    Button 35, 24, 1, 1, 0             ‘push button
    Button 35, 44, 0, 1, 0             ‘pop button
   CASE 44 TO 57                        ’slammode off
    slammode = 0                       ’set slammode
    Button 35, 44, 1, 1, 0             ‘push button
    Button 35, 24, 0, 1, 0             ‘pop button
   END SELECT
  END IF
  IF xcur >= 220 AND xcur <= 284 THEN
   SELECT CASE ycur
   CASE 25 TO 38                          ’sound on
    soundmode = -1                       ’set sound
    Button 219, 24, 1, 1, 0              ‘push button
    Button 219, 44, 0, 1, 0              ‘pop button
   CASE 44 TO 57                          ’sound off
    soundmode = 0                        ’set sound
    Button 219, 24, 0, 1, 0              ‘push button
    Button 219, 44, 1, 1, 0              ‘pop button
   END SELECT
  END IF

 

  SoundFX (0)
  Stay (30)

 END SELECT
LOOP

CLS
END SUB

FUNCTION GetPiece
‘Chooses and displayed next playpiece in upper left hand corner.

STATIC initialize, nextplaypiece
IF NOT initialize THEN
 playpiece = INT(RND * 7)
 nextplaypiece = INT(RND * 7)
 DrawPlayPiece 22, 14, nextplaypiece, 0
 initialize = NOT intialize
ELSE
 DrawPlayPiece 22, 14, nextplaypiece, 0      ‘ erase last piece
 playpiece = nextplaypiece
 nextplaypiece = INT(RND * 7)
 DrawPlayPiece 22, 14, nextplaypiece, 0      ‘ draw next piece
END IF

UpdatePieceMeter (0)

GetPiece = playpiece

END FUNCTION

FUNCTION InputText$ (xcur, ycur, length)
PALETTE 255, (65536 * 0) + (256 * 0) + 60  ‘define cursor color
DIM Edit$(length)                            ‘dim array to edit
ele = 1                                      ‘first element
DIM background(35, length + 2)
GET (xcur, ycur)-(xcur + 6, ycur + 8), background(35, 1)
p5×7font xcur, ycur, “_”, 255              ‘init curser
Clearbuffer

DO

  DO                                                  ‘event loop
   event = ReturnEvent                               ‘anything happen ?
   IF dir = 0 THEN                                   ’strobe cursor
    red = red + 1: IF red > 62 THEN dir = 1           ‘ditto
   ELSE                                              ‘ditto
    red = red – 1: IF red < 10 THEN dir = 0           ‘ditto
   END IF                                            ‘ditto
   PALETTE 255, (65536 * blu) + (256 * grn) + red    ‘ditto
  LOOP UNTIL event                                    ‘back for event

  SELECT CASE event
  CASE Esc: EXIT DO                          ‘do Esc
  CASE enter: EXIT DO                        ‘do enter
  CASE 1 TO 7, 9 TO 126                              ‘do regular keys
   event$ = CHR$(event)                     ‘convert for printing
   IF ele < length THEN                     ’stay in bounds
    PUT (xcur, ycur), background(35, ele), PSET
    p5×7font xcur, ycur, CHR$(event), 144 ‘print font
    Edit$(ele) = event$                     ‘for backspace
    SELECT CASE event$                      ‘adjust kern
    CASE “i”: xcur = xcur + 2               ‘ditto
    CASE “j”: xcur = xcur + 5               ‘ditto
    CASE “l”: xcur = xcur + 2               ‘ditto
    CASE “r”: xcur = xcur + 5               ‘ditto
    CASE “.”: xcur = xcur + 3               ‘ditto
    CASE “(“: xcur = xcur + 3               ‘ditto
    CASE “)”: xcur = xcur + 3               ‘ditto
    CASE “‘”: xcur = xcur + 2               ‘ditto
    CASE “!”: xcur = xcur + 2               ‘ditto
    CASE ELSE: xcur = xcur + 6              ‘ditto
    END SELECT
    ele = ele + 1                           ‘adjust
    GET (xcur, ycur)-(xcur + 6, ycur + 8), background(35, ele)
    p5×7font xcur, ycur, “_”, 255         ‘print cursor
   END IF

  CASE backspace, left                       ‘do backspace
   IF ele > 1 THEN
    PUT (xcur, ycur), background(35, ele), PSET
    ele = ele – 1   ‘adjust
    SELECT CASE (Edit$(ele))               ‘adjust kern
    CASE “i”: xcur = xcur – 2              ‘ditto
    CASE “j”: xcur = xcur – 5              ‘ditto
    CASE “l”: xcur = xcur – 2              ‘ditto
    CASE “r”: xcur = xcur – 5              ‘ditto
    CASE “.”: xcur = xcur – 3              ‘ditto
    CASE “(“: xcur = xcur – 3              ‘ditto
    CASE “)”: xcur = xcur – 3              ‘ditto
    CASE “‘”: xcur = xcur – 2              ‘ditto
    CASE “!”: xcur = xcur – 2              ‘ditto
    CASE ELSE: xcur = xcur – 6             ‘ditto
    END SELECT
    PUT (xcur, ycur), background(35, ele), PSET
    p5×7font xcur, ycur, “_”, 255        ‘print cursor
    Edit$(ele) = CHR$(space)               ‘clear element
   END IF
 END SELECT
LOOP

FOR n = 1 TO length – 1                         ‘put elements into a string
 IF Edit$(n) = “” THEN Edit$(n) = CHR$(space)   ‘replace nulls
 Temp$ = Temp$ + Edit$(n)                       ‘create string
NEXT n

InputText$ = Temp$
END FUNCTION

SUB P3×5Num (x, y, num, colour)

Temp$ = LTRIM$(STR$(num))                   ‘convert number to string
length = LEN(Temp$)                         ‘get it’s length

FOR ele = 1 TO length                       ‘print charactors in string
 offset = ASC(MID$(Temp$, ele, 1)) – 48  ‘extract charactor/calc array offset
 FOR ypos = 1 TO 5                                ‘top to bottom
  FOR xpos = 1 TO 3                              ‘left to right
   IF smallnum(offset, ypos, xpos) = 1 THEN     ’set bits only
    PSET (x + xpos + xkern, y + ypos), colour  ‘PSET using colour
   END IF
  NEXT xpos
 NEXT ypos
 xkern = xkern + 4                         ‘adjust kern
 Clearbuffer                                ‘clear the buffer
NEXT ele

END SUB

SUB p5×7font (x, y, text$, colour)

length = LEN(text$)                    ‘get characters to print
IF length = 0 THEN EXIT SUB            ‘check length

FOR char = 0 TO length – 1             ‘print loop

  piece$ = MID$(text$, char + 1, 1)   ‘look at each piece of string
  aski = ASC(piece$)                  ‘assign it’s ASCII value
 
  SELECT CASE (piece$)                 ‘adjust lower case
  CASE “g”: kerny = kerny + 2         ‘ditto
  CASE “j”: kerny = kerny + 2         ‘ditto
  CASE “p”: kerny = kerny + 2         ‘ditto
  CASE “q”: kerny = kerny + 2         ‘ditto
  CASE “y”: kerny = kerny + 2         ‘ditto
  END SELECT

  FOR ybit = 0 TO 6                               ‘top to Bottom
   FOR xbit = 0 TO 4                              ‘left to right
    IF font(aski, xbit, ybit) = 1 THEN           ’set true bits only
  PSET (x + xbit + kernx, y + ybit + kerny), colour   ‘PSET data
    END IF
   NEXT
  NEXT

  SELECT CASE (piece$)                ‘kern adjusment
  CASE “i”: kernx = kernx + 2        ‘ditto
  CASE “j”: kernx = kernx + 5        ‘ditto
  CASE “l”: kernx = kernx + 2        ‘ditto
  CASE “r”: kernx = kernx + 5        ‘ditto
  CASE “.”: kernx = kernx + 3        ‘ditto
  CASE “(“: kernx = kernx + 3        ‘ditto
  CASE “)”: kernx = kernx + 3        ‘ditto
  CASE “‘”: kernx = kernx + 2        ‘ditto
  CASE “!”: kernx = kernx + 2        ‘ditto
  CASE ELSE: kernx = kernx + 6       ‘ditto
  END SELECT

  kerny = 0                           ‘reset

NEXT
END SUB

SUB PauseGame

SoundFX 2
GetArea 242, 85, 292, 97, 0
p5×7font 242, 85, “Paused”, 47
DO: LOOP UNTIL ReturnEvent
CALL GetArea(1, 1, 0, 0, 1)
Newcycle = false
SoundFX 3

END SUB

SUB RestorePal
 
DIM pal(256) AS hues                ‘DIM array for palette
DEF SEG = VARSEG(pal(0))            ‘point to it
BLOAD “QBMATRIX.PAL”, 0             ‘load palette

OUT &H3C8, 0                        ‘inform video card
FOR c = 0 TO 255                    ‘load all registers
 OUT &H3C9, pal(c).red             ’send red component
 OUT &H3C9, pal(c).grn             ’send green component
 OUT &H3C9, pal(c).blu             ’send blue component
NEXT

END SUB

FUNCTION ReturnEvent

kee$ = INKEY$                               ‘get key from buffer
 
IF kee$ <> “” THEN                          ‘key pressed ?
 IF LEN(kee$) = 1 THEN                      ‘whats the length ?
  keycode = ASC(kee$)                      ‘it’s a regular key
 ELSE
  keycode = -ASC(RIGHT$(kee$, 1))          ‘it’s an extented key
 END IF
END IF
ReturnEvent = keycode                       ‘return the event
END FUNCTION

SUB ShowHighScores (score() AS highscores, mode)
CLS

tile = (RND * 14) + 1                           ‘get a random tile
TileScreen (tile)                               ’tile the screen

p5×7font 111, 17, “Matrix Hall of Fame”, 0
p5×7font 110, 16, “Matrix Hall of Fame”, 144

p5×7font 20, 25, “Rank                             Lines  Score”, 0
p5×7font 20, 25, “Rank                             Lines  Score”, 30

placey = 35
shadow = 1

FOR a = 1 TO 15
  p5×7font 22 + shadow, placey + shadow, score(a).rank, 0
  p5×7font 38 + shadow, placey + shadow, score(a).dat, 0
  p5×7font 93 + shadow, placey + shadow, score(a).nam, 0
  p5×7font 240 + shadow, placey + shadow, score(a).lines, 0
  p5×7font 268 + shadow, placey + shadow, score(a).num, 0
  p5×7font 22, placey, score(a).rank, 144
  p5×7font 38, placey, score(a).dat, 144
  p5×7font 93, placey, score(a).nam, 144
  p5×7font 240, placey, score(a).lines, 144
  p5×7font 268, placey, score(a).num, 144
  placey = placey + 10                       ‘ drop y to a new line
NEXT a

IF mode THEN EXIT SUB

DO

FOR x = 19 TO 419 STEP 5          ‘ highlights highscore entry
 FOR y = 35 TO 42
  FOR offsetx = 0 TO 10
   IF POINT(x + offsetx, y) = 144 THEN PSET (x + offsetx, y), 8
   IF ReturnEvent THEN EXIT DO
  NEXT
 NEXT
 Stay (40)
 FOR y = 35 TO 42
  FOR offsetx = 0 TO 10
   IF POINT(x + offsetx, y) = 8 THEN PSET (x + offsetx, y), 144
   IF ReturnEvent THEN EXIT DO
  NEXT
 NEXT
NEXT

LOOP UNTIL ReturnEvent
END SUB

DEFSNG A-Z
SUB SoundFX (fx%)

IF soundmode% = 0 THEN EXIT SUB
SELECT CASE fx%

CASE 0                            ‘landing hit
 frequency = 147
 FOR scale = 6 TO 1 STEP -1
  duration = scale / 100
  frequency = frequency + 47
  SOUND frequency, duration
 NEXT

CASE 1                             ‘Row clear
 FOR scale = 6 TO 1 STEP -1
  duration = scale / 10
  frequency = frequency + 100
  SOUND frequency, duration
 NEXT
 Stay (27)
 SOUND 700, .1
 SOUND 800, .2
 SOUND 900, .3

CASE 2                ‘ event leave noise
 SOUND 1000, .1
 Stay (210)
 SOUND 2000, .1

CASE 3                ‘event enter noise
 SOUND 2000, .1
 Stay (210)
 SOUND 1000, .1
CASE 4               ‘game end
 decay = 10
 duration = .1
 FOR freq = 500 TO 100 STEP -decay
  SOUND freq, duration
  Stay (20)
  Clearbuffer
 NEXT
 decay = 10
 duration! = .1
 FOR frequency = 500 TO 100 STEP -decay
  SOUND frequency, duration
  Stay (50)
  Clearbuffer
 NEXT

END SELECT

END SUB

SUB Stay (Millisecs)

STATIC syspeed&, Time2
IF syspeed& THEN                ‘ First time here -get relative system speed
 IF Millisecs THEN             ‘ Start Delay loop
    
  Factor& = (syspeed& * Millisecs) \ 55          ‘num of loops needed
    
  DO                                             ‘ delay loop
   Factor& = Factor& – 1                        ‘ Sub the num of loops
   LOOP UNTIL Time2 = PEEK(&H6C) OR Factor& = 0   ‘ make loop same as below

 END IF
ELSE                               ‘ Relative system speed processed here
 DEF SEG = &H40
 Time1 = PEEK(&H6C)

 DO
  Time2 = PEEK(&H6C)             ‘ get another
 LOOP UNTIL Time1 <> Time2        ‘ loop until new clock tick

 DO                               ‘ start here at new clock tick
  syspeed& = syspeed& – 1        ‘ Count the number of times looped
 LOOP UNTIL Time2 <> PEEK(&H6C) OR syspeed& = 0  ‘make same as loop above
 Time2 = 1255
 syspeed& = ABS(syspeed&)        ‘cant use this neg -reverse it
 
END IF

 

END SUB

DEFINT A-Z
SUB TileScreen (tile)
DIM buffer(141, 20)
DEF SEG = VARSEG(buffer(0, 0))
BLOAD “QBMATRIX.TL1″, 0
FOR y = 0 TO 190 STEP 14
 FOR x = 0 TO 319 STEP 20
  PUT (x, y), buffer(141, tile), PSET
 NEXT
NEXT
END SUB

FUNCTION TimeToDrop

STATIC samp!

ok = false            ‘assume no drop

IF samp! = 0 THEN
 samp! = TIMER
ELSE
 IF ABS(TIMER – samp!) >= droptime! THEN
  ok = True
  samp! = 0
 END IF
END IF
TimeToDrop = ok
END FUNCTION

SUB TitleScreen

col = 18                                           ‘draw background
FOR x = 0 TO 320
 col = col + 1: IF col > 24 THEN col = 18
 x2 = 160
 y = 0
 y2 = 100
 LINE (x, y)-(x2, y2), col
NEXT

FOR x = 0 TO 320
 col = col + 1: IF col > 24 THEN col = 18
 x2 = 160
 y = 200
 y2 = 100
 LINE (x, y)-(x2, y2), col
NEXT

FOR y = 0 TO 200
 col = col + 1: IF col > 24 THEN col = 18
 x2 = 160
 x = 0
 y2 = 100
 LINE (x, y)-(x2, y2), col
NEXT

FOR y = 0 TO 200
 col = col + 1: IF col > 24 THEN col = 18
 x2 = 160
 x = 320
 y2 = 100
 LINE (x, y)-(x2, y2), col
NEXT
Clearbuffer                                  ‘clearkeybuffer
  
p5×7font 133, 50, “QB Matrix”, 138              ’shadow title
p5×7font 133, 51, “QB Matrix”, 54              ‘print title
      
p5×7font 57, 105, “Copyright “, 138               ’shadow Copyright
CIRCLE (118, 110), 5, 138                      ‘ditto
CIRCLE (118, 110), 2, 138, 1, 5                ‘ditto
p5×7font 129, 106, “1996″, 138                    ‘ditto
p5×7font 162, 106, “Nocturnal Creations”, 138     ‘ditto
       
p5×7font 58, 105, “Copyright “, 0             ‘print Copyright
CIRCLE (119, 110), 5, 0                    ‘ditto
CIRCLE (119, 110), 2, 0, 1, 5              ‘ditto
p5×7font 130, 106, “1996″, 0                  ‘ditto
p5×7font 161, 106, “Nocturnal Creations”, 0   ‘ditto
     
p5×7font 96, 161, “Press any key to start.”, 138   ‘ditto
p5×7font 96, 160, “Press any key to start.”, 26   ‘ditto
       
col! = 65536
var1 = 15
var2 = 30
var3 = 45
var4 = 62

DO                                         ‘ animate background
 
 PALETTE 18, var1 * col!
 IF CountForwards1 = 0 THEN
  var1 = var1 + 1
  IF var1 >= 62 THEN CountForwards1 = 1
 ELSE
  var1 = var1 – 1
  IF var1 <= 20 THEN CountForwards1 = 0
 END IF

 PALETTE 24, var2 * col!
 IF CountForwards2 = 0 THEN
  var2 = var2 + 1
  IF var2 >= 62 THEN CountForwards2 = 1
 ELSE
  var2 = var2 – 1
  IF var2 <= 20 THEN CountForwards2 = 0
 END IF

 PALETTE 21, var3 * col!
 IF CountForwards3 = 0 THEN
  var3 = var3 + 1
  IF var3 >= 62 THEN CountForwards3 = 1
 ELSE
  var3 = var3 – 1
  IF var3 <= 20 THEN CountForwards3 = 0
 END IF

 PALETTE 19, var4 * col!
 IF CountForwards4 = 0 THEN
  var4 = var4 + 1
  IF var4 >= 62 THEN CountForwards4 = 1
 ELSE
  var4 = var4 – 1
  IF var4 <= 20 THEN CountForwards4 = 0
 END IF

 PALETTE 22, var2 * col!
 PALETTE 23, var3 * col!

 event = ReturnEvent                            ‘check for events

 SELECT CASE event                              ‘process ‘em
 CASE false                                     ‘absorb Nulls
 CASE Esc: EndToQBasic                          ‘end game
 CASE ELSE: RestorePal: EXIT DO                 ‘play game

 END SELECT

LOOP

     

END SUB

SUB UpdatePieceMeter (mode)

STATIC bg1(), xm(), ym(), Total(), bg2(), xhigh

xstart = 145   ’set start values
ystart = 110   ‘ditto
xlimit = 200   ‘limit travel
IF mode = -1 THEN
 DIM bg1(160, 7)        ‘To restore background behind pieces
 DIM bg2(105, 8)        ‘To restore background behind small numbers
 DIM xm(6)              ‘x placement
 DIM ym(6)              ‘y placement
 DIM Total(6)           ‘Total of each piece played
 
 FOR piece = 0 TO 6         ‘initialize all pieces
  xm(piece) = xstart        ’set coordinates
  ym(piece) = ystart        ‘ditto
  ystart = ystart + 10      ‘adjust y

‘ GET background info
GET (xm(piece), ym(piece))-(xm(piece) + 20, ym(piece) + 8), bg1(160, piece)
GET (xm(piece) + 24, ym(piece) + 2)-(xm(piece) + 36, ym(piece) + 8), bg2(105, piece)
GET (xm(piece) + 24, 180)-(xm(piece) + 41, 180 + 8), bg2(105, 7)
  
   
  FOR y = 1 TO 8                                ‘from top to bottom
   FOR x = 1 TO 20                              ‘left to right
    dat = meterpieces(piece, x, y)              ‘get data
    IF dat <> 0 THEN PSET (xm(piece) + x, ym(piece) + y), dat   ‘PSET data
   NEXT x                                       ‘next x
  NEXT y                                        ‘next y

  P3×5Num xm(piece) + 24, ym(piece) + 1, 0, 92  ‘print numbers

 NEXT piece                                     ‘next piece
     
ELSE                                            ‘move meter bitmaps
      ’restore background
 PUT (xm(playpiece), ym(playpiece)), bg1(160, 0), PSET
 PUT ((xm(playpiece) + 24), ym(playpiece) + 2), bg2(105, 0), PSET
 PUT ((xhigh + 24), 180), bg2(105, 7), PSET

 Total(playpiece) = Total(playpiece) + 1       ‘increment piece total

 xm(playpiece) = xm(playpiece) + 1             ‘increment piece x value
 IF xm(playpiece) > xlimit THEN xm(playpiece) = xstart   ‘keep in bounds
         ‘print value
 P3×5Num xm(playpiece) + 24, ym(playpiece) + 1, Total(playpiece), 92

 FOR y = 1 TO 8                              ‘top to bottom
  FOR x = 1 TO 20                            ‘left to right
   dat = meterpieces(playpiece, x, y)       ‘get data
   IF dat <> 0 THEN PSET (xm(playpiece) + x, ym(playpiece) + y), dat
  NEXT x                                     ‘next x
 NEXT y                                      ‘next y

END IF
       

  ‘Tally the number of pieces played and display the result.
 
FOR piece = 0 TO 6                            ‘count each piece
 piecetotal = piecetotal + Total(piece)      ‘add ‘em up
NEXT                                          ‘next piece

 ’ Find the piece with the highest value and use its x value

FOR piece = 0 TO 6                            ‘look at each piece
 xdata = xm(playpiece)                       ‘get it’s x value
 IF xhigh < xdata THEN xhigh = xdata    ‘adjust xhigh
NEXT
 
P3×5Num xhigh + 24, 180, piecetotal, 93       ‘print total pieces played
END SUB

SUB Updatescore

Clearbuffer                                   ‘clear buffer

ygrid = -(((ypiece / blockheight) – 5) – 22)  ‘calc landing
mult = levelnum + 1                           ‘calc multiplier
points = (mult * mult) + (ygrid * mult)       ‘calc points
gamescore& = gamescore& + points              ‘add ‘em
LINE (170, 50)-(207, 58), 121, BF             ‘erase old score
gamescore$ = LTRIM$(STR$(gamescore&))         ‘convert to string
p5×7font 170, 50, gamescore$, 69              ‘report
LINE (166, 80)-(202, 88), 121, BF              ‘erase old
linescleared$ = LTRIM$(STR$(linescleared))     ‘convert to a string
p5×7font 166, 80, linescleared$, 73            ‘report

LINE (267, 121)-(292, 128), 121, BF            ‘ditto
single$ = LTRIM$(STR$(sngle))
p5×7font 267, 121, single$, 86

LINE (267, 141)-(292, 148), 121, BF            ‘ditto
double$ = LTRIM$(STR$(duble))
p5×7font 267, 141, double$, 88

LINE (267, 161)-(292, 168), 121, BF            ‘ditto
triple$ = LTRIM$(STR$(triple))
p5×7font 267, 161, triple$, 90

LINE (267, 179)-(292, 188), 121, BF            ‘ditto
matrix$ = LTRIM$(STR$(matrix))
p5×7font 267, 179, matrix$, 92

       

IF linescleared >= nextlevelmark THEN          ‘change level ?
 levelnum = levelnum + 1                     ‘increment level
 nextlevelmark = nextlevelmark + levelmark   ‘adjust next level marker
 IF levelnum < 10 THEN
  droptime! = droptime! – .05                ‘calc new droptime
 END IF
 ChangePitPal                                ‘change pit color
 levelnum$ = LTRIM$(STR$(levelnum))          ‘convert to a string
 LINE (111, 14)-(122, 21), 0, BF             ‘erase old
 p5×7font 111, 14, levelnum$, 67             ‘report new
END IF

Clearbuffer                                    ‘clear the keybuffer

END SUB