'===========================================================================
' Subject: 3D (WORMHOLE) RACING DEMO         Date: 07-25-99 (12:02)       
' Author:  Marc Santa                        Code: QB, QBasic, PDS        
' Origin:  santa@tir.com                   Packet: DEMOS.ABC
'===========================================================================
'
'
'  3-d Racing
'
'
DIM SHARED size(1 TO 2000) AS INTEGER
DIM SHARED col(1 TO 2000) AS INTEGER
DIM SHARED row(1 TO 2000) AS INTEGER
DIM SHARED over AS INTEGER, up AS INTEGER
DIM SHARED o AS INTEGER, u AS INTEGER
DIM SHARED speed AS INTEGER, dir AS INTEGER
DIM SHARED a, b
RANDOMIZE TIMER
CLS : SCREEN 13
a = .0104 * b - 14.11
over = 90: up = 90: o = 0: u = 0: speed = 0: b = 301

FOR i = 1 TO 2000
 T! = TIMER
 DO
 LOOP UNTIL TIMER-T! > .3
 LOCATE 1, 1: PRINT speed; o; i
 READ col(i), row(i): size(i) = 25
 IF i > 15 THEN

  FOR w = 1 TO speed: NEXT w
  FOR g = 0 TO 13
  CIRCLE (col(i - g), row(i - g)), size(i - g), 0
    size(i - g) = size(i - g) + 15
    CIRCLE (col(i - g), row(i - g)), size(i - g), 1
  NEXT g
  CIRCLE (col(i - 13), row(i - 13)), size(i - 13), 0

  LINE (over + (65) * COS(a + .104), up + (65 / 1.2 * SIN(a + .104)))-(over + (68) * COS(a + .312), up + (68 / 1.2 * SIN(a + .312))), 0
  LINE (over + (68) * COS(a + .312), up + (68 / 1.2 * SIN(a + .312)))-(over + (87) * COS(a + .238), up + (87 / 1.2 * SIN(a + .238))), 0
  LINE (over + (87) * COS(a + .238), up + (87 / 1.2 * SIN(a + .238)))-(over + (84) * COS(a + .078), up + (84 / 1.2 * SIN(a + .078))), 0
  LINE (over + (84) * COS(a + .078), up + (84 / 1.2 * SIN(a + .078)))-(over + (65) * COS(a + .104), up + (65 / 1.2 * SIN(a + .104))), 0
  LINE (over + (65) * COS(a - .104), up + (65 / 1.2 * SIN(a - .104)))-(over + (68) * COS(a - .312), up + (68 / 1.2 * SIN(a - .312))), 0
  LINE (over + (68) * COS(a - .312), up + (68 / 1.2 * SIN(a - .312)))-(over + (86) * COS(a - .248), up + (86 / 1.2 * SIN(a - .248))), 0
  LINE (over + (86) * COS(a - .248), up + (86 / 1.2 * SIN(a - .248)))-(over + (84) * COS(a - .088), up + (84 / 1.2 * SIN(a - .088))), 0
  LINE (over + (84) * COS(a - .088), up + (84 / 1.2 * SIN(a - .088)))-(over + (65) * COS(a - .104), up + (65 / 1.2 * SIN(a - .104))), 0
  LINE (over + (75) * COS(a + .097), up + (75 / 1.2 * SIN(a + .097)))-(over + (75) * COS(a - .102), up + (75 / 1.2 * SIN(a - .102))), 0
  LINE (over + (66.5) * COS(a + .208), up + (66.5 / 1.2 * SIN(a + .208)))-(over + (40) * COS(a + .208), up + (40 / 1.2 * SIN(a + .208))), 0
  LINE (over + (66.5) * COS(a - .208), up + (66.5 / 1.2 * SIN(a - .208)))-(over + (40) * COS(a - .208), up + (40 / 1.2 * SIN(a - .208))), 0
  LINE (over + (40) * COS(a + .208), up + (40 / 1.2 * SIN(a + .208)))-(over + (40) * COS(a - .208), up + (40 / 1.2 * SIN(a - .208))), 0
  LINE (over + (55) * COS(a + .097), up + (55 / 1.2 * SIN(a + .097)))-(over + (55) * COS(a - .097), up + (55 / 1.2 * SIN(a - .097))), 0
  LINE (over + (45) * COS(a + .097), up + (45 / 1.2 * SIN(a + .097)))-(over + (45) * COS(a - .097), up + (45 / 1.2 * SIN(a - .097))), 0
  LINE (over + (55) * COS(a + .097), up + (55 / 1.2 * SIN(a + .097)))-(over + (45) * COS(a + .097), up + (45 / 1.2 * SIN(a + .097))), 0
  LINE (over + (55) * COS(a - .097), up + (55 / 1.2 * SIN(a - .097)))-(over + (45) * COS(a - .097), up + (45 / 1.2 * SIN(a - .097))), 0
'  PAINT (over + (50) * COS(a - .01), up + (50 / 1.2 * SIN(a - .01))), 0
  LINE (over + (40) * COS(a + .148), up + (40 / 1.2 * SIN(a + .148)))-(over + (35) * COS(a + .168), up + (35 / 1.2 * SIN(a + .168))), 0
  LINE (over + (35) * COS(a + .168), up + (35 / 1.2 * SIN(a + .168)))-(over + (37) * COS(a + .358), up + (37 / 1.2 * SIN(a + .358))), 0
  LINE (over + (37) * COS(a + .358), up + (37 / 1.2 * SIN(a + .358)))-(over + (57) * COS(a + .228), up + (57 / 1.2 * SIN(a + .228))), 0
  LINE (over + (40) * COS(a - .148), up + (40 / 1.2 * SIN(a - .148)))-(over + (35) * COS(a - .168), up + (35 / 1.2 * SIN(a - .168))), 0
  LINE (over + (35) * COS(a - .168), up + (35 / 1.2 * SIN(a - .168)))-(over + (37) * COS(a - .358), up + (37 / 1.2 * SIN(a - .358))), 0
  LINE (over + (37) * COS(a - .358), up + (37 / 1.2 * SIN(a - .358)))-(over + (57) * COS(a - .228), up + (57 / 1.2 * SIN(a - .228))), 0
  a = .0104 * b - 14.11: up = ((row(i))) - u: over = ((col(i)))
  LINE (over + (65) * COS(a + .104), up + (65 / 1.2 * SIN(a + .104)))-(over + (68) * COS(a + .312), up + (68 / 1.2 * SIN(a + .312))), 15
  LINE (over + (68) * COS(a + .312), up + (68 / 1.2 * SIN(a + .312)))-(over + (87) * COS(a + .238), up + (87 / 1.2 * SIN(a + .238))), 15
  LINE (over + (87) * COS(a + .238), up + (87 / 1.2 * SIN(a + .238)))-(over + (84) * COS(a + .078), up + (84 / 1.2 * SIN(a + .078))), 15
  LINE (over + (84) * COS(a + .078), up + (84 / 1.2 * SIN(a + .078)))-(over + (65) * COS(a + .104), up + (65 / 1.2 * SIN(a + .104))), 15
  LINE (over + (65) * COS(a - .104), up + (65 / 1.2 * SIN(a - .104)))-(over + (68) * COS(a - .312), up + (68 / 1.2 * SIN(a - .312))), 15
  LINE (over + (68) * COS(a - .312), up + (68 / 1.2 * SIN(a - .312)))-(over + (86) * COS(a - .248), up + (86 / 1.2 * SIN(a - .248))), 15
  LINE (over + (86) * COS(a - .248), up + (86 / 1.2 * SIN(a - .248)))-(over + (84) * COS(a - .088), up + (84 / 1.2 * SIN(a - .088))), 15
  LINE (over + (84) * COS(a - .088), up + (84 / 1.2 * SIN(a - .088)))-(over + (65) * COS(a - .104), up + (65 / 1.2 * SIN(a - .104))), 15
  LINE (over + (75) * COS(a + .097), up + (75 / 1.2 * SIN(a + .097)))-(over + (75) * COS(a - .102), up + (75 / 1.2 * SIN(a - .102))), 15
  LINE (over + (66.5) * COS(a + .208), up + (66.5 / 1.2 * SIN(a + .208)))-(over + (40) * COS(a + .208), up + (40 / 1.2 * SIN(a + .208))), 15
  LINE (over + (66.5) * COS(a - .208), up + (66.5 / 1.2 * SIN(a - .208)))-(over + (40) * COS(a - .208), up + (40 / 1.2 * SIN(a - .208))), 15
  LINE (over + (40) * COS(a + .208), up + (40 / 1.2 * SIN(a + .208)))-(over + (40) * COS(a - .208), up + (40 / 1.2 * SIN(a - .208))), 15
  LINE (over + (55) * COS(a + .097), up + (55 / 1.2 * SIN(a + .097)))-(over + (55) * COS(a - .097), up + (55 / 1.2 * SIN(a - .097))), 15
  LINE (over + (45) * COS(a + .097), up + (45 / 1.2 * SIN(a + .097)))-(over + (45) * COS(a - .097), up + (45 / 1.2 * SIN(a - .097))), 15
  LINE (over + (55) * COS(a + .097), up + (55 / 1.2 * SIN(a + .097)))-(over + (45) * COS(a + .097), up + (45 / 1.2 * SIN(a + .097))), 15
  LINE (over + (55) * COS(a - .097), up + (55 / 1.2 * SIN(a - .097)))-(over + (45) * COS(a - .097), up + (45 / 1.2 * SIN(a - .097))), 15
'  PAINT (over + (50) * COS(a - .01), up + (50 / 1.2 * SIN(a - .01))), 15
  LINE (over + (40) * COS(a + .148), up + (40 / 1.2 * SIN(a + .148)))-(over + (35) * COS(a + .168), up + (35 / 1.2 * SIN(a + .168))), 15
  LINE (over + (35) * COS(a + .168), up + (35 / 1.2 * SIN(a + .168)))-(over + (37) * COS(a + .358), up + (37 / 1.2 * SIN(a + .358))), 15
  LINE (over + (37) * COS(a + .358), up + (37 / 1.2 * SIN(a + .358)))-(over + (57) * COS(a + .228), up + (57 / 1.2 * SIN(a + .228))), 15
  LINE (over + (40) * COS(a - .148), up + (40 / 1.2 * SIN(a - .148)))-(over + (35) * COS(a - .168), up + (35 / 1.2 * SIN(a - .168))), 15
  LINE (over + (35) * COS(a - .168), up + (35 / 1.2 * SIN(a - .168)))-(over + (37) * COS(a - .358), up + (37 / 1.2 * SIN(a - .358))), 15
  LINE (over + (37) * COS(a - .358), up + (37 / 1.2 * SIN(a - .358)))-(over + (57) * COS(a - .228), up + (57 / 1.2 * SIN(a - .228))), 15
 
  key$ = INKEY$
  SELECT CASE key$
   CASE CHR$(0) + "H"
    IF speed > 0 THEN speed = speed - 50
   CASE CHR$(0) + "P"
    IF speed < 2000 THEN speed = speed + 50
   CASE CHR$(0) + "M"
     b = b - 25
   CASE CHR$(0) + "K"
     b = b + 25
  END SELECT

 END IF

NEXT i

DATA 159,99,158,100,159,99,158,100,159,99,158,100,159,99,158,100,159,99,158,100,159,99,158,100
DATA 159,99,158,100,159,99,158,100,159,99,158,100,159,99,158,100,159,99,158,100,159,99,158,100
DATA 159,99,158,100,159,99,158,100,159,99,158,100,159,99,158,100,159,99,158,100,159,99,158,100
DATA 159,99,158,100,159,99,158,100,159,99,158,100,159,99,158,100,159,99,158,100,159,99,158,100
DATA 159,99,158,100,159,99,158,100,159,99,158,100,159,99,158,100,159,99,158,100,159,99,158,100
DATA 159,99,158,100,159,99,158,100,159,99,158,100,159,99,158,100,159,99,158,100,159,99,158,100
DATA 159,99,158,100,159,99,158,100,159,99,158,100,159,99,158,100,159,99,158,100,159,99,158,100
DATA 122,122,116,125,108,128,101,132,92,136,83,139,75,142,67,145,57,146,47,146,40,147,38,147,45,146,53,146,59,145,69,142,82,138,95,134,114,127,130,121
DATA 148,113,162,103,171,97,185,88,196,81,209,74,220,66,230,61,242,54,252,48,264,42,270,36,267,38,261,43,256,48,250,53,240,60,230,68,218,75,209,82
DATA 198,88,188,93,177,96,164,99,151,101,139,102,126,102,113,102,104,102,89,102,78,101,66,101,51,101,40,101,29,101,19,101,26,101,42,101,57,101,71,100
DATA 90,98,100,98,110,97,124,97,140,97,158,99,177,102,190,105,206,111,216,116,228,122,238,129,251,136,264,144,276,152,281,154,285,157,269,157,256,155,240,152
DATA 221,148,205,142,185,135,163,129,150,126,136,122,119,119,106,117,94,115,80,115,69,116,55,119,51,121,53,127,60,128,75,128,89,128,108,127,129,126,144,124
DATA 160,122,172,121,189,118,212,117,224,116,236,113,249,108,257,103,264,97,269,87,269,78,267,76,260,81,254,90,250,96,242,103,234,110,225,115,212,120,200,125
DATA 188,129,173,133,159,135,139,135,128,134,128,132,136,130,149,130,165,130,182,128,197,123,209,118,225,110,237,103,245,97,254,90,263,82,266,78,262,91,257,98
DATA 247,103,232,108,218,111,206,115,196,117,185,115,172,110,164,104,154,95,144,85,134,76,123,65,113,58,100,53,84,48,74,48,62,48,52,51,47,57,42,66
DATA 41,70,44,75,51,78,60,76,69,71,78,65,86,59,94,54,103,49,114,45,128,44,142,46,150,50,156,56,158,64,161,74,163,84,163,96,163,108,163,116
DATA 164,126,166,138,167,146,170,152,178,161,188,164,190,160,186,155,181,153,173,151,168,142,165,130,165,116,165,100,164,83,164,68,164,54,162,40,162,36,160,44
DATA 159,58,158,72,158,89,158,102,158,117,158,129,159,140,159,153,158,162,158,169,159,167,164,158,167,144,167,129,167,115,168,96,168,85,168,68,168,52,166,40
DATA 164,32,161,31,158,41,157,52,157,66,158,82,158,98,159,113,158,127,158,138,158,147,156,156,155,160,152,162,148,160,143,156,135,146,127,137,117,122,108,108
DATA 99,93,91,79,82,66,75,59,68,55,59,48,47,40,52,47,60,53,73,59,86,68,103,80,117,90,132,98,144,105,162,114,183,123,198,130,218,140,232,146
DATA 250,154,272,161,280,162,284,156,279,150,268,145,252,139,236,132,227,129,213,125,205,116,199,100,198,79,198,64,200,52,202,43,207,36,208,41,207,53,203,67
DATA 196,86,188,95,178,104,169,110,159,116,146,122,135,128,124,137,114,144,105,150,92,155,82,156,66,157,63,156,75,154,85,152,96,149,108,144,118,139,128,132
DATA 138,124,146,113,148,101,142,92,133,89,123,90,109,93,92,94,78,95,61,95,48,94,41,92,42,85,49,78,57,72,71,63,86,55,105,47,119,44,133,42
DATA 152,41,170,41,188,42,208,46,224,51,236,57,249,65,258,76,265,89,266,99,266,112,263,126,257,138,250,147,240,155,231,158,223,160,214,161,201,160,188,156
DATA 175,149,165,140,160,132,150,118,141,107,130,99,116,98,111,105,111,113,116,120,124,127,134,137,146,144,160,147,176,146,190,141,199,131,205,119,205,105,202,93
DATA 191,81,186,79,181,87,175,100,169,110,161,124,155,138,149,148,144,153,147,150,155,137,166,124,176,113,183,97,187,83,188,69,186,53,182,44,181,53,183,67
DATA 186,75,192,86,204,94,224,99,238,100,256,99,272,94,288,91,294,88,285,90,270,95,252,98,239,100,226,103,206,106,181,106,156,106,137,107,122,107,113,106
DATA 191,81,186,79,181,87,175,100,169,110,161,124,155,138,149,148,144,153,147,150,155,137,166,124,176,113,183,97,187,83,188,69,186,53,182,44,181,53,183,67
DATA 159,99,159,99,159,99,159,99,159,99,159,99,159,99,158,100,157,100,156,101,154,102,153,103,152,105,149,107,147,108,145,110,144,112,139,114,136,116,130,119
DATA 122,122,116,125,108,128,101,132,92,136,83,139,75,142,67,145,57,146,47,146,40,147,38,147,45,146,53,146,59,145,69,142,82,138,95,134,114,127,130,121
DATA 148,113,162,103,171,97,185,88,196,81,209,74,220,66,230,61,242,54,252,48,264,42,270,36,267,38,261,43,256,48,250,53,240,60,230,68,218,75,209,82
DATA 198,88,188,93,177,96,164,99,151,101,139,102,126,102,113,102,104,102,89,102,78,101,66,101,51,101,40,101,29,101,19,101,26,101,42,101,57,101,71,100
DATA 90,98,100,98,110,97,124,97,140,97,158,99,177,102,190,105,206,111,216,116,228,122,238,129,251,136,264,144,276,152,281,154,285,157,269,157,256,155,240,152
DATA 221,148,205,142,185,135,163,129,150,126,136,122,119,119,106,117,94,115,80,115,69,116,55,119,51,121,53,127,60,128,75,128,89,128,108,127,129,126,144,124
DATA 160,122,172,121,189,118,212,117,224,116,236,113,249,108,257,103,264,97,269,87,269,78,267,76,260,81,254,90,250,96,242,103,234,110,225,115,212,120,200,125
DATA 188,129,173,133,159,135,139,135,128,134,128,132,136,130,149,130,165,130,182,128,197,123,209,118,225,110,237,103,245,97,254,90,263,82,266,78,262,91,257,98
DATA 247,103,232,108,218,111,206,115,196,117,185,115,172,110,164,104,154,95,144,85,134,76,123,65,113,58,100,53,84,48,74,48,62,48,52,51,47,57,42,66
DATA 41,70,44,75,51,78,60,76,69,71,78,65,86,59,94,54,103,49,114,45,128,44,142,46,150,50,156,56,158,64,161,74,163,84,163,96,163,108,163,116
DATA 164,126,166,138,167,146,170,152,178,161,188,164,190,160,186,155,181,153,173,151,168,142,165,130,165,116,165,100,164,83,164,68,164,54,162,40,162,36,160,44
DATA 159,58,158,72,158,89,158,102,158,117,158,129,159,140,159,153,158,162,158,169,159,167,164,158,167,144,167,129,167,115,168,96,168,85,168,68,168,52,166,40
DATA 164,32,161,31,158,41,157,52,157,66,158,82,158,98,159,113,158,127,158,138,158,147,156,156,155,160,152,162,148,160,143,156,135,146,127,137,117,122,108,108
DATA 99,93,91,79,82,66,75,59,68,55,59,48,47,40,52,47,60,53,73,59,86,68,103,80,117,90,132,98,144,105,162,114,183,123,198,130,218,140,232,146
DATA 250,154,272,161,280,162,284,156,279,150,268,145,252,139,236,132,227,129,213,125,205,116,199,100,198,79,198,64,200,52,202,43,207,36,208,41,207,53,203,67
DATA 196,86,188,95,178,104,169,110,159,116,146,122,135,128,124,137,114,144,105,150,92,155,82,156,66,157,63,156,75,154,85,152,96,149,108,144,118,139,128,132
DATA 138,124,146,113,148,101,142,92,133,89,123,90,109,93,92,94,78,95,61,95,48,94,41,92,42,85,49,78,57,72,71,63,86,55,105,47,119,44,133,42
DATA 152,41,170,41,188,42,208,46,224,51,236,57,249,65,258,76,265,89,266,99,266,112,263,126,257,138,250,147,240,155,231,158,223,160,214,161,201,160,188,156
DATA 175,149,165,140,160,132,150,118,141,107,130,99,116,98,111,105,111,113,116,120,124,127,134,137,146,144,160,147,176,146,190,141,199,131,205,119,205,105,202,93
DATA 191,81,186,79,181,87,175,100,169,110,161,124,155,138,149,148,144,153,147,150,155,137,166,124,176,113,183,97,187,83,188,69,186,53,182,44,181,53,183,67
DATA 186,75,192,86,204,94,224,99,238,100,256,99,272,94,288,91,294,88,285,90,270,95,252,98,239,100,226,103,206,106,181,106,156,106,137,107,122,107,113,106
DATA 159,99,159,99,159,99,159,99,159,99,159,99,159,99,158,100,157,100,156,101,154,102,153,103,152,105,149,107,147,108,145,110,144,112,139,114,136,116,130,119
DATA 122,122,116,125,108,128,101,132,92,136,83,139,75,142,67,145,57,146,47,146,40,147,38,147,45,146,53,146,59,145,69,142,82,138,95,134,114,127,130,121
DATA 148,113,162,103,171,97,185,88,196,81,209,74,220,66,230,61,242,54,252,48,264,42,270,36,267,38,261,43,256,48,250,53,240,60,230,68,218,75,209,82
DATA 198,88,188,93,177,96,164,99,151,101,139,102,126,102,113,102,104,102,89,102,78,101,66,101,51,101,40,101,29,101,19,101,26,101,42,101,57,101,71,100
DATA 90,98,100,98,110,97,124,97,140,97,158,99,177,102,190,105,206,111,216,116,228,122,238,129,251,136,264,144,276,152,281,154,285,157,269,157,256,155,240,152
DATA 221,148,205,142,185,135,163,129,150,126,136,122,119,119,106,117,94,115,80,115,69,116,55,119,51,121,53,127,60,128,75,128,89,128,108,127,129,126,144,124
DATA 160,122,172,121,189,118,212,117,224,116,236,113,249,108,257,103,264,97,269,87,269,78,267,76,260,81,254,90,250,96,242,103,234,110,225,115,212,120,200,125
DATA 188,129,173,133,159,135,139,135,128,134,128,132,136,130,149,130,165,130,182,128,197,123,209,118,225,110,237,103,245,97,254,90,263,82,266,78,262,91,257,98
DATA 247,103,232,108,218,111,206,115,196,117,185,115,172,110,164,104,154,95,144,85,134,76,123,65,113,58,100,53,84,48,74,48,62,48,52,51,47,57,42,66
DATA 41,70,44,75,51,78,60,76,69,71,78,65,86,59,94,54,103,49,114,45,128,44,142,46,150,50,156,56,158,64,161,74,163,84,163,96,163,108,163,116
DATA 164,126,166,138,167,146,170,152,178,161,188,164,190,160,186,155,181,153,173,151,168,142,165,130,165,116,165,100,164,83,164,68,164,54,162,40,162,36,160,44
DATA 159,58,158,72,158,89,158,102,158,117,158,129,159,140,159,153,158,162,158,169,159,167,164,158,167,144,167,129,167,115,168,96,168,85,168,68,168,52,166,40
DATA 164,32,161,31,158,41,157,52,157,66,158,82,158,98,159,113,158,127,158,138,158,147,156,156,155,160,152,162,148,160,143,156,135,146,127,137,117,122,108,108
DATA 99,93,91,79,82,66,75,59,68,55,59,48,47,40,52,47,60,53,73,59,86,68,103,80,117,90,132,98,144,105,162,114,183,123,198,130,218,140,232,146
DATA 250,154,272,161,280,162,284,156,279,150,268,145,252,139,236,132,227,129,213,125,205,116,199,100,198,79,198,64,200,52,202,43,207,36,208,41,207,53,203,67
DATA 196,86,188,95,178,104,169,110,159,116,146,122,135,128,124,137,114,144,105,150,92,155,82,156,66,157,63,156,75,154,85,152,96,149,108,144,118,139,128,132
DATA 138,124,146,113,148,101,142,92,133,89,123,90,109,93,92,94,78,95,61,95,48,94,41,92,42,85,49,78,57,72,71,63,86,55,105,47,119,44,133,42
DATA 152,41,170,41,188,42,208,46,224,51,236,57,249,65,258,76,265,89,266,99,266,112,263,126,257,138,250,147,240,155,231,158,223,160,214,161,201,160,188,156
DATA 175,149,165,140,160,132,150,118,141,107,130,99,116,98,111,105,111,113,116,120,124,127,134,137,146,144,160,147,176,146,190,141,199,131,205,119,205,105,202,93
DATA 191,81,186,79,181,87,175,100,169,110,161,124,155,138,149,148,144,153,147,150,155,137,166,124,176,113,183,97,187,83,188,69,186,53,182,44,181,53,183,67
DATA 186,75,192,86,204,94,224,99,238,100,256,99,272,94,288,91,294,88,285,90,270,95,252,98,239,100,226,103,206,106,181,106,156,106,137,107,122,107,113,106
DATA 159,99,159,99,159,99,159,99,159,99,159,99,159,99,158,100,157,100,156,101,154,102,153,103,152,105,149,107,147,108,145,110,144,112,139,114,136,116,130,119
DATA 122,122,116,125,108,128,101,132,92,136,83,139,75,142,67,145,57,146,47,146,40,147,38,147,45,146,53,146,59,145,69,142,82,138,95,134,114,127,130,121
DATA 148,113,162,103,171,97,185,88,196,81,209,74,220,66,230,61,242,54,252,48,264,42,270,36,267,38,261,43,256,48,250,53,240,60,230,68,218,75,209,82
DATA 198,88,188,93,177,96,164,99,151,101,139,102,126,102,113,102,104,102,89,102,78,101,66,101,51,101,40,101,29,101,19,101,26,101,42,101,57,101,71,100
DATA 90,98,100,98,110,97,124,97,140,97,158,99,177,102,190,105,206,111,216,116,228,122,238,129,251,136,264,144,276,152,281,154,285,157,269,157,256,155,240,152
DATA 221,148,205,142,185,135,163,129,150,126,136,122,119,119,106,117,94,115,80,115,69,116,55,119,51,121,53,127,60,128,75,128,89,128,108,127,129,126,144,124
DATA 160,122,172,121,189,118,212,117,224,116,236,113,249,108,257,103,264,97,269,87,269,78,267,76,260,81,254,90,250,96,242,103,234,110,225,115,212,120,200,125
DATA 188,129,173,133,159,135,139,135,128,134,128,132,136,130,149,130,165,130,182,128,197,123,209,118,225,110,237,103,245,97,254,90,263,82,266,78,262,91,257,98
DATA 247,103,232,108,218,111,206,115,196,117,185,115,172,110,164,104,154,95,144,85,134,76,123,65,113,58,100,53,84,48,74,48,62,48,52,51,47,57,42,66
DATA 41,70,44,75,51,78,60,76,69,71,78,65,86,59,94,54,103,49,114,45,128,44,142,46,150,50,156,56,158,64,161,74,163,84,163,96,163,108,163,116
DATA 164,126,166,138,167,146,170,152,178,161,188,164,190,160,186,155,181,153,173,151,168,142,165,130,165,116,165,100,164,83,164,68,164,54,162,40,162,36,160,44
DATA 159,58,158,72,158,89,158,102,158,117,158,129,159,140,159,153,158,162,158,169,159,167,164,158,167,144,167,129,167,115,168,96,168,85,168,68,168,52,166,40
DATA 164,32,161,31,158,41,157,52,157,66,158,82,158,98,159,113,158,127,158,138,158,147,156,156,155,160,152,162,148,160,143,156,135,146,127,137,117,122,108,108
DATA 99,93,91,79,82,66,75,59,68,55,59,48,47,40,52,47,60,53,73,59,86,68,103,80,117,90,132,98,144,105,162,114,183,123,198,130,218,140,232,146
DATA 250,154,272,161,280,162,284,156,279,150,268,145,252,139,236,132,227,129,213,125,205,116,199,100,198,79,198,64,200,52,202,43,207,36,208,41,207,53,203,67
DATA 196,86,188,95,178,104,169,110,159,116,146,122,135,128,124,137,114,144,105,150,92,155,82,156,66,157,63,156,75,154,85,152,96,149,108,144,118,139,128,132
DATA 138,124,146,113,148,101,142,92,133,89,123,90,109,93,92,94,78,95,61,95,48,94,41,92,42,85,49,78,57,72,71,63,86,55,105,47,119,44,133,42
DATA 152,41,170,41,188,42,208,46,224,51,236,57,249,65,258,76,265,89,266,99,266,112,263,126,257,138,250,147,240,155,231,158,223,160,214,161,201,160,188,156
DATA 175,149,165,140,160,132,150,118,141,107,130,99,116,98,111,105,111,113,116,120,124,127,134,137,146,144,160,147,176,146,190,141,199,131,205,119,205,105,202,93
DATA 191,81,186,79,181,87,175,100,169,110,161,124,155,138,149,148,144,153,147,150,155,137,166,124,176,113,183,97,187,83,188,69,186,53,182,44,181,53,183,67
DATA 186,75,192,86,204,94,224,99,238,100,256,99,272,94,288,91,294,88,285,90,270,95,252,98,239,100,226,103,206,106,181,106,156,106,137,107,122,107,113,106
DATA 159,99,159,99,159,99,159,99,159,99,159,99,159,99,158,100,157,100,156,101,154,102,153,103,152,105,149,107,147,108,145,110,144,112,139,114,136,116,130,119
DATA 122,122,116,125,108,128,101,132,92,136,83,139,75,142,67,145,57,146,47,146,40,147,38,147,45,146,53,146,59,145,69,142,82,138,95,134,114,127,130,121
DATA 148,113,162,103,171,97,185,88,196,81,209,74,220,66,230,61,242,54,252,48,264,42,270,36,267,38,261,43,256,48,250,53,240,60,230,68,218,75,209,82
DATA 198,88,188,93,177,96,164,99,151,101,139,102,126,102,113,102,104,102,89,102,78,101,66,101,51,101,40,101,29,101,19,101,26,101,42,101,57,101,71,100
DATA 90,98,100,98,110,97,124,97,140,97,158,99,177,102,190,105,206,111,216,116,228,122,238,129,251,136,264,144,276,152,281,154,285,157,269,157,256,155,240,152
DATA 221,148,205,142,185,135,163,129,150,126,136,122,119,119,106,117,94,115,80,115,69,116,55,119,51,121,53,127,60,128,75,128,89,128,108,127,129,126,144,124
DATA 160,122,172,121,189,118,212,117,224,116,236,113,249,108,257,103,264,97,269,87,269,78,267,76,260,81,254,90,250,96,242,103,234,110,225,115,212,120,200,125
DATA 188,129,173,133,159,135,139,135,128,134,128,132,136,130,149,130,165,130,182,128,197,123,209,118,225,110,237,103,245,97,254,90,263,82,266,78,262,91,257,98
DATA 247,103,232,108,218,111,206,115,196,117,185,115,172,110,164,104,154,95,144,85,134,76,123,65,113,58,100,53,84,48,74,48,62,48,52,51,47,57,42,66
DATA 41,70,44,75,51,78,60,76,69,71,78,65,86,59,94,54,103,49,114,45,128,44,142,46,150,50,156,56,158,64,161,74,163,84,163,96,163,108,163,116
DATA 164,126,166,138,167,146,170,152,178,161,188,164,190,160,186,155,181,153,173,151,168,142,165,130,165,116,165,100,164,83,164,68,164,54,162,40,162,36,160,44
DATA 159,58,158,72,158,89,158,102,158,117,158,129,159,140,159,153,158,162,158,169,159,167,164,158,167,144,167,129,167,115,168,96,168,85,168,68,168,52,166,40
DATA 164,32,161,31,158,41,157,52,157,66,158,82,158,98,159,113,158,127,158,138,158,147,156,156,155,160,152,162,148,160,143,156,135,146,127,137,117,122,108,108
DATA 99,93,91,79,82,66,75,59,68,55,59,48,47,40,52,47,60,53,73,59,86,68,103,80,117,90,132,98,144,105,162,114,183,123,198,130,218,140,232,146
DATA 250,154,272,161,280,162,284,156,279,150,268,145,252,139,236,132,227,129,213,125,205,116,199,100,198,79,198,64,200,52,202,43,207,36,208,41,207,53,203,67
DATA 196,86,188,95,178,104,169,110,159,116,146,122,135,128,124,137,114,144,105,150,92,155,82,156,66,157,63,156,75,154,85,152,96,149,108,144,118,139,128,132
DATA 138,124,146,113,148,101,142,92,133,89,123,90,109,93,92,94,78,95,61,95,48,94,41,92,42,85,49,78,57,72,71,63,86,55,105,47,119,44,133,42
DATA 152,41,170,41,188,42,208,46,224,51,236,57,249,65,258,76,265,89,266,99,266,112,263,126,257,138,250,147,240,155,231,158,223,160,214,161,201,160,188,156
DATA 175,149,165,140,160,132,150,118,141,107,130,99,116,98,111,105,111,113,116,120,124,127,134,137,146,144,160,147,176,146,190,141,199,131,205,119,205,105,202,93
DATA 191,81,186,79,181,87,175,100,169,110,161,124,155,138,149,148,144,153,147,150,155,137,166,124,176,113,183,97,187,83,188,69,186,53,182,44,181,53,183,67
DATA 186,75,192,86,204,94,224,99,238,100,256,99,272,94,288,91,294,88,285,90,270,95,252,98,239,100,226,103,206,106,181,106,156,106,137,107,122,107,113,106
DATA 159,99,159,99,159,99,159,99,159,99,159,99,159,99,158,100,157,100,156,101,154,102,153,103,152,105,149,107,147,108,145,110,144,112,139,114,136,116,130,119
DATA 122,122,116,125,108,128,101,132,92,136,83,139,75,142,67,145,57,146,47,146,40,147,38,147,45,146,53,146,59,145,69,142,82,138,95,134,114,127,130,121
DATA 148,113,162,103,171,97,185,88,196,81,209,74,220,66,230,61,242,54,252,48,264,42,270,36,267,38,261,43,256,48,250,53,240,60,230,68,218,75,209,82
DATA 198,88,188,93,177,96,164,99,151,101,139,102,126,102,113,102,104,102,89,102,78,101,66,101,51,101,40,101,29,101,19,101,26,101,42,101,57,101,71,100
DATA 90,98,100,98,110,97,124,97,140,97,158,99,177,102,190,105,206,111,216,116,228,122,238,129,251,136,264,144,276,152,281,154,285,157,269,157,256,155,240,152
DATA 221,148,205,142,185,135,163,129,150,126,136,122,119,119,106,117,94,115,80,115,69,116,55,119,51,121,53,127,60,128,75,128,89,128,108,127,129,126,144,124
DATA 160,122,172,121,189,118,212,117,224,116,236,113,249,108,257,103,264,97,269,87,269,78,267,76,260,81,254,90,250,96,242,103,234,110,225,115,212,120,200,125
DATA 188,129,173,133,159,135,139,135,128,134,128,132,136,130,149,130,165,130,182,128,197,123,209,118,225,110,237,103,245,97,254,90,263,82,266,78,262,91,257,98
DATA 247,103,232,108,218,111,206,115,196,117,185,115,172,110,164,104,154,95,144,85,134,76,123,65,113,58,100,53,84,48,74,48,62,48,52,51,47,57,42,66
DATA 41,70,44,75,51,78,60,76,69,71,78,65,86,59,94,54,103,49,114,45,128,44,142,46,150,50,156,56,158,64,161,74,163,84,163,96,163,108,163,116
DATA 164,126,166,138,167,146,170,152,178,161,188,164,190,160,186,155,181,153,173,151,168,142,165,130,165,116,165,100,164,83,164,68,164,54,162,40,162,36,160,44
DATA 159,58,158,72,158,89,158,102,158,117,158,129,159,140,159,153,158,162,158,169,159,167,164,158,167,144,167,129,167,115,168,96,168,85,168,68,168,52,166,40
DATA 164,32,161,31,158,41,157,52,157,66,158,82,158,98,159,113,158,127,158,138,158,147,156,156,155,160,152,162,148,160,143,156,135,146,127,137,117,122,108,108
DATA 99,93,91,79,82,66,75,59,68,55,59,48,47,40,52,47,60,53,73,59,86,68,103,80,117,90,132,98,144,105,162,114,183,123,198,130,218,140,232,146
DATA 250,154,272,161,280,162,284,156,279,150,268,145,252,139,236,132,227,129,213,125,205,116,199,100,198,79,198,64,200,52,202,43,207,36,208,41,207,53,203,67
DATA 196,86,188,95,178,104,169,110,159,116,146,122,135,128,124,137,114,144,105,150,92,155,82,156,66,157,63,156,75,154,85,152,96,149,108,144,118,139,128,132
DATA 138,124,146,113,148,101,142,92,133,89,123,90,109,93,92,94,78,95,61,95,48,94,41,92,42,85,49,78,57,72,71,63,86,55,105,47,119,44,133,42
DATA 152,41,170,41,188,42,208,46,224,51,236,57,249,65,258,76,265,89,266,99,266,112,263,126,257,138,250,147,240,155,231,158,223,160,214,161,201,160,188,156
DATA 175,149,165,140,160,132,150,118,141,107,130,99,116,98,111,105,111,113,116,120,124,127,134,137,146,144,160,147,176,146,190,141,199,131,205,119,205,105,202,93
DATA 191,81,186,79,181,87,175,100,169,110,161,124,155,138,149,148,144,153,147,150,155,137,166,124,176,113,183,97,187,83,188,69,186,53,182,44,181,53,183,67
DATA 186,75,192,86,204,94,224,99,238,100,256,99,272,94,288,91,294,88,285,90,270,95,252,98,239,100,226,103,206,106,181,106,156,106,137,107,122,107,113,106