'===========================================================================
' Subject: SHOW TABLE OF 1997 NBA PLAYOFFS   Date: 11-16-97 (20:36)       
' Author:  Andrey Berezansky                 Code: QB, QBasic, PDS        
' Origin:  nikolai@nsi.co.il               Packet: MISC.ABC
'===========================================================================
' this program is demo that shows result table of NBA PLAYOFS 1996/7
'                   by BEREZANSKY ANDREY (ANDREI)
'                    email  (nikol@cs.bgu.ac.il)


DECLARE SUB final ()
DECLARE SUB east ()
DECLARE SUB west ()
SCREEN 0
CLS
LOCATE 8, 32: PRINT " NBA PLAYOFFS "
LOCATE 9, 32: PRINT " ------------ "
LOCATE 10, 32: PRINT " 1 - EAST     "
LOCATE 11, 32: PRINT " 2 - WEST     "
DO WHILE exitt = 0
SELECT CASE INKEY$
CASE "1"
CALL east
CALL final
exitt = 1
CASE "2"
CALL west
CALL final
exitt = 1
END SELECT
LOOP

SUB east
SCREEN 0
CLS
COLOR 7, 6
LOCATE 1, 1
FOR i = 1 TO 1920
PRINT CHR$(177);
NEXT

COLOR 11, 3
LOCATE 2, 2: PRINT "  CHICAGO  "
COLOR 11, 4
LOCATE 3, 2: PRINT "    vs     "
COLOR 11, 3
LOCATE 4, 2: PRINT " WASHINGTON"
COLOR 0, 3
LOCATE 3, 13: PRINT CHR$(177);
PRINT CHR$(177)
LOCATE 4, 13: PRINT CHR$(177);
PRINT CHR$(177)
FOR i = 4 TO 14
LOCATE 5, i: PRINT CHR$(177)
NEXT

COLOR 11, 4
LOCATE 2, 1: PRINT "3"
LOCATE 4, 1: PRINT "0"

COLOR 11, 3
LOCATE 7, 2: PRINT "  ATLANTA  "
COLOR 11, 4
LOCATE 8, 2: PRINT "    vs     "
COLOR 11, 3
LOCATE 9, 2: PRINT "  DETROIT  "
COLOR 0, 3
LOCATE 8, 13: PRINT CHR$(177);
PRINT CHR$(177)
LOCATE 9, 13: PRINT CHR$(177);
PRINT CHR$(177)
FOR i = 4 TO 14
LOCATE 10, i: PRINT CHR$(177)
NEXT

COLOR 11, 4
LOCATE 7, 1: PRINT "3"
LOCATE 9, 1: PRINT "2"

COLOR 11, 3
LOCATE 12, 2: PRINT " NEW YORK  "
COLOR 11, 4
LOCATE 13, 2: PRINT "    vs     "
COLOR 11, 3
LOCATE 14, 2: PRINT " SHARLOTT  "
COLOR 0, 3
LOCATE 13, 13: PRINT CHR$(177);
PRINT CHR$(177)
LOCATE 14, 13: PRINT CHR$(177);
PRINT CHR$(177)
FOR i = 4 TO 14
LOCATE 15, i: PRINT CHR$(177)
NEXT

COLOR 11, 4
LOCATE 12, 1: PRINT "3"
LOCATE 14, 1: PRINT "0"

COLOR 11, 3
LOCATE 17, 2: PRINT "   MIAMY   "
COLOR 11, 4
LOCATE 18, 2: PRINT "    vs     "
COLOR 11, 3
LOCATE 19, 2: PRINT "  ORLANDO  "
COLOR 0, 3
LOCATE 18, 13: PRINT CHR$(177);
PRINT CHR$(177)
LOCATE 19, 13: PRINT CHR$(177);
PRINT CHR$(177)
FOR i = 4 TO 14
LOCATE 20, i: PRINT CHR$(177)
NEXT

COLOR 11, 4
LOCATE 17, 1: PRINT "3"
LOCATE 19, 1: PRINT "2"



COLOR 11, 3
LOCATE 5, 18: PRINT "  CHICAGO  "
COLOR 11, 4
LOCATE 6, 18: PRINT "    vs     "
COLOR 11, 3
LOCATE 7, 18: PRINT "  ATLANTA  "
COLOR 0, 3
LOCATE 6, 29: PRINT CHR$(177);
PRINT CHR$(177)
LOCATE 7, 29: PRINT CHR$(177);
PRINT CHR$(177)
FOR i = 20 TO 30
LOCATE 8, i: PRINT CHR$(177)
NEXT

COLOR 11, 4
LOCATE 5, 17: PRINT "4"
LOCATE 7, 17: PRINT "1"

COLOR 11, 3
LOCATE 15, 18: PRINT " NEW YORK  "
COLOR 11, 4
LOCATE 16, 18: PRINT "    vs     "
COLOR 11, 3
LOCATE 17, 18: PRINT "   MIAMY   "
COLOR 0, 3
LOCATE 16, 29: PRINT CHR$(177);
PRINT CHR$(177)
LOCATE 17, 29: PRINT CHR$(177);
PRINT CHR$(177)
FOR i = 20 TO 30
LOCATE 18, i: PRINT CHR$(177)
NEXT

COLOR 11, 4
LOCATE 15, 17: PRINT "3"
LOCATE 17, 17: PRINT "4"



COLOR 11, 3
LOCATE 10, 34: PRINT "  CHICAGO  "
COLOR 11, 4
LOCATE 11, 34: PRINT "    vs     "
COLOR 11, 3
LOCATE 12, 34: PRINT "   MIAMY   "
COLOR 0, 3
LOCATE 11, 45: PRINT CHR$(177);
PRINT CHR$(177)
LOCATE 12, 45: PRINT CHR$(177);
PRINT CHR$(177)
FOR i = 36 TO 46
LOCATE 13, i: PRINT CHR$(177)
NEXT

COLOR 11, 4
LOCATE 10, 33: PRINT "4"
LOCATE 12, 33: PRINT "1"



DO WHILE INKEY$ = "": LOOP

END SUB

SUB final
COLOR 0, 0
SCREEN 0
CLS
yy = 77

COLOR 11, 4
LOCATE 5, 1: PRINT "                   "
COLOR 11, 3
LOCATE 6, 59: PRINT "                   "
LOCATE 8, 59: PRINT "                   "
LOCATE 10, 59: PRINT "                   "
COLOR 11, 1
LOCATE 7, 1: PRINT "                   "
LOCATE 9, 1: PRINT "                   "

FOR i = 20 TO 48

COLOR 11, 4
LOCATE 5, i: PRINT " "

COLOR 11, 1
LOCATE 7, i: PRINT " "
LOCATE 9, i: PRINT " "

COLOR 11, 3
LOCATE 6, yy - 19: PRINT " "
LOCATE 8, yy - 19: PRINT " "
LOCATE 10, yy - 19: PRINT " "

COLOR 0, 0
LOCATE 5, i - 19: PRINT " "
LOCATE 7, i - 19: PRINT " "
LOCATE 9, i - 19: PRINT " "

LOCATE 6, yy: PRINT " "
LOCATE 8, yy: PRINT " "
LOCATE 10, yy: PRINT " "

FOR y = 1 TO 750: NEXT y
yy = yy - 1

NEXT i

COLOR 15, 4
LOCATE 5, 30: PRINT " 1996/7 NBA FINALS "
COLOR 15, 1
LOCATE 7, 30: PRINT " CHICAGO  (BULLS)  "
LOCATE 9, 30: PRINT " UTHA      (JAZZ)  "

FOR i = 2 TO 29
COLOR 11, 4
LOCATE 7, i: PRINT "4"
LOCATE 9, i: PRINT "2"
COLOR 0, 0
LOCATE 7, i - 1: PRINT " "
LOCATE 9, i - 1: PRINT " "
FOR tt = 1 TO 400: NEXT tt
NEXT i
FOR tt = 1 TO 4000: NEXT tt

CLS
COLOR 7, 6
LOCATE 1, 1
FOR i = 1 TO 1920
PRINT CHR$(177);
NEXT
COLOR 15, 4
LOCATE 5, 30: PRINT " 1996/7 NBA FINALS "
COLOR 15, 1
LOCATE 7, 30: PRINT " CHICAGO  (BULLS)  "
LOCATE 9, 30: PRINT " UTHA      (JAZZ)  "
COLOR 11, 3
LOCATE 8, 30: PRINT "                   "
LOCATE 6, 30: PRINT "                   "
LOCATE 10, 30: PRINT "                   "

COLOR 0, 14
LOCATE 6, 49: PRINT CHR$(177);
PRINT CHR$(177)
LOCATE 7, 49: PRINT CHR$(177);
PRINT CHR$(177)
LOCATE 8, 49: PRINT CHR$(177);
PRINT CHR$(177)
LOCATE 9, 49: PRINT CHR$(177);
PRINT CHR$(177)
LOCATE 10, 49: PRINT CHR$(177);
PRINT CHR$(177)
FOR i = 32 TO 50
LOCATE 11, i: PRINT CHR$(177)
NEXT

COLOR 11, 4
LOCATE 7, 29: PRINT "4"
LOCATE 9, 29: PRINT "2"

FOR i = 1 TO 9000: NEXT
k = 76
FOR i = 5 TO 76
COLOR 15, 11
LOCATE 15, i: PRINT " "
LOCATE 16, k: PRINT " "
COLOR 15, 1
LOCATE 17, i: PRINT " "
LOCATE 18, k: PRINT " "
COLOR 15, 11
LOCATE 19, i: PRINT " "
LOCATE 20, k: PRINT " "
COLOR 15, 1
LOCATE 21, i: PRINT " "
LOCATE 22, k: PRINT " "

k = k - 1
FOR ii = 1 TO 400: NEXT ii
NEXT

COLOR 15, 11
LOCATE 15, 6: PRINT "CHICAGO---\                                                 /---HUSTON"
LOCATE 16, 6: PRINT "WASHINGTON->CHICAGO-\                             /--HUSTON<--MINESOTA"
COLOR 15, 1
LOCATE 17, 6: PRINT "ATLANTA---->ATLANTA--\                           /--SEATTLE<---SEATTLE"
LOCATE 18, 6: PRINT "DETROIT---/           >CHICAGO-\_______/--HUSTON<           \--PHOENIX"
COLOR 15, 11
LOCATE 19, 6: PRINT "NEW YORK--\           >MIAMY---/       \----UTHA<           /-----UTHA"
LOCATE 20, 6: PRINT "SHARLOTT--->NEW YORK-/                           \-----UTHA<--CLIPPERS"
COLOR 15, 1
LOCATE 21, 6: PRINT "MIAMY------>MIAMY---/                             \-LACKERS<---LACKERS"
LOCATE 22, 6: PRINT "ORLANDO---/                                                 \-PORTLAND"

COLOR 0, 14
LOCATE 16, 77: PRINT CHR$(177);
PRINT CHR$(177)
LOCATE 17, 77: PRINT CHR$(177);
PRINT CHR$(177)
LOCATE 18, 77: PRINT CHR$(177);
PRINT CHR$(177)
LOCATE 19, 77: PRINT CHR$(177);
PRINT CHR$(177)
LOCATE 20, 77: PRINT CHR$(177);
PRINT CHR$(177)
LOCATE 21, 77: PRINT CHR$(177);
PRINT CHR$(177)
LOCATE 22, 77: PRINT CHR$(177);
PRINT CHR$(177)
FOR i = 7 TO 78
LOCATE 23, i: PRINT CHR$(177)
NEXT


DO WHILE INKEY$ = "": LOOP

END SUB

SUB west
SCREEN 0
CLS
COLOR 7, 6
LOCATE 1, 1
FOR i = 1 TO 1920
PRINT CHR$(177);
NEXT

COLOR 11, 3
LOCATE 2, 2: PRINT "   UTHA    "
COLOR 11, 4
LOCATE 3, 2: PRINT "    vs     "
COLOR 11, 3
LOCATE 4, 2: PRINT " CLIPPERS  "
COLOR 0, 3
LOCATE 3, 13: PRINT CHR$(177);
PRINT CHR$(177)
LOCATE 4, 13: PRINT CHR$(177);
PRINT CHR$(177)
FOR i = 4 TO 14
LOCATE 5, i: PRINT CHR$(177)
NEXT

COLOR 11, 4
LOCATE 2, 1: PRINT "3"
LOCATE 4, 1: PRINT "0"

COLOR 11, 3
LOCATE 7, 2: PRINT "  LACKERS  "
COLOR 11, 4
LOCATE 8, 2: PRINT "    vs     "
COLOR 11, 3
LOCATE 9, 2: PRINT "  PORTLAND "
COLOR 0, 3
LOCATE 8, 13: PRINT CHR$(177);
PRINT CHR$(177)
LOCATE 9, 13: PRINT CHR$(177);
PRINT CHR$(177)
FOR i = 4 TO 14
LOCATE 10, i: PRINT CHR$(177)
NEXT

COLOR 11, 4
LOCATE 7, 1: PRINT "3"
LOCATE 9, 1: PRINT "1"

COLOR 11, 3
LOCATE 12, 2: PRINT "  HUSTON   "
COLOR 11, 4
LOCATE 13, 2: PRINT "    vs     "
COLOR 11, 3
LOCATE 14, 2: PRINT " MINESOTA  "
COLOR 0, 3
LOCATE 13, 13: PRINT CHR$(177);
PRINT CHR$(177)
LOCATE 14, 13: PRINT CHR$(177);
PRINT CHR$(177)
FOR i = 4 TO 14
LOCATE 15, i: PRINT CHR$(177)
NEXT

COLOR 11, 4
LOCATE 12, 1: PRINT "3"
LOCATE 14, 1: PRINT "0"

COLOR 11, 3
LOCATE 17, 2: PRINT "  SEATTLE  "
COLOR 11, 4
LOCATE 18, 2: PRINT "    vs     "
COLOR 11, 3
LOCATE 19, 2: PRINT "  PHOENIX  "
COLOR 0, 3
LOCATE 18, 13: PRINT CHR$(177);
PRINT CHR$(177)
LOCATE 19, 13: PRINT CHR$(177);
PRINT CHR$(177)
FOR i = 4 TO 14
LOCATE 20, i: PRINT CHR$(177)
NEXT

COLOR 11, 4
LOCATE 17, 1: PRINT "3"
LOCATE 19, 1: PRINT "2"



COLOR 11, 3
LOCATE 5, 18: PRINT "   UTHA    "
COLOR 11, 4
LOCATE 6, 18: PRINT "    vs     "
COLOR 11, 3
LOCATE 7, 18: PRINT "  LACKERS  "
COLOR 0, 3
LOCATE 6, 29: PRINT CHR$(177);
PRINT CHR$(177)
LOCATE 7, 29: PRINT CHR$(177);
PRINT CHR$(177)
FOR i = 20 TO 30
LOCATE 8, i: PRINT CHR$(177)
NEXT

COLOR 11, 4
LOCATE 5, 17: PRINT "4"
LOCATE 7, 17: PRINT "1"

COLOR 11, 3
LOCATE 15, 18: PRINT "  HUSTON   "
COLOR 11, 4
LOCATE 16, 18: PRINT "    vs     "
COLOR 11, 3
LOCATE 17, 18: PRINT "  SEATTLE  "
COLOR 0, 3
LOCATE 16, 29: PRINT CHR$(177);
PRINT CHR$(177)
LOCATE 17, 29: PRINT CHR$(177);
PRINT CHR$(177)
FOR i = 20 TO 30
LOCATE 18, i: PRINT CHR$(177)
NEXT

COLOR 11, 4
LOCATE 15, 17: PRINT "4"
LOCATE 17, 17: PRINT "3"



COLOR 11, 3
LOCATE 10, 34: PRINT "   UTHA    "
COLOR 11, 4
LOCATE 11, 34: PRINT "    vs     "
COLOR 11, 3
LOCATE 12, 34: PRINT "  HUSTON   "
COLOR 0, 3
LOCATE 11, 45: PRINT CHR$(177);
PRINT CHR$(177)
LOCATE 12, 45: PRINT CHR$(177);
PRINT CHR$(177)
FOR i = 36 TO 46
LOCATE 13, i: PRINT CHR$(177)
NEXT

COLOR 11, 4
LOCATE 10, 33: PRINT "4"
LOCATE 12, 33: PRINT "2"



DO WHILE INKEY$ = "": LOOP

END SUB