'Version 1.5  (c)1995,1996 Travis Schultz

DATA East
DATA Buffalo Bills       ,5,2, 3,1, 2,1, 3,2, 2,0, 3,1, 2,Giants,   23,20,-1,1,Patriots, 17,10,1, 1,Steelers,  6,24,-1,2,Cowboys, 10, 7,-1, 0,bye week,  0, 0,0, 1,Colts,   16,13,1, 1,Dolphins, 7,21,-1,1,Jets,    25,22,1
DATA Indianapolis Colts  ,5,2, 3,1, 2,1, 3,2, 2,0, 2,2, 2,Cardinals,20,13,1, 1,Jets,     21, 7,1, 2,Cowboys,  25,24,-1,1,Dolphins,10, 6,-1, 0,bye week,  0, 0,0, 1,Bills,   13,16,1, 1,Ravens,  26,21,1, 1,Patriots, 9,27,-1
DATA Miami Dolphins      ,4,3, 2,1, 2,2, 3,2, 1,1, 3,1, 1,Patriots, 24,10,1, 2,Cardinals,38,10,1, 1,Jets,     36,27,1, 1,Colts,    6,10,-1, 0,bye week,  0, 0,0, 1,Seahawks,15,22,-1,1,Bills,   21, 7,-1,2,Eagles,  28,35,-1
DATA New England Patriots,4,3, 2,1, 2,2, 3,2, 1,1, 1,2, 1,Dolphins, 10,24,1, 1,Bills,    10,17,1, 2,Cardinals,31, 0,1, 1,Jaguars, 28,25,1,  0,bye week,  0, 0,0, 1,Ravens,  46,38,1, 2,Redskins,22,27,-1,1,Colts,   27, 9,-1
DATA New York Jets       ,0,8, 0,4, 0,4, 0,6, 0,2, 0,3, 1,Broncos,   6,31,1, 1,Colts,     7,21,1, 1,Dolphins, 27,36,1, 2,Giants,   6,13,1,  2,Redskins, 16,31,1, 1,Raiders, 13,34,1, 1,Jaguars, 17,21,1, 1,Bills,   22,25,1
                         
DATA Central
DATA Houston Oilers      ,5,2, 2,1, 3,1, 4,2, 1,0, 4,1, 1,Chiefs,  19,20,1,  1,Jaguars,  34,27,1, 1,Ravens,   29,13,1, 0,bye week, 0, 0,0,  1,Steelers, 16,30,1, 1,Bengals, 30,27,1, 2,Falcons, 23,13,-1,1,Steelers,23,13,-1
DATA Pittsburgh Steelers ,5,2, 4,0, 1,2, 5,2, 0,0, 3,2, 1,Jaguars,  9,24,-1, 1,Ravens,   31,17,1, 1,Bills,    24, 6,-1,0,bye week, 0, 0,0,  1,Oilers,   30,16,1, 1,Chiefs,  17, 7,1, 1,Bengals, 20,10,1, 1,Oilers,  13,23,-1
DATA Jacksonville Jaguars,3,5, 3,1, 0,4, 2,3, 1,2, 1,1, 1,Steelers,24, 9,-1, 1,Oilers,   27,34,1, 1,Raiders,   6,17,1, 1,Patriots,25,28,1,  2,Panthers, 24,14,-1,2,Saints,  13,17,-1,1,Jets,    21,17,1, 2,Rams,    14,17,-1
DATA Baltimore Ravens    ,2,5, 2,1, 0,4, 1,5, 1,0, 0,2, 1,Raiders, 19,14,-1, 1,Steelers, 17,31,1, 1,Oilers,   13,29,1, 0,bye week, 0, 0,0,  2,Saints,   17,10,1, 1,Patriots,38,46,1, 1,Colts,   21,26,1, 1,Broncos, 34,45,1
DATA Cincinnati Bengals  ,1,6, 1,2, 0,4, 0,4, 1,2, 0,2, 2,Rams,    16,26,-1, 1,Chargers, 14,27,1, 2,Saints,   30,15,1, 0,bye week, 0, 0,0,  1,Broncos,  10,14,1, 1,Oilers,  27,30,1, 1,Steelers,10,20,1, 2,49ers,   21,28,1
                         
DATA West
DATA Denver Broncos      ,6,1, 4,0, 2,1, 5,1, 1,0, 2,1, 1,Jets,    31, 6,1, 1,Seahawks,  30,20,1, 2,Tampa Bay,27,23,1, 1,Chiefs,   14,17,-1,1,Bengals,  14,10,1, 1,Chargers,28,17,1, 0,bye week, 0, 0,0, 1,Ravens,  45,34,1
DATA Kansas City Chiefs  ,5,2, 3,1, 2,1, 5,2, 0,0, 4,1, 1,Oilers,  20,19,1, 1,Raiders,   19, 3,1, 1,Seahawks, 35,17,1, 1,Broncos,  17,14,-1,1,Chargers, 19,22,-1,1,Steelers, 7,17,1, 0,bye week, 0, 0,0, 1,Seahawks,34,16,1
DATA San Diego Chargers  ,4,3, 3,1, 1,2, 4,2, 0,1, 3,2, 1,Seahawks,29, 7,1, 1,Bengals,   27,14,1, 2,Packers,  10,42,1, 1,Raiders,  40,34,-1,1,Chiefs,   22,19,-1,1,Broncos, 17,28,1, 0,bye week, 0, 0,0, 1,Raiders, 14,23,1
DATA Oakland Raiders     ,4,4, 2,1, 2,3, 3,3, 1,1, 1,2, 1,Ravens,  14,19,-1,1,Chiefs,     3,19,1, 1,Jaguars,  17, 6,1, 1,Chargers, 34,40,-1,2,Bears,    17,19,1, 1,Jets,    34,13,1, 2,Lions,   37,21,-1,1,Chargers,23,14,1
DATA Seattle Seahawks    ,2,5, 0,3, 2,2, 1,4, 1,1, 0,4, 1,Chargers, 7,29,1, 1,Broncos,   20,30,1, 1,Chiefs,   17,35,1, 2,Tampa Bay,17,13,1, 2,Packers,  10,31,1, 1,Dolphins,22,15,-1,0,bye week, 0, 0,0, 1,Chiefs,  16,34,1


DATA East
DATA Washington Redskins ,6,1, 3,1, 3,0, 2,0, 4,1, 2,1, 2,Eagles,   14,17,1, 2,Bears,    10, 3,-1,2,Giants,  31,10,1, 2,Rams,     17,10,1, 1,Jets,     31,16,1, 0,bye week,  0, 0,0, 1,Patriots, 27,22,-1,2,Giants,   31,21,1
DATA Philadelphia Eagles ,5,2, 2,1, 3,1, 1,0, 4,2, 2,1, 2,Redskins, 17,14,1, 2,Packers,  13,39,1, 2,Lions,   24,17,1, 2,Falcons,  33,18,1, 2,Cowboys,  19,23,1, 0,bye week,  0, 0,0, 2,Giants,   19,10,1, 1,Dolphins, 35,28,-1
DATA Dallas Cowboys      ,4,3, 3,1, 1,2, 0,2, 4,1, 3,0, 2,Bears,     6,22,-1,2,Giants,   27, 0,1, 1,Colts,   24,25,-1,1,Bills,     7,10,-1,2,Eagles,   23,19,1, 0,bye week,  0, 0,0, 2,Cardinals,17, 3,1, 2,Falcons,  32,28,1
DATA Arizona Cardinals   ,3,4, 2,1, 1,3, 0,3, 3,1, 0,1, 1,Colts,    13,20,1, 1,Dolphins, 10,38,1, 1,Patriots, 0,31,1, 2,Saints,   28,14,-1,2,Rams,     31,28,-1,0,bye week,  0, 0,0, 2,Cowboys,   3,17,1, 2,Tampa Bay,13, 9,1
DATA New York Giants     ,2,5, 1,3, 1,2, 1,1, 1,4, 0,4, 1,Bills,    20,23,-1,2,Cowboys,   0,27,1, 2,Redskins,10,31,1, 1,Jets,     13, 6,1, 2,Vikings,  15,10,-1,0,bye week,  0, 0,0, 2,Eagles,   10,19,1, 2,Redskins, 21,31,1

DATA Central
DATA Green Bay Packers   ,6,1, 3,0, 3,1, 2,0, 4,1, 2,1, 2,Tampa Bay,34, 3,1, 2,Eagles,   39,13,1, 1,Chargers,42,10,1, 2,Vikings,  21,30,-1,1,Seahawks, 31,10,1, 2,Bears,    37, 6,1, 2,49ers,    23,20,1, 0,bye week,  0, 0,0
DATA Minnesota Vikings   ,5,2, 3,0, 2,2, 0,0, 5,2, 3,1, 2,Lions,    17,13,1, 2,Falcons,  23,17,1, 2,Bears,   20,14,1, 2,Packers,  30,21,-1,2,Giants,   10,15,-1,2,Panthers, 14,12,1, 2,Tampa Bay,13,24,-1,0,bye week,  0, 0,0
DATA Detroit Lions       ,4,3, 3,0, 1,3, 0,1, 4,2, 3,1, 2,Vikings,  13,17,1, 2,Tampa Bay,21, 6,1, 2,Eagles,  17,24,1, 2,Bears,    35,16,1, 2,Tampa Bay,27, 0,1, 2,Falcons,  28,24,1, 1,Raiders,  21,37,-1,0,bye week,  0, 0,0
DATA Chicago Bears       ,2,5, 2,2, 0,3, 1,0, 1,5, 0,3, 2,Cowboys,  22, 6,-1,2,Redskins,  3,10,-1,2,Vikings, 14,20,1, 2,Lions,    16,35,1, 1,Raiders,  19,17,1, 2,Packers,   6,37,1, 2,Saints,   24,27,-1,0,bye week,  0, 0,0
DATA Tampa Bay Buccaneers,1,6, 1,3, 0,3, 0,2, 1,4, 1,3, 2,Packers,   3,34,1, 2,Lions,     6,21,1, 1,Broncos, 23,27,1, 1,Seahawks, 13,17,1, 2,Lions,     0,27,1, 0,bye week,  0, 0,0, 2,Vikings,  24,13,-1,2,Cardinals, 9,13,1

DATA West
DATA Carolina Panthers   ,5,2, 4,0, 1,2, 0,1, 5,1, 5,0, 2,Falcons,  29, 6,-1,2,Saints,   22,20,1, 0,bye week, 0, 0,0, 2,49ers,    23, 7,-1,1,Jaguars,  14,24,-1,2,Vikings,  12,14,1, 2,Rams,     45,13,1, 2,Saints,   19, 7,1
DATA San Francisco 49ers ,5,2, 4,0, 1,2, 1,0, 4,2, 4,1, 2,Saints,   27,11,1, 2,Rams,     34, 0,1, 0,bye week, 0, 0,0, 2,Panthers,  7,23,-1,2,Falcons,  39,17,1, 2,Rams,     28,11,1, 2,Packers,  20,23,1, 1,Bengals,  28,21,1
DATA St. Louis Rams      ,2,5, 2,2, 0,3, 2,0, 0,5, 0,3, 1,Bengals,  26,16,-1,2,49ers,     0,34,1, 0,bye week, 0, 0,0, 2,Redskins, 10,17,1, 2,Cardinals,28,31,-1,2,49ers,    11,28,1, 2,Panthers, 13,45,1, 1,Jaguars,  17,14,-1
DATA New Orleans Saints  ,2,6, 2,3, 0,3, 1,2, 1,4, 0,3, 2,49ers,    11,27,1, 2,Panthers, 20,22,1, 1,Bengals, 15,30,1, 2,Cardinals,14,28,-1,1,Ravens,   10,17,1, 1,Jaguars,  17,13,-1,2,Bears,    27,24,-1,2,Panthers,  7,19,1
DATA Atlanta Falcons     ,0,7, 0,3, 0,4, 0,1, 0,6, 0,2, 2,Panthers,  6,29,-1,2,Vikings,  17,23,1, 0,bye week, 0, 0,0, 2,Eagles,   18,33,1, 2,49ers,    17,39,1, 2,Lions,    24,28,1, 1,Oilers,   13,23,-1,2,Cowboys,  28,35,1

'    Jonathan's predicting record
DATA 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0

Initialize:
 SCREEN 11
 DIM team$(2, 3, 5), prd(2, 3, 5), prddiv(2, 3), prdcnf(2), Recrdw(2, 3, 5), Recrdl(2, 3, 5)
 DIM tmpld$(2, 3, 5, 21), pf(2, 3, 5, 21), pa(2, 3, 5, 21), gmspld(2, 3, 5), ttlpf(2, 3, 5), ttlpa(2, 3, 5), tmpcc(2, 3, 5, 21)
 DIM hmew(2, 3, 5), hmel(2, 3, 5), awyw(2, 3, 5), awyl(2, 3, 5)
 DIM AFCw(2, 3, 5), AFCl(2, 3, 5), NFCw(2, 3, 5), NFCl(2, 3, 5)
 DIM dvw(2, 3, 5), dvl(2, 3, 5), prdd(2, 3, 5, 21), prdw(2, 3, 5), prdl(2, 3, 5)
 DIM wkpow(17), wkpol(17), wkpcnfw(2, 17), wkpcnfl(2, 17), Jonpw(17), Jonpl(17)
 DIM rnkng(2, 3, 5), rtm$(30), rtmpts(31), refcnf(30), refd(30), reftm(30)
 DIM tb(30), Pptsf(2, 3, 5), Pptsa(2, 3, 5)
 DIM Pscrdf(2, 3), Pscrda(2, 3), Pscrcf(2), Pscrca(2), Pscrf(21), Pscra(21)
 DIM cnf$(2), c(2), cc(2), ccc(2), Stm$(2, 3, 5)
 cnf$(1) = "AFC": cnf$(2) = "NFC"
 c(1) = 4: c(2) = 1: cc(1) = 12: cc(2) = 9
 ccc(1) = 14: ccc(2) = 10
 nwks = 17: nw = 8

SCREEN 0: CLS : COLOR 15: LOCATE 5, 15: PRINT "Please wait"
Readinfo:
 COLOR 7: LOCATE 7, 13: PRINT "Reading data..."
 FOR cnf = 1 TO 2
  FOR d = 1 TO 3
   READ d$(d)
   FOR tm = 1 TO 5
    READ team$(cnf, d, tm): LOCATE 1, 1: PRINT team$(cnf, c, tm)
    READ Recrdw(cnf, d, tm), Recrdl(cnf, d, tm)
    gmspld(cnf, d, tm) = Recrdw(cnf, d, tm) + Recrdl(cnf, d, tm) + Recrdt(cnf, d, tm)
    READ hmew(cnf, d, tm), hmel(cnf, d, tm): ' hmet(cnf, d, tm)
    READ awyw(cnf, d, tm), awyl(cnf, d, tm): ' awyt(cnf, d, tm)
    READ AFCw(cnf, d, tm), AFCl(cnf, d, tm): ' AFCt(cnf, d, tm)
    READ NFCw(cnf, d, tm), NFCl(cnf, d, tm): ' NFCt(cnf, d, tm)
    READ dvw(cnf, d, tm), dvl(cnf, d, tm): ' dvt(cnf, d, tm)
    tempwins = 0: templos = 0
    FOR gmn = 1 TO nw
     READ tmpcc(cnf, d, tm, gmn), tmpld$(cnf, d, tm, gmn), pf(cnf, d, tm, gmn), pa(cnf, d, tm, gmn), prdd(cnf, d, tm, gmn)
     IF prdd(cnf, d, tm, gmn) = 1 THEN tempwins = tempwins + 1
     IF prdd(cnf, d, tm, gmn) = -1 THEN templos = templos + 1
     prd(cnf, d, tm) = (CINT((tempwins / (tempwins + templos)) * 1000)) / 10
     ttlpf(cnf, d, tm) = ttlpf(cnf, d, tm) + pf(cnf, d, tm, gmn)
     ttlpa(cnf, d, tm) = ttlpa(cnf, d, tm) + pa(cnf, d, tm, gmn)
     gdif = pf(cnf, d, tm, gmn) - pa(cnf, d, tm, gmn)
     IF gdif < 0 THEN gdif = gdif * -1
     IF prdd(cnf, d, tm, gmn) = 1 THEN Pptsf(cnf, d, tm) = Pptsf(cnf, d, tm) + gdif: Pscrf(gmn) = Pscrf(gmn) + gdif
     IF prdd(cnf, d, tm, gmn) = -1 THEN Pptsa(cnf, d, tm) = Pptsa(cnf, d, tm) + gdif: Pscra(gmn) = Pscra(gmn) + gdif
    NEXT gmn
   Pscrdf(cnf, d) = Pscrdf(cnf, d) + Pptsf(cnf, d, tm)
   Pscrda(cnf, d) = Pscrda(cnf, d) + Pptsa(cnf, d, tm)
   NEXT tm
   tmp = 0
   FOR fr = 1 TO 5
    tmp = tmp + prd(cnf, d, fr)
   NEXT
   prddiv(cnf, d) = (CINT((tmp / 5) * 10)) / 10
   Pscrcf(cnf) = Pscrcf(cnf) + Pscrdf(cnf, d)
   Pscrca(cnf) = Pscrca(cnf) + Pscrda(cnf, d)
  NEXT d
  tmp = 0
  FOR fr = 1 TO 3
   tmp = tmp + prddiv(cnf, fr)
  NEXT
  prdcnf(cnf) = (CINT((tmp / 3) * 10)) / 10
  Pscrof = Pscrof + Pscrcf(cnf)
  Pscroa = Pscroa + Pscrca(cnf)
 NEXT cnf
 COLOR 7: LOCATE 7, 13: PRINT "Processing data..."
 prdovrl = (CINT(((prdcnf(1) + prdcnf(2)) / 2)) * 10) / 10
 FOR cnf = 1 TO 2
  FOR d = 1 TO 3
   FOR tm = 1 TO 5
    avgpfgm(cnf, d, tm) = CLNG(ttlpf(cnf, d, tm) / gmspld(cnf, d, tm))
    avgmrgn(cnf, d, tm) = avgpfgm(cnf, d, tm) - CLNG(ttlpa(cnf, d, tm) / gmspld(cnf, d, tm))
   NEXT tm
  NEXT d
 NEXT cnf
  FOR jp = 1 TO 17
   READ Jonpw(jp), Jonpl(jp)
  NEXT

 t = 0
 FOR cnf = 1 TO 2
  FOR d = 1 TO 3
   FOR tm = 1 TO 5
    t = t + 1
    rnkng(cnf, d, tm) = avgmrgn(cnf, d, tm) + 50 * Recrdw(cnf, d, tm) + ttlpf(cnf, d, tm) - 31 * Recrdl(cnf, d, tm) - ttlpa(cnf, d, tm) + awyw(cnf, d, tm) + hmew(cnf, d, tm) + dvw(cnf, d, tm) - dvl(cnf, d, tm)
    rtm$(t) = team$(cnf, d, tm): rtmpts(t) = rnkng(cnf, d, tm): refcnf(t) = cnf: refd(t) = d: reftm(t) = tm
    tb(t) = ttlpf(cnf, d, tm) - ttlpa(cnf, d, tm)
   NEXT tm
  NEXT d
 NEXT cnf

 COLOR 7: LOCATE 7, 13: PRINT "Ranking teams...  "
 FOR rptsrt = 1 TO 31
  FOR x = 1 TO 29
   IF rtmpts(x) < rtmpts(x + 1) THEN SWAP rtmpts(x), rtmpts(x + 1): SWAP rtm$(x), rtm$(x + 1): SWAP refcnf(x), refcnf(x + 1): SWAP refd(x), refd(x + 1): SWAP reftm(x), reftm(x + 1)
  NEXT x
 NEXT rptsrt

 COLOR 7: LOCATE 7, 13: PRINT "Adjusting rankings..."
 leastpts = 20000
 FOR scle = 1 TO 30
  IF rtmpts(scle) < leastpts THEN leastpts = rtmpts(scle)
 NEXT

 FOR scle = 1 TO 30
  IF rtmpts(scle) = leastpts THEN rtmpts(scle) = rtmpts(scle) + 1
 NEXT

 FOR xz = 1 TO 30
  rtmpts(xz) = rtmpts(xz) - leastpts
 NEXT

 mostpts = -20000
 FOR zx = 1 TO 30
  IF rtmpts(zx) > mostpts THEN mostpts = rtmpts(zx)
 NEXT

 COLOR 7: LOCATE 7, 13: PRINT "Processing data...   "
 FOR x = 1 TO 30
  rtmpts(x) = CLNG((rtmpts(x) / mostpts) * 1000)
 NEXT
 FOR x = 1 TO 30
  IF rtmpts(x) = rtmpts(x + 1) THEN IF tb(x) > tb(x + 1) THEN rtmpts(x) = rtmpts(x) + 1
  IF rtmpts(x) = rtmpts(x + 1) THEN IF tb(x) < tb(x + 1) THEN rtmpts(x + 1) = rtmpts(x + 1) + 1: SWAP rtmpts(x), rtmpts(x + 1): SWAP rtm$(x), rtm$(x + 1): SWAP refcnf(x), refcnf(x + 1): SWAP refd(x), refd(x + 1): SWAP reftm(x), reftm(x + 1)
  FOR cnf = 1 TO 2
   FOR d = 1 TO 3
    dvrnk(cnf, d) = 0
    FOR tm = 1 TO 5
     IF rtm$(x) = team$(cnf, d, tm) THEN tmrnk(cnf, d, tm) = x
     dvrnk(cnf, d) = dvrnk(cnf, d) + 10 * tmrnk(cnf, d, tm) + Recrdw(cnf, d, tm) - Recrdl(cnf, d, tm) + dvw(cnf, d, tm) + AFCw(cnf, d, tm) + NFCw(cnf, d, tm)
    NEXT
    vdrnk(cnf * (cnf + d) - 1 - ((cnf - 1) * d)) = dvrnk(cnf, d)
   NEXT
  NEXT
 NEXT

 COLOR 7: LOCATE 7, 13: PRINT "Ranking Divisions..."
 FOR x = 1 TO 6
  FOR y = 1 TO 5
   IF vdrnk(y) > vdrnk(y + 1) THEN SWAP vdrnk(y), vdrnk(y + 1)
  NEXT
 NEXT

 FOR x = 1 TO 6
  FOR cnf = 1 TO 2
   FOR d = 1 TO 3
    IF dvrnk(cnf, d) = vdrnk(x) THEN rnkdv(cnf, d) = x
   NEXT d
  NEXT cnf
 NEXT x


Main:
 SCREEN 11
 CLS
 PRINT TAB(23); "Travis's NFL program"; :  PRINT "  v1.5"
 LINE (0, 15)-(560, 15), 8: LINE (0, 0)-(0, 15), 8: LINE (560, 15)-(560, 0), 8
  LOCATE 2, 24: PRINT "Overall Prediction % ="; prdovrl
  LOCATE 3, 8: PRINT "AFC"; :  PRINT " prdct="; prdcnf(1); "%"
  LOCATE 3, 50: PRINT "NFC"; : PRINT " prdct="; prdcnf(2); "%"
 cnf = 1: PRINT
 FOR d = 1 TO 3
   PRINT "     "; d$(d); :  PRINT prddiv(cnf, d); "% "; :  PRINT "rnk="; rnkdv(cnf, d); :  PRINT TAB(48); d$(d); :  PRINT prddiv(cnf + 1, d); "% "; :  PRINT "rnk="; rnkdv(cnf + 1, d)
  FOR tm = 1 TO 5
   PRINT "       "; :  PRINT tmrnk(cnf, d, tm); :  PRINT team$(cnf, d, tm); :  PRINT TAB(50); tmrnk(cnf + 1, d, tm); :  PRINT team$(cnf + 1, d, tm)
  NEXT tm
  PRINT
 NEXT d
 LOCATE 26, 20:  PRINT "Use arrow keys and enter to select"
 LOCATE 27, 2:  PRINT "P"; :  PRINT "redidting summary, Team "; :  PRINT "R"; :  PRINT "ankings, "; :  PRINT "G"; :  PRINT "ame predictor, P"; :  PRINT "l"; :  PRINT "ayoff predictor, "; :  PRINT "Q"; :  PRINT "uit"
 LOCATE 28, 1: PRINT "===>"
  cp = 0: rp = 1


Choose:
 i$ = INKEY$
 GOSUB DISPBOX
 IF i$ = "" THEN GOTO Choose
 IF i$ = CHR$(13) THEN GOTO SETTEAM
 IF LEN(i$) = 2 THEN j$ = RIGHT$(i$, 1) ELSE LINE (xo, yo)-(xo + 200, yo + 16), 0, B
 IF i$ = "P" OR i$ = "p" THEN : LOCATE 28, 5: PRINT "Weekly prediction records": GOTO WPR
 IF i$ = "R" OR i$ = "r" THEN : LOCATE 28, 5: PRINT "Team rankings": GOTO RANKINGS
 IF i$ = "G" OR i$ = "g" THEN LOCATE 28, 5: PRINT "Game predictor": GOTO GAMEPRED
 IF i$ = "L" OR i$ = "l" THEN : LOCATE 28, 5: PRINT "Playoff Predictor": GOTO PLAYPRED
 IF i$ = "Q" OR i$ = "q" THEN : PRINT "QUIT                     ": END
 IF j$ = CHR$(75) OR j$ = CHR$(77) THEN cp = 1 - cp: GOSUB DISPBOX
 IF j$ = CHR$(72) THEN rp = rp - 1: IF rp < 1 THEN rp = 15: GOSUB DISPBOX ELSE GOSUB DISPBOX
 IF j$ = CHR$(80) THEN rp = rp + 1: IF rp > 15 THEN rp = 1: GOSUB DISPBOX ELSE GOSUB DISPBOX
 GOTO Choose


DISPBOX:
 LINE (xo, yo)-(xo + 200, yo + 16), 0, B
 x = 55 + 336 * cp
 y = 63 + 16 * rp + (INT((rp - 1) / 5) * 32)
 LINE (x, y)-(x + 200, y + 16), INT(RND * 15) + 1, B
 xo = x: yo = y
 RETURN

SETTEAM:
 cnf = 1 + cp
 d = INT((rp - 1) / 5) + 1
 v = INT(rp - (d - 1) * 5)
 LINE (x, y)-(x + 200, y + 16), cc(cnf), B
 LINE (x + 1, y + 1)-(x + 199, y + 15), ccc(cnf), B
 LINE (x - 1, y - 1)-(x + 201, y + 17), c(cnf), B
 dxc = 13
 GOTO INFO

NEXTT:
 IF retref = 1 THEN tmlnk = tmlnk + 1: GOTO NEXTTR
 v = v + 1: IF v = 6 THEN v = 1: d = d + 1
 IF d = 4 THEN cnf = 3 - cnf: d = 1
 LOCATE 26, 25: PRINT cnf$(cnf); " "; d$(d); ": "; team$(cnf, d, v)
 GOTO INFO
NEXTTR:
 IF tmlnk > 30 THEN tmlnk = 1
 cnf = refcnf(tmlnk)
 d = refd(tmlnk)
 v = reftm(tmlnk)
 LOCATE 26, 25: PRINT cnf$(cnf); " "; d$(d); ": "; team$(cnf, d, v)
 GOTO INFO


PREVT:
 IF retref = 1 THEN tmlnk = tmlnk - 1: GOTO PREVTR
 v = v - 1: IF v = 0 THEN v = 5: d = d - 1
 IF d = 0 THEN cnf = 3 - cnf: d = 3
 LOCATE 26, 25: PRINT cnf$(cnf); " "; d$(d); ": "; team$(cnf, d, v)
 GOTO INFO
PREVTR:
 IF tmlnk < 1 THEN tmlnk = 30
 cnf = refcnf(tmlnk)
 d = refd(tmlnk)
 v = reftm(tmlnk)
 LOCATE 26, 25: PRINT cnf$(cnf); " "; d$(d); ": "; team$(cnf, d, v)
 GOTO INFO


INFO:
 dxc = 15 - dxc
 ttlpf = 0: ttlpa = 0
 LOCATE 28, 7: PRINT team$(cnf, d, v)

 LOCATE 27, 10: PRINT "                Press [ENTER] for info                 "
 i$ = INKEY$
 IF i$ = CHR$(13) THEN GOTO DISPINFO
 IF i$ = "Q" OR i$ = "q" THEN LOCATE 28, 5:  PRINT "QUIT                     ": END
 GOTO INFO
DISPINFO:
 gmspld(cnf, d, v) = Recrdw(cnf, d, v) + Recrdl(cnf, d, v) + Recrdt(cnf, d, v)
 prdw(cnf, d, v) = 0: prdl(cnf, d, v) = 0
 FOR dc = 1 TO nw
  IF prdd(cnf, d, v, dc) = 1 THEN prdw(cnf, d, v) = prdw(cnf, d, v) + 1
  IF prdd(cnf, d, v, dc) = -1 THEN prdl(cnf, d, v) = prdl(cnf, d, v) + 1
 NEXT
SCREEN 11: CLS :  wof = 0
 PRINT TAB(40 - (LEN(team$(cnf, d, v))) / 2); team$(cnf, d, v)
 
 PRINT TAB(34); Recrdw(cnf, d, v); "-"; Recrdl(cnf, d, v); "-"; Recrdt(cnf, d, v)
  LOCATE 2, 53: PRINT "Prediction record:"; prdw(cnf, d, v); "-"; prdl(cnf, d, v)
 LOCATE 3, 58: PRINT "Prediction %="; CINT(prdw(cnf, d, v) / (prdw(cnf, d, v) + prdl(cnf, d, v)) * 100)
 LINE (0, 0)-(0, 15), 15, BF: LINE (1, 0)-(2, 15), 7, BF: LINE (3, 0)-(4, 15), 8, BF
 LINE (639, 0)-(639, 15), 15, BF: LINE (638, 0)-(637, 15), 7, BF: LINE (636, 0)-(635, 15), 8, BF
 LINE (0, 0)-(640, 0), c(cnf): LINE (0, 15)-(640, 15), cc(cnf)
 LOCATE 4, 54: PRINT "Prediction score="; Pptsf(cnf, d, v); "-"; Pptsa(cnf, d, v)
 
 LOCATE 3, 1: PRINT "           pf   pa prd"
 
 FOR game = 1 TO nw
  skip = 0
  
  IF tmpld$(cnf, d, v, game) = "bye week" THEN wof = wof + 1: skip = 1
  IF pf(cnf, d, v, game) > pa(cnf, d, v, game) THEN cwl = 11 ELSE cwl = 3
  IF skip = 0 THEN LOCATE 3 + game - wof, 1: PRINT tmpld$(cnf, d, v, game); :  PRINT TAB(10); ":"; pf(cnf, d, v, game); TAB(15); "-"; TAB(16); pa(cnf, d, v, game); TAB(20); : IF prdd(cnf, d, v, game) = 1 THEN PRINT "yes" ELSE IF prdd(cnf, d, v, game) = -1 THEN PRINT "no" ELSE PRINT "?"
  skip = 0
 NEXT
 
 LOCATE 4 + game, 1: PRINT " Total:   "; ttlpf(cnf, d, v); " "; ttlpa(cnf, d, v)
 
 LOCATE 5 + game, 1: PRINT " Average: "; CINT(ttlpf(cnf, d, v) / gmspld(cnf, d, v)); " "; CINT(ttlpa(cnf, d, v) / gmspld(cnf, d, v))
 
 LOCATE 7 + game, 1: PRINT "Average margin= "; avgmrgn(cnf, d, v)
 LOCATE 4, 40: PRINT "Records"
 IF dvw(cnf, d, v) > 0 THEN dvp = CLNG(dvw(cnf, d, v) / (dvw(cnf, d, v) + dvl(cnf, d, v)) * 1000) / 1000 ELSE dvp = 0
 LOCATE 6, 28: PRINT "Divisional ="; dvw(cnf, d, v); "-"; dvl(cnf, d, v); "- 0 ="; dvp * 100; "%"
 IF hmew(cnf, d, v) > 0 THEN hmep = CLNG(hmew(cnf, d, v) / (hmew(cnf, d, v) + hmel(cnf, d, v)) * 1000) / 1000 ELSE hmep = 0
 LOCATE 8, 28: PRINT "      Home ="; hmew(cnf, d, v); "-"; hmel(cnf, d, v); "- 0 ="; hmep * 100; "%"
 IF awyw(cnf, d, v) > 0 THEN awyp = CLNG(awyw(cnf, d, v) / (awyw(cnf, d, v) + awyl(cnf, d, v)) * 1000) / 1000 ELSE awyp = 0
 LOCATE 9, 28: PRINT "      Away ="; awyw(cnf, d, v); "-"; awyl(cnf, d, v); "- 0 ="; awyp * 100; "%"
 IF AFCw(cnf, d, v) > 0 THEN AFCp = CLNG(AFCw(cnf, d, v) / (AFCw(cnf, d, v) + AFCl(cnf, d, v)) * 1000) / 1000 ELSE AFCp = 0
 LOCATE 11, 28: PRINT "    vs AFC ="; AFCw(cnf, d, v); "-"; AFCl(cnf, d, v); "- 0 ="; AFCp * 100; "%"
 IF NFCw(cnf, d, v) > 0 THEN NFCp = CLNG(NFCw(cnf, d, v) / (NFCw(cnf, d, v) + NFCl(cnf, d, v)) * 1000) / 1000 ELSE NFCp = 0
 LOCATE 12, 28: PRINT "    vs NFC ="; NFCw(cnf, d, v); "-"; NFCl(cnf, d, v); "- 0 ="; NFCp * 100; "%"
 LOCATE 15, 30: PRINT "Overal ranking :"; tmrnk(cnf, d, v)

Done:
 i$ = INKEY$
 IF i$ = "" THEN GOTO Done
 IF i$ = "n" OR i$ = "N" THEN GOTO NEXTT
 IF i$ = "p" OR i$ = "P" THEN GOTO PREVT
 IF i$ = "g" OR i$ = "G" THEN GOTO GAMEPRED
 IF retref = 1 THEN GOTO DISPRNKNGS
 GOTO Main

WPR:
 LOCATE 27, 10: PRINT "               Press [ENTER] to continue               "
 i$ = INKEY$
 IF i$ = "" THEN GOTO WPR
 IF i$ = "Q" OR i$ = "q" THEN LOCATE 28, 5:  PRINT "QUIT                     ": END
 IF i$ = "M" OR i$ = "m" THEN GOTO Main

WPRreal:
 CLS
CLEARVBLS:
 ttlpow = 0: ttlpol = 0: ttlpAFCw = 0: ttlpAFCl = 0: ttlpNFCw = 0
 ttlpNFCl = 0: ttlpJONw = 0: ttlpJONl = 0
 FOR wk = 1 TO nwks
  wkpow(wk) = 0: wkpol(wk) = 0
  FOR cnf = 1 TO 2
   wkpcnfw(cnf, wk) = 0: wkpcnfl(cnf, wk) = 0
  NEXT
 NEXT

 SCREEN 11:
 IF nw > 17 THEN nws = 17 ELSE nws = nw
 FOR wk = 1 TO nws
  FOR cnf = 1 TO 2
   FOR d = 1 TO 3
    FOR tm = 1 TO 5
     IF prdd(cnf, d, tm, wk) = 1 THEN wkpow(wk) = wkpow(wk) + 1
     IF prdd(cnf, d, tm, wk) = -1 THEN wkpol(wk) = wkpol(wk) + 1
     IF prdd(cnf, d, tm, wk) = 1 THEN wkpcnfw(cnf, wk) = wkpcnfw(cnf, wk) + 1
     IF prdd(cnf, d, tm, wk) = -1 THEN wkpcnfl(cnf, wk) = wkpcnfl(cnf, wk) + 1
    NEXT tm
   NEXT d
  NEXT cnf
 wkpow(wk) = wkpow(wk) / 2
 wkpol(wk) = wkpol(wk) / 2
 NEXT wk
  LOCATE 1, 26: PRINT "Summary of predicting records"
  LOCATE 2, 11: PRINT "Overall"
  LOCATE 2, 28: PRINT "AFC"
  LOCATE 2, 46: PRINT "NFC"
 IF pj = 1 THEN  ELSE
 LOCATE 2, 65: PRINT "Jon's Overall":
 FOR wks = 1 TO nwks
  IF wkpow(wks) > 0 THEN wpcto = CLNG((wkpow(wks) / (wkpow(wks) + wkpol(wks))) * 100) ELSE wpcto = 0
  IF wkpcnfw(1, wks) > 0 THEN wpctA = CLNG((wkpcnfw(1, wks) / (wkpcnfw(1, wks) + wkpcnfl(1, wks))) * 100) ELSE wpctA = 0
  IF wkpcnfw(2, wks) > 0 THEN wpctN = CLNG((wkpcnfw(2, wks) / (wkpcnfw(2, wks) + wkpcnfl(2, wks))) * 100) ELSE wpctN = 0
  IF Jonpw(wks) > 0 THEN wpctJ = CLNG((Jonpw(wks) / (Jonpw(wks) + Jonpl(wks))) * 100) ELSE wpctJ = 0
  wkt$ = STR$(wks)
  IF wks < 10 THEN wksp$ = LEFT$(wkt$, LEN(wkt$))
  IF wks >= 10 THEN wksp$ = RIGHT$(wkt$, LEN(wkt$) - 1)
   LOCATE wks + 2, 1: PRINT "Week "; wksp$; ": "; wkpow(wks); "-"; wkpol(wks); " ="; wpcto; "%  "
   LOCATE wks + 2, 27: PRINT wkpcnfw(1, wks); "-"; wkpcnfl(1, wks); " ="; wpctA; "%"
   LOCATE wks + 2, 45: PRINT wkpcnfw(2, wks); "-"; wkpcnfl(2, wks); " ="; wpctN; "%"
  IF pj = 1 THEN  ELSE
  LOCATE wks + 2, 65: PRINT Jonpw(wks); "-"; Jonpl(wks); " ="; wpctJ; "%"
  ttlpow = ttlpow + wkpow(wks)
  ttlpol = ttlpol + wkpol(wks)
  ttlpAFCw = ttlpAFCw + wkpcnfw(1, wks)
  ttlpAFCl = ttlpAFCl + wkpcnfl(1, wks)
  ttlpNFCw = ttlpNFCw + wkpcnfw(2, wks)
  ttlpNFCl = ttlpNFCl + wkpcnfl(2, wks)
  ttlpJONw = ttlpJONw + Jonpw(wks)
  ttlpJONl = ttlpJONl + Jonpl(wks)
 NEXT wks
 ttlpcto = CLNG((ttlpow / (ttlpow + ttlpol)) * 100)
 ttlpctA = CLNG((ttlpAFCw / (ttlpAFCw + ttlpAFCl)) * 100)
 ttlpctN = CLNG((ttlpNFCw / (ttlpNFCw + ttlpNFCl)) * 100)
 'ttlpctJ = CLNG((ttlpJONw / (ttlpJONw + ttlpJONl)) * 100)
  PRINT "Totals =="; :  PRINT ttlpow; "-"; ttlpol; " ="; ttlpcto; "%"; : cl = CSRLIN
  LOCATE cl, 27: PRINT ttlpAFCw; "-"; ttlpAFCl; " ="; ttlpctA; "%"
  LOCATE cl, 45: PRINT ttlpNFCw; "-"; ttlpNFCl; " ="; ttlpctN; "%"
 IF pj = 1 THEN  ELSE
 LOCATE cl, 64: PRINT ttlpJONw; "-"; ttlpJONl; " ="; ttlpctJ; "%"
 avgpow = CINT(ttlpow / nwks): avgpol = CINT(ttlpol / nwks): avgpcto = CLNG((avgpow / (avgpow + avgpol)) * 100)
 avgpAw = CINT(ttlpAFCw / nwks): avgpAl = CINT(ttlpAFCl / nwks): avgpctA = CLNG((avgpAw / (avgpAw + avgpAl)) * 100)
 avgpNw = CINT(ttlpNFCw / nwks): avgpNl = CINT(ttlpNFCl / nwks): avgpctN = CLNG((avgpNw / (avgpNw + avgpNl + .0001)) * 100)
 'avgpJw = CINT(ttlpJONw / nwks): avgpJl = CINT(ttlpJONl / nwks): avgpctJ = CLNG((avgpJw / (avgpJw + avgpJl)) * 100)
  LOCATE cl + 1: PRINT " Avgs ==="; avgpow; "-"; avgpol; " ="; avgpcto; "%"
 LOCATE cl + 1, 27: PRINT avgpAw; "-"; avgpAl; " ="; avgpctA; "%"
 LOCATE cl + 1, 45: PRINT avgpNw; "-"; avgpNl; " ="; avgpctN; "%"
 IF pj = 1 THEN  ELSE
 LOCATE cl + 1, 65: PRINT avgpJw; "-"; avgpJl; " ="; avgpctJ; "%"
 IF nwks = nw OR (nw > 17 AND nwks = 17) THEN LOCATE cl + 2, 1: PRINT "Pscores ="; Pscrof / 2; "-"; Pscroa / 2; : LOCATE cl + 2, 27: PRINT Pscrcf(1); "-"; Pscrca(1); : LOCATE cl + 2, 45: PRINT Pscrcf(2); "-"; Pscrca(2): LOCATE cl + 2, 60: PRINT "Wk"; Pscrf(wks - 1) / 2; "-"; Pscra(wks - 1) / 2:  ' LOCATE cl + 2, 66: PRINT "Gb="; (CLNG(((ttlpow - ttlpJONw) + (ttlpJONl - ttlpol)) / 2) * 10) / 10
 IF (nwks <> nw AND nw < 18) OR (nwks <> nw AND nwks <> 17) THEN LOCATE cl + 2, 1: PRINT "PS wk#"; wksp$; Pscrf(wks - 1) / 2; "-"; Pscra(wks - 1) / 2
  LOCATE cl + 3, 2:  PRINT "M"; :  PRINT "enu, "; :  PRINT "Q"; :  PRINT "uit, "; :  PRINT "C"; :  PRINT "urrent, "; :  PRINT "W"; :  PRINT "hole season, "; :  PRINT "+"; :  PRINT " more, ";
  PRINT "-"; :  PRINT " less, "; :  PRINT "#"; :  PRINT " weeks, "; :  PRINT "J"; :  PRINT "on's record"; : IF pj = 1 THEN PRINT " off" ELSE PRINT " on "
  LOCATE cl + 4: PRINT "===>"; : LOCATE cl + 3
Choose2:
 i$ = INKEY$
 IF i$ = "" THEN GOTO Choose2
 IF i$ = "Q" OR i$ = "q" THEN LOCATE cl + 4, 5:  PRINT "QUIT             "; : LOCATE cl + 3: END
 IF i$ = "M" OR i$ = "m" THEN LOCATE cl + 4, 5:  PRINT "MAIN MENU        "; :  LOCATE cl + 4, 27: PRINT "Press [ENTER] to continue"; : LOCATE cl + 3: GOTO RET2MAIN
 IF i$ = "-" THEN nwks = nwks - 1: LOCATE cl + 4, 5:  PRINT "Less weeks       "; : FOR wa = 1 TO 1000: NEXT: LOCATE cl + 4, 5: PRINT "          "; : LOCATE cl + 3: FOR wa = 1 TO 1000: NEXT: GOTO LESSWKS
 IF i$ = "+" THEN nwks = nwks + 1: LOCATE cl + 4, 5:  PRINT "More weeks       "; : FOR wa = 1 TO 1000: NEXT: LOCATE cl + 4, 5: PRINT "          "; : LOCATE cl + 3: GOTO MOREWKS
 IF i$ = "c" OR i$ = "C" THEN nwks = nw: LOCATE cl + 4, 5:  PRINT "Current week     "; : LOCATE cl + 3: FOR wa = 1 TO 1000: NEXT: GOTO WPRreal
 IF i$ = "w" OR i$ = "W" THEN nwks = 17: LOCATE cl + 4, 5:  PRINT "Whole season     "; : LOCATE cl + 3: FOR wa = 1 TO 1000: NEXT: GOTO WPRreal
 IF i$ = "j" OR i$ = "J" THEN pj = 1 - pj: GOTO CLEARVBLS
 IF i$ = "b" OR i$ = "B" THEN q = 24 - q: GOTO CLEARVBLS ELSE q = 0
 IF i$ = "g" OR i$ = "G" THEN GOTO PREDGAME
 IF (ASC(i$) < 58) AND (ASC(i$) > 48) THEN nwks = VAL(i$): GOTO WPRreal
 IF i$ = "0" THEN nwks = 10: GOTO WPRreal
  LOCATE cl + 4, 1: PRINT "==="; : : PRINT ">"; : LOCATE cl + 3: GOTO Choose2
RET2MAIN:
 i$ = INKEY$
 IF i$ = "" THEN GOTO RET2MAIN
 GOTO Main
MOREWKS:
 IF nwks > 17 THEN nwks = 17: GOTO Choose2
 GOTO WPRreal
LESSWKS:
 IF nwks < 1 THEN nwks = 1: GOTO Choose2
 GOTO WPRreal

RANKINGS:
 LOCATE 27, 10: PRINT "               Press [ENTER] to continue               "
 i$ = INKEY$
 IF i$ = "" THEN GOTO RANKINGS
 IF i$ = "Q" OR i$ = "q" THEN LOCATE 28, 5:  PRINT "QUIT                     ": END
 IF i$ = "M" OR i$ = "m" THEN GOTO Main

DISPRNKNGS:
 SCREEN 11
 retref = 0
 CLS :  LOCATE 1, 1: PRINT "   Team                record   pts"; TAB(41); "    Team               record   pts"
 FOR prn = 1 TO 15
  LOCATE prn + 2, 1:  PRINT prn; :  PRINT rtm$(prn); :  PRINT TAB(25); Recrdw(refcnf(prn), refd(prn), reftm(prn)); Recrdl(refcnf(prn), refd(prn), reftm(prn)); TAB(32); :  PRINT rtmpts(prn)
 NEXT
 FOR prn = 16 TO 30
  LOCATE prn - 15 + 2, 41:  PRINT prn; :  PRINT rtm$(prn); :  PRINT TAB(65); Recrdw(refcnf(prn), refd(prn), reftm(prn)); Recrdl(refcnf(prn), refd(prn), reftm(prn)); TAB(72); :  PRINT rtmpts(prn)
 NEXT
 
PRNT:
 LOCATE 21, 1: PRINT "                                                                          ";
 IF retv = 0 THEN LOCATE 22, 1: PRINT "Press  'M'  to return to main screen, 'T' to view a team, 'Q'  to quit."; : LOCATE 20, 1
 IF retv >= 1 THEN LOCATE 22, 18: PRINT "Press 'ENTER' to return to Predictor.": LOCATE 20, 1
 
Decide:
 i$ = INKEY$: IF i$ = "" THEN GOTO Decide
 IF retv = 0 AND (i$ = "M" OR i$ = "m") THEN GOTO Main
 IF i$ = "Q" OR i$ = "q" THEN END
 IF retv = 0 AND (i$ = "T" OR i$ = "t") THEN GOTO LNKNFO
 IF retv >= 1 AND i$ = CHR$(13) THEN GOTO PREDGAMES
 IF retv = 0 THEN v = VAL(i$): IF v > 0 AND v <= 9 THEN GOTO LNKNFO
 IF retv = 0 AND (i$ = "G" OR i$ = "g") THEN GOTO PREDGAME
 GOTO Decide

LNKNFO:
 
 LOCATE 21, 1: PRINT "Enter the number of the team you wish to view or 'b' to go back.";
 LOCATE 22, 1: PRINT "                                                                               ";
 LOCATE 22, 1:  PRINT "==="; :  PRINT ">"; : : INPUT "", tmlnk$
 IF tmlnk$ = "b" OR tmlnk$ = "B" THEN GOTO PRNT
 tmlnk = VAL(tmlnk$)
 IF tmlnk < 1 OR tmlnk > 30 THEN GOTO LNKNFOBK
 cnf = refcnf(tmlnk)
 d = refd(tmlnk)
 v = reftm(tmlnk)
 retref = 1
 GOTO DISPINFO

LNKNFOBK:
 cx = cx + 1: IF cx = 5 THEN cx = 0
 GOTO LNKNFO

GAMEPRED:
  LOCATE 27, 10: PRINT "               Press [ENTER] to continue               "
 i$ = INKEY$
 IF i$ = "" THEN GOTO GAMEPRED
 IF i$ = "Q" OR i$ = "q" THEN LOCATE 28, 5:  PRINT "QUIT                     ": END
 IF i$ = "M" OR i$ = "m" THEN GOTO Main
 IF i$ = "T" OR i$ = "t" THEN GOTO INFO
PREDGAME:
 CLS : LOCATE 1, 1: PRINT "Creating short team names.....": FOR wa = 1 TO 1000: NEXT
 FOR c = 1 TO 2
  FOR d = 1 TO 3
   FOR tm = 1 TO 5
    s = LEN(team$(c, d, tm))
    FOR x = s TO 1 STEP -1
     tmp$ = MID$(team$(c, d, tm), x, 1)
     IF tmp$ = " " THEN x = 1: GOTO DNE
     Stm$(c, d, tm) = RIGHT$(team$(c, d, tm), s - (x - 1))
DNE:
    NEXT
   NEXT
  NEXT
 NEXT

PREDGAMES:
 CLS : SCREEN 12: IF retv = 1 THEN retv = 0
 cw(0) = 1: cw(1) = 4: cw(2) = 2: cw(3) = 1: cw(4) = 1
 FOR x = 0 TO 639 STEP 8
  y = x * .75
  LINE (0 + x, 0)-(639 - x, 479), 2
  LINE (0 + x + 1, 0)-(639 - (x + 1), 479), 4
  LINE (0 + x + 2, 0)-(639 - (x + 2), 479), 1
  LINE (0 + x + 3, 0)-(639 - (x + 3), 479), 8
  LINE (0, 0 + y)-(639, 479 - y), 2
  LINE (0, 0 + (y + 1))-(639, 479 - (y + 1)), 1
  LINE (0, 0 + (y + 2))-(639, 479 - (y + 2)), 4
 NEXT
  LOCATE 1, 28: PRINT " Travis's Game Predictor "
 IF sb = 1 THEN LOCATE 3, 35: COLOR 13: PRINT "  SUPERBOWL  "
 LOCATE 30, 10: COLOR 15: PRINT "S"; : COLOR 7: PRINT "uperbowl, "; : COLOR 15: PRINT "R"; : COLOR 7: PRINT "egular, "; : COLOR 15: PRINT "E"; : COLOR 7: PRINT "xit Game Predictor, "; : COLOR 15: PRINT "L"; : COLOR 7: PRINT "ist team rankings, "; : COLOR 15: PRINT "Q"; : COLOR 7: PRINT "uit"; : LOCATE 2, 1
 LINE (0, 0)-(639, 479), 14, B
 LINE (2, 479)-(24, 463), 14: LINE (638, 479)-(616, 463), 14: LINE -(22, 463), 14
 LINE (71, 479)-(71, 463), 14: LINE (591, 479)-(591, 463), 14
 PAINT (40, 470), 0, 14: PAINT (610, 470), 0, 14
 LINE (71, 478)-(71, 464), 0: LINE (591, 478)-(591, 464), 0
 LINE (320, 240)-(235, 318), 7: LINE (320, 240)-(404, 318), 7
 LINE (320, 240)-(235, 353), 7: LINE (320, 240)-(404, 353), 7
 LINE (234, 319)-(405, 352), 7, B: LINE (232, 317)-(407, 354), 7, B
 LINE (233, 318)-(406, 353), 0, B
 PAINT (245, 316), 8, 7: PAINT (394, 316), 8, 7: PAINT (240, 320), 8, 7: PAINT (399, 320), 8, 7
 LINE (242, 312)-(396, 312), 7
 LINE (265, 313)-(263, 316), 0: LINE (374, 313)-(377, 316), 0: PSET (375, 313), 0
 PAINT (242, 313), 0, 7: PAINT (396, 314), 0, 7: PAINT (320, 314), 0, 7
 LINE (242, 345)-(397, 345), 7
 PAINT (320, 348), 0, 7
 LINE (234, 319)-(405, 352), 14, B
 FOR x = 237 TO 399 STEP 3
  LINE (x, 322)-(x, 349), 8
  LINE (x + 1, 322)-(x + 1, 349), 0
 NEXT
 LINE (240, 335)-(399, 335), 3: LINE (242, 336)-(397, 336), 1
 IF sb = 0 THEN ifv$ = "visiting": ifh$ = "home" ELSE ifv$ = "AFC": ifh$ = "NFC"
ENTERH:
 IF retv = 2 THEN COLOR 11: LOCATE 5, 26: PRINT "Enter "; ifv$; " team's rank :"; : COLOR 14: PRINT atr: GOTO ENTERAph
 COLOR 11: LOCATE 5, 26: PRINT "Enter "; ifv$; " team's rank :"; : COLOR 14: INPUT "", atr$
 IF atr$ = "e" OR atr$ = "E" THEN GOTO Main
 IF atr$ = "l" OR atr$ = "L" THEN retv = 1: GOTO DISPRNKNGS
 IF atr$ = "S" OR atr$ = "s" THEN sb = 1: GOTO PREDGAMES
 IF atr$ = "R" OR atr$ = "r" THEN sb = 0: GOTO PREDGAMES
 IF atr$ = "q" OR atr$ = "Q" THEN END
 atr = VAL(atr$)
 IF atr < 1 OR atr > 30 THEN GOTO ENTERH
 c2 = refcnf(atr): d2 = refd(atr): t2 = reftm(atr)
 IF sb = 1 AND c2 = 2 THEN GOTO ENTERH
ENTERAph:
 PAINT (320, 340), 0, 14
 COLOR 14: LOCATE 21, 41 - (LEN(team$(c2, d2, t2)) / 2): PRINT team$(c2, d2, t2): LINE (240, 335)-(399, 335), 3: LINE (242, 336)-(397, 336), 1
ENTERA:
 COLOR 11: LOCATE 7, 28: PRINT "Enter "; ifh$; " team's rank :"; : COLOR 14: INPUT "", htr$
 IF htr$ = "e" OR htr$ = "E" THEN GOTO Main
 IF htr$ = "l" OR htr$ = "L" THEN retv = 2: GOTO DISPRNKNGS
 IF htr$ = "q" OR htr$ = "Q" THEN END
 htr = VAL(htr$)
 IF htr < 1 OR htr > 30 OR htr = atr THEN GOTO ENTERA
 c1 = refcnf(htr): d1 = refd(htr): t1 = reftm(htr)
 IF sb = 1 AND c1 = 1 THEN GOTO ENTERA
 COLOR 14: LOCATE 22, 41 - (LEN(team$(c1, d1, t1)) / 2): PRINT team$(c1, d1, t1): LINE (240, 335)-(399, 335), 3: LINE (242, 336)-(397, 336), 1
 LINE (0, 0)-(639, 479), 14, B
 LINE (2, 479)-(24, 463), 14: LINE (638, 479)-(616, 463), 14: LINE -(22, 463), 14
 x = 0: y = 240: z = 1
CRCT:
 drct = 1
 LG$ = "JD1"
 GOTO WAITING
CRCTb:
 yorn$ = INKEY$
 IF yorn$ = "Y" OR yorn$ = "y" THEN retv = 0: GOTO doPREDICTION
 IF yorn$ = "N" OR yorn$ = "n" THEN retv = 0: GOTO PREDGAMES
 IF yorn$ = CHR$(13) THEN retv = 0: GOTO doPREDICTION
 GOTO CRCT
doPREDICTION:
 CLS : retv = 0
 FOR x = 0 TO 639 STEP 8
  y = x * .75
  LINE (0 + x, 0)-(639 - x, 479), 2
  LINE (0 + x + 1, 0)-(639 - (x + 1), 479), 4
  LINE (0 + x + 2, 0)-(639 - (x + 2), 479), 1
  LINE (0 + x + 3, 0)-(639 - (x + 3), 479), 8
  LINE (0, 0 + y)-(639, 479 - y), 2
  LINE (0, 0 + (y + 1))-(639, 479 - (y + 1)), 1
  LINE (0, 0 + (y + 2))-(639, 479 - (y + 2)), 4
 NEXT
 COLOR 15: LOCATE 1, 28: PRINT " Travis's Game Predictor "
 IF sb = 1 THEN LOCATE 3, 35: COLOR 13: PRINT "  SUPERBOWL  "
 COLOR 11: LOCATE 5, 16: PRINT " Game== "
 LOCATE 7, 24: PRINT " Result== "
 IF sb = 1 THEN cw$ = " vs. " ELSE cw$ = " at "
 COLOR 15: LOCATE 5, 24: PRINT team$(c2, d2, t2); : COLOR 7: PRINT cw$; : COLOR 15: PRINT team$(c1, d1, t1); " "
 COLOR 14: ovt = 0
 IF sb = 0 THEN hmtm = hmew(c1, d1, t1) * 5 - hmel(c1, d1, t1) * 4 - awyl(c1, d1, t1) + Recrdw(c1, d1, t1) * 1.1 + Recrdl(c2, d2, t2) * 1.2 + avgmrgm(c1, d1, t1) + CLNG(.1 * (ttlpf(c1, d1, t1) - ttlpa(c1, d1, t1) + ttlpa(c2, d2, t2) - ttlpf(c2, d2, t2)))
 IF sb = 0 THEN awtm = awyw(c2, d2, t2) * 5 - awyl(c2, d2, t2) * 5 - hmel(c2, d2, t2) + Recrdw(c2, d2, t2) * 1.1 + Recrdl(c1, d1, t1) * 1.2 + avgmrgn(c2, d2, t2) + CLNG(.1 * (ttlpf(c2, d2, t2) - ttlpa(c2, d2, t2) + ttlpa(c1, d1, t1) - ttlpf(c1, d1, t1)))
 IF sb = 0 THEN gdf = (hmtm - awtm) / 4
 IF sb = 1 THEN hmtm = AFCw(c1, d1, t1) * 5 + hmew(c1, d1, t1) * 2 - hmel(c1, d1, t1) * 3 - awyl(c1, d1, t1) + awyw(c1, d1, t1) + Recrdw(c1, d1, t1) + Recrdl(c2, d2, t2) + avgmrgn(c1, d1, t1) * 2 + CLNG(.15 * (ttlpf(c1, d1, t1) - ttlpa(c1, d1, t1) + ttlpa(c2, d2, t2) - ttlpf(c2, d2, t2))) * 1.1
 IF sb = 1 THEN awtm = NFCw(c2, d2, t2) * 5 + awyw(c2, d2, t2) * 2 - awyl(c2, d2, t2) * 3 - hmel(c2, d2, t2) + hmew(c2, d2, t2) + Recrdw(c2, d2, t2) + Recrdl(c1, d1, t1) + avgmrgn(c2, d2, t2) * 2 + CLNG(.15 * (ttlpf(c2, d2, t2) - ttlpa(c2, d2, t2) + ttlpa(c1, d1, t1) - ttlpf(c1, d1, t1))) * 1.1
 IF sb = 1 THEN gdf = (hmtm - awtm) / 5
 ptsh = INT(avgpfgm(c1, d1, t1) + gdf / 2)
 ptsa = INT(avgpfgm(c1, d1, t1) - gdf / 2)
 IF ptsa < 0 THEN ptsh = ptsh + ptsa: ptsa = 0
 IF ptsh < 0 THEN ptsa = ptsa + ptsh: ptsh = 0
 COLOR 15: IF ptsa > ptsh THEN COLOR 14
 LOCATE 7, 35: PRINT Stm$(c2, d2, t2); " :"; ptsa
 COLOR 15: IF ptsh > ptsa THEN COLOR 14
 LOCATE 8, 35: PRINT Stm$(c1, d1, t1); " :"; ptsh
 COLOR 15: LOCATE 30, 13: PRINT "H"; : COLOR 7: PRINT "ard copy, "; : COLOR 15: PRINT "P"; : COLOR 7: PRINT "redict another, "; : COLOR 15: PRINT "M"; : COLOR 7: PRINT "ain menu, "; : COLOR 15: PRINT "T"; : COLOR 7: PRINT "eam rankings, "; : COLOR 15: PRINT "Q"; : COLOR 7: PRINT "uit"; : LOCATE 2, 1
 LINE (2, 479)-(24, 463), 14: LINE (638, 479)-(616, 463), 14: LINE -(22, 463), 14
 LINE (95, 479)-(95, 463), 14: LINE (560, 479)-(560, 463), 14
 PAINT (40, 470), 0, 14: PAINT (610, 470), 0, 14
 LINE (95, 478)-(95, 464), 0: LINE (560, 478)-(560, 464), 0
 x = 320: y = 240: z = 1
WHERETOGO:
 LG$ = "JD2"
 drct = -1
 GOTO WAITING
WHERETOGOb:
 i$ = INKEY$
 IF i$ = "" THEN GOTO WHERETOGO
 IF i$ = "H" OR i$ = "h" THEN GOTO HARDCOPY
 IF i$ = "P" OR i$ = "p" THEN GOTO PREDGAMES
 IF i$ = "M" OR i$ = "m" THEN GOTO Main
 IF i$ = "T" OR i$ = "t" THEN SCREEN 0: GOTO DISPRNKNGS
 IF i$ = "Q" OR i$ = "q" THEN END
 IF i$ = CHR$(13) THEN GOTO PREDGAMES
 GOTO WHERETOGO

HARDCOPY:
 LPRINT Stm$(c2, d2, t2); " at "; Stm$(c1, d1, t1);
 IF gdf < 1 AND gdf > -1 THEN plural$ = "" ELSE plural$ = "s"
 IF gdf = 1 OR gdf = -1 THEN plural$ = ""
 IF gdf > 0 THEN LPRINT TAB(25); Stm$(c1, d1, t1); " by"; CINT(gdf); "point"; plural$
 IF gdf < 0 THEN LPRINT TAB(25); Stm$(c2, d2, t2); " by"; CINT((-1 * gdf)); "point"; plural$
 LPRINT
GOTO WHERETOGO

WAITING:
 IF x = 10 THEN LINE (0, 0)-(639, 479), 14, B
 LINE (640 - x, y)-(640 - x, 480 - y), cw(z)
 LINE (x, 480 - y)-(640 - (640 - x), y), cw(z)
 LINE (640 - x + 1, y + .75)-(640 - x + 1, 480 - y + .75), cw(z - 1) + 8
 LINE (x - 1, 480 - y + .75)-(640 - (640 - x + 1), y + .75), cw(z - 1) + 8
 LINE (640 - x + 2, y + 1.5)-(640 - x + 2, 480 - y + 1.5), cw(z + 1) + 8
 LINE (x - 2, 480 - y + 1.5)-(640 - (640 - x + 2), y + 1.5), cw(z + 1) + 8
 x = x + (10 * drct): IF x >= 320 THEN x = 0: z = z + 1: IF z = 4 THEN z = 1
 IF drct < 0 AND x <= 0 THEN x = 320: z = z + 1: IF z = 4 THEN z = 1
 IF x = 0 AND LG$ = "JD1" THEN COLOR z + 8: LOCATE 10, 28: PRINT "Is this correct ? [y or n]":
 y = .75 * x
IF LG$ = "JD1" THEN GOTO CRCTb
IF LG$ = "JD2" THEN GOTO WHERETOGOb

PLAYPRED:
 COLOR 7: LOCATE 27, 10: PRINT "               Press [ENTER] to continue               "
 i$ = INKEY$
 IF i$ = "" THEN GOTO PLAYPRED
 IF i$ = "Q" OR i$ = "q" THEN LOCATE 28, 5: COLOR 14: PRINT "QUIT                     ": END
 IF i$ = "M" OR i$ = "m" THEN GOTO Main
 IF i$ = "T" OR i$ = "t" THEN GOTO INFO
PREDPLAY:
 CLS : SCREEN 12
 COLOR 15: LOCATE 1, 22: PRINT "Current Standings"; : COLOR 7: PRINT ":"
 LOCATE 3, 2: COLOR 12: PRINT "AFC": LOCATE 3, 41: COLOR 9: PRINT "NFC"
 COLOR 4: afc(0) = 0
 c = 1: FOR sv = 1 TO 6: afc(sv) = 30: NEXT
 FOR ptms = 1 TO 6
  FOR d = 1 TO 3
   FOR tn = 1 TO 5
    IF tmrnk(c, d, tn) < afc(ptms) AND tmrnk(c, d, tn) > afc(ptms - 1) THEN afc(ptms) = tmrnk(c, d, tn): LOCATE 4 + ptms, 1: PRINT team$(c, d, tn); "      ": ptalkd(ptms) = d: ptalkt(ptms) = tn
   NEXT
  NEXT
 NEXT

 COLOR 1: nfc(0) = 0
 c = 2: FOR sv = 1 TO 6: nfc(sv) = 30: NEXT
 FOR ptms = 1 TO 6
  FOR d = 1 TO 3
   FOR tn = 1 TO 5
    IF tmrnk(c, d, tn) < nfc(ptms) AND tmrnk(c, d, tn) > nfc(ptms - 1) THEN nfc(ptms) = tmrnk(c, d, tn): LOCATE 4 + ptms, 40: PRINT team$(c, d, tn); "      ": ptnlkd(ptms) = d: ptnlkd(ptms) = tn
   NEXT
  NEXT
 NEXT

 LOCATE 15, 5: COLOR 7: PRINT "Press [ENTER] to view AFC playoff prediction"
PLYKP:
 i$ = INKEY$: IF i$ = "" THEN GOTO PLYKP

 CLS
 PRINT team$(1, ptalkd(3), ptalkt(3)); " vs. "; team$(1, ptalkd(5), ptalkt(5)); ".....   winner: ";

 hmtm = AFCw(1, ptalkd(3), ptalkt(3)) * 5 + hmew(1, ptalkd(3), ptalkt(3)) * 2 - hmel(1, ptalkd(3), ptalkt(3)) * 3 - awyl(1, ptalkd(3), ptalkt(3)) + awyw(1, ptalkd(3), ptalkt(3)) + Recrdw(1, ptalkd(3), ptalkt(3)) + Recrdl(1, ptalkd(5), ptalkt(5)) + avgmrgn(1, ptalkd(3), ptalkt(3)) * 2
 awtm = AFCw(1, ptalkd(5), ptalkt(5)) * 5 + awyw(1, ptalkd(5), ptalkt(5)) * 2 - awyl(1, ptalkd(5), ptalkt(5)) * 3 - hmel(1, ptalkd(5), ptalkt(5)) + hmew(1, ptalkd(5), ptalkt(5)) + Recrdw(1, ptalkd(5), ptalkt(5)) + Recrdl(1, ptalkd(3), ptalkt(3)) + avgmrgn(1, ptalkd(5), ptalkt(5)) * 2
 gdf = (hmtm - awtm) / 3
 ptsh = INT(avgpfgm(c1, d1, t1) + gdf / 2)
 ptsa = INT(avgpfgm(c1, d1, t1) - gdf / 2)
 IF ptsa < 0 THEN ptsh = ptsh + ptsa: ptsa = 0
 IF ptsh < 0 THEN ptsa = ptsa + ptsh: ptsh = 0
 IF ptsh > ptsa THEN PRINT team$(1, ptalkd(3), ptalkt(3)): nra = 3 ELSE PRINT team$(1, ptalkd(5), ptalkt(5)): nra = 5
 PRINT

 PRINT team$(1, ptalkd(4), ptalkt(4)); " vs. "; team$(1, ptalkd(6), ptalkt(6)); ".....   winner: ";

 hmtm = AFCw(1, ptalkd(4), ptalkt(4)) * 5 + hmew(1, ptalkd(4), ptalkt(4)) * 2 - hmel(1, ptalkd(4), ptalkt(4)) * 3 - awyl(1, ptalkd(4), ptalkt(4)) + awyw(1, ptalkd(4), ptalkt(4)) + Recrdw(1, ptalkd(4), ptalkt(4)) + Recrdl(1, ptalkd(6), ptalkt(6)) + avgmrgn(1, ptalkd(4), ptalkt(4)) * 2
 awtm = AFCw(1, ptalkd(6), ptalkt(6)) * 5 + awyw(1, ptalkd(6), ptalkt(6)) * 2 - awyl(1, ptalkd(6), ptalkt(6)) * 3 - hmel(1, ptalkd(6), ptalkt(6)) + hmew(1, ptalkd(6), ptalkt(6)) + Recrdw(1, ptalkd(6), ptalkt(6)) + Recrdl(1, ptalkd(4), ptalkt(4)) + avgmrgn(1, ptalkd(6), ptalkt(6)) * 2
 gdf = (hmtm - awtm) / 3
 ptsh = INT(avgpfgm(c1, d1, t1) + gdf / 2)
 ptsa = INT(avgpfgm(c1, d1, t1) - gdf / 2)
 IF ptsa < 0 THEN ptsh = ptsh + ptsa: ptsa = 0
 IF ptsh < 0 THEN ptsa = ptsa + ptsh: ptsh = 0
 IF ptsh > ptsa THEN PRINT team$(1, ptalkd(4), ptalkt(4)): nrb = 4 ELSE PRINT team$(1, ptalkd(6), ptalkt(6)): nra = 6
 PRINT : PRINT

 PRINT team$(1, ptalkd(nra), ptalkt(nra)); " vs. "; team$(1, ptalkd(1), ptalkt(1)); ".....   winner: ";