« previous next »
Pages: 1 [2]   Go Down

Author Topic: Knight VS Castle  (Read 8064 times)

0 Members and 1 Guest are viewing this topic.

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Knight VS Castle
« Reply #15 on: March 06, 2019, 10:03:41 am »
Quote from: TempodiBasic on March 06, 2019, 09:54:26 am
HI qb4ever

this graphic let me remember a mini game made in java. In this you fire with a cannon setting force and angle of the fire, moreover you set the type of potion that you fire to defend you laboratory, and there is also a wall as barrier to stop the zombies or skeleton or monsters that comes towards laboratory to destroy it!
sorry but I don't remember the exact name to post the link of this game.

This one had it too,


Set angle and velocity and the Gorilla fires off a banana!
« Last Edit: March 06, 2019, 10:12:00 am by bplus »
Logged

Offline qb4ever

  • Newbie
  • Posts: 40
  • LOCATE 15,15: COLOR 14: PRINT "Hello World!"
    • View Profile
Re: Knight VS Castle
« Reply #16 on: March 06, 2019, 10:24:00 am »
Quote from: TempodiBasic on March 06, 2019, 09:54:26 am
HI qb4ever

this graphic let me remember a mini game made in java. In this you fire with a cannon setting force and angle of the fire, moreover you set the type of potion that you fire to defend you laboratory, and there is also a wall as barrier to stop the zombies or skeleton or monsters that comes towards laboratory to destroy it!
sorry but I don't remember the exact name to post the link of this game.

Hi TempodiBasic,

The concept is very common, remember in part Gorilla, do you remember?
In that game they threw bananas....
Logged

Offline qb4ever

  • Newbie
  • Posts: 40
  • LOCATE 15,15: COLOR 14: PRINT "Hello World!"
    • View Profile
Re: Knight VS Castle
« Reply #17 on: March 06, 2019, 10:26:25 am »
Quote from: bplus on March 06, 2019, 10:03:41 am
Quote from: TempodiBasic on March 06, 2019, 09:54:26 am
HI qb4ever

this graphic let me remember a mini game made in java. In this you fire with a cannon setting force and angle of the fire, moreover you set the type of potion that you fire to defend you laboratory, and there is also a wall as barrier to stop the zombies or skeleton or monsters that comes towards laboratory to destroy it!
sorry but I don't remember the exact name to post the link of this game.

This one had it too,


Set angle and velocity and the Gorilla fires off a banana!

Exactly.

I think used a particular routine for launch (different to my oooold math trinomio :D )
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Knight VS Castle
« Reply #18 on: March 06, 2019, 10:33:09 am »
Quote from: qb4ever on March 06, 2019, 10:26:25 am
Quote from: bplus on March 06, 2019, 10:03:41 am
Quote from: TempodiBasic on March 06, 2019, 09:54:26 am
HI qb4ever

this graphic let me remember a mini game made in java. In this you fire with a cannon setting force and angle of the fire, moreover you set the type of potion that you fire to defend you laboratory, and there is also a wall as barrier to stop the zombies or skeleton or monsters that comes towards laboratory to destroy it!
sorry but I don't remember the exact name to post the link of this game.

This one had it too,


Set angle and velocity and the Gorilla fires off a banana!

Exactly.

I think used a particular routine for launch (different to my oooold math trinomio :D )

We studied Gorilla at another forum, and projectile paths at still another forum. I outlined that study here in Tanks Battle, reply #8. :
https://www.qb64.org/forum/index.php?topic=1130.0
Logged

Offline Pete

  • Forum Resident
  • Posts: 2361
  • Cuz I sez so, varmint!
    • View Profile
Re: Knight VS Castle
« Reply #19 on: March 06, 2019, 01:16:01 pm »
TheBOB did a revised version of QB Gorillas: https://www.tapatalk.com/groups/qbasic/viewtopic.php?f=178387&t=30432&p=83793&hilit=mighty#p83793

It's probably included in the QB64 samples folder as: King Kong vs Mighty Joe Young
Logged
Want to learn how to write code on cave walls? https://www.tapatalk.com/groups/qbasic/qbasic-f1/

Offline TempodiBasic

  • Forum Resident
  • Posts: 1792
    • View Profile
Re: Knight VS Castle
« Reply #20 on: March 07, 2019, 01:24:46 pm »
Yes I find it very cool so
I have translated it to QB64 because all we know that MouseLibrary coded in QB/QBasic by TheBob is not compatible with QB64.

I can do this because we needn't  of the function
Quote
DECLARE SUB FieldMOUSE (x1, y1, x2, y2)   
because for this performance QB64 has no function or Keyword.

So here I attach my translation in QB64

Here the Game Kong

Code: QB64: [Select]
  1. ' KONG.BAS
  2.  
  3. 'NOTE: This game requires graphics files created by the accompanying programs K1 and K2. K1 CHAIN's K2, so be certain to save the second file under that name, or change the CHAIN line in K1 to the name you give the program (will not work if run separately).
  4.  
  5. '****************************************************************************'
  6. '____________________________________________________________________________
  7. '____________________________________________________________________________'
  8. '_____²²___²²__²²²²²__²²___²²__²²²²²____________²²___²²___²²²²___²²__²²______'
  9. '_____²²___²²_²²___²²_²²___²²_²²___²²___________²²___²²____²²____²²__²²______'
  10. '_____²²__²²__²²___²²_²²²__²²_²²___²²___________²²²_²²²____²²____²²__²²______'
  11. '_____²²_²²___²²___²²_²²²__²²_²²_______²_²_²_²__²²²_²²²____²²____²²__²²______'
  12. '_____²²²²____²²___²²_²²²²_²²_²²_______²_²_²____²²²²²²²____²²____²²__²²______'
  13. '_____°°°°____°°___°°_°°_°°°°_°°_______°_°___°__°°_°_°°____°°_____°°°°_______'
  14. '_____°°_°°___°°___°°_°°__°°°_°°__°°°___°__°_°__°°_°_°°____°°______°°________'
  15. '_____°°__°°__°°___°°_°°__°°°_°°___°°___________°°_°_°°_°°_°°______°°________'
  16. '_____°°___°°_°°___°°_°°___°°_°°___°°___________°°___°°_°°_°°______°°________'
  17. '_____°°___°°__°°°°°__°°___°°__°°°°°____________°°___°°__°°°______°°°°_______'
  18. '                                                                            '
  19. '----------- Microsoft QBasic originally came bundled with four -------------'
  20. '----------- example programs: a simple money management program ------------'
  21. '----------- called, appropriately, "Money", a utility for removing ---------'
  22. '----------- line numbers from BASIC programs called "RemLine", and ---------'
  23. '----------- two game programs, "Nibbles" and "Gorilla". In the case --------'
  24. '----------- of the second game, I loved the idea of two gorillas -----------'
  25. '----------- throwing exploding bananas at each other from the roof- --------'
  26. '----------- tops and had always wanted to do my own version. Here ----------'
  27. '----------- then, is my homage to the QBasic classic, GORILLA.BAS... -------'
  28. '
  29. '-------------------- ...KING-KONG vs MIGHTY JOE YOUNG ----------------------'
  30. '------- (Freeware)--Unique elements Copyright (C) 2005 by Bob Seguin -------'
  31. '------------------------ email: BOBSEG@sympatico.ca ------------------------'
  32. '
  33. '************** NOTE: Mouse routines will not work with QB7.1 ***************'
  34.  
  35. DEFINT A-Z
  36.  
  37. DECLARE FUNCTION InitMOUSE ()
  38.  
  39. DECLARE SUB MouseSTATUS (LB, RB, MouseX, MouseY)
  40. DECLARE SUB ShowMOUSE ()
  41. DECLARE SUB HideMOUSE ()
  42. DECLARE SUB LocateMOUSE (x, y)
  43. DECLARE SUB FieldMOUSE (x1, y1, x2, y2)
  44. DECLARE SUB PauseMOUSE (LB, RB, MouseX, MouseY)
  45. DECLARE SUB ClearMOUSE ()
  46. DECLARE SUB MouseDRIVER (LB, RB, MX, MY)
  47.  
  48. DECLARE FUNCTION ControlPANEL ()
  49. DECLARE FUNCTION Computer ()
  50. DECLARE FUNCTION BananaTOSS ()
  51.  
  52. DECLARE SUB SetPALETTE ()
  53. DECLARE SUB DrawSCREEN ()
  54. DECLARE SUB StartUP ()
  55. DECLARE SUB DoAPES ()
  56. DECLARE SUB PlayGAME ()
  57. DECLARE SUB TopMENU (InOUT)
  58. DECLARE SUB Instructions ()
  59. DECLARE SUB Sliders (Value, Slider)
  60. DECLARE SUB EndGAME ()
  61. DECLARE SUB Interval (Duration!)
  62. DECLARE SUB Fade (InOUT)
  63. DECLARE SUB SetWIND ()
  64. DECLARE SUB Explode (What)
  65. DECLARE SUB ApeCHUCKLE (Which)
  66. DECLARE SUB PrintSCORE (Ape, Score)
  67.  
  68. CONST Degree! = 3.14159 / 180
  69. CONST g# = 9.8
  70.  
  71. REDIM SHARED Box(1 TO 26000)
  72. REDIM SHARED KongBOX(1 TO 5500)
  73. REDIM SHARED YoungBOX(1 TO 5500)
  74. DIM SHARED ExplosionBACK(1200)
  75. DIM SHARED SliderBOX(1 TO 440)
  76. DIM SHARED Banana(1 TO 900)
  77. DIM SHARED FadeBOX(1 TO 48)
  78. DIM SHARED LilBOX(1 TO 120)
  79. DIM SHARED Buildings(1 TO 8, 1 TO 2)
  80. DIM SHARED NumBOX(1 TO 300)
  81.  
  82. DEF SEG = VARSEG(NumBOX(1))
  83. BLOAD "KongNUMS.BSV", VARPTR(NumBOX(1))
  84. DEF SEG = VARSEG(LilBOX(1))
  85. BLOAD "KongWIND.BSV", VARPTR(LilBOX(1))
  86. DEF SEG = VARSEG(Banana(1))
  87. BLOAD "KongBNNA.BSV", VARPTR(Banana(1))
  88. DEF SEG = VARSEG(SliderBOX(1))
  89. BLOAD "KongSLDR.BSV", VARPTR(SliderBOX(1))
  91.  
  92. FOR n = 1 TO 8
  93.     Buildings(n, 1) = n
  95.  
  96. DIM SHARED LB, RB, MouseX, MouseY
  97. DIM SHARED x#, y#, Angle#, Speed#, Wind!, t#
  98. DIM SHARED KongX, KongY, YoungX, YoungY, Ape
  99. DIM SHARED KScore, YScore, Item, LBldg, RBldg
  100. DIM SHARED NumPLAYERS, CompTOSS
  101.  
  102. DIM SHARED MouseDATA$
  103.  
  104. 'Create and load MouseDATA$ for CALL ABSOLUTE routines
  105. DATA 55,89,E5,8B,5E,0C,8B,07,50,8B,5E,0A,8B,07,50,8B,5E,08,8B
  106. DATA 0F,8B,5E,06,8B,17,5B,58,1E,07,CD,33,53,8B,5E,0C,89,07,58
  107. DATA 8B,5E,0A,89,07,8B,5E,08,89,0F,8B,5E,06,89,17,5D,CA,08,00
  108. MouseDATA$ = SPACE$(57)
  109. FOR i = 1 TO 57
  110.     READ h$
  111.     Hexxer$ = CHR$(VAL("&H" + h$))
  112.     MID$(MouseDATA$, i, 1) = Hexxer$
  114.  
  115. Moused = InitMOUSE
  116. IF NOT Moused THEN
  117.     PRINT "Sorry, cat must have got the mouse."
  118.     SLEEP 2
  119.     SYSTEM
  121.  
  122. RESTORE PaletteDATA
  123. FOR n = 1 TO 48
  124.     READ FadeBOX(n)
  126.  
  128. OUT &H3C8, 0
  129. FOR n = 1 TO 48
  130.     OUT &H3C9, 0
  132.  
  134.  
  136.     PlayGAME
  138.  
  140.  
  141. PaletteDATA:
  142. DATA 0,4,16,0,10,21,0,16,32,32,10,0
  143. DATA 63,0,0,63,32,0,18,18,24,30,30,37
  144. DATA 42,42,50,55,55,63,0,0,0,43,27,20
  145. DATA 8,8,21,0,63,21,63,55,25,63,63,63
  146.  
  147. SUB ApeCHUCKLE (Which)
  148.  
  149.     SELECT CASE Which
  150.         CASE 1 'Kong chuckle
  151.             FOR Reps = 1 TO 10
  152.                 WAIT &H3DA, 8
  153.                 WAIT &H3DA, 8, 8
  154.                 PUT (KongX, KongY), KongBOX(1351), PSET
  155.                 Interval .1
  156.                 WAIT &H3DA, 8
  157.                 WAIT &H3DA, 8, 8
  158.                 PUT (KongX, KongY), KongBOX(1801), PSET
  159.                 Interval .1
  160.             NEXT Reps
  161.  
  162.         CASE 2 'Young chuckle
  163.             FOR Reps = 1 TO 10
  164.                 WAIT &H3DA, 8
  165.                 WAIT &H3DA, 8, 8
  166.                 PUT (YoungX, YoungY), YoungBOX(1351), PSET
  167.                 Interval .1
  168.                 WAIT &H3DA, 8
  169.                 WAIT &H3DA, 8, 8
  170.                 PUT (YoungX, YoungY), YoungBOX(1801), PSET
  171.                 Interval .1
  172.             NEXT Reps
  173.     END SELECT
  174.  
  176.  
  177. FUNCTION BananaTOSS
  178.  
  179.     t# = 0
  180.     IF Ape = 1 THEN
  181.         YTurn = 0: KTurn = 7
  182.         x# = KongX: y# = KongY - 24
  183.     ELSE
  184.         KTurn = 7: KTurn = 0
  185.         x# = YoungX: y# = YoungY - 24
  186.     END IF
  187.  
  188.     IF Ape = 2 THEN Angle# = 180 - Angle#
  189.     Angle# = Angle# * Degree!
  190.     vx# = Speed# * COS(Angle#)
  191.     vy# = Speed# * SIN(Angle#)
  192.     InitialX = x#
  193.     InitialY = y#
  194.  
  195.     'GET starting background location of banana ---------------------------
  196.     GET (x#, y#)-(x# + 12, y# + 12), Banana(801)
  197.  
  198.     'Animate banana toss (frames 2 & 3) -----------------------------------
  199.     FOR Index = 451 TO 901 STEP 450
  200.         Interval .02
  201.         WAIT &H3DA, 8
  202.         WAIT &H3DA, 8, 8
  203.         IF Ape = 1 THEN
  204.             PUT (KongX, KongY), KongBOX(Index), PSET
  205.         ELSE
  206.             PUT (YoungX, YoungY), YoungBOX(Index), PSET
  207.         END IF
  208.     NEXT Index
  209.  
  210.     Index = 1 'Initialize banana index
  211.  
  212.     DO 'banana toss loop
  213.  
  214.         Interval .001
  215.         WAIT &H3DA, 8
  216.         WAIT &H3DA, 8, 8
  217.  
  218.         'PUT banana background at old x/y ---------------------------
  219.         IF x# >= 0 AND x# <= 627 THEN
  220.             IF y# >= 40 THEN
  221.                 PUT (x#, y#), Banana(801), PSET
  222.             END IF
  223.         END IF
  224.  
  225.         'Determine new position of banana --------------------------
  226.         'NOTE: The essential formula for determining the path of
  227.         'the thrown banana is taken from the original GORILLA.BAS
  228.         x# = InitialX + (vx# * t#) + (.5 * (Wind! / 5) * t# ^ 2)
  229.         y# = InitialY + -(vy# * t#) + (.5 * g# * t# ^ 2)
  230.         t# = t# + .1
  231.  
  232.         'Whether or not to PUT the banana and background
  233.         IF x# >= 2 AND x# < 627 THEN
  234.             IF y# >= 40 AND y# <= 467 THEN
  235.  
  236.                 'JOE YOUNG hit
  237.                 IF x# + 12 >= YoungX + 2 AND x# <= YoungX + 38 THEN
  238.                     IF y# + 12 >= YoungY + 7 AND y# <= YoungY + 42 THEN
  239.                         Explode 2
  240.                         KScore = KScore + 1
  241.                         PrintSCORE 1, KScore
  242.                         ApeCHUCKLE 1
  243.                         BananaTOSS = 1
  244.                         EXIT FUNCTION
  245.                     END IF
  246.                 END IF
  247.  
  248.                 'KONG is hit
  249.                 IF x# + 12 >= KongX + 2 AND x# <= KongX + 38 THEN
  250.                     IF y# + 12 >= KongY + 7 AND y# <= KongY + 42 THEN
  251.                         Explode 1
  252.                         YScore = YScore + 1
  253.                         PrintSCORE 2, YScore
  254.                         ApeCHUCKLE 2
  255.                         BananaTOSS = 2
  256.                         EXIT FUNCTION
  257.                     END IF
  258.                 END IF
  259.  
  260.                 'Building hit
  261.                 IF y# > 120 THEN
  262.                     IF (POINT(x# + 2, y#) <> 12 AND POINT(x# + 2, y#) <> 0) THEN BLDG = 1
  263.                     IF (POINT(x# + 10, y#) <> 12 AND POINT(x# + 10, y#) <> 0) THEN BLDG = 1
  264.                     IF (POINT(x#, y# + 10) <> 12 AND POINT(x#, y# + 10) <> 0) THEN BLDG = 1
  265.                 END IF
  266.                 IF BLDG = 1 THEN
  267.                     BLDG = 0
  268.                     Explode 3
  269.                     BananaTOSS = 3
  270.                     EXIT FUNCTION
  271.                 END IF
  272.  
  273.                 'GET background, PUT banana at new location
  274.                 GET (x#, y#)-(x# + 12, y# + 12), Banana(801)
  275.                 PUT (x#, y#), Banana(Index + 50), AND
  276.                 PUT (x#, y#), Banana(Index)
  277.  
  278.             END IF 'Legal banana-PUT END IF's
  279.         END IF
  280.  
  281.         Index = Index + 100 'Index changes whether banana is PUT or not ---------
  282.         IF Index = 801 THEN Index = 1
  283.  
  284.         'Ape reaction turns section -----------------------------------------------
  285.  
  286.         IF t# > .5 AND t# < .6 THEN 'Finish toss (arm goes down)
  287.             IF Ape = 1 THEN
  288.                 PUT (KongX, KongY), KongBOX(4501), PSET
  289.             ELSE
  290.                 PUT (YoungX, YoungY), YoungBOX(2701), PSET
  291.             END IF
  292.         END IF
  293.  
  294.         IF t# > 1.5 THEN 'Turn with passing banana (both apes)
  295.             IF YTurn < 2 THEN
  296.                 WAIT &H3DA, 8
  297.                 WAIT &H3DA, 8, 8
  298.                 SELECT CASE YTurn
  299.                     CASE 0: PUT (YoungX, YoungY), YoungBOX(3151), PSET: YTurn = 1
  300.                     CASE 1: PUT (YoungX, YoungY), YoungBOX(2701), PSET: YTurn = 2
  301.                 END SELECT
  302.             END IF
  303.  
  304.             IF KTurn < 2 THEN
  305.                 WAIT &H3DA, 8
  306.                 WAIT &H3DA, 8, 8
  307.                 SELECT CASE KTurn
  308.                     CASE 0: PUT (KongX, KongY), KongBOX(4051), PSET: KTurn = 1
  309.                     CASE 1: PUT (KongX, KongY), KongBOX(4501), PSET: KTurn = 2
  310.                 END SELECT
  311.             END IF
  312.  
  313.             IF x# > YoungX AND YTurn < 7 THEN
  314.                 WAIT &H3DA, 8
  315.                 WAIT &H3DA, 8, 8
  316.                 SELECT CASE YTurn
  317.                     CASE 2: PUT (YoungX, YoungY), YoungBOX(2701), PSET: YTurn = 3
  318.                     CASE 3: PUT (YoungX, YoungY), YoungBOX(3151), PSET: YTurn = 4
  319.                     CASE 4: PUT (YoungX, YoungY), YoungBOX(3601), PSET: YTurn = 5
  320.                     CASE 5: PUT (YoungX, YoungY), YoungBOX(4051), PSET: YTurn = 6
  321.                     CASE 6: PUT (YoungX, YoungY), YoungBOX(4501), PSET: YTurn = 7
  322.                 END SELECT
  323.             END IF
  324.  
  325.             IF x# < KongX + 40 AND KTurn < 7 THEN
  326.                 WAIT &H3DA, 8
  327.                 WAIT &H3DA, 8, 8
  328.                 SELECT CASE KTurn
  329.                     CASE 2: PUT (KongX, KongY), KongBOX(4501), PSET: KTurn = 3
  330.                     CASE 3: PUT (KongX, KongY), KongBOX(4051), PSET: KTurn = 4
  331.                     CASE 4: PUT (KongX, KongY), KongBOX(3601), PSET: KTurn = 5
  332.                     CASE 5: PUT (KongX, KongY), KongBOX(3151), PSET: KTurn = 6
  333.                     CASE 6: PUT (KongX, KongY), KongBOX(2701), PSET: KTurn = 7
  334.                 END SELECT
  335.             END IF
  336.         END IF
  337.  
  338.     LOOP UNTIL x# < 3 OR x# > 627
  339.  
  340.     IF x# >= 0 AND x# <= 627 THEN 'erase banana to end toss sequence -------
  341.         IF y# >= 40 THEN
  342.             PUT (x#, y#), Banana(801), PSET
  343.         END IF
  344.     END IF
  345.  
  346.     BananaTOSS = 3
  347.  
  349.  
  350. SUB ClearMOUSE
  351.  
  352.     ' WHILE LB OR RB
  353.     ' MouseSTATUS LB, RB, MouseX, MouseY
  354.     '  WEND
  356.         a% = _MOUSEINPUT
  357.     LOOP
  359.  
  360. FUNCTION Computer
  361.     STATIC CompSPEED, CompANGLE, XDiff, YDiff, FinalX
  362.  
  363.     'The computer's gameplay is designed to imitate the play of a
  364.     'real person. The first shot is established as an educated guess
  365.     'with a touch of randomness. On subsequent shots, the formula
  366.     'modifies Speed# and Angle# based on the outcome of this first shot.
  367.     'Sometimes, just like a real person, the first shot will score a
  368.     'hit. Other times, it is a long and embarassing process.
  369.  
  370.     'Computer-shot computation formulas
  371.     IF CompTOSS = 0 THEN
  372.         XDiff = YoungX - KongX
  373.         YDiff = KongY - YoungY
  374.         CompSPEED = XDiff / (FIX(RND * 2) + 6) + Wind!
  375.         CompANGLE = 35 - (YDiff / 5)
  376.         CompTOSS = 1
  377.     ELSE
  378.         IF KongX > FinalX THEN
  379.             CompSPEED = CompSPEED * .9
  380.         ELSE
  381.             CompSPEED = CompSPEED * 1.2
  382.             IF YoungX - FinalX < 100 THEN 'Oops! Tall building
  383.                 CompANGLE = CompANGLE + 10
  384.             ELSE
  385.                 CompANGLE = CompANGLE + 3
  386.             END IF
  387.         END IF
  388.     END IF
  389.     IF CompSPEED > 99 THEN CompSPEED = 99
  390.     IF CompSPEED < 0 THEN CompSPEED = 0
  391.     IF CompANGLE > 70 THEN CompANGLE = 70
  392.     IF CompANGLE < 0 THEN CompANGLE = 0
  393.  
  394.     Speed# = CompSPEED
  395.     Angle# = CompANGLE
  396.     Sliders INT(Speed#), 1
  397.     Sliders INT(Angle#), 2
  398.     Interval 1
  399.  
  400.     SELECT CASE BananaTOSS 'Call to BananaTOSS FUNCTION -----------
  401.         CASE 1 'Kong exploded Young
  402.             IF KScore = 3 THEN 'Kong wins
  403.                 Computer = 2 'Game over
  404.                 EXIT FUNCTION
  405.             END IF
  406.             Computer = 1 'Reset screen
  407.             EXIT FUNCTION
  408.         CASE 2 'Young exploded Kong
  409.             IF YScore = 3 THEN 'Young wins
  410.                 Computer = 2 'Game over
  411.                 EXIT FUNCTION
  412.             END IF
  413.             Computer = 1 'Reset screen
  414.             EXIT FUNCTION
  415.         CASE 3 'Building explosion or banana out-of-play
  416.             FinalX = x#
  417.             Computer = -1 'Change player
  418.             EXIT FUNCTION
  419.     END SELECT
  420.  
  421.     Computer = 0 'No action required
  422.  
  424.  
  425. FUNCTION ControlPANEL
  426.     SHARED Player1SPEED#, Player2SPEED#
  427.     SHARED Player1ANGLE#, Player2ANGLE#
  428.  
  429.     SELECT CASE MouseX
  430.         CASE 147 TO 246
  431.             IF MouseY > 441 AND MouseY < 463 THEN
  432.                 IF LB = -1 THEN
  433.                     Speed# = MouseX - 147
  434.                     IF Speed# < 0 THEN Speed# = 0
  435.                     IF Speed# > 99 THEN Speed# = 99
  436.                     SELECT CASE Ape
  437.                         CASE 1
  438.                             Player1SPEED# = Speed#
  439.                         CASE 2
  440.                             Player2SPEED# = Speed#
  441.                     END SELECT
  442.                     Sp = INT(Speed#)
  443.                     Sliders Sp, 1
  444.                 END IF
  445.             END IF
  446.         CASE 385 TO 499
  447.             IF MouseY > 423 AND MouseY < 463 THEN
  448.                 IF LB = -1 THEN
  449.                     Angle# = 494 - MouseX
  450.                     IF Angle# < 0 THEN Angle# = 0
  451.                     IF Angle# > 90 THEN Angle# = 90
  452.                     SELECT CASE Ape
  453.                         CASE 1
  454.                             Player1ANGLE# = Angle#
  455.                         CASE 2
  456.                             Player2ANGLE# = Angle#
  457.                     END SELECT
  458.                     An = INT(Angle#)
  459.                     Sliders An, 2
  460.                 END IF
  461.             END IF
  462.         CASE 305 TO 335
  463.             IF MouseY > 423 AND MouseY < 452 THEN
  464.                 IF LB = -1 THEN
  465.                     HideMOUSE
  466.                     GET (308, 427)-(331, 447), Box(25500)
  467.                     GET (311, 430)-(328, 444), Box(25000)
  468.                     PUT (310, 429), Box(25000), PSET
  469.                     LINE (309, 428)-(330, 446), 1, B
  470.                     LINE (308, 428)-(331, 448), 10, B
  471.                     LINE (331, 429)-(331, 447), 8
  472.                     LINE (308, 448)-(330, 448), 8
  473.                     ShowMOUSE
  474.                     Interval .2
  475.                     HideMOUSE
  476.                     PUT (308, 427), Box(25500), PSET
  477.                     ShowMOUSE
  478.                     SELECT CASE BananaTOSS 'Call to BananaTOSS FUNCTION -----------
  479.                         CASE 1 'Kong exploded Young
  480.                             IF KScore = 3 THEN 'Kong wins
  481.                                 ControlPANEL = 2 'Game over
  482.                                 EXIT FUNCTION
  483.                             END IF
  484.                             ControlPANEL = 1 'Reset screen
  485.                             EXIT FUNCTION
  486.                         CASE 2 'Young exploded Kong
  487.                             IF YScore = 3 THEN 'Young wins
  488.                                 ControlPANEL = 2 'Game over
  489.                                 EXIT FUNCTION
  490.                             END IF
  491.                             ControlPANEL = 1 'Reset screen
  492.                             EXIT FUNCTION
  493.                         CASE 3 'Building explosion or banana out-of-play
  494.                             ControlPANEL = -1 'Change player
  495.                             EXIT FUNCTION
  496.                     END SELECT
  497.                 END IF
  498.             END IF
  499.     END SELECT
  500.     ControlPANEL = 0 'No action required
  501.  
  503.  
  504. SUB DoAPES
  505.  
  506.     KongX = LBldg * 80 - 59
  507.     KongY = Buildings(LBldg, 2) - 42
  508.     YoungX = RBldg * 80 - 59
  509.     YoungY = Buildings(RBldg, 2) - 42
  510.  
  511.     DEF SEG = VARSEG(Box(1))
  512.     BLOAD "KongMJY.BSV", VARPTR(Box(1))
  513.     DEF SEG
  514.     ApeINDEX = 1
  515.     GET (YoungX, YoungY)-(YoungX + 38, YoungY + 42), YoungBOX(5000)
  516.     FOR Index = 1 TO 9001 STEP 900
  517.         PUT (YoungX, YoungY), YoungBOX(5000), PSET
  518.         PUT (YoungX, YoungY), Box(Index + 450), AND
  519.         PUT (YoungX, YoungY), Box(Index)
  520.         GET (YoungX, YoungY)-(YoungX + 38, YoungY + 42), YoungBOX(ApeINDEX)
  521.         ApeINDEX = ApeINDEX + 450
  522.     NEXT Index
  523.  
  524.     DEF SEG = VARSEG(Box(1))
  525.     BLOAD "KongKONG.BSV", VARPTR(Box(1))
  526.     DEF SEG
  527.     ApeINDEX = 1
  528.     GET (KongX, KongY)-(KongX + 38, KongY + 42), KongBOX(5000)
  529.     FOR Index = 1 TO 9001 STEP 900
  530.         PUT (KongX, KongY), KongBOX(5000), PSET
  531.         PUT (KongX, KongY), Box(Index + 450), AND
  532.         PUT (KongX, KongY), Box(Index)
  533.         GET (KongX, KongY)-(KongX + 38, KongY + 42), KongBOX(ApeINDEX)
  534.         ApeINDEX = ApeINDEX + 450
  535.     NEXT Index
  536.  
  537.     PUT (KongX, KongY), KongBOX(2251), PSET
  538.     PUT (YoungX, YoungY), YoungBOX(2251), PSET
  539.  
  540.     DEF SEG = VARSEG(Box(1))
  541.     BLOAD "KongEXPL.BSV", VARPTR(Box(1))
  542.     DEF SEG
  543.  
  545.  
  546. SUB DrawSCREEN
  547.  
  548.     'Main screen background/title bar and control panel
  549.     CLS
  550.     DEF SEG = VARSEG(Box(1))
  551.     FileCOUNT = 0
  552.     FOR y = 0 TO 320 STEP 160
  553.         FileCOUNT = FileCOUNT + 1
  554.         FileNAME$ = "KongSCR" + LTRIM$(STR$(FileCOUNT)) + ".BSV"
  555.         BLOAD FileNAME$, VARPTR(Box(1))
  556.         PUT (0, y), Box(), PSET
  557.     NEXT y
  558.     DEF SEG
  559.  
  560.     'Shuffle buildings order
  561.     FOR n = 8 TO 2 STEP -1
  562.         Tower = INT(RND * n) + 1
  563.         SWAP Buildings(n, 1), Buildings(Tower, 1)
  564.     NEXT n
  565.  
  566.     LBldg = FIX(RND * 3) + 1
  567.     RBldg = FIX(RND * 3) + 6
  568.  
  569.     'Set buildings order/ save height information to array
  570.     x = 0
  571.     DEF SEG = VARSEG(Box(1))
  572.     FOR n = 1 TO 8
  573.         FileNAME$ = "KongBLD" + LTRIM$(STR$(Buildings(n, 1))) + ".BSV"
  574.         BLOAD FileNAME$, VARPTR(Box(1))
  575.         Height = 165 + FIX(RND * 160)
  576.         IF n = LBldg AND Height > 264 THEN Height = 264
  577.         IF n = RBldg AND Height > 264 THEN Height = 264
  578.         Buildings(n, 2) = Height
  579.         Box(2001) = 405 - (Height + Box(1))
  580.         PUT (x, Height + Box(1)), Box(2000), PSET
  581.         PUT (x, Height + Box(1) - 45), Box(1000), AND
  582.         PUT (x, Height + Box(1) - 45), Box(2)
  583.         x = x + 80
  584.     NEXT n
  585.  
  586.     'Street lights
  587.     FOR x = 19 TO 639 STEP 120
  588.         LINE (x, 360)-(x + 1, 400), 10, B
  589.         CIRCLE (x + 8, 364), 2, 15
  590.         PAINT STEP(0, 0), 15
  591.         CIRCLE STEP(0, 0), 5, 8
  592.     NEXT x
  593.  
  594.     'Foreground building silhouettes
  595.     BLOAD "KongFBLD.BSV", VARPTR(Box(1))
  596.     DEF SEG
  597.     PUT (0, 362), Box(7000), AND
  598.     PUT (0, 362), Box()
  599.  
  600.     SetWIND
  601.     Sliders 0, 1
  602.     Sliders 0, 2
  603.     PrintSCORE 1, KScore
  604.     PrintSCORE 2, YScore
  605.  
  607.  
  608. SUB Explode (What)
  609.     STATIC BlastCOUNT
  610.  
  611.     SELECT CASE What
  612.         CASE 1
  613.             Ex = x# - 26: Ey = y# - 26
  614.             GOSUB FirstBLAST
  615.             Ex = KongX - 12: Ey = KongY - 12
  616.             Dx = KongX - 4: Dy = KongY + 20
  617.         CASE 2
  618.             Ex = x# - 26: Ey = y# - 26
  619.             GOSUB FirstBLAST
  620.             Ex = YoungX - 12: Ey = YoungY - 12
  621.             Dx = YoungX - 4: Dy = YoungY + 20
  622.         CASE 3
  623.             Ex = x# - 26: Ey = y# - 26
  624.             Dx = x# - 20: Dy = y# - 20
  625.     END SELECT
  626.  
  627.     IF Ex + 62 > 639 THEN Ex = 639 - 62
  628.     IF Ex < 0 THEN Ex = 0
  629.     GET (Ex, Ey)-(Ex + 62, Ey + 62), ExplosionBACK()
  630.  
  631.     FOR Index = 1 TO 14421 STEP 2060
  632.         PUT (Ex, Ey), ExplosionBACK(), PSET
  633.         IF Index = 4121 THEN
  634.             IF What = 1 THEN
  635.                 PUT (KongX, KongY), KongBOX(5000), PSET
  636.             ELSEIF What = 2 THEN
  637.                 PUT (YoungX, YoungY), YoungBOX(5000), PSET
  638.             END IF
  639.             GOSUB Damage
  640.             GET (Ex, Ey)-(Ex + 62, Ey + 62), ExplosionBACK()
  641.         END IF
  642.         PUT (Ex, Ey), Box(Index + 1030), AND
  643.         PUT (Ex, Ey), Box(Index), XOR
  644.         Interval .05
  645.         WAIT &H3DA, 8
  646.         WAIT &H3DA, 8, 8
  647.     NEXT Index
  648.  
  649.     PUT (Ex, Ey), ExplosionBACK(), PSET
  650.  
  651.     EXIT SUB
  652.  
  653.     Damage:
  654.     OPEN "KongCRTR.DAT" FOR INPUT AS #2
  655.     INPUT #2, Wdth, Dpth
  656.     BlastCOUNT = BlastCOUNT + 1
  657.     SELECT CASE BlastCOUNT
  658.         CASE 1
  659.             FOR cx = Dx + Wdth TO Dx STEP -1
  660.                 FOR cy = Dy + Dpth TO Dy STEP -1
  661.                     GOSUB DrawCRATER
  662.                 NEXT cy
  663.             NEXT cx
  664.         CASE 2
  665.             FOR cx = Dx TO Dx + Wdth
  666.                 FOR cy = Dy TO Dy + Dpth
  667.                     GOSUB DrawCRATER
  668.                 NEXT cy
  669.             NEXT cx
  670.             BlastCOUNT = 0
  671.     END SELECT
  672.     CLOSE #2
  673.     RETURN
  674.  
  675.     DrawCRATER:
  676.     INPUT #2, Colr
  677.     IF Colr <> 0 THEN
  678.         IF POINT(cx, cy) <> 0 AND POINT(cx, cy) <> 12 THEN
  679.             PSET (cx, cy), Colr
  680.         END IF
  681.     END IF
  682.     RETURN
  683.  
  684.     FirstBLAST:
  685.     IF Ex < 0 THEN Ex = 0
  686.     IF Ex + 62 > 639 THEN Ex = 577
  687.     GET (Ex, Ey)-(Ex + 62, Ey + 62), ExplosionBACK()
  688.     FOR Index = 1 TO 6181 STEP 2060
  689.         Interval 0
  690.         WAIT &H3DA, 8
  691.         WAIT &H3DA, 8, 8
  692.         PUT (Ex, Ey), ExplosionBACK(), PSET
  693.         PUT (Ex, Ey), Box(Index + 1030), AND
  694.         PUT (Ex, Ey), Box(Index), XOR
  695.     NEXT Index
  696.     PUT (Ex, Ey), ExplosionBACK(), PSET
  697.     RETURN
  698.  
  700.  
  701. SUB Fade (InOUT)
  702.  
  703.     IF InOUT = 1 THEN 'Fade out
  704.         FullFADE! = 1
  705.         DO
  706.             Interval .1
  707.             WAIT &H3DA, 8
  708.             WAIT &H3DA, 8, 8
  709.             FullFADE! = FullFADE! * 1.3
  710.             OUT &H3C8, 0
  711.             FOR n = 1 TO 48
  712.                 OUT &H3C9, INT(FadeBOX(n) / FullFADE!)
  713.             NEXT n
  714.         LOOP WHILE FullFADE! < 20
  715.         OUT &H3C8, 0
  716.         FOR n = 1 TO 48
  717.             OUT &H3C9, 0
  718.         NEXT n
  719.     ELSE 'Fade in
  720.         FullFADE! = 20
  721.         DO
  722.             Interval .1
  723.             WAIT &H3DA, 8
  724.             WAIT &H3DA, 8, 8
  725.             FullFADE! = FullFADE! * .825
  726.             OUT &H3C8, 0
  727.             FOR n = 1 TO 48
  728.                 OUT &H3C9, INT(FadeBOX(n) / FullFADE!)
  729.             NEXT n
  730.         LOOP WHILE FullFADE! > 1.2
  731.         SetPALETTE
  732.     END IF
  733.  
  735.  
  736. SUB FieldMOUSE (x1, y1, x2, y2)
  737.  
  738.     ' MouseDRIVER 7, 0, x1, x2
  739.     ' MouseDRIVER 8, 0, y1, y2
  740.  
  742.  
  743. SUB HideMOUSE
  745.     ' LB = 2
  746.     ' MouseDRIVER LB, 0, 0, 0
  747.  
  749.  
  750. FUNCTION InitMOUSE
  751.  
  752.     '  LB = 0
  753.     '  MouseDRIVER LB, 0, 0, 0
  754.     '  InitMOUSE = LB
  755.     InitMOUSE = -1
  757.  
  758. SUB Instructions
  759.  
  760.     HideMOUSE
  761.     GET (192, 140)-(447, 290), Box(12000)
  762.     ShowMOUSE
  763.  
  764.     FOR n = 1 TO 3
  765.         DEF SEG = VARSEG(Box(1))
  766.         FileNAME$ = "KongINS" + LTRIM$(STR$(n)) + ".BSV"
  767.         BLOAD FileNAME$, VARPTR(Box(1))
  768.         DEF SEG
  769.         HideMOUSE
  770.         PUT (192, 140), Box(), PSET
  771.         ShowMOUSE
  772.         GOSUB ClickARROW
  773.     NEXT n
  774.  
  775.     HideMOUSE
  776.     PUT (192, 140), Box(12000), PSET
  777.     ShowMOUSE
  778.  
  779.     DEF SEG = VARSEG(Box(1))
  780.     BLOAD "KongEXPL.BSV", VARPTR(Box(1))
  781.     DEF SEG
  782.  
  783.     EXIT SUB
  784.  
  785.     ClickARROW:
  786.     DO
  787.         MouseSTATUS LB, RB, MouseX, MouseY
  788.         SELECT CASE MouseX
  789.             CASE 400 TO 424
  790.                 IF MouseY > 154 AND MouseY < 168 THEN
  791.                     IF Arrow = 0 THEN
  792.                         HideMOUSE
  793.                         GET (400, 154)-(424, 167), Box(25000)
  794.                         FOR x = 400 TO 424
  795.                             FOR y = 154 TO 167
  796.                                 IF POINT(x, y) = 6 THEN PSET (x, y), 13
  797.                             NEXT y
  798.                         NEXT x
  799.                         ShowMOUSE
  800.                         Arrow = 1
  801.                     END IF
  802.                 ELSE
  803.                     IF Arrow THEN
  804.                         HideMOUSE
  805.                         PUT (400, 154), Box(25000), PSET
  806.                         ShowMOUSE
  807.                         Arrow = 0
  808.                     END IF
  809.                 END IF
  810.             CASE ELSE
  811.                 IF Arrow THEN
  812.                     HideMOUSE
  813.                     PUT (400, 154), Box(25000), PSET
  814.                     ShowMOUSE
  815.                     Arrow = 0
  816.                 END IF
  817.         END SELECT
  818.         IF Arrow = 1 AND LB = -1 THEN
  819.             PUT (400, 154), Box(25000), PSET
  820.             ClearMOUSE
  821.             Arrow = 0
  822.             RETURN
  823.         END IF
  824.     LOOP
  825.     RETURN
  826.  
  828.  
  829. DEFSNG A-Z
  830. SUB Interval (Length!)
  831.  
  832.     OldTIMER# = TIMER
  833.     DO
  834.         IF TIMER < OldTIMER# THEN EXIT SUB
  835.     LOOP UNTIL TIMER > OldTIMER# + Length!
  836.     WAIT &H3DA, 8
  837.  
  839.  
  840. DEFINT A-Z
  841. SUB LocateMOUSE (x, y)
  842.     _MOUSEMOVE x, y
  843.     ' LB = 4
  844.     ' MX = x
  845.     ' MY = y
  846.     ' MouseDRIVER LB, 0, MX, MY
  847.  
  849.  
  850. SUB MouseDRIVER (LB, RB, MX, MY)
  851.  
  852.     DEF SEG = VARSEG(MouseDATA$)
  853.     Mouse = SADD(MouseDATA$)
  854.     CALL ABSOLUTE(LB, RB, MX, MY, Mouse)
  855.  
  857.  
  858. SUB MouseSTATUS (LB, RB, MouseX, MouseY)
  859.     a% = _MOUSEINPUT
  860.     ' LB = 3
  861.     ' MouseDRIVER LB, RB, MX, MY
  862.     LB = _MOUSEBUTTON(1) ' ((RB AND 1) <> 0)
  863.     RB = _MOUSEBUTTON(2) '((RB AND 2) <> 0)
  864.     MouseX = _MOUSEX
  865.     MouseY = _MOUSEY
  866.  
  868.  
  869. SUB PauseMOUSE (OldLB, OldRB, OldMX, OldMY)
  870.  
  871.  
  872.     SHARED Key$
  873.  
  874.     DO
  875.         Key$ = UCASE$(INKEY$)
  876.         'MouseSTATUS LB, RB, MouseX, MouseY
  877.         a% = _MOUSEINPUT
  878.         LB = _MOUSEBUTTON(1)
  879.         RB = _MOUSEBUTTON(2)
  880.         MouseX = _MOUSEX
  881.         MouseY = _MOUSEY
  882.     LOOP UNTIL LB <> OldLB OR RB <> OldRB OR MouseX <> OldMX OR MouseY <> OldMY OR Key$ <> ""
  883.  
  885.  
  886. SUB PlayGAME
  887.     STATIC Started
  888.     SHARED Player1SPEED#, Player2SPEED#
  889.     SHARED Player1ANGLE#, Player2ANGLE#
  890.  
  891.     DrawSCREEN
  892.     DoAPES
  893.     CompTOSS = 0
  894.  
  895.     Fade 2
  896.  
  897.     DO
  898.         IF Started = 0 THEN
  899.             KScore = 0: YScore = 0
  900.             PrintSCORE 1, KScore
  901.             PrintSCORE 2, YScore
  902.             StartUP
  903.             Started = 1
  904.             IF NumPLAYERS = 2 THEN
  905.                 Ape = FIX(RND * 2) + 1
  906.                 Player1SPEED# = 0: Player2SPEED# = 0
  907.                 Player1ANGLE# = 0: Player2ANGLE# = 0
  908.             ELSE
  909.                 Ape = 2
  910.             END IF
  911.             ClearMOUSE
  912.         END IF
  913.  
  914.         IF Ape = 1 THEN Ape = 2 ELSE Ape = 1
  915.  
  916.         IF Ape = 1 THEN
  917.             YTurn = 0: KTurn = 7
  918.             LINE (73, 473)-(97, 474), 13, B 'LED's
  919.             LINE (540, 473)-(564, 474), 10, B
  920.             PUT (KongX, KongY), KongBOX(), PSET
  921.             Speed# = Player1SPEED#: Angle# = Player1ANGLE#
  922.             Sliders INT(Player1SPEED#), 1
  923.             Sliders INT(Player1ANGLE#), 0
  924.         ELSE
  925.             YTurn = 7: KTurn = 0
  926.             LINE (73, 473)-(97, 474), 10, B 'LED's
  927.             LINE (540, 473)-(564, 474), 13, B
  928.             PUT (YoungX, YoungY), YoungBOX(), PSET
  929.             Speed# = Player2SPEED#: Angle# = Player2ANGLE#
  930.             Sliders INT(Player2SPEED#), 1
  931.             Sliders INT(Player2ANGLE#), 0
  932.         END IF
  933.         IF NumPLAYERS = 1 AND Ape = 2 THEN LocateMOUSE 319, 440
  934.         ShowMOUSE
  935.  
  936.         DO
  937.             MouseSTATUS LB, RB, MouseX, MouseY
  938.             SELECT CASE MouseY
  939.                 CASE 18 TO 27
  940.                     TopMENU 1
  941.                 CASE 424 TO 462
  942.                     IF NumPLAYERS = 1 AND Ape = 2 THEN
  943.                         SELECT CASE Computer 'Call to Computer FUNCTION
  944.                             CASE -1: EXIT DO 'Change player
  945.                             CASE 1 'Reset screen
  946.                                 Fade 1
  947.                                 HideMOUSE
  948.                                 Player1SPEED# = 0: Player2SPEED# = 0
  949.                                 Player1ANGLE# = 0: Player2ANGLE# = 0
  950.                                 EXIT SUB
  951.                             CASE 2: GOSUB EndGAME 'Game over
  952.                         END SELECT
  953.                     ELSE
  954.                         SELECT CASE ControlPANEL 'Call to ControlPANEL FUNCTION
  955.                             CASE -1: EXIT DO 'Change player
  956.                             CASE 1 'Reset screen
  957.                                 Fade 1
  958.                                 HideMOUSE
  959.                                 Player1SPEED# = 0: Player2SPEED# = 0
  960.                                 Player1ANGLE# = 0: Player2ANGLE# = 0
  961.                                 EXIT SUB
  962.                             CASE 2: GOSUB EndGAME 'Game over
  963.                         END SELECT
  964.                     END IF
  965.                 CASE ELSE
  966.                     IF Item THEN TopMENU 0
  967.             END SELECT
  968.         LOOP
  969.  
  970.     LOOP
  971.  
  972.     EXIT SUB
  973.  
  974.     EndGAME:
  975.     DEF SEG = VARSEG(Box(1))
  976.     IF KScore = 3 THEN
  977.         BLOAD "KongWINK.BSV", VARPTR(Box(1))
  978.     ELSE
  979.         BLOAD "KongWINY.BSV", VARPTR(Box(1))
  980.     END IF
  981.     DEF SEG
  982.     wx = (640 - Box(1)) / 2
  983.     WAIT &H3DA, 8
  984.     WAIT &H3DA, 8, 8
  985.     PUT (wx, 160), Box(), PSET
  986.     a$ = INPUT$(1)
  987.     IF a$ = CHR$(13) THEN
  988.         Started = 0
  989.         Fade 1
  990.         Player1SPEED# = 0: Player2SPEED# = 0
  991.         Player1ANGLE# = 0: Player2ANGLE# = 0
  992.         HideMOUSE
  993.         EXIT SUB
  994.     END IF
  995.     SYSTEM
  996.     RETURN
  997.  
  999.  
  1000. SUB PrintSCORE (Ape, Score)
  1001.  
  1002.     IF Ape = 1 THEN
  1003.         PUT (19, 452), NumBOX(Score * 75 + 1), PSET
  1004.     ELSE
  1005.         PUT (604, 452), NumBOX(Score * 75 + 1), PSET
  1006.     END IF
  1007.  
  1009.  
  1010. SUB SetPALETTE
  1011.  
  1012.     RESTORE PaletteDATA
  1013.     OUT &H3C8, 0
  1014.     FOR n = 1 TO 48
  1015.         READ Intensity
  1016.         OUT &H3C9, Intensity
  1017.     NEXT n
  1018.  
  1020.  
  1021. SUB SetWIND
  1022.  
  1023.     Wind! = FIX(RND * 17) - 8
  1024.     LINE (291, 462)-(349, 476), 7, BF
  1025.     IF Wind! = 0 THEN
  1026.         PUT (298, 465), LilBOX(), PSET
  1027.     ELSE
  1028.         IF Wind! < 0 THEN
  1029.             PSET (320 + ABS(Wind! * 2) + 3, 466), 13
  1030.             DRAW "L10"
  1031.             DRAW "L" + LTRIM$(STR$(ABS(Wind! * 3))) + "U3 G6 F6 U3 R10"
  1032.             DRAW "R" + LTRIM$(STR$(ABS(Wind! * 3))) + "U6 bg3 p13,13"
  1033.         ELSE
  1034.             PSET (320 - Wind! * 2 - 3, 466), 13
  1035.             DRAW "R10"
  1036.             DRAW "R" + LTRIM$(STR$(ABS(Wind! * 3))) + "U3 F6 G6 U3 L10"
  1037.             DRAW "L" + LTRIM$(STR$(ABS(Wind! * 3))) + "U6 bf3 p13,13"
  1038.         END IF
  1039.     END IF
  1040.  
  1042.  
  1043. SUB ShowMOUSE
  1045.     'LB = 1
  1046.     'MouseDRIVER LB, 0, 0, 0
  1048.  
  1049. SUB Sliders (Value, Slider)
  1050.     STATIC LeftX, RightX
  1051.  
  1052.     IF LeftX = 0 THEN LeftX = 141
  1053.     IF RightX = 0 THEN RightX = 484
  1054.     WAIT &H3DA, 8
  1055.     WAIT &H3DA, 8, 8
  1056.  
  1057.     HideMOUSE
  1058.     IF Slider = 1 THEN
  1059.         PUT (LeftX, 443), SliderBOX(281), PSET
  1060.         LeftX = 141 + Value
  1061.         GET (LeftX, 443)-(LeftX + 10, 461), SliderBOX(281)
  1062.         PUT (LeftX, 443), SliderBOX(201), PSET
  1063.     ELSE
  1064.         PUT (RightX, 443), SliderBOX(361), PSET
  1065.         RightX = 489 - Value
  1066.         GET (RightX, 443)-(RightX + 10, 461), SliderBOX(361)
  1067.         PUT (RightX, 443), SliderBOX(201), PSET
  1068.     END IF
  1069.     ShowMOUSE
  1070.  
  1071.     GOSUB SetNUMS
  1072.  
  1073.     EXIT SUB
  1074.  
  1075.     SetNUMS:
  1076.     Num$ = LTRIM$(STR$(Value))
  1077.     IF Value < 10 THEN
  1078.         LNum = 0
  1079.         RNum = VAL(Num$)
  1080.     ELSE
  1081.         LNum = VAL(MID$(Num$, 1, 1))
  1082.         RNum = VAL(MID$(Num$, 2, 1))
  1083.     END IF
  1084.     HideMOUSE
  1085.     IF Slider = 1 THEN
  1086.         PUT (260, 447), SliderBOX(LNum * 20 + 1), PSET
  1087.         PUT (266, 447), SliderBOX(RNum * 20 + 1), PSET
  1088.     ELSE
  1089.         PUT (369, 447), SliderBOX(LNum * 20 + 1), PSET
  1090.         PUT (375, 447), SliderBOX(RNum * 20 + 1), PSET
  1091.     END IF
  1092.     ShowMOUSE
  1093.     RETURN
  1094.  
  1096.  
  1097. SUB StartUP
  1098.  
  1099.     DEF SEG = VARSEG(Box(1))
  1100.     BLOAD "Kong1PL2.BSV", VARPTR(Box(1))
  1101.     DEF SEG
  1102.     GET (209, 160)-(430, 237), Box(12000)
  1103.     PUT (209, 160), Box(), PSET
  1104.     LocateMOUSE 340, 190
  1105.     ShowMOUSE
  1106.  
  1107.     DO
  1108.         MouseSTATUS LB, RB, MouseX, MouseY
  1109.         SELECT CASE MouseX
  1110.             CASE 244 TO 270
  1111.                 IF Item = 0 THEN
  1112.                     SELECT CASE MouseY
  1113.                         CASE 193 TO 205
  1114.                             IF LB THEN
  1115.                                 ButtonX = 245: ButtonY = 194
  1116.                                 GOSUB Clicker
  1117.                                 NumPLAYERS = 2
  1118.                                 FileNAME$ = "KongOPEN.BSV"
  1119.                                 GOSUB LoadFILE
  1120.                             END IF
  1121.                         CASE 209 TO 221
  1122.                             IF LB THEN
  1123.                                 ButtonX = 245: ButtonY = 210
  1124.                                 GOSUB Clicker
  1125.                                 NumPLAYERS = 1
  1126.                                 FileNAME$ = "Kong1PLR.BSV"
  1127.                                 GOSUB LoadFILE
  1128.                             END IF
  1129.                     END SELECT
  1130.                 END IF
  1131.             CASE 340 TO 366
  1132.                 IF Item = 1 THEN
  1133.                     IF MouseY > 209 AND MouseY < 221 THEN
  1134.                         IF LB THEN
  1135.                             ButtonX = 340: ButtonY = 210
  1136.                             GOSUB Clicker
  1137.                             EXIT DO
  1138.                         END IF
  1139.                     END IF
  1140.                 END IF
  1141.         END SELECT
  1142.     LOOP
  1143.  
  1144.     HideMOUSE
  1145.     PUT (209, 160), Box(12000), PSET
  1146.     ShowMOUSE
  1147.     Item = 0
  1148.     DEF SEG = VARSEG(Box(1))
  1149.     BLOAD "KongEXPL.BSV", VARPTR(Box(1))
  1150.     DEF SEG
  1151.  
  1152.     EXIT SUB
  1153.  
  1154.     LoadFILE:
  1155.     DEF SEG = VARSEG(Box(1))
  1156.     BLOAD FileNAME$, VARPTR(Box(21500))
  1157.     DEF SEG
  1158.     HideMOUSE
  1159.     PUT (209, 160), Box(21500), PSET
  1160.     ShowMOUSE
  1161.     RETURN
  1162.  
  1163.     Clicker:
  1164.     HideMOUSE
  1165.     GET (ButtonX, ButtonY)-(ButtonX + 24, ButtonY + 10), Box(20000)
  1166.     LINE (ButtonX, ButtonY)-(ButtonX + 24, ButtonY + 10), 8, B
  1167.     ShowMOUSE
  1168.     Interval .1
  1169.     HideMOUSE
  1170.     PUT (ButtonX, ButtonY), Box(20000), PSET
  1171.     ShowMOUSE
  1172.     Interval .01
  1173.     Item = Item + 1
  1174.     RETURN
  1175.  
  1177.  
  1178. SUB TopMENU (InOUT)
  1179.     STATIC MX1
  1180.  
  1181.     IF InOUT = 0 THEN GOSUB DeLIGHT: EXIT SUB
  1182.  
  1183.     SELECT CASE MouseX
  1184.         CASE 20 TO 72
  1185.             IF Item <> 1 THEN
  1186.                 GOSUB DeLIGHT
  1187.                 MX1 = 20: MX2 = 72
  1188.                 GOSUB HiLIGHT
  1189.                 Item = 1
  1190.             END IF
  1191.         CASE 594 TO 616
  1192.             IF Item <> 2 THEN
  1193.                 GOSUB DeLIGHT
  1194.                 MX1 = 594: MX2 = 616
  1195.                 GOSUB HiLIGHT
  1196.                 Item = 2
  1197.             END IF
  1198.         CASE ELSE
  1199.             GOSUB DeLIGHT
  1200.     END SELECT
  1201.  
  1202.     IF LB = -1 AND Item THEN
  1203.         SELECT CASE Item
  1204.             CASE 1: GOSUB DeLIGHT: Instructions
  1205.             CASE 2: GOSUB DeLIGHT: SYSTEM
  1206.         END SELECT
  1207.     END IF
  1208.  
  1209.     EXIT SUB
  1210.  
  1211.     HiLIGHT:
  1212.     HideMOUSE
  1213.     GET (MX1, 18)-(MX2, 27), Box(25000)
  1214.     FOR x = MX1 TO MX2
  1215.         FOR y = 18 TO 27
  1216.             IF POINT(x, y) <> 1 AND POINT(x, y) <> 2 THEN
  1217.                 PSET (x, y), 13
  1218.             END IF
  1219.         NEXT y
  1220.     NEXT x
  1221.     ShowMOUSE
  1222.     RETURN
  1223.  
  1224.     DeLIGHT:
  1225.     IF Item THEN
  1226.         HideMOUSE
  1227.         PUT (MX1, 18), Box(25000), PSET
  1228.         ShowMOUSE
  1229.     END IF
  1230.     Item = 0
  1231.     RETURN
  1232.  
  1234.  

K1 (first graphic maker file)

Code: QB64: [Select]
  1. 'K1.BAS: Creates graphics files for KONG.BAS, -chains K2.BAS
  2. '-----------------------------------------------------------
  3. DEFINT A-Z
  4. DIM Box(1 TO 26000)
  5. DIM FontBOX(4701)
  6.  
  8. GOSUB SetPALETTE
  9. GOSUB DrawIMAGE
  10. GOSUB GetNUMS
  11. GOSUB GetBANANA
  12. GOSUB GetFONT
  13. GOSUB GetEXPLOSION
  14. GOSUB GetAPES
  15.  
  16. Wdth = 45
  17. Dpth = 36
  18. OPEN "KongCRTR.DAT" FOR OUTPUT AS #1
  19. WRITE #1, Wdth, Dpth
  20. FOR x = 555 TO 555 + Wdth
  21.     FOR y = 32 TO 32 + Dpth
  22.         WRITE #1, POINT(x, y)
  23.     NEXT y
  26.  
  27. CHAIN "K2"
  28.  
  30.  
  31. GetAPES:
  32. 'Gorilla animation components
  33. xx = 50
  34. FOR x = 20 TO 116 STEP 40
  35.     GET (x, 0)-(x + 33, 42), Box()
  36.     PUT (xx, 200), Box()
  37.     xx = xx + 50
  39. GET (18, 94)-(46, 132), Box()
  40. FOR x = 200 TO 550 STEP 50
  41.     PUT (x, 205), Box()
  43. GET (58, 94)-(96, 119), Box()
  44. PUT (200, 204), Box(), PSET
  45. GET (98, 94)-(136, 119), Box()
  46. PUT (250, 204), Box(), PSET
  47. GET (439, 40)-(466, 68), Box()
  48. PUT (349, 203), Box(), PSET
  49. GET (472, 40)-(504, 68), Box()
  50. PUT (398, 203), Box(), PSET
  51. GET (505, 40)-(545, 68), Box()
  52. PUT (447, 203), Box(), PSET
  53. FOR y = 200 TO 250
  54.     FOR x = 349 TO 500
  55.         PSET (928 - x, y), POINT(x, y)
  56.     NEXT x
  58. FOR y = 200 TO 250
  59.     FOR x = 49 TO 188
  60.         PSET (228 - x, y + 60), POINT(x, y)
  61.     NEXT x
  63. Index = 1
  64. FOR x = 45 TO 545 STEP 50
  65.     GET (x, 200)-(x + 38, 242), Box(Index)
  66.     FOR xx = x TO x + 38
  67.         FOR yy = 200 TO 242
  68.             IF POINT(xx, yy) = 0 THEN PSET (xx, yy), 15 ELSE PSET (xx, yy), 0
  69.         NEXT yy
  70.     NEXT xx
  71.     GET (x, 200)-(x + 38, 242), Box(Index + 450)
  72.     PUT (x, 200), Box(Index + 450)
  73.     Index = Index + 900
  75. DEF SEG = VARSEG(Box(1))
  76. BSAVE "KongMJY.BSV", VARPTR(Box(1)), 9900 * 2
  78. Index = 1
  79. FOR x = 145 TO 45 STEP -50
  80.     GET (x, 260)-(x + 38, 302), Box(Index)
  81.     FOR xx = x TO x + 38
  82.         FOR yy = 260 TO 302
  83.             IF POINT(xx, yy) = 0 THEN PSET (xx, yy), 15 ELSE PSET (xx, yy), 0
  84.         NEXT yy
  85.     NEXT xx
  86.     GET (x, 260)-(x + 38, 302), Box(Index + 450)
  87.     PUT (x, 260), Box(Index + 450)
  88.     Index = Index + 900
  90. DEF SEG = VARSEG(Box(1))
  91. BSAVE "KongKONG.BSV", VARPTR(Box(1)), 9900 * 2
  94.  
  95. GetBANANA:
  96. Index = 1
  97. FOR y = 0 TO 112 STEP 16 'Banana toss sequence
  98.     GET (0, y)-(11, y + 11), Box(Index)
  99.     FOR xx = 0 TO 11
  100.         FOR yy = y TO y + 11
  101.             IF POINT(xx, yy) = 0 THEN PSET (xx, yy), 15 ELSE PSET (xx, yy), 0
  102.         NEXT yy
  103.     NEXT xx
  104.     GET (0, y)-(11, y + 11), Box(Index + 50)
  105.     PUT (0, y), Box(Index + 50)
  106.     Index = Index + 100
  108. PUT (0, 0), Box()
  109. DEF SEG = VARSEG(Box(1))
  110. BSAVE "KongBNNA.BSV", VARPTR(Box(1)), 1600
  113.  
  114. GetEXPLOSION:
  115. Index = 1
  116. FOR x = 130 TO 610 STEP 62
  117.     GET (x, 84)-(x + 61, 145), Box(Index)
  118.     Index = Index + 1030
  120. x = 20
  121. FOR Index = 1 TO 7211 STEP 1030
  122.     PUT (x, 200), Box(Index), PSET
  123.     x = x + 64
  124. NEXT Index
  125. x = 20
  126. FOR Index = 1 TO 14421 STEP 2060
  127.     GET (x, 200)-(x + 61, 263), Box(Index)
  128.     FOR xx = x TO x + 61
  129.         FOR yy = 200 TO 261
  130.             IF POINT(xx, yy) = 0 THEN PSET (xx, yy), 15 ELSE PSET (xx, yy), 0
  131.         NEXT yy
  132.     NEXT xx
  133.     GET (x, 200)-(x + 61, 261), Box(Index + 1030)
  134.     PUT (x, 200), Box(Index + 1030)
  135.     x = x + 64
  136. NEXT Index
  137. DEF SEG = VARSEG(Box(1))
  138. BSAVE "KongEXPL.BSV", VARPTR(Box(1)), 16480 * 2&
  141.  
  142. GetFONT:
  143. Index = 2
  144. FOR y = 22 TO 68 STEP 15
  145.     FOR x = 143 TO 420 STEP 12
  146.         GET (x, y)-(x + 11, y + 11), Box(Index)
  147.         PUT (x, y), Box(Index)
  148.         Index = Index + 50
  149.         IF Index = 94 * 50 + 2 THEN EXIT FOR
  150.     NEXT x
  152. FontBOX(0) = 50
  153. FontBOX(1) = 4
  154. FOR Index = 2 TO 93 * 50 + 2 STEP 50
  155.     LINE (0, 200)-(20, 220), 0, BF
  156.     PUT (0, 200), Box(Index)
  157.     x1 = -1: x2 = -1
  158.     FOR x = 0 TO 20
  159.         FOR y = 200 TO 220
  160.             IF POINT(x, y) <> 0 AND x1 = -1 THEN x1 = x
  161.         NEXT y
  162.     NEXT x
  163.     FOR x = 20 TO 0 STEP -1
  164.         FOR y = 200 TO 220
  165.             IF POINT(x, y) <> 0 AND x2 = -1 THEN x2 = x
  166.         NEXT y
  167.     NEXT x
  168.     GET (x1, 200)-(x2 + 1, 211), FontBOX(Index)
  169. NEXT Index
  170. LINE (0, 200)-(20, 220), 0, BF
  171. DEF SEG = VARSEG(FontBOX(0))
  172. BSAVE "Kong.FBS", VARPTR(FontBOX(0)), 4701 * 2
  174. 'GET slider and slider numbers
  175. LINE (300, 200)-(310, 218), 7, BF
  176. LINE (300, 200)-(310, 200), 15
  177. LINE (300, 201)-(310, 201), 9
  178. LINE (300, 202)-(310, 202), 8
  179. LINE (300, 216)-(310, 217), 6, B
  180. LINE (300, 218)-(310, 218), 10
  181. LINE (310, 200)-(310, 218), 10
  182. LINE (302, 202)-(307, 215), 9, BF
  183. LINE (302, 202)-(307, 214), 2, BF
  184. LINE (302, 202)-(307, 202), 1, BF
  185. x = 100: y = 200
  186. FOR n = 15 TO 24
  187.     PUT (x, y), FontBOX(n * FontBOX(0) + 2)
  188.     x = x + 10
  190. FOR x = 100 TO 194
  191.     FOR y = 201 TO 209
  192.         IF POINT(x, y) = 0 THEN PSET (x, y), 10 ELSE PSET (x, y), 13
  193.     NEXT y
  195. Index = 1
  196. FOR x = 100 TO 190 STEP 10
  197.     GET (x, 201)-(x + 4, 209), Box(Index)
  198.     PUT (x, 201), Box(Index)
  199.     Index = Index + 20
  201. GET (300, 200)-(310, 218), Box(201)
  202. PUT (300, 200), Box(201)
  203. DEF SEG = VARSEG(Box(1))
  204. BSAVE "KongSLDR.BSV", VARPTR(Box(1)), 560
  207.  
  208. DrawIMAGE:
  209. MaxWIDTH = 639
  210. MaxDEPTH = 144
  211. x = 0: y = 0
  212. RESTORE ImageDATA:
  214.     READ Count, Colr
  215.     FOR Reps = 1 TO Count
  216.         PSET (x, y), Colr
  217.         x = x + 1
  218.         IF x > MaxWIDTH THEN
  219.             x = 0
  220.             y = y + 1
  221.         END IF
  222.     NEXT Reps
  223. LOOP UNTIL y > MaxDEPTH
  225.  
  226. GetNUMS:
  227. Index = 1
  228. FOR x = 438 TO 512 STEP 24
  229.     IF x = 510 THEN x = 512
  230.     GET (x, 22)-(x + 14, 36), Box(Index)
  231.     Index = Index + 75
  233. DEF SEG = VARSEG(Box(1))
  234. BSAVE "KongNUMS.BSV", VARPTR(Box(1)), 600
  237.  
  238. SetPALETTE:
  239. DATA 0,4,16,0,10,21,0,16,32,32,10,0
  240. DATA 63,0,0,63,32,0,18,18,24,30,30,37
  241. DATA 42,42,50,55,55,63,0,0,0,43,27,19
  242. DATA 8,8,21,0,63,21,63,63,21,63,63,63
  243.  
  244. RESTORE SetPALETTE
  245. OUT &H3C8, 0
  246. FOR n = 1 TO 48
  247.     READ Intensity
  248.     OUT &H3C9, Intensity
  251.  
  252. ImageDATA:
  253. DATA 120,0,1,8,638,0,5,8,213,0,2,4,10,0,2,4,9,0,2,4,66,0
  254. DATA 2,4,142,0,2,12,76,0,1,7,107,0,1,8,6,7,1,6,19,0,2,4
  255. DATA 8,0,4,4,2,0,2,4,20,0,3,4,17,0,2,4,11,0,2,4,2,0,3,4
  256. DATA 5,0,2,4,20,0,3,4,40,0,2,4,7,0,4,4,2,0,4,4,9,0,3,4,5,0
  257. DATA 2,4,6,0,3,4,8,0,3,4,8,0,3,4,5,0,3,4,10,0,3,4,2,0,3,4
  258. DATA 6,0,2,4,2,0,3,4,12,0,2,4,12,0,3,4,5,0,3,4,5,0,2,4,2,0
  259. DATA 3,4,6,0,4,4,6,0,3,4,2,0,2,4,20,0,3,4,76,0,3,4,75,0
  260. DATA 1,14,1,13,59,0,5,11,42,0,1,6,1,0,1,6,1,0,5,6,15,0,5,4
  261. DATA 8,0,9,4,8,0,2,4,6,0,6,4,14,0,5,4,9,0,3,4,1,0,3,4,1,0
  262. DATA 3,4,1,0,5,4,8,0,2,4,6,0,6,4,40,0,3,4,7,0,3,4,2,0,4,4
  263. DATA 6,0,6,4,5,0,4,4,4,0,3,4,2,0,14,4,1,0,5,4,4,0,4,4,9,0
  264. DATA 10,4,3,0,3,4,1,0,3,4,1,0,3,4,8,0,5,4,9,0,5,4,4,0,4,4
  265. DATA 3,0,3,4,1,0,3,4,1,0,3,4,4,0,4,4,5,0,3,4,1,0,5,4,8,0
  266. DATA 2,4,6,0,6,4,28,0,5,4,12,0,4,4,2,0,2,4,15,0,3,4,4,0
  267. DATA 4,4,74,0,1,5,2,14,57,0,8,11,43,0,1,6,1,0,4,6,1,3,1,11
  268. DATA 14,0,4,4,8,0,11,4,6,0,3,4,5,0,7,4,14,0,4,4,10,0,5,4
  269. DATA 4,0,2,4,1,0,6,4,6,0,3,4,5,0,7,4,40,0,3,4,6,0,4,4,1,0
  270. DATA 5,4,5,0,7,4,4,0,5,4,4,0,3,4,1,0,2,4,3,0,4,4,8,0,3,4
  271. DATA 5,0,3,4,13,0,6,4,4,0,5,4,4,0,2,4,7,0,4,4,12,0,3,4,5,0
  272. DATA 3,4,4,0,5,4,4,0,2,4,3,0,4,4,6,0,3,4,1,0,6,4,6,0,3,4
  273. DATA 5,0,7,4,27,0,5,4,13,0,9,4,8,0,2,4,1,0,7,4,3,0,3,4,75,0
  274. DATA 3,14,56,0,9,3,1,11,30,0,5,11,11,0,1,6,2,3,2,11,13,0
  275. DATA 4,4,4,0,2,4,2,0,4,4,4,0,3,4,5,0,4,4,4,0,3,4,1,0,3,4
  276. DATA 15,0,4,4,4,0,2,4,3,0,4,4,6,0,3,4,3,0,3,4,5,0,4,4,4,0
  277. DATA 3,4,1,0,3,4,41,0,3,4,6,0,3,4,2,0,4,4,5,0,3,4,1,0,3,4
  278. DATA 3,0,7,4,4,0,3,4,6,0,3,4,7,0,5,4,5,0,3,4,15,0,2,4,5,0
  279. DATA 4,4,6,0,3,4,5,0,4,4,11,0,5,4,5,0,3,4,3,0,4,4,6,0,3,4
  280. DATA 1,0,5,4,4,0,5,4,4,0,3,4,5,0,4,4,4,0,3,4,1,0,3,4,27,0
  281. DATA 6,4,8,0,3,4,1,0,11,4,6,0,3,4,1,0,3,4,1,0,4,4,1,0,4,4
  282. DATA 74,0,3,14,1,5,55,0,2,11,2,3,2,11,6,3,28,0,1,11,5,3
  283. DATA 1,11,11,0,3,3,2,11,12,0,4,4,4,0,2,4,2,0,4,4,4,0,4,4
  284. DATA 4,0,3,4,4,0,3,4,3,0,2,4,15,0,4,4,4,0,2,4,2,0,4,4,7,0
  285. DATA 3,4,3,0,4,4,4,0,3,4,4,0,3,4,3,0,2,4,41,0,3,4,5,0,4,4
  286. DATA 2,0,4,4,4,0,3,4,3,0,2,4,3,0,2,4,2,0,3,4,4,0,4,4,5,0
  287. DATA 3,4,7,0,4,4,4,0,5,4,15,0,2,4,4,0,4,4,7,0,3,4,4,0,3,4
  288. DATA 13,0,4,4,4,0,5,4,2,0,4,4,7,0,8,4,5,0,4,4,5,0,4,4,4,0
  289. DATA 3,4,4,0,3,4,3,0,2,4,26,0,2,4,1,0,7,4,5,0,3,4,1,0,4,4
  290. DATA 4,0,3,4,5,0,4,4,1,0,2,4,3,0,3,4,2,0,3,4,73,0,4,14,1,5
  291. DATA 20,0,5,11,29,0,8,11,5,3,26,0,2,11,7,3,1,11,11,0,3,3
  292. DATA 2,11,10,0,4,4,4,0,3,4,1,0,5,4,3,0,6,4,2,0,3,4,4,0,3,4
  293. DATA 20,0,4,4,4,0,3,4,2,0,4,4,7,0,2,4,3,0,6,4,2,0,3,4,4,0
  294. DATA 3,4,18,0,4,4,2,0,2,4,8,0,2,4,9,0,5,4,5,0,4,4,1,0,5,4
  295. DATA 3,0,3,4,13,0,3,4,3,0,4,4,5,0,3,4,9,0,3,4,4,0,5,4,14,0
  296. DATA 3,4,4,0,4,4,7,0,2,4,4,0,3,4,15,0,3,4,4,0,5,4,2,0,4,4
  297. DATA 7,0,2,4,3,0,3,4,4,0,5,4,4,0,6,4,2,0,3,4,4,0,3,4,32,0
  298. DATA 6,4,1,0,3,4,4,0,4,4,1,0,4,4,4,0,4,4,4,0,3,4,2,0,3,4
  299. DATA 3,0,2,4,2,0,3,4,72,0,4,14,1,5,20,0,7,11,28,0,1,6,2,10
  300. DATA 1,6,2,10,2,6,5,3,24,0,4,11,8,3,1,11,10,0,5,3,1,11,9,0
  301. DATA 4,4,3,0,4,4,3,0,2,4,4,0,6,4,1,0,3,4,4,0,3,4,7,0,3,4
  302. DATA 11,0,4,4,3,0,4,4,2,0,3,4,8,0,2,4,3,0,6,4,1,0,3,4,4,0
  303. DATA 3,4,7,0,3,4,9,0,3,4,3,0,3,4,3,0,6,4,10,0,5,4,3,0,4,4
  304. DATA 4,0,2,4,3,0,3,4,7,0,3,4,4,0,3,4,2,0,4,4,6,0,3,4,8,0
  305. DATA 4,4,4,0,5,4,8,0,2,4,3,0,3,4,5,0,3,4,8,0,2,4,3,0,3,4
  306. DATA 6,0,2,4,7,0,4,4,4,0,5,4,2,0,3,4,8,0,2,4,2,0,4,4,4,0
  307. DATA 5,4,4,0,6,4,1,0,3,4,4,0,3,4,7,0,3,4,26,0,7,4,5,0,8,4
  308. DATA 3,0,6,4,2,0,3,4,3,0,3,4,6,0,4,4,70,0,3,14,1,11,1,14
  309. DATA 1,5,21,0,2,11,3,3,2,11,27,0,1,3,1,6,1,7,1,6,2,7,2,6
  310. DATA 3,3,2,11,1,3,24,0,2,6,2,11,9,3,1,11,2,0,4,11,4,0,5,3
  311. DATA 1,11,8,0,4,4,2,0,2,4,5,0,3,4,4,0,7,4,1,0,2,4,3,0,4,4
  312. DATA 6,0,4,4,11,0,4,4,2,0,2,4,4,0,4,4,7,0,2,4,4,0,7,4,1,0
  313. DATA 2,4,3,0,4,4,6,0,4,4,8,0,4,4,3,0,2,4,3,0,7,4,8,0,7,4
  314. DATA 2,0,5,4,3,0,3,4,2,0,4,4,6,0,4,4,3,0,3,4,1,0,5,4,6,0
  315. DATA 3,4,9,0,3,4,3,0,3,4,1,0,2,4,9,0,2,4,4,0,2,4,4,0,4,4
  316. DATA 7,0,2,4,4,0,3,4,3,0,4,4,8,0,3,4,3,0,3,4,1,0,2,4,2,0
  317. DATA 4,4,7,0,2,4,3,0,3,4,5,0,5,4,4,0,7,4,1,0,2,4,3,0,4,4
  318. DATA 6,0,4,4,26,0,7,4,5,0,3,4,2,0,2,4,4,0,6,4,1,0,3,4,3,0
  319. DATA 5,4,6,0,2,4,69,0,1,13,2,14,1,11,2,14,1,5,21,0,2,11
  320. DATA 5,3,2,11,26,0,1,3,4,8,1,7,5,3,1,6,1,11,2,3,23,0,1,6
  321. DATA 1,10,1,6,11,3,2,11,4,3,4,11,6,3,1,11,6,0,5,4,1,0,3,4
  322. DATA 5,0,3,4,2,0,4,4,2,0,6,4,3,0,3,4,7,0,3,4,1,0,15,4,1,0
  323. DATA 3,4,4,0,4,4,7,0,2,4,2,0,4,4,2,0,6,4,3,0,3,4,7,0,3,4
  324. DATA 9,0,4,4,3,0,2,4,3,0,6,4,10,0,6,4,2,0,5,4,3,0,3,4,2,0
  325. DATA 3,4,7,0,3,4,4,0,5,4,2,0,2,4,6,0,3,4,9,0,3,4,2,0,3,4
  326. DATA 1,0,3,4,9,0,3,4,3,0,2,4,4,0,4,4,7,0,2,4,3,0,3,4,1,0
  327. DATA 4,4,11,0,3,4,2,0,3,4,1,0,3,4,2,0,4,4,7,0,2,4,3,0,3,4
  328. DATA 4,0,12,4,2,0,6,4,3,0,3,4,7,0,3,4,25,0,5,4,1,0,3,4,5,0
  329. DATA 3,4,1,0,3,4,4,0,7,4,1,0,2,4,4,0,4,4,6,0,2,4,70,0,1,13
  330. DATA 2,14,1,5,19,0,2,11,1,0,1,11,9,3,1,11,25,0,1,3,1,7,1,10
  331. DATA 1,7,1,10,1,7,1,6,4,3,2,11,2,3,1,11,21,0,4,6,6,3,2,11
  332. DATA 19,3,1,11,6,0,4,4,1,0,5,4,4,0,3,4,3,0,3,4,1,0,7,4,3,0
  333. DATA 3,4,6,0,4,4,11,0,4,4,1,0,5,4,3,0,3,4,7,0,2,4,4,0,3,4
  334. DATA 1,0,7,4,3,0,3,4,6,0,4,4,9,0,4,4,2,0,4,4,2,0,5,4,9,0
  335. DATA 4,4,1,0,3,4,1,0,6,4,3,0,3,4,2,0,3,4,6,0,4,4,4,0,3,4
  336. DATA 4,0,2,4,5,0,4,4,9,0,3,4,2,0,2,4,2,0,3,4,10,0,2,4,2,0
  337. DATA 2,4,5,0,3,4,7,0,2,4,3,0,8,4,3,0,2,4,7,0,3,4,2,0,2,4
  338. DATA 2,0,3,4,2,0,3,4,7,0,2,4,4,0,3,4,4,0,7,4,2,0,3,4,1,0
  339. DATA 7,4,3,0,3,4,6,0,4,4,26,0,4,4,1,0,3,4,5,0,3,4,1,0,3,4
  340. DATA 2,0,4,4,2,0,6,4,6,0,3,4,5,0,2,4,91,0,2,11,2,3,1,11
  341. DATA 11,3,3,11,21,0,1,11,7,6,9,3,2,11,18,0,2,8,2,6,7,3,1,6
  342. DATA 1,11,20,3,6,0,4,4,1,0,5,4,3,0,3,4,4,0,2,4,2,0,6,4,4,0
  343. DATA 3,4,4,0,6,4,11,0,4,4,1,0,5,4,3,0,3,4,6,0,2,4,5,0,2,4
  344. DATA 2,0,6,4,4,0,3,4,4,0,6,4,8,0,5,4,1,0,4,4,4,0,4,4,9,0
  345. DATA 4,4,1,0,9,4,3,0,3,4,3,0,3,4,4,0,6,4,3,0,3,4,5,0,2,4
  346. DATA 4,0,4,4,10,0,11,4,11,0,6,4,5,0,3,4,6,0,2,4,4,0,5,4
  347. DATA 4,0,4,4,7,0,11,4,3,0,3,4,6,0,2,4,5,0,3,4,3,0,8,4,2,0
  348. DATA 2,4,2,0,6,4,4,0,3,4,4,0,6,4,24,0,5,4,2,0,4,4,4,0,3,4
  349. DATA 1,0,3,4,3,0,3,4,1,0,7,4,6,0,4,4,3,0,3,4,90,0,1,11,19,3
  350. DATA 1,11,19,0,1,11,1,3,1,6,3,10,2,6,3,3,1,1,7,3,2,11,17,0
  351. DATA 1,7,1,10,1,8,1,6,6,3,2,11,20,3,7,0,6,4,1,0,4,4,3,0
  352. DATA 4,4,2,0,2,4,3,0,5,4,4,0,3,4,3,0,6,4,12,0,6,4,1,0,4,4
  353. DATA 2,0,4,4,3,0,3,4,6,0,2,4,3,0,5,4,4,0,3,4,3,0,6,4,10,0
  354. DATA 4,4,1,0,3,4,5,0,5,4,8,0,3,4,1,0,6,4,1,0,6,4,1,0,4,4
  355. DATA 1,0,3,4,3,0,6,4,3,0,4,4,4,0,3,4,4,0,4,4,4,0,3,4,4,0
  356. DATA 4,4,4,0,2,4,12,0,5,4,5,0,4,4,3,0,3,4,5,0,3,4,5,0,3,4
  357. DATA 10,0,4,4,4,0,2,4,3,0,4,4,3,0,3,4,6,0,3,4,2,0,8,4,3,0
  358. DATA 2,4,3,0,5,4,4,0,3,4,3,0,6,4,25,0,4,4,4,0,3,4,3,0,3,4
  359. DATA 1,0,3,4,4,0,2,4,2,0,6,4,8,0,3,4,3,0,2,4,91,0,1,11,7,3
  360. DATA 2,11,3,3,2,11,6,3,1,11,18,0,1,11,2,3,5,6,1,3,2,1,9,3
  361. DATA 2,11,7,0,1,7,7,0,2,7,3,6,27,3,8,0,5,4,2,0,4,4,3,0,3,4
  362. DATA 3,0,2,4,5,0,3,4,4,0,3,4,2,0,3,4,2,0,2,4,12,0,5,4,2,0
  363. DATA 4,4,2,0,8,4,8,0,2,4,5,0,3,4,4,0,3,4,2,0,3,4,2,0,2,4
  364. DATA 10,0,7,4,9,0,3,4,7,0,3,4,1,0,5,4,2,0,5,4,2,0,3,4,2,0
  365. DATA 3,4,2,0,3,4,2,0,2,4,2,0,4,4,4,0,4,4,5,0,4,4,1,0,3,4
  366. DATA 10,0,2,4,1,0,3,4,12,0,5,4,5,0,8,4,7,0,3,4,3,0,4,4,15,0
  367. DATA 2,4,1,0,3,4,3,0,8,4,8,0,3,4,1,0,3,4,3,0,3,4,3,0,2,4
  368. DATA 5,0,3,4,4,0,3,4,2,0,3,4,2,0,2,4,25,0,4,4,4,0,4,4,2,0
  369. DATA 2,4,3,0,4,4,2,0,2,4,3,0,5,4,8,0,3,4,95,0,1,11,7,3,9,11
  370. DATA 6,3,1,11,16,0,1,11,5,3,4,10,12,3,2,11,6,0,1,13,7,0
  371. DATA 4,6,17,3,3,6,6,3,11,0,3,4,6,0,2,4,1,0,3,4,3,0,3,4,6,0
  372. DATA 2,4,5,0,6,4,2,0,3,4,13,0,3,4,6,0,2,4,2,0,5,4,9,0,3,4
  373. DATA 6,0,2,4,5,0,6,4,2,0,3,4,11,0,5,4,4,0,8,4,8,0,3,4,2,0
  374. DATA 4,4,8,0,3,4,4,0,6,4,2,0,3,4,2,0,3,4,6,0,3,4,5,0,7,4
  375. DATA 11,0,5,4,13,0,5,4,6,0,5,4,10,0,7,4,17,0,5,4,5,0,5,4
  376. DATA 11,0,5,4,4,0,2,4,3,0,3,4,6,0,2,4,5,0,6,4,2,0,3,4,25,0
  377. DATA 3,4,5,0,7,4,4,0,3,4,3,0,2,4,5,0,3,4,2,0,4,4,2,0,2,4
  378. DATA 3,0,5,4,88,0,1,11,6,3,1,11,1,6,3,10,1,6,3,10,1,6,1,11
  379. DATA 6,3,1,11,15,0,1,11,7,3,1,10,14,3,1,11,5,0,1,5,1,13
  380. DATA 1,5,7,0,3,6,3,3,3,1,6,3,1,6,3,7,3,6,5,3,23,0,5,4,3,0
  381. DATA 2,4,6,0,2,4,14,0,2,4,24,0,2,4,15,0,2,4,6,0,2,4,14,0
  382. DATA 2,4,37,0,3,4,3,0,2,4,9,0,3,4,12,0,2,4,39,0,2,4,16,0
  383. DATA 3,4,47,0,2,4,32,0,2,4,3,0,2,4,6,0,2,4,14,0,2,4,25,0
  384. DATA 3,4,16,0,3,4,3,0,3,4,6,0,2,4,1,0,8,4,4,0,4,4,89,0,1,11
  385. DATA 5,3,1,1,1,3,1,6,1,7,5,6,1,7,1,6,1,3,1,1,6,3,1,10,14,0
  386. DATA 1,11,8,3,7,6,9,3,1,10,3,0,1,13,1,14,1,13,8,0,5,1,3,3
  387. DATA 3,7,3,6,4,7,2,6,1,3,4,0,1,10,55,0,2,4,65,0,2,4,69,0
  388. DATA 2,4,170,0,2,4,44,0,3,4,3,0,2,4,6,0,2,4,16,0,3,4,88,0
  389. DATA 6,3,1,1,3,3,1,7,3,6,1,7,3,3,1,1,6,3,15,0,7,3,4,7,4,6
  390. DATA 3,7,7,3,4,0,3,14,8,0,7,3,5,7,1,6,5,7,1,6,1,3,3,0,1,10
  391. DATA 525,0,1,7,10,0,6,3,1,6,1,1,2,3,2,8,1,7,2,8,2,3,1,1
  392. DATA 1,6,7,3,14,0,6,3,13,7,7,3,3,0,3,14,8,0,6,3,13,7,1,3
  393. DATA 518,0,2,13,8,0,2,14,10,0,5,3,3,6,1,1,1,3,1,7,1,10,1,8
  394. DATA 1,10,1,7,1,3,1,1,2,6,7,3,14,0,5,3,3,6,4,7,2,6,3,7,2,6
  395. DATA 7,3,3,0,1,14,1,11,1,14,8,0,5,3,3,6,4,7,2,6,2,7,3,6
  396. DATA 1,3,518,0,1,13,2,14,1,5,4,0,1,5,3,14,10,0,5,3,4,6,1,1
  397. DATA 1,6,1,7,1,6,1,7,1,6,1,1,4,6,7,3,13,0,5,3,15,6,7,3,1,0
  398. DATA 1,5,3,14,8,0,5,3,14,6,1,3,518,0,1,5,2,14,1,11,7,14
  399. DATA 1,5,10,0,4,3,1,10,4,6,1,10,1,6,3,7,1,6,1,10,4,6,1,0
  400. DATA 6,3,13,0,4,3,1,10,15,6,1,0,6,3,1,7,1,5,2,14,1,5,8,0
  401. DATA 4,3,1,10,14,6,1,3,323,0,2,13,23,0,3,13,21,0,3,13,23,0
  402. DATA 4,13,117,0,1,5,3,14,1,11,4,14,1,5,11,0,4,3,1,10,5,6
  403. DATA 1,10,3,6,1,10,4,6,3,0,2,3,2,6,2,11,12,0,4,3,1,10,5,6
  404. DATA 5,7,4,6,3,0,4,3,2,11,1,14,1,11,1,14,9,0,4,3,1,10,5,6
  405. DATA 5,7,4,6,22,0,1,7,11,0,1,7,2,0,1,7,9,0,1,7,2,0,1,7,9,0
  406. DATA 1,7,10,0,2,7,10,0,1,7,10,0,1,7,12,0,1,7,10,0,1,7,74,0
  407. DATA 1,7,9,0,3,7,10,0,1,7,10,0,3,7,9,0,3,7,11,0,1,7,8,0
  408. DATA 5,7,8,0,3,7,8,0,5,7,8,0,3,7,21,0,7,13,17,0,6,13,17,0
  409. DATA 4,13,1,0,3,13,18,0,8,13,117,0,2,5,4,14,2,5,12,0,4,3
  410. DATA 2,10,5,6,3,10,5,6,4,0,2,3,4,11,11,0,4,3,2,10,2,6,4,7
  411. DATA 1,10,4,7,2,6,4,0,2,3,4,11,3,7,8,0,4,3,2,10,2,6,4,7
  412. DATA 1,10,4,7,2,6,22,0,1,7,11,0,1,7,2,0,1,7,9,0,1,7,2,0
  413. DATA 1,7,8,0,3,7,8,0,1,7,2,0,1,7,2,0,1,7,5,0,1,7,1,0,1,7
  414. DATA 9,0,1,7,11,0,1,7,12,0,1,7,10,0,1,7,1,0,1,7,60,0,1,7
  415. DATA 8,0,1,7,3,0,1,7,7,0,3,7,9,0,1,7,3,0,1,7,7,0,1,7,3,0
  416. DATA 1,7,9,0,2,7,8,0,1,7,11,0,1,7,3,0,1,7,11,0,1,7,7,0,1,7
  417. DATA 3,0,1,7,19,0,8,13,18,0,4,13,17,0,2,13,4,0,3,13,18,0
  418. DATA 9,13,136,0,2,3,1,6,1,3,2,10,1,3,11,6,1,3,5,0,1,3,5,11
  419. DATA 10,0,4,3,2,10,1,6,11,7,1,6,5,0,1,3,3,11,4,6,8,0,2,3
  420. DATA 1,6,1,3,2,10,1,6,11,7,1,6,22,0,1,7,11,0,1,7,2,0,1,7
  421. DATA 8,0,6,7,6,0,1,7,1,0,1,7,1,0,1,7,8,0,2,7,2,0,1,7,6,0
  422. DATA 1,7,1,0,1,7,9,0,1,7,11,0,1,7,12,0,1,7,11,0,1,7,61,0
  423. DATA 1,7,8,0,1,7,3,0,1,7,9,0,1,7,13,0,1,7,11,0,1,7,9,0,2,7
  424. DATA 8,0,1,7,11,0,1,7,14,0,1,7,8,0,1,7,3,0,1,7,18,0,5,13
  425. DATA 2,0,2,13,16,0,6,13,17,0,2,13,4,0,4,13,17,0,3,13,2,0
  426. DATA 4,13,136,0,1,3,2,6,1,3,2,1,2,3,2,6,5,7,2,6,2,3,5,0
  427. DATA 6,11,10,0,4,3,2,10,1,6,11,7,1,6,5,0,4,11,4,6,8,0,1,3
  428. DATA 2,6,1,3,1,1,1,10,1,6,11,7,1,6,22,0,1,7,24,0,1,7,2,0
  429. DATA 1,7,7,0,1,7,1,0,1,7,13,0,1,7,8,0,1,7,22,0,1,7,12,0
  430. DATA 1,7,10,0,1,7,1,0,1,7,11,0,1,7,47,0,1,7,9,0,1,7,3,0
  431. DATA 1,7,9,0,1,7,13,0,1,7,11,0,1,7,8,0,1,7,1,0,1,7,8,0,4,7
  432. DATA 8,0,1,7,14,0,1,7,8,0,1,7,3,0,1,7,18,0,3,13,4,0,3,13
  433. DATA 14,0,2,13,1,0,3,13,17,0,3,13,4,0,3,13,18,0,3,13,2,0
  434. DATA 3,13,137,0,3,11,1,3,2,1,2,3,1,6,3,7,1,10,3,7,1,6,2,3
  435. DATA 5,0,6,11,1,3,9,0,3,11,1,3,2,10,1,6,11,7,1,6,5,0,1,3
  436. DATA 2,11,1,3,4,6,8,0,3,11,1,3,1,1,1,10,1,6,11,7,1,6,22,0
  437. DATA 1,7,24,0,1,7,2,0,1,7,8,0,2,7,12,0,1,7,9,0,1,7,22,0
  438. DATA 1,7,12,0,1,7,24,0,1,7,47,0,1,7,9,0,1,7,3,0,1,7,9,0
  439. DATA 1,7,12,0,1,7,10,0,2,7,9,0,1,7,1,0,1,7,8,0,1,7,3,0,1,7
  440. DATA 7,0,4,7,10,0,1,7,10,0,3,7,18,0,3,13,5,0,2,13,18,0,3,13
  441. DATA 17,0,3,13,4,0,3,13,22,0,4,13,137,0,4,11,2,1,2,3,9,7
  442. DATA 2,3,5,0,1,3,6,11,9,0,4,11,2,10,2,6,9,7,2,6,6,0,3,3
  443. DATA 4,6,8,0,4,11,1,1,1,10,2,6,9,7,2,6,22,0,1,7,24,0,1,7
  444. DATA 2,0,1,7,9,0,2,7,10,0,1,7,9,0,1,7,1,0,1,7,1,0,1,7,19,0
  445. DATA 1,7,12,0,1,7,22,0,5,7,19,0,2,7,23,0,1,7,10,0,1,7,3,0
  446. DATA 1,7,9,0,1,7,11,0,1,7,13,0,1,7,7,0,1,7,2,0,1,7,12,0
  447. DATA 1,7,7,0,1,7,3,0,1,7,9,0,1,7,9,0,1,7,3,0,1,7,17,0,3,13
  448. DATA 4,0,3,13,17,0,3,13,18,0,3,13,4,0,2,13,24,0,2,13,138,0
  449. DATA 5,11,1,1,1,3,1,6,9,7,1,6,1,3,6,0,6,11,9,0,5,11,1,10
  450. DATA 3,6,7,7,3,6,7,0,4,3,10,0,5,11,1,10,3,6,7,7,3,6,22,0
  451. DATA 1,7,23,0,6,7,8,0,1,7,1,0,1,7,8,0,1,7,2,0,2,7,6,0,1,7
  452. DATA 2,0,1,7,20,0,1,7,12,0,1,7,24,0,1,7,46,0,1,7,10,0,1,7
  453. DATA 3,0,1,7,9,0,1,7,10,0,1,7,14,0,1,7,7,0,5,7,11,0,1,7
  454. DATA 7,0,1,7,3,0,1,7,8,0,1,7,10,0,1,7,3,0,1,7,16,0,3,13
  455. DATA 4,0,4,13,17,0,2,13,25,0,2,13,23,0,3,13,139,0,5,11,1,1
  456. DATA 1,3,1,6,9,7,1,6,2,3,6,0,5,11,9,0,5,11,1,10,4,6,5,7
  457. DATA 4,6,1,3,20,0,5,11,1,10,4,6,5,7,4,6,1,3,46,0,1,7,2,0
  458. DATA 1,7,7,0,1,7,1,0,1,7,1,0,1,7,7,0,1,7,2,0,1,7,2,0,1,7
  459. DATA 5,0,1,7,2,0,1,7,20,0,1,7,12,0,1,7,24,0,1,7,45,0,1,7
  460. DATA 11,0,1,7,3,0,1,7,9,0,1,7,9,0,1,7,11,0,1,7,3,0,1,7,10,0
  461. DATA 1,7,8,0,1,7,3,0,1,7,7,0,1,7,3,0,1,7,8,0,1,7,10,0,1,7
  462. DATA 3,0,1,7,16,0,3,13,5,0,3,13,16,0,3,13,25,0,2,13,22,0
  463. DATA 4,13,139,0,5,11,1,1,1,3,2,6,7,7,2,6,1,3,1,11,7,0,4,11
  464. DATA 9,0,5,11,1,10,13,6,1,11,20,0,5,11,1,10,13,6,1,11,21,0
  465. DATA 1,7,24,0,1,7,2,0,1,7,8,0,3,7,12,0,2,7,7,0,2,7,1,0,1,7
  466. DATA 19,0,1,7,12,0,1,7,35,0,1,7,22,0,1,7,11,0,1,7,12,0,3,7
  467. DATA 10,0,1,7,9,0,5,7,8,0,3,7,11,0,1,7,9,0,3,7,9,0,3,7,9,0
  468. DATA 1,7,11,0,3,7,17,0,3,13,4,0,4,13,16,0,2,13,25,0,2,13
  469. DATA 22,0,7,13,137,0,5,11,1,1,2,3,9,6,2,3,2,11,7,0,3,7,9,0
  470. DATA 5,11,1,10,2,3,9,6,3,3,1,11,19,0,5,11,1,10,2,3,9,6,3,3
  471. DATA 1,11,58,0,1,7,45,0,1,7,12,0,1,7,34,0,1,7,164,0,3,13
  472. DATA 4,0,3,13,17,0,3,13,21,0,4,13,22,0,2,13,2,0,4,13,46,0
  473. DATA 2,6,12,0,2,6,75,0,1,3,3,11,16,3,2,11,4,0,6,7,8,0,1,3
  474. DATA 3,11,16,3,2,11,18,0,1,3,3,11,17,3,1,11,104,0,1,7,10,0
  475. DATA 1,7,200,0,3,13,5,0,2,13,16,0,5,13,19,0,3,13,29,0,4,13
  476. DATA 45,0,4,6,9,0,1,6,2,10,2,6,53,0,1,13,19,0,1,3,3,11,5,3
  477. DATA 5,0,7,3,2,11,1,0,8,7,8,0,1,3,3,11,5,3,5,0,7,3,2,11
  478. DATA 17,0,1,3,3,11,5,3,5,0,8,3,1,11,315,0,3,13,2,0,4,13
  479. DATA 17,0,4,13,19,0,10,13,22,0,4,13,43,0,2,7,1,6,1,7,2,10
  480. DATA 4,6,5,0,1,6,4,10,1,6,52,0,1,13,1,14,20,0,3,11,4,3,7,0
  481. DATA 8,3,2,0,1,14,1,3,1,10,4,7,9,0,3,11,4,3,7,0,8,3,18,0
  482. DATA 3,11,4,3,7,0,8,3,316,0,5,13,20,0,4,13,18,0,8,13,2,0
  483. DATA 3,13,14,0,9,13,43,0,1,6,1,7,2,10,1,6,5,10,2,6,4,0,1,6
  484. DATA 2,10,3,6,52,0,3,14,19,0,3,11,1,1,2,3,9,0,7,3,1,0,3,14
  485. DATA 1,5,3,7,1,6,9,0,3,11,1,10,2,3,9,0,7,3,18,0,3,11,1,1
  486. DATA 2,3,9,0,7,3,342,0,2,13,97,0,1,6,1,7,1,6,2,10,1,6,5,10
  487. DATA 4,6,2,0,5,6,53,0,1,14,1,11,1,14,19,0,1,3,2,11,1,1,2,3
  488. DATA 10,0,6,3,4,14,1,5,4,6,9,0,1,3,2,11,1,10,2,3,10,0,6,3
  489. DATA 18,0,1,3,2,11,1,1,2,3,10,0,6,3,440,0,2,6,1,10,1,6,2,10
  490. DATA 1,6,6,10,3,6,60,0,1,5,3,14,18,0,1,3,5,7,11,0,4,3,4,14
  491. DATA 1,5,1,0,1,6,12,0,1,3,5,7,11,0,5,3,18,0,1,3,5,7,11,0
  492. DATA 5,3,19,0,3,7,69,0,3,7,11,0,4,7,8,0,1,7,8,0,4,7,9,0
  493. DATA 4,7,7,0,4,7,8,0,5,7,7,0,5,7,8,0,4,7,7,0,1,7,4,0,1,7
  494. DATA 6,0,1,7,14,0,1,7,8,0,1,7,3,0,1,7,7,0,1,7,11,0,1,7,5,0
  495. DATA 1,7,5,0,1,7,4,0,1,7,7,0,4,7,7,0,5,7,141,0,1,6,2,10
  496. DATA 1,6,2,10,1,6,8,10,3,6,59,0,1,14,1,11,2,14,17,0,5,7
  497. DATA 1,3,11,0,2,3,3,14,1,11,1,14,1,5,15,0,5,7,1,3,11,0,4,3
  498. DATA 19,0,5,7,1,3,11,0,4,3,19,0,1,7,3,0,1,7,67,0,1,7,3,0
  499. DATA 1,7,8,0,2,7,4,0,2,7,6,0,1,7,8,0,1,7,3,0,1,7,7,0,1,7
  500. DATA 4,0,1,7,6,0,1,7,3,0,1,7,7,0,1,7,11,0,1,7,11,0,1,7,4,0
  501. DATA 1,7,6,0,1,7,4,0,1,7,6,0,1,7,14,0,1,7,8,0,1,7,2,0,1,7
  502. DATA 8,0,1,7,11,0,1,7,5,0,1,7,5,0,2,7,3,0,1,7,6,0,1,7,4,0
  503. DATA 1,7,6,0,1,7,4,0,1,7,140,0,1,6,2,10,1,6,13,10,6,6,54,0
  504. DATA 1,5,4,14,16,0,5,7,1,3,1,7,10,0,1,13,2,14,1,11,2,14
  505. DATA 1,5,16,0,5,7,1,3,1,7,10,0,3,3,2,7,18,0,5,7,1,3,1,7
  506. DATA 10,0,3,3,2,7,18,0,1,7,3,0,1,7,34,0,1,7,20,0,1,7,15,0
  507. DATA 1,7,8,0,1,7,6,0,1,7,5,0,1,7,1,0,1,7,7,0,1,7,3,0,1,7
  508. DATA 7,0,1,7,11,0,1,7,4,0,1,7,6,0,1,7,11,0,1,7,11,0,1,7
  509. DATA 11,0,1,7,4,0,1,7,6,0,1,7,14,0,1,7,8,0,1,7,1,0,1,7,9,0
  510. DATA 1,7,11,0,2,7,3,0,2,7,5,0,2,7,3,0,1,7,6,0,1,7,4,0,1,7
  511. DATA 6,0,1,7,4,0,1,7,138,0,2,6,3,10,1,6,3,10,4,7,5,6,6,10
  512. DATA 4,6,52,0,1,5,4,14,1,5,14,0,7,7,10,0,1,6,1,13,2,14,1,5
  513. DATA 1,7,17,0,7,7,10,0,1,3,4,6,1,8,17,0,7,7,10,0,1,3,4,6
  514. DATA 1,8,17,0,1,7,3,0,1,7,7,0,1,7,12,0,1,7,12,0,1,7,22,0
  515. DATA 1,7,14,0,1,7,7,0,1,7,3,0,3,7,2,0,1,7,4,0,1,7,1,0,1,7
  516. DATA 7,0,1,7,3,0,1,7,7,0,1,7,11,0,1,7,4,0,1,7,6,0,1,7,11,0
  517. DATA 1,7,11,0,1,7,11,0,1,7,4,0,1,7,6,0,1,7,14,0,1,7,8,0
  518. DATA 2,7,10,0,1,7,11,0,2,7,3,0,2,7,5,0,1,7,1,0,1,7,2,0,1,7
  519. DATA 6,0,1,7,4,0,1,7,6,0,1,7,4,0,1,7,138,0,1,6,16,10,11,6
  520. DATA 53,0,1,5,5,14,1,7,12,0,7,6,10,0,6,6,2,7,15,0,6,6,11,0
  521. DATA 6,6,2,7,15,0,6,6,11,0,6,6,2,7,16,0,4,7,32,0,1,7,10,0
  522. DATA 5,7,9,0,1,7,12,0,1,7,8,0,1,7,2,0,1,7,2,0,1,7,2,0,1,7
  523. DATA 3,0,1,7,3,0,1,7,6,0,4,7,8,0,1,7,11,0,1,7,4,0,1,7,6,0
  524. DATA 4,7,8,0,4,7,8,0,1,7,2,0,3,7,6,0,6,7,6,0,1,7,14,0,1,7
  525. DATA 8,0,2,7,10,0,1,7,11,0,1,7,1,0,1,7,1,0,1,7,1,0,1,7,5,0
  526. DATA 1,7,1,0,1,7,2,0,1,7,6,0,1,7,4,0,1,7,6,0,5,7,136,0,4,6
  527. DATA 22,10,5,6,54,0,2,5,2,14,1,13,137,0,1,7,31,0,1,7,26,0
  528. DATA 1,7,10,0,1,7,9,0,1,7,2,0,1,7,2,0,1,7,2,0,1,7,3,0,1,7
  529. DATA 3,0,1,7,6,0,1,7,3,0,1,7,7,0,1,7,11,0,1,7,4,0,1,7,6,0
  530. DATA 1,7,11,0,1,7,11,0,1,7,4,0,1,7,6,0,1,7,4,0,1,7,6,0,1,7
  531. DATA 14,0,1,7,8,0,1,7,1,0,1,7,9,0,1,7,11,0,1,7,1,0,1,7,1,0
  532. DATA 1,7,1,0,1,7,5,0,1,7,2,0,1,7,1,0,1,7,6,0,1,7,4,0,1,7
  533. DATA 6,0,1,7,65,0,5,11,30,0,5,11,32,0,4,6,23,10,1,0,7,6
  534. DATA 195,0,1,7,32,0,1,7,10,0,5,7,9,0,1,7,11,0,1,7,9,0,1,7
  535. DATA 3,0,2,7,1,0,3,7,3,0,5,7,6,0,1,7,3,0,1,7,7,0,1,7,11,0
  536. DATA 1,7,4,0,1,7,6,0,1,7,11,0,1,7,11,0,1,7,4,0,1,7,6,0,1,7
  537. DATA 4,0,1,7,6,0,1,7,11,0,1,7,2,0,1,7,8,0,1,7,2,0,1,7,8,0
  538. DATA 1,7,11,0,1,7,2,0,1,7,2,0,1,7,5,0,1,7,3,0,2,7,6,0,1,7
  539. DATA 4,0,1,7,6,0,1,7,63,0,8,11,28,0,7,11,29,0,2,6,3,7,4,6
  540. DATA 4,10,1,6,15,10,4,7,13,6,7,0,4,11,4,9,4,11,1,0,4,11
  541. DATA 4,9,4,11,150,0,1,7,3,0,1,7,33,0,1,7,22,0,1,7,23,0,1,7
  542. DATA 10,0,1,7,5,0,1,7,5,0,1,7,3,0,1,7,7,0,1,7,4,0,1,7,6,0
  543. DATA 1,7,3,0,1,7,7,0,1,7,11,0,1,7,11,0,1,7,3,0,2,7,6,0,1,7
  544. DATA 4,0,1,7,6,0,1,7,11,0,1,7,2,0,1,7,8,0,1,7,3,0,1,7,7,0
  545. DATA 1,7,11,0,1,7,2,0,1,7,2,0,1,7,5,0,1,7,3,0,2,7,6,0,1,7
  546. DATA 4,0,1,7,6,0,1,7,28,0,5,11,29,0,9,3,1,11,26,0,2,11,5,3
  547. DATA 2,11,28,0,4,6,36,10,6,6,7,0,3,11,6,9,3,11,1,0,3,11
  548. DATA 6,9,3,11,151,0,3,7,8,0,1,7,12,0,1,7,13,0,1,7,20,0,1,7
  549. DATA 13,0,1,7,10,0,2,7,9,0,1,7,5,0,1,7,5,0,4,7,9,0,4,7,7,0
  550. DATA 4,7,8,0,5,7,7,0,1,7,12,0,3,7,1,0,1,7,6,0,1,7,4,0,1,7
  551. DATA 6,0,1,7,12,0,2,7,9,0,1,7,4,0,1,7,6,0,5,7,7,0,1,7,5,0
  552. DATA 1,7,5,0,1,7,4,0,1,7,7,0,4,7,7,0,1,7,27,0,1,11,5,3,1,11
  553. DATA 27,0,2,11,2,3,2,11,6,3,24,0,1,11,9,3,1,11,30,0,1,6
  554. DATA 9,10,1,6,26,10,5,6,8,0,1,11,10,8,1,11,1,0,1,11,10,8
  555. DATA 1,11,38,0,1,6,1,7,7,9,1,7,1,6,125,0,1,7,62,0,5,7,210,0
  556. DATA 2,11,7,3,1,11,25,0,8,11,5,3,24,0,11,11,31,0,4,6,1,10
  557. DATA 1,7,3,10,1,6,25,10,5,6,9,0,1,11,1,8,8,10,1,8,1,11,1,0
  558. DATA 1,11,1,8,8,10,1,8,1,11,13,0,1,5,2,13,19,0,1,6,15,9
  559. DATA 1,6,33,0,1,9,364,0,4,11,8,3,1,11,24,0,1,6,2,10,1,6
  560. DATA 2,10,2,6,5,3,24,0,1,3,1,11,7,6,1,11,1,3,29,0,1,6,1,7
  561. DATA 5,10,1,7,3,10,1,6,20,10,2,7,6,6,11,0,1,9,1,8,8,6,1,8
  562. DATA 1,9,1,0,1,9,1,8,8,6,1,8,1,9,12,0,1,5,2,14,1,13,17,0
  563. DATA 1,6,5,8,10,9,4,8,1,6,31,0,1,8,364,0,2,6,2,11,9,3,1,11
  564. DATA 22,0,1,3,1,6,1,7,1,6,2,7,2,6,3,3,2,11,1,3,24,0,1,7
  565. DATA 1,6,3,10,1,6,3,10,1,6,1,7,29,0,1,6,3,7,3,10,1,7,1,6
  566. DATA 2,10,1,6,1,10,1,6,18,10,1,7,4,6,3,0,1,6,10,0,1,9,1,8
  567. DATA 1,6,1,10,1,6,2,10,1,6,1,10,1,6,1,8,1,9,1,0,1,9,1,8
  568. DATA 1,6,1,10,1,6,2,10,1,6,1,10,1,6,1,8,1,9,11,0,1,5,3,14
  569. DATA 17,0,5,8,14,9,4,8,30,0,1,8,21,0,4,3,1,6,2,7,1,6,4,3
  570. DATA 6,0,16,4,309,0,1,6,1,10,1,6,11,3,2,11,20,0,1,3,4,8
  571. DATA 1,7,5,3,1,6,1,11,1,3,23,0,1,11,3,6,1,7,3,6,1,7,3,6
  572. DATA 1,11,28,0,3,6,5,7,2,6,6,7,1,10,1,7,14,10,1,7,4,6,14,0
  573. DATA 1,9,1,8,1,7,1,10,1,7,2,10,1,7,1,10,1,7,1,8,1,9,1,0
  574. DATA 1,9,1,8,1,7,1,10,1,7,2,10,1,7,1,10,1,7,1,8,1,9,11,0
  575. DATA 1,5,1,14,1,11,1,5,16,0,5,8,17,9,3,8,25,0,3,7,1,0,1,8
  576. DATA 1,0,3,8,17,0,2,3,1,6,1,7,1,6,2,1,1,6,1,7,1,6,2,3,6,0
  577. DATA 1,4,14,8,1,4,308,0,4,6,6,3,2,11,5,3,4,11,16,0,1,3,1,7
  578. DATA 1,10,1,7,1,10,1,7,1,6,4,3,2,11,1,3,1,11,1,0,3,11,16,0
  579. DATA 2,11,1,3,3,6,2,8,1,7,2,8,3,6,1,3,2,11,26,0,2,6,2,7
  580. DATA 3,10,2,6,2,10,3,6,2,10,1,6,1,7,14,10,2,7,3,6,14,0,1,11
  581. DATA 1,8,1,7,1,1,1,7,2,1,1,7,1,1,1,7,1,8,1,11,1,0,1,11,1,8
  582. DATA 1,7,1,3,1,7,2,3,1,7,1,3,1,7,1,8,1,11,11,0,3,14,16,0
  583. DATA 4,8,20,9,1,15,2,8,26,0,1,7,1,0,1,8,1,0,1,8,19,0,2,3
  584. DATA 1,7,1,1,1,6,2,1,1,6,1,1,1,7,2,3,6,0,1,4,14,8,1,4,167,0
  585. DATA 1,7,139,0,2,8,2,6,7,3,1,6,1,11,9,3,2,11,13,0,1,11,7,6
  586. DATA 8,3,1,11,3,3,2,11,13,0,1,11,4,3,2,6,1,7,1,10,1,8,1,10
  587. DATA 1,7,2,6,4,3,1,11,25,0,2,6,3,7,2,10,2,6,1,10,2,6,1,10
  588. DATA 1,6,3,10,2,6,8,10,2,7,2,10,4,7,2,6,14,0,1,11,1,8,1,7
  589. DATA 1,1,1,7,2,1,1,7,1,1,1,7,1,8,1,11,1,0,1,11,1,8,1,7,1,3
  590. DATA 1,7,2,3,1,7,1,3,1,7,1,8,1,11,11,0,1,14,1,11,1,14,15,0
  591. DATA 4,8,21,9,1,8,2,15,1,8,24,0,3,7,4,8,18,0,1,3,1,7,3,1
  592. DATA 2,7,3,1,1,7,1,3,6,0,1,4,2,8,10,6,2,8,1,4,10,0,4,7,7,0
  593. DATA 5,7,8,0,3,7,8,0,5,7,7,0,1,7,4,0,1,7,6,0,1,7,5,0,1,7
  594. DATA 5,0,1,7,9,0,1,7,1,0,1,7,5,0,1,7,5,0,1,7,5,0,1,7,5,0
  595. DATA 7,7,5,0,2,7,10,0,1,7,11,0,2,7,11,0,1,7,1,0,1,7,20,0
  596. DATA 1,7,23,0,1,7,27,0,1,7,20,0,1,7,22,0,1,7,21,0,1,7,1,10
  597. DATA 1,8,1,6,6,3,2,11,12,3,1,11,11,0,1,11,1,3,1,6,3,10,2,6
  598. DATA 3,3,1,1,10,3,1,11,12,0,1,11,4,3,1,1,2,3,1,6,1,7,1,6
  599. DATA 1,7,1,6,2,3,1,1,4,3,1,11,24,0,4,6,1,7,2,10,3,6,3,10
  600. DATA 1,6,3,10,1,6,6,10,1,6,2,10,2,6,4,10,2,7,2,6,14,0,1,9
  601. DATA 1,8,8,7,1,8,1,9,1,0,1,9,1,8,8,7,1,8,1,9,11,0,3,14,14,0
  602. DATA 6,8,8,9,1,8,12,9,3,15,1,8,21,0,4,7,1,8,1,7,1,9,4,8
  603. DATA 16,0,1,3,10,7,1,3,6,0,1,4,2,8,10,7,2,8,1,4,9,0,1,7
  604. DATA 4,0,1,7,6,0,1,7,4,0,1,7,6,0,1,7,3,0,1,7,9,0,1,7,9,0
  605. DATA 1,7,4,0,1,7,6,0,1,7,5,0,1,7,5,0,1,7,9,0,1,7,1,0,1,7
  606. DATA 5,0,1,7,5,0,1,7,5,0,1,7,11,0,1,7,5,0,1,7,11,0,1,7,12,0
  607. DATA 1,7,10,0,1,7,3,0,1,7,20,0,1,7,22,0,1,7,27,0,1,7,19,0
  608. DATA 1,7,23,0,1,7,20,0,2,7,3,6,21,3,1,11,10,0,1,11,2,3,5,6
  609. DATA 1,3,2,1,12,3,1,11,10,0,1,11,6,3,1,1,1,6,5,7,1,6,1,1
  610. DATA 6,3,1,11,24,0,4,6,2,10,2,6,3,10,2,6,3,10,1,6,6,10,1,6
  611. DATA 2,10,1,6,6,10,1,7,2,6,14,0,1,9,1,8,1,7,1,1,1,7,2,1
  612. DATA 1,7,1,1,1,7,1,8,1,9,1,0,1,9,1,8,1,7,1,5,1,7,2,5,1,7
  613. DATA 1,5,1,7,1,8,1,9,11,0,3,14,13,0,7,8,22,9,2,15,2,8,18,0
  614. DATA 7,7,8,8,14,0,1,3,1,7,8,1,1,7,1,3,6,0,1,4,2,8,1,7,2,10
  615. DATA 1,7,2,10,1,7,2,10,1,7,2,8,1,4,9,0,1,7,4,0,1,7,6,0,1,7
  616. DATA 4,0,1,7,6,0,1,7,13,0,1,7,9,0,1,7,4,0,1,7,7,0,1,7,3,0
  617. DATA 1,7,7,0,1,7,3,0,1,7,3,0,1,7,3,0,1,7,3,0,1,7,7,0,1,7
  618. DATA 3,0,1,7,11,0,1,7,6,0,1,7,11,0,1,7,12,0,1,7,58,0,1,7
  619. DATA 27,0,1,7,19,0,1,7,23,0,1,7,20,0,4,6,22,3,1,11,9,0,1,11
  620. DATA 5,3,4,10,14,3,1,11,9,0,1,11,8,3,1,1,5,6,1,1,7,3,2,11
  621. DATA 25,0,2,6,2,10,2,6,2,10,1,6,5,10,1,6,6,10,1,6,2,10,2,6
  622. DATA 3,10,3,7,2,6,14,0,1,9,1,8,1,7,1,1,1,7,2,1,1,7,1,1,1,7
  623. DATA 1,8,1,9,1,0,1,9,1,8,1,7,1,5,1,7,2,5,1,7,1,5,1,7,1,8
  624. DATA 1,9,11,0,1,5,2,14,1,5,11,0,7,8,23,9,3,15,2,8,16,0,9,7
  625. DATA 8,8,13,0,1,3,1,7,8,1,1,7,1,3,6,0,1,4,2,8,1,7,2,10,1,7
  626. DATA 2,10,1,7,2,10,1,7,2,8,1,4,9,0,1,7,4,0,1,7,6,0,1,7,4,0
  627. DATA 1,7,6,0,1,7,13,0,1,7,9,0,1,7,4,0,1,7,7,0,1,7,3,0,1,7
  628. DATA 7,0,1,7,3,0,1,7,3,0,1,7,4,0,1,7,1,0,1,7,9,0,1,7,1,0
  629. DATA 1,7,11,0,1,7,7,0,1,7,12,0,1,7,11,0,1,7,47,0,3,7,8,0
  630. DATA 4,7,9,0,3,7,9,0,4,7,8,0,3,7,8,0,2,7,11,0,4,7,7,0,1,7
  631. DATA 1,0,2,7,18,0,3,6,3,3,3,1,6,3,1,6,1,7,1,6,7,3,1,11,9,0
  632. DATA 1,11,7,3,1,10,15,3,1,11,9,0,1,11,9,3,1,1,3,10,1,1,9,3
  633. DATA 1,11,26,0,2,6,1,10,2,6,2,10,1,6,5,10,2,6,6,10,3,6,2,10
  634. DATA 3,7,4,6,14,0,1,11,1,8,1,7,1,1,1,7,2,1,1,7,1,1,1,7,1,8
  635. DATA 1,11,1,0,1,11,1,8,1,7,1,5,1,7,2,5,1,7,1,5,1,7,1,8,1,11
  636. DATA 11,0,1,5,3,14,10,0,1,6,6,8,6,9,1,8,1,9,1,8,15,9,5,15
  637. DATA 1,6,14,0,4,7,9,2,2,9,4,8,12,0,1,3,1,7,8,1,1,7,1,3,6,0
  638. DATA 1,4,2,8,1,7,2,1,1,7,2,1,1,7,2,1,1,7,2,8,1,4,9,0,1,7
  639. DATA 4,0,1,7,6,0,5,7,8,0,3,7,10,0,1,7,9,0,1,7,4,0,1,7,7,0
  640. DATA 1,7,3,0,1,7,7,0,1,7,3,0,1,7,3,0,1,7,5,0,1,7,11,0,1,7
  641. DATA 11,0,1,7,8,0,1,7,12,0,1,7,11,0,1,7,50,0,1,7,7,0,1,7
  642. DATA 3,0,1,7,7,0,1,7,3,0,1,7,7,0,1,7,3,0,1,7,7,0,1,7,3,0
  643. DATA 1,7,7,0,1,7,11,0,1,7,3,0,1,7,7,0,2,7,2,0,1,7,18,0,5,1
  644. DATA 3,3,3,7,3,6,4,7,1,6,6,3,9,0,1,11,8,3,7,6,9,3,9,0,1,11
  645. DATA 24,3,27,0,1,6,5,10,1,6,5,10,11,6,3,7,6,6,14,0,1,11
  646. DATA 1,8,1,7,1,1,1,7,2,1,1,7,1,1,1,7,1,8,1,11,1,0,1,11,1,8
  647. DATA 1,7,1,5,1,7,2,5,1,7,1,5,1,7,1,8,1,11,12,0,1,5,3,14
  648. DATA 9,0,7,8,2,9,6,8,17,9,4,15,1,8,13,0,4,7,1,8,6,7,10,8
  649. DATA 11,0,1,3,1,7,8,1,1,7,1,3,6,0,1,4,2,8,1,7,2,1,1,7,2,1
  650. DATA 1,7,2,1,1,7,2,8,1,4,9,0,1,7,4,0,1,7,6,0,1,7,4,0,1,7
  651. DATA 10,0,1,7,9,0,1,7,9,0,1,7,4,0,1,7,8,0,1,7,1,0,1,7,9,0
  652. DATA 1,7,1,0,1,7,1,0,1,7,1,0,1,7,5,0,1,7,1,0,1,7,10,0,1,7
  653. DATA 10,0,1,7,9,0,1,7,13,0,1,7,10,0,1,7,47,0,4,7,7,0,1,7
  654. DATA 3,0,1,7,7,0,1,7,11,0,1,7,3,0,1,7,7,0,5,7,7,0,1,7,11,0
  655. DATA 1,7,3,0,1,7,7,0,1,7,3,0,1,7,18,0,7,3,5,7,1,6,5,7,1,6
  656. DATA 6,3,9,0,7,3,4,7,4,6,3,7,7,3,9,0,7,3,4,7,4,6,3,7,7,3
  657. DATA 27,0,2,6,4,7,6,10,2,6,7,10,2,6,1,7,7,6,15,0,1,9,1,8
  658. DATA 8,7,1,8,1,9,1,0,1,9,1,8,8,7,1,8,1,9,13,0,1,5,2,14,1,7
  659. DATA 7,0,1,6,6,8,1,9,6,8,1,9,2,8,16,9,5,15,1,6,11,0,2,7
  660. DATA 1,1,1,7,1,1,1,8,1,7,6,2,2,9,2,15,1,8,1,9,1,8,1,2,2,8
  661. DATA 10,0,1,3,1,7,8,1,1,7,1,3,6,0,1,4,2,8,1,7,2,1,1,7,2,1
  662. DATA 1,7,2,1,1,7,2,8,1,4,9,0,1,7,2,0,1,7,1,0,1,7,6,0,1,7
  663. DATA 4,0,1,7,10,0,1,7,9,0,1,7,9,0,1,7,4,0,1,7,8,0,1,7,1,0
  664. DATA 1,7,9,0,1,7,1,0,1,7,1,0,1,7,1,0,1,7,4,0,1,7,3,0,1,7
  665. DATA 9,0,1,7,9,0,1,7,10,0,1,7,13,0,1,7,10,0,1,7,46,0,1,7
  666. DATA 3,0,1,7,7,0,1,7,3,0,1,7,7,0,1,7,11,0,1,7,3,0,1,7,7,0
  667. DATA 1,7,11,0,1,7,11,0,1,7,3,0,1,7,7,0,1,7,3,0,1,7,18,0
  668. DATA 6,3,13,7,1,6,5,3,9,0,6,3,13,7,1,6,5,3,9,0,6,3,13,7
  669. DATA 1,6,5,3,28,0,7,6,4,10,2,6,3,10,1,6,2,10,2,7,3,6,2,0
  670. DATA 3,6,16,0,1,9,1,8,1,7,1,2,1,7,2,2,1,7,1,2,1,7,1,8,1,9
  671. DATA 1,0,1,9,1,8,1,7,1,5,1,7,2,5,1,7,1,5,1,7,1,8,1,9,24,0
  672. DATA 16,8,17,9,5,15,1,8,11,0,1,7,2,1,1,8,1,1,1,8,7,2,2,9
  673. DATA 2,15,1,8,1,9,1,8,2,2,1,8,10,0,1,3,1,7,8,1,1,7,1,3,6,0
  674. DATA 1,4,2,8,10,7,2,8,1,4,9,0,1,7,3,0,2,7,6,0,1,7,4,0,1,7
  675. DATA 6,0,1,7,3,0,1,7,9,0,1,7,9,0,1,7,4,0,1,7,9,0,1,7,11,0
  676. DATA 1,7,3,0,1,7,4,0,1,7,5,0,1,7,8,0,1,7,8,0,1,7,11,0,1,7
  677. DATA 14,0,1,7,9,0,1,7,46,0,1,7,3,0,1,7,7,0,1,7,3,0,1,7,7,0
  678. DATA 1,7,3,0,1,7,7,0,1,7,3,0,1,7,7,0,1,7,3,0,1,7,7,0,1,7
  679. DATA 11,0,1,7,3,0,1,7,7,0,1,7,3,0,1,7,18,0,5,3,3,6,4,7,2,6
  680. DATA 2,7,4,6,5,3,9,0,5,3,3,6,4,7,2,6,3,7,3,6,5,3,9,0,5,3
  681. DATA 3,6,4,7,2,6,3,7,3,6,5,3,32,0,3,6,4,10,2,6,3,10,1,6
  682. DATA 2,10,1,7,3,6,22,0,1,9,1,8,1,7,1,2,1,7,2,2,1,7,1,2,1,7
  683. DATA 1,8,1,9,1,0,1,9,1,8,1,7,1,5,1,7,2,5,1,7,1,5,1,7,1,8
  684. DATA 1,9,24,0,16,8,5,9,1,8,11,9,6,15,10,0,3,7,2,8,1,7,1,8
  685. DATA 6,7,12,8,9,0,1,3,1,7,8,1,1,7,1,3,6,0,1,4,2,8,1,7,2,1
  686. DATA 1,7,2,1,1,7,2,1,1,7,2,8,1,4,10,0,4,7,7,0,1,7,4,0,1,7
  687. DATA 7,0,3,7,10,0,1,7,10,0,4,7,10,0,1,7,11,0,1,7,3,0,1,7
  688. DATA 4,0,1,7,5,0,1,7,8,0,1,7,8,0,7,7,5,0,1,7,14,0,1,7,9,0
  689. DATA 1,7,47,0,4,7,7,0,4,7,9,0,3,7,9,0,4,7,8,0,3,7,8,0,1,7
  690. DATA 12,0,4,7,7,0,1,7,3,0,1,7,18,0,5,3,15,6,1,10,4,3,9,0
  691. DATA 5,3,15,6,1,10,4,3,9,0,5,3,15,6,1,10,4,3,34,0,2,6,3,10
  692. DATA 2,6,1,10,8,6,23,0,1,11,1,8,1,7,1,2,1,7,2,2,1,7,1,2
  693. DATA 1,7,1,8,1,11,1,0,1,11,1,8,1,7,1,5,1,7,2,5,1,7,1,5,1,7
  694. DATA 1,8,1,11,23,0,1,6,5,8,1,9,11,8,4,9,4,8,8,9,6,15,1,6
  695. DATA 9,0,1,7,3,1,1,8,1,1,1,8,8,2,3,9,1,8,1,2,1,8,3,2,1,8
  696. DATA 9,0,1,3,1,7,8,1,1,7,1,3,6,0,1,4,2,8,1,7,2,1,1,7,2,1
  697. DATA 1,7,2,1,1,7,2,8,1,4,14,0,1,7,114,0,1,7,24,0,1,7,122,0
  698. DATA 1,7,30,0,4,3,1,10,15,6,1,10,4,3,9,0,4,3,1,10,15,6,1,10
  699. DATA 4,3,9,0,4,3,1,10,15,6,1,10,4,3,35,0,2,6,2,10,1,6,4,10
  700. DATA 4,6,1,0,4,6,20,0,1,11,1,8,1,7,1,2,1,7,2,2,1,7,1,2,1,7
  701. DATA 1,8,1,11,1,0,1,11,1,8,1,7,1,5,1,7,2,5,1,7,1,5,1,7,1,8
  702. DATA 1,11,23,0,1,7,4,8,2,9,10,8,3,9,8,8,6,9,6,15,1,7,6,0
  703. DATA 1,8,1,0,1,7,4,1,1,7,1,1,1,8,11,2,1,8,1,2,1,8,4,2,1,8
  704. DATA 1,0,1,9,6,0,1,3,1,7,8,2,1,7,1,3,6,0,1,4,2,8,1,7,2,1
  705. DATA 1,7,2,1,1,7,2,1,1,7,2,8,1,4,129,0,2,7,22,0,2,7,22,0
  706. DATA 6,7,90,0,4,7,31,0,4,3,1,10,5,6,5,7,5,6,1,10,4,3,9,0
  707. DATA 4,3,1,10,5,6,5,7,5,6,1,10,4,3,9,0,4,3,1,10,5,6,5,7
  708. DATA 5,6,1,10,4,3,35,0,3,6,2,10,7,6,2,0,1,6,2,10,3,6,18,0
  709. DATA 1,11,1,8,8,7,1,8,1,11,1,0,1,11,1,8,8,7,1,8,1,11,23,0
  710. DATA 16,8,3,9,1,8,1,9,7,8,9,9,4,15,6,0,5,7,1,9,1,8,9,7,15,8
  711. DATA 6,0,1,3,1,7,8,2,1,7,1,3,6,0,1,4,2,8,1,7,2,2,1,7,2,2
  712. DATA 1,7,2,2,1,7,2,8,1,4,308,0,4,3,2,10,2,6,4,7,1,10,4,7
  713. DATA 3,6,1,10,4,3,9,0,4,3,2,10,2,6,4,7,1,10,4,7,3,6,1,10
  714. DATA 4,3,9,0,4,3,2,10,2,6,4,7,1,10,4,7,3,6,1,10,4,3,36,0
  715. DATA 2,6,1,0,2,6,8,0,2,6,3,10,3,6,16,0,1,11,10,8,1,11,1,0
  716. DATA 1,11,10,8,1,11,13,0,1,5,2,14,1,13,6,0,9,8,2,9,1,8,1,9
  717. DATA 5,8,3,9,7,8,10,9,1,15,2,9,6,0,1,7,1,0,1,7,4,1,1,7,1,1
  718. DATA 1,7,11,2,1,8,1,2,1,8,4,2,1,8,1,0,1,8,6,0,1,3,1,7,8,2
  719. DATA 1,7,1,3,6,0,1,4,2,8,1,7,2,2,1,7,2,2,1,7,2,2,1,7,2,8
  720. DATA 1,4,308,0,4,3,2,10,1,6,11,7,1,6,2,10,4,3,9,0,4,3,2,10
  721. DATA 1,6,11,7,1,6,2,10,4,3,9,0,4,3,2,10,1,6,11,7,1,6,2,10
  722. DATA 4,3,38,0,2,6,5,0,3,6,2,0,1,6,4,10,2,6,16,0,12,9,1,0
  723. DATA 12,9,11,0,1,5,2,14,1,11,2,14,1,13,5,0,7,8,1,9,1,8,4,9
  724. DATA 1,8,1,9,2,8,3,9,8,8,2,9,1,8,6,9,4,15,6,0,1,7,1,0,1,7
  725. DATA 4,1,1,7,1,1,1,7,1,1,10,2,1,8,1,2,1,8,4,2,1,8,1,0,1,8
  726. DATA 6,0,1,3,10,7,1,3,6,0,1,4,2,8,10,7,2,8,1,4,308,0,4,3
  727. DATA 2,10,1,6,11,7,1,6,2,10,4,3,9,0,4,3,2,10,1,6,11,7,1,6
  728. DATA 2,10,4,3,9,0,4,3,2,10,1,6,11,7,1,6,2,10,4,3,46,0,2,6
  729. DATA 2,0,1,6,3,10,2,6,17,0,12,8,1,0,12,8,10,0,1,5,1,14,1,11
  730. DATA 3,14,7,0,1,8,1,9,5,8,1,9,1,8,12,9,2,8,1,9,7,8,2,9,1,15
  731. DATA 3,9,4,15,6,0,5,7,1,9,2,8,8,7,15,8,6,0,1,3,1,7,8,1,1,7
  732. DATA 1,3,6,0,1,4,2,8,1,7,2,2,1,7,2,2,1,7,2,2,1,7,2,8,1,4
  733. DATA 227,0,1,7,21,0,1,7,58,0,3,11,1,3,2,10,1,6,11,7,1,6
  734. DATA 2,10,1,3,3,11,9,0,3,11,1,3,2,10,1,6,11,7,1,6,2,10,1,3
  735. DATA 3,11,9,0,3,11,1,3,2,10,1,6,11,7,1,6,2,10,1,3,3,11,50,0
  736. DATA 2,6,2,10,1,6,18,0,12,6,1,0,12,6,9,0,1,5,4,14,9,0,1,8
  737. DATA 1,9,4,8,2,9,1,8,7,9,5,8,1,9,10,8,1,9,5,15,1,9,2,15
  738. DATA 8,0,1,7,4,1,1,7,1,1,1,7,2,1,9,2,1,8,1,2,1,8,3,2,1,1
  739. DATA 1,8,8,0,1,3,1,7,8,2,1,7,1,3,6,0,1,4,2,8,1,7,2,2,1,7
  740. DATA 2,2,1,7,2,2,1,7,2,8,1,4,9,0,1,7,11,0,1,7,11,0,1,7,11,0
  741. DATA 1,7,180,0,1,7,10,0,1,7,12,0,1,7,57,0,4,11,2,10,2,6
  742. DATA 9,7,2,6,2,10,4,11,9,0,4,11,2,10,2,6,9,7,2,6,2,10,4,11
  743. DATA 9,0,4,11,2,10,2,6,9,7,2,6,2,10,4,11,51,0,4,6,51,0,1,5
  744. DATA 4,14,10,0,1,8,1,9,3,8,10,9,6,8,3,9,9,8,4,15,2,9,2,15
  745. DATA 8,0,1,7,4,1,1,7,1,1,1,7,3,1,8,2,1,8,1,2,1,8,2,2,2,1
  746. DATA 1,8,8,0,1,3,1,7,8,2,1,7,1,3,6,0,1,4,2,8,1,7,2,2,1,7
  747. DATA 2,2,1,7,2,2,1,7,2,8,1,4,33,0,1,7,11,0,1,7,95,0,1,7
  748. DATA 84,0,1,7,10,0,1,7,12,0,1,7,11,0,2,7,2,0,1,7,240,0,1,5
  749. DATA 3,14,11,0,1,8,1,9,5,8,6,9,1,8,1,9,2,8,3,9,1,8,3,9,9,8
  750. DATA 7,15,1,8,4,0,6,7,3,1,1,7,1,1,1,7,5,1,6,2,1,8,1,1,1,8
  751. DATA 3,1,6,8,4,0,1,3,1,7,8,2,1,7,1,3,6,0,1,4,2,8,1,7,2,2
  752. DATA 1,7,2,2,1,7,2,2,1,7,2,8,1,4,33,0,1,7,11,0,1,7,95,0
  753. DATA 1,7,84,0,1,7,10,0,1,7,12,0,1,7,10,0,1,7,2,0,2,7,241,0
  754. DATA 3,14,12,0,1,7,8,8,4,9,4,8,7,9,8,8,1,15,3,9,1,15,2,9
  755. DATA 1,15,1,7,7,0,4,7,3,8,13,7,5,8,3,7,1,8,7,0,1,3,1,7,8,2
  756. DATA 1,7,1,3,6,0,1,4,2,8,1,7,2,2,1,7,2,2,1,7,2,2,1,7,2,8
  757. DATA 1,4,9,0,1,7,11,0,1,7,11,0,1,7,2,0,1,7,8,0,1,7,11,0
  758. DATA 3,7,1,0,2,7,6,0,1,7,1,0,2,7,9,0,3,7,8,0,4,7,9,0,4,7
  759. DATA 7,0,2,7,11,0,2,7,9,0,2,7,10,0,1,7,3,0,1,7,7,0,1,7,3,0
  760. DATA 1,7,7,0,1,7,2,0,1,7,2,0,1,7,5,0,1,7,2,0,1,7,9,0,1,7
  761. DATA 2,0,1,7,7,0,4,7,9,0,1,7,10,0,1,7,12,0,1,7,256,0,2,14
  762. DATA 1,5,12,0,1,6,1,8,1,9,6,8,4,9,4,8,8,9,3,8,2,9,1,8,1,15
  763. DATA 5,9,3,15,1,6,6,0,2,7,4,8,11,7,3,8,1,9,4,15,1,9,5,8
  764. DATA 6,0,1,3,1,7,8,2,1,7,1,3,6,0,1,4,2,8,10,7,2,8,1,4,9,0
  765. DATA 1,7,11,0,1,7,11,0,1,7,1,0,1,7,9,0,1,7,11,0,1,7,2,0
  766. DATA 1,7,2,0,1,7,5,0,2,7,2,0,1,7,7,0,1,7,3,0,1,7,7,0,1,7
  767. DATA 3,0,1,7,7,0,1,7,3,0,1,7,7,0,1,7,11,0,1,7,2,0,1,7,8,0
  768. DATA 1,7,11,0,1,7,3,0,1,7,7,0,1,7,3,0,1,7,7,0,1,7,2,0,1,7
  769. DATA 2,0,1,7,5,0,1,7,2,0,1,7,9,0,1,7,2,0,1,7,10,0,1,7,8,0
  770. DATA 1,7,11,0,1,7,13,0,1,7,255,0,1,13,1,14,14,0,1,8,1,9
  771. DATA 6,8,1,9,2,8,2,9,1,8,2,9,1,8,6,9,5,8,1,9,2,15,5,9,3,15
  772. DATA 7,0,3,7,1,0,1,7,2,1,1,7,1,1,1,7,3,1,1,7,1,1,1,7,1,1
  773. DATA 1,7,3,1,1,7,1,1,1,7,2,1,1,8,1,0,3,8,6,0,1,3,1,7,8,2
  774. DATA 1,7,1,3,6,0,1,4,14,8,1,4,9,0,1,7,11,0,1,7,11,0,2,7
  775. DATA 10,0,1,7,11,0,1,7,2,0,1,7,2,0,1,7,5,0,1,7,3,0,1,7,7,0
  776. DATA 1,7,3,0,1,7,7,0,1,7,3,0,1,7,7,0,1,7,3,0,1,7,7,0,1,7
  777. DATA 12,0,1,7,10,0,1,7,11,0,1,7,3,0,1,7,8,0,1,7,1,0,1,7
  778. DATA 8,0,1,7,1,0,1,7,1,0,1,7,1,0,1,7,6,0,2,7,10,0,1,7,2,0
  779. DATA 1,7,9,0,1,7,10,0,1,7,10,0,1,7,12,0,1,7,257,0,1,7,14,0
  780. DATA 1,8,1,9,6,8,1,9,1,8,18,9,3,15,4,9,4,15,7,0,2,7,3,0
  781. DATA 1,7,1,1,1,7,1,1,1,7,3,1,1,7,1,1,1,8,1,1,1,8,3,1,1,7
  782. DATA 1,1,1,7,1,1,1,8,3,0,2,8,6,0,12,8,6,0,16,9,9,0,1,7,11,0
  783. DATA 1,7,11,0,1,7,1,0,1,7,9,0,1,7,11,0,1,7,2,0,1,7,2,0,1,7
  784. DATA 5,0,1,7,3,0,1,7,7,0,1,7,3,0,1,7,7,0,1,7,3,0,1,7,7,0
  785. DATA 1,7,3,0,1,7,7,0,1,7,13,0,1,7,9,0,1,7,11,0,1,7,3,0,1,7
  786. DATA 8,0,1,7,1,0,1,7,8,0,1,7,1,0,1,7,1,0,1,7,1,0,1,7,6,0
  787. DATA 2,7,10,0,1,7,2,0,1,7,8,0,1,7,11,0,1,7,10,0,1,7,12,0
  788. DATA 1,7,272,0,1,6,1,8,1,9,2,8,1,9,2,8,1,9,2,8,16,9,5,15
  789. DATA 2,9,4,15,1,6,44,0,12,7,6,0,16,8,9,0,1,7,11,0,1,7,11,0
  790. DATA 1,7,2,0,1,7,8,0,1,7,11,0,1,7,2,0,1,7,2,0,1,7,5,0,1,7
  791. DATA 3,0,1,7,7,0,1,7,3,0,1,7,7,0,1,7,3,0,1,7,7,0,1,7,3,0
  792. DATA 1,7,7,0,1,7,11,0,1,7,2,0,1,7,8,0,1,7,11,0,1,7,2,0,2,7
  793. DATA 9,0,1,7,10,0,1,7,3,0,1,7,6,0,1,7,2,0,1,7,10,0,2,7,8,0
  794. DATA 1,7,12,0,1,7,10,0,1,7,12,0,1,7,273,0,1,8,1,15,4,9,4,8
  795. DATA 2,9,1,8,12,9,12,15,45,0,12,6,6,0,16,8,9,0,1,7,11,0
  796. DATA 1,7,11,0,1,7,3,0,1,7,7,0,1,7,11,0,1,7,2,0,1,7,2,0,1,7
  797. DATA 5,0,1,7,3,0,1,7,8,0,3,7,8,0,4,7,9,0,4,7,7,0,1,7,12,0
  798. DATA 2,7,10,0,1,7,11,0,2,7,1,0,1,7,9,0,1,7,10,0,1,7,3,0
  799. DATA 1,7,6,0,1,7,2,0,1,7,10,0,1,7,9,0,4,7,9,0,1,7,10,0,1,7
  800. DATA 12,0,1,7,273,0,1,6,2,15,3,9,2,8,1,9,1,8,2,9,1,8,11,9
  801. DATA 3,15,1,9,8,15,1,6,100,0,1,7,71,0,1,7,15,0,1,7,93,0
  802. DATA 1,7,23,0,1,7,9,0,1,7,11,0,1,7,275,0,1,8,2,15,1,9,2,8
  803. DATA 2,9,1,8,1,9,3,8,9,9,5,15,1,9,6,15,1,8,101,0,1,7,71,0
  804. DATA 1,7,15,0,1,7,91,0,2,7,323,0,1,8,2,15,2,8,1,9,1,8,1,9
  805. DATA 3,8,8,9,14,15,608,0,6,15,2,9,3,8,4,9,16,15,47,0,10,2
  806. DATA 1,10,552,0,1,8,3,15,1,9,24,15,48,0,1,2,9,1,1,10,553,0
  807. DATA 1,8,26,15,49,0,1,2,6,1,1,7,2,1,1,10,554,0,25,15,50,0
  808. DATA 1,2,5,1,2,14,2,1,1,10,533,0,2,5,4,14,1,5,15,0,1,8,21,15
  809. DATA 1,8,40,0,6,8,5,0,1,2,4,1,2,14,1,5,2,1,1,10,532,0,1,5
  810. DATA 4,14,1,11,3,14,1,5,14,0,1,6,19,15,1,6,41,0,6,7,5,0
  811. DATA 1,2,3,1,2,14,1,5,3,1,1,10,531,0,1,5,7,14,1,11,2,14
  812. DATA 16,0,1,6,15,15,1,6,43,0,6,7,5,0,1,2,2,1,2,14,1,5,4,1
  813. DATA 1,10,238,0,1,5,61,0,1,7,20,0,1,5,209,0,3,14,1,5,4,0
  814. DATA 1,5,2,14,19,0,1,6,1,7,7,15,1,7,1,6,46,0,6,7,5,0,1,2
  815. DATA 1,1,1,13,2,5,5,1,1,10,264,0,1,5,61,0,1,7,204,0,2,14
  816. DATA 8,0,1,13,76,0,6,6,5,0,1,2,9,1,1,10,175,0,1,5,62,0,1,5
  817. DATA 61,0,1,7,230,0,1,7,86,0,3,7,3,6,5,0,1,2,9,1,1,10,175,0
  818. DATA 1,5,86,0,1,5,18,0,1,5,35,0,1,5,6,0,1,7,293,0,3,7,3,3
  819. DATA 6,0,10,10,175,0,1,5,62,0,1,14,61,0,1,7,317,0,3,6,3,3
  820. DATA 191,0,1,5,62,0,1,14,10,0,3,5,8,0,1,5,26,0,1,5,12,0
  821. DATA 1,7,5,0,1,5,4,0,3,7,8,0,1,7,492,0,1,5,37,0,1,4,19,0
  822. DATA 3,7,2,0,1,14,9,0,5,5,6,0,1,5,15,0,1,7,19,0,3,7,2,0
  823. DATA 1,7,9,0,5,7,6,0,1,7,46,0,1,7,446,0,1,14,38,0,1,4,16,0
  824. DATA 7,7,9,0,7,5,4,0,1,14,17,0,1,7,16,0,7,7,9,0,7,7,4,0
  825. DATA 1,7,494,0,1,14,39,0,1,5,4,0,1,5,10,0,7,7,4,0,3,7,2,0
  826. DATA 7,5,3,0,1,14,19,0,1,7,4,0,1,7,10,0,7,7,4,0,3,7,2,0
  827. DATA 7,7,3,0,1,7,35,0,5,7,455,0,1,14,6,0,1,5,33,0,1,5,13,0
  828. DATA 9,7,2,0,5,7,1,0,2,5,1,15,4,5,2,7,1,14,21,0,1,7,13,0
  829. DATA 9,7,2,0,5,7,1,0,10,7,34,0,9,7,11,0,1,7,186,0,5,11,35,0
  830. DATA 5,11,191,0,1,5,16,0,5,5,39,0,1,14,12,0,9,7,1,0,7,7
  831. DATA 1,0,3,15,1,14,1,5,5,7,21,0,1,7,12,0,9,7,1,0,7,7,1,0
  832. DATA 10,7,1,0,1,5,30,0,7,7,5,8,19,0,1,7,149,0,1,13,2,14
  833. DATA 1,5,22,0,7,11,33,0,7,11,34,0,5,11,161,0,1,5,4,0,9,5
  834. DATA 13,0,1,5,24,0,1,14,1,0,1,5,9,0,3,7,1,5,5,7,1,0,3,7
  835. DATA 1,5,3,7,2,0,1,15,3,14,6,7,21,0,1,7,1,0,1,7,9,0,9,7
  836. DATA 1,0,1,5,6,7,2,0,10,7,30,0,7,7,7,8,167,0,1,7,5,14,1,5
  837. DATA 19,0,2,11,5,3,2,11,31,0,2,11,5,3,2,11,32,0,7,11,152,0
  838. DATA 1,5,11,0,4,5,5,14,2,5,7,0,1,5,3,0,1,5,17,0,1,4,8,0
  839. DATA 1,15,4,0,5,7,2,0,7,7,2,0,7,7,1,0,1,5,2,7,1,14,8,7,12,0
  840. DATA 1,7,8,0,1,7,4,0,5,7,2,0,7,7,2,0,7,7,1,0,12,7,28,0,7,7
  841. DATA 9,8,168,0,1,5,4,14,1,5,17,0,1,11,9,3,1,11,29,0,1,11
  842. DATA 9,3,1,11,30,0,2,11,5,3,2,11,152,0,1,5,9,0,4,5,7,14
  843. DATA 2,5,3,8,6,0,1,14,31,0,8,7,3,15,4,7,3,0,5,7,1,0,1,5
  844. DATA 1,0,11,7,25,0,15,7,3,0,5,7,1,0,1,7,1,0,11,7,28,0,6,7
  845. DATA 11,8,169,0,4,14,1,5,13,0,3,11,11,3,4,11,25,0,11,11
  846. DATA 29,0,1,11,9,3,1,11,104,0,1,5,47,0,1,5,5,0,1,5,1,0,4,5
  847. DATA 9,14,5,8,4,0,1,14,21,0,1,4,1,0,1,5,7,0,2,7,1,5,5,7
  848. DATA 5,15,1,7,3,0,6,7,2,0,1,14,1,0,11,7,14,0,1,7,1,0,1,7
  849. DATA 7,0,9,7,5,8,3,0,6,7,2,0,1,7,1,0,11,7,19,0,1,7,7,0,7,7
  850. DATA 11,8,5,7,165,0,2,14,1,11,1,14,11,0,2,11,2,3,1,11,11,3
  851. DATA 1,11,3,3,2,11,22,0,1,11,1,3,1,11,7,6,1,11,1,3,1,11
  852. DATA 28,0,11,11,104,0,1,5,48,0,1,14,6,0,3,5,9,14,7,8,3,5
  853. DATA 24,0,2,4,1,0,1,4,3,0,8,7,7,15,7,5,2,0,1,5,5,15,9,7
  854. DATA 13,0,1,5,2,0,2,7,1,0,1,7,3,0,9,7,7,8,6,7,2,0,1,7,1,0
  855. DATA 13,7,27,0,7,7,11,8,6,7,165,0,3,14,1,5,9,0,1,11,7,3
  856. DATA 2,11,3,3,2,11,7,3,1,11,20,0,2,11,1,3,1,7,1,6,3,10,1,6
  857. DATA 3,10,1,6,1,7,1,3,2,11,25,0,1,11,1,3,1,11,7,6,1,11,1,3
  858. DATA 1,11,103,0,1,5,4,0,1,7,44,0,1,14,4,0,3,5,5,14,3,15
  859. DATA 2,14,7,8,5,5,21,0,2,4,3,5,3,0,7,7,1,5,7,15,7,14,2,5
  860. DATA 7,15,1,5,7,7,15,0,5,7,3,0,8,7,9,8,8,7,3,0,11,7,27,0
  861. DATA 7,7,11,8,7,7,165,0,1,14,1,11,1,14,9,0,1,11,6,3,9,11
  862. DATA 7,3,1,11,18,0,1,11,3,3,3,6,1,7,3,6,1,7,3,6,3,3,1,11
  863. DATA 22,0,2,11,1,3,1,7,1,6,3,10,1,6,3,10,1,6,1,7,1,3,2,11
  864. DATA 105,0,3,7,43,0,3,8,2,0,3,5,4,14,5,15,1,14,7,8,5,5,21,0
  865. DATA 1,4,2,5,3,14,2,0,8,7,7,15,8,14,9,15,6,7,16,0,6,7,2,0
  866. DATA 7,7,11,8,8,7,2,0,10,7,28,0,7,7,11,8,8,7,164,0,3,14
  867. DATA 8,0,1,11,6,3,1,11,1,6,3,10,1,6,3,10,1,6,1,11,6,3,1,11
  868. DATA 17,0,1,11,4,3,3,6,2,8,1,7,2,8,3,6,4,3,1,11,20,0,1,11
  869. DATA 3,3,3,6,1,7,3,6,1,7,3,6,3,3,1,11,94,0,3,8,3,0,1,14
  870. DATA 4,0,1,7,7,0,1,5,35,0,5,8,1,0,3,5,4,14,5,15,2,14,5,8
  871. DATA 7,5,19,0,1,4,2,5,5,14,1,0,1,7,1,14,3,7,1,14,3,7,5,15
  872. DATA 8,14,11,15,4,7,1,0,1,5,14,0,8,7,1,0,7,7,11,8,19,7,1,0
  873. DATA 1,7,27,0,8,7,9,8,9,7,48,0,1,8,1,0,3,7,112,0,1,14,1,13
  874. DATA 8,0,1,11,5,3,1,10,1,3,1,6,1,7,5,6,1,7,1,6,1,3,1,10
  875. DATA 5,3,1,11,16,0,1,11,4,3,1,1,1,3,2,6,1,7,1,10,1,8,1,10
  876. DATA 1,7,2,6,1,3,1,1,4,3,1,11,18,0,1,11,4,3,3,6,2,8,1,7
  877. DATA 2,8,3,6,4,3,1,11,92,0,5,8,3,0,4,5,3,14,4,0,1,5,36,0
  878. DATA 5,8,1,0,3,5,3,14,7,15,2,14,3,8,8,5,20,0,2,5,5,14,1,0
  879. DATA 10,7,3,15,1,14,7,15,1,14,11,15,3,7,1,0,1,5,16,0,7,7
  880. DATA 1,0,7,7,11,8,3,7,3,14,3,15,1,7,3,8,5,7,1,0,1,7,23,0
  881. DATA 1,7,5,0,5,7,3,6,7,8,10,7,47,0,3,8,5,7,52,0,5,6,53,0
  882. DATA 1,13,9,0,1,11,5,3,1,10,3,3,1,7,3,6,1,7,3,3,1,10,6,3
  883. DATA 15,0,1,11,5,3,1,1,3,3,1,6,1,7,1,6,1,7,1,6,3,3,1,1,4,3
  884. DATA 2,11,16,0,1,11,4,3,1,1,1,3,2,6,1,7,1,10,1,8,1,10,1,7
  885. DATA 2,6,1,3,1,1,4,3,1,11,37,0,1,5,52,0,7,8,5,5,5,14,40,0
  886. DATA 6,8,3,5,3,14,7,15,3,14,10,5,2,0,1,5,17,0,2,5,5,14,2,0
  887. DATA 9,7,2,14,6,15,1,5,14,15,2,5,1,0,1,5,5,7,12,0,7,7,2,0
  888. DATA 6,7,11,8,2,7,2,14,7,15,3,8,1,0,2,7,1,0,6,7,11,0,1,7
  889. DATA 13,0,4,7,5,6,5,8,3,7,5,8,3,7,48,0,1,8,6,7,51,0,7,6
  890. DATA 62,0,6,3,1,6,1,10,2,3,2,8,1,7,2,8,2,3,1,10,1,6,6,3
  891. DATA 15,0,1,11,6,3,1,1,1,3,2,6,3,9,2,6,1,3,1,1,6,3,1,11
  892. DATA 15,0,1,11,5,3,1,1,3,3,1,6,1,7,1,6,1,7,1,6,3,3,1,1,4,3
  893. DATA 2,11,31,0,1,8,4,0,1,5,52,0,7,8,5,5,5,14,1,5,1,14,36,0
  894. DATA 6,8,1,0,2,8,3,5,2,14,7,15,1,9,1,14,2,5,1,14,7,5,22,0
  895. DATA 2,5,3,14,3,0,8,7,2,14,22,15,1,14,1,0,1,5,7,7,12,0,5,7
  896. DATA 3,0,1,8,5,7,11,8,1,5,3,14,7,15,3,8,1,0,1,7,1,0,8,7
  897. DATA 23,0,4,7,7,6,5,7,9,8,1,7,47,0,9,7,49,0,9,6,61,0,6,3
  898. DATA 2,6,1,10,1,3,1,7,1,10,1,8,1,10,1,7,1,3,1,10,3,6,5,3
  899. DATA 15,0,1,11,7,3,1,1,2,6,3,15,2,6,1,1,7,3,1,11,15,0,1,11
  900. DATA 6,3,1,1,1,3,2,6,3,9,2,6,1,3,1,1,6,3,1,11,30,0,3,8,1,0
  901. DATA 6,5,2,0,1,8,46,0,7,8,5,5,5,14,2,5,35,0,5,8,3,0,2,8
  902. DATA 4,5,2,14,5,15,2,9,11,5,17,0,1,5,5,0,3,5,1,0,3,14,7,7
  903. DATA 2,14,23,15,2,0,9,7,6,0,1,7,5,0,3,7,1,0,2,7,3,8,3,7
  904. DATA 3,5,8,8,2,7,2,14,9,15,2,8,3,0,9,7,21,0,5,7,7,6,3,7
  905. DATA 13,8,4,0,1,7,41,0,9,7,48,0,11,6,60,0,5,3,4,6,1,10,1,6
  906. DATA 1,7,1,6,1,7,1,6,1,10,4,6,5,3,15,0,9,3,1,1,5,6,1,1,9,3
  907. DATA 15,0,1,11,7,3,1,1,2,6,3,15,2,6,1,1,7,3,1,11,26,0,1,5
  908. DATA 4,0,1,8,1,0,8,5,3,8,44,0,1,5,1,0,6,8,3,15,3,5,3,14
  909. DATA 3,5,35,0,5,8,2,0,1,5,1,0,2,8,3,15,1,5,1,14,1,9,3,15
  910. DATA 3,9,4,5,2,0,3,15,27,0,5,14,3,15,1,7,1,0,2,5,1,14,13,15
  911. DATA 1,5,9,15,2,0,11,7,13,0,5,7,1,8,2,7,7,5,5,8,3,7,2,14
  912. DATA 9,15,1,8,3,0,11,7,18,0,7,7,7,6,2,7,15,8,9,0,1,7,33,0
  913. DATA 11,7,47,0,13,6,59,0,5,3,4,6,1,10,1,6,3,7,1,6,1,10,4,6
  914. DATA 1,10,4,3,15,0,5,3,2,6,3,7,1,1,3,10,1,1,3,7,2,6,5,3
  915. DATA 15,0,9,3,1,1,5,6,1,1,9,3,27,0,1,5,4,0,10,5,1,8,46,0
  916. DATA 2,5,4,8,5,15,9,5,34,0,5,8,3,0,1,5,1,4,5,15,1,5,1,14
  917. DATA 5,15,5,5,7,15,24,0,1,5,4,14,5,15,1,0,1,5,1,14,23,15
  918. DATA 2,0,4,7,3,14,5,7,12,0,9,7,6,5,3,15,2,8,5,7,1,14,9,15
  919. DATA 1,7,2,0,12,7,12,0,1,7,4,0,9,7,5,6,3,7,15,8,42,0,11,7
  920. DATA 48,0,5,6,3,7,5,6,59,0,4,3,1,10,5,6,1,10,3,6,1,10,5,6
  921. DATA 1,10,4,3,15,0,4,3,1,1,1,6,13,7,1,6,1,1,4,3,15,0,5,3
  922. DATA 2,6,3,7,1,1,3,10,1,1,3,7,2,6,5,3,31,0,4,5,5,14,4,5
  923. DATA 3,0,1,5,41,0,5,5,10,15,1,5,3,7,2,5,34,0,3,8,4,0,1,4
  924. DATA 1,9,5,15,1,9,7,15,1,5,3,7,7,15,1,5,22,0,1,5,5,14,5,15
  925. DATA 2,5,1,14,22,15,2,5,1,0,2,7,3,15,4,14,3,7,11,0,9,7,6,5
  926. DATA 5,15,7,7,1,14,7,15,3,7,1,0,12,7,17,0,10,7,3,6,3,7,17,8
  927. DATA 40,0,5,8,4,7,3,8,1,7,47,0,4,6,5,7,4,6,59,0,4,3,1,10
  928. DATA 6,6,3,10,6,6,1,10,4,3,15,0,4,3,1,1,2,6,11,7,2,6,1,1
  929. DATA 4,3,15,0,5,3,1,6,13,7,1,6,5,3,30,0,4,5,1,14,3,15,3,14
  930. DATA 4,5,1,0,1,5,37,0,3,8,2,0,5,5,10,15,5,7,1,5,36,0,3,8
  931. DATA 2,0,1,4,1,9,14,15,2,7,9,15,1,5,17,0,1,5,3,0,1,5,5,14
  932. DATA 5,15,2,5,4,15,1,5,16,15,2,14,2,5,1,0,1,7,5,15,3,14
  933. DATA 3,7,7,0,1,7,3,0,9,7,5,5,7,15,7,7,7,15,3,7,1,0,12,7
  934. DATA 16,0,10,7,1,6,1,7,3,8,2,7,17,8,39,0,7,8,2,7,5,8,47,0
  935. DATA 3,6,7,7,3,6,42,0,1,7,2,14,1,5,13,0,4,3,2,10,14,6,1,10
  936. DATA 4,3,15,0,4,3,1,1,3,6,4,7,2,6,3,7,3,6,1,1,4,3,15,0,4,3
  937. DATA 1,1,2,6,11,7,2,6,1,1,4,3,27,0,1,5,2,0,3,5,1,14,5,15
  938. DATA 3,14,3,5,38,0,5,8,6,5,10,15,6,7,35,0,5,8,1,4,3,9,14,15
  939. DATA 1,7,9,15,2,5,12,0,1,14,1,5,2,14,4,0,1,4,1,14,1,4,1,14
  940. DATA 1,4,2,14,3,15,3,5,21,15,2,14,2,5,1,0,7,15,3,14,2,7
  941. DATA 3,0,1,7,3,8,4,0,9,7,5,5,7,15,9,7,3,15,3,8,2,7,1,0,12,7
  942. DATA 15,0,12,7,24,8,37,0,16,8,46,0,3,6,7,7,3,6,43,0,3,14
  943. DATA 1,5,12,0,4,3,2,10,1,3,11,6,1,3,2,10,4,3,15,0,4,3,1,1
  944. DATA 15,6,1,1,4,3,15,0,4,3,1,10,3,6,4,7,2,6,3,7,3,6,1,10
  945. DATA 4,3,29,0,3,5,1,14,9,15,1,14,3,5,37,0,5,8,7,5,9,15,5,7
  946. DATA 1,5,1,14,1,0,1,5,1,0,1,5,30,0,5,5,5,15,1,9,22,15,2,5
  947. DATA 14,0,1,5,2,0,1,5,1,4,2,0,1,5,6,14,26,15,2,14,2,5,1,7
  948. DATA 7,15,3,14,2,7,3,0,5,8,2,7,2,0,9,7,4,5,7,15,1,14,8,7
  949. DATA 7,8,14,7,15,0,1,7,1,8,9,7,25,8,1,0,3,7,32,0,17,8,1,0
  950. DATA 3,7,43,0,2,6,7,7,5,6,42,0,3,14,1,5,11,0,4,3,2,10,2,3
  951. DATA 2,6,5,7,2,6,2,3,2,10,4,3,15,0,4,3,1,1,15,6,1,1,4,3
  952. DATA 15,0,4,3,1,10,15,6,1,10,4,3,27,0,3,8,2,5,1,14,10,15
  953. DATA 3,5,32,0,2,5,1,0,1,14,1,0,5,8,7,5,10,15,3,7,2,5,23,0
  954. DATA 1,5,1,0,1,5,1,0,1,5,1,0,2,5,1,14,1,5,1,14,3,5,2,9,20,15
  955. DATA 1,7,7,15,3,5,4,14,2,5,1,0,1,5,8,0,1,5,5,0,5,14,27,15
  956. DATA 2,14,2,5,1,0,7,15,3,14,2,7,3,0,5,8,5,0,7,7,1,0,5,5
  957. DATA 5,15,2,14,7,7,9,8,1,0,12,7,14,0,1,7,3,8,1,7,3,6,4,7
  958. DATA 25,8,5,7,30,0,18,8,3,7,3,8,42,0,2,6,5,7,6,6,42,0,1,5
  959. DATA 2,14,1,5,11,0,3,11,1,3,2,10,2,3,1,6,3,7,1,10,3,7,1,6
  960. DATA 2,3,2,10,1,3,3,11,15,0,4,3,1,10,5,6,5,7,5,6,1,10,4,3
  961. DATA 15,0,4,3,1,10,1,1,13,6,1,1,1,10,4,3,26,0,5,8,1,5,1,14
  962. DATA 10,15,3,5,38,0,3,8,1,0,7,5,13,15,2,5,33,0,2,5,3,9,21,15
  963. DATA 1,5,7,15,2,5,16,0,3,5,6,0,2,14,28,15,2,14,4,5,5,15
  964. DATA 3,14,2,7,4,0,5,8,1,7,4,0,3,8,5,7,1,0,1,7,3,5,1,14,3,15
  965. DATA 3,14,6,7,11,8,11,7,15,0,2,7,1,8,1,7,5,6,3,7,20,8,1,6
  966. DATA 4,8,6,7,29,0,17,8,3,7,5,8,42,0,2,6,3,7,8,6,42,0,3,14
  967. DATA 11,0,4,11,2,10,2,3,9,7,2,3,2,10,4,11,15,0,4,3,2,10
  968. DATA 2,6,4,7,1,10,4,7,3,6,1,10,4,3,15,0,2,3,1,6,1,3,1,10
  969. DATA 1,1,1,3,3,6,5,7,3,6,1,3,1,1,1,10,1,3,1,6,2,3,25,0,7,8
  970. DATA 2,14,9,15,3,5,41,0,1,8,3,5,3,15,1,5,13,15,1,5,1,14
  971. DATA 32,0,3,5,2,9,22,15,3,5,3,15,3,5,18,0,1,5,2,0,1,5,4,0
  972. DATA 1,7,29,15,1,14,3,5,3,7,3,15,4,14,1,7,6,0,3,8,1,7,2,0
  973. DATA 1,7,1,0,5,8,8,7,1,8,1,7,5,14,2,7,3,14,1,7,13,8,9,7
  974. DATA 6,0,1,5,9,0,4,8,5,6,4,7,7,8,3,6,8,8,3,6,3,8,6,7,29,0
  975. DATA 16,8,4,7,5,8,42,0,3,7,10,6,42,0,3,14,11,0,5,11,1,10
  976. DATA 1,3,1,6,9,7,1,6,1,3,1,10,5,11,15,0,4,3,2,10,1,6,11,7
  977. DATA 1,6,2,10,4,3,15,0,1,3,2,6,1,3,2,1,1,3,1,6,4,7,1,10
  978. DATA 4,7,1,6,1,3,2,1,1,3,2,6,1,3,25,0,7,8,1,5,2,14,7,15
  979. DATA 7,5,38,0,1,8,2,5,18,15,3,5,30,0,3,5,3,9,22,15,5,5,29,0
  980. DATA 1,7,30,15,1,14,2,5,5,7,1,0,3,14,2,7,15,0,5,8,11,7,3,14
  981. DATA 1,8,7,14,12,8,2,7,1,0,5,7,15,0,6,8,5,6,5,7,3,8,2,7
  982. DATA 5,6,8,8,1,6,3,8,7,7,29,0,13,8,7,7,5,8,37,0,3,6,1,0
  983. DATA 5,7,9,6,42,0,1,14,1,11,1,14,11,0,5,11,1,10,1,3,1,6
  984. DATA 9,7,1,6,1,3,1,10,5,11,15,0,4,11,2,10,2,6,9,7,2,6,2,10
  985. DATA 4,11,15,0,5,11,1,1,1,3,1,6,9,7,1,6,1,3,1,1,5,11,25,0
  986. DATA 6,8,3,5,5,14,1,15,5,5,42,0,1,8,1,5,19,15,1,5,32,0,3,5
  987. DATA 3,9,21,15,7,5,24,0,1,5,2,0,2,7,29,15,1,14,1,15,1,5
  988. DATA 7,7,18,0,1,7,1,0,5,8,11,7,4,8,4,14,3,15,2,5,10,8,3,7
  989. DATA 19,0,8,8,3,6,10,7,7,6,11,8,6,7,30,0,13,8,4,7,1,0,3,7
  990. DATA 3,8,37,0,5,6,5,7,1,0,7,6,43,0,3,14,11,0,5,11,1,10,1,3
  991. DATA 2,6,7,7,2,6,1,3,1,10,5,11,106,0,5,8,4,5,3,14,7,5,43,0
  992. DATA 1,8,18,15,1,5,33,0,3,5,3,9,20,15,8,5,23,0,3,5,3,7,32,15
  993. DATA 2,7,3,14,2,5,17,0,4,7,3,8,11,7,4,8,4,14,5,15,2,5,9,8
  994. DATA 3,7,18,0,13,8,3,6,6,7,7,6,10,8,6,7,27,0,2,7,14,8,4,7
  995. DATA 3,0,3,7,38,0,6,6,5,7,1,0,7,6,42,0,1,5,1,11,1,14,1,5
  996. DATA 11,0,5,11,1,10,2,3,9,6,2,3,1,10,5,11,107,0,3,8,1,0
  997. DATA 5,5,3,14,5,5,45,0,7,15,1,14,9,15,1,14,1,5,33,0,4,5
  998. DATA 2,9,11,15,1,9,7,15,1,14,1,5,3,14,4,5,3,0,1,5,20,0,1,5
  999. DATA 1,0,3,7,28,15,1,14,1,5,1,15,1,5,1,7,1,14,1,15,3,14
  1000. DATA 2,5,17,0,1,7,1,0,14,7,4,8,1,5,4,14,5,15,3,5,8,8,4,7
  1001. DATA 17,0,12,8,5,6,5,7,7,6,1,8,1,6,8,8,4,7,28,0,2,7,14,8
  1002. DATA 4,7,45,0,7,6,3,7,4,0,3,6,44,0,3,14,1,5,11,0,1,3,3,11
  1003. DATA 17,3,3,11,1,3,112,0,3,5,3,8,5,5,46,0,1,14,4,15,3,7
  1004. DATA 1,14,4,15,1,14,2,15,2,14,34,0,4,5,3,9,9,15,3,9,5,15
  1005. DATA 7,14,3,5,1,8,25,0,3,7,27,15,2,5,1,14,1,5,2,7,3,15,2,14
  1006. DATA 3,5,18,0,10,7,3,8,1,7,4,8,1,5,4,14,5,15,3,5,7,8,6,7
  1007. DATA 15,0,10,8,1,6,2,8,5,6,6,7,5,6,1,8,3,6,6,8,4,7,28,0
  1008. DATA 3,7,5,8,1,0,7,8,3,7,47,0,7,6,53,0,1,13,2,14,1,5,12,0
  1009. DATA 1,3,3,11,7,3,3,0,7,3,3,11,1,3,111,0,1,5,1,0,1,5,5,8
  1010. DATA 3,5,1,0,1,5,44,0,1,14,2,0,1,15,7,7,4,15,3,14,36,0,5,5
  1011. DATA 2,9,7,15,7,9,3,14,1,5,5,14,3,5,26,0,4,7,25,15,2,5,3,14
  1012. DATA 2,0,1,14,1,15,3,14,3,5,18,0,8,7,9,8,3,5,4,14,3,15,5,5
  1013. DATA 5,8,7,7,15,0,9,8,3,6,1,8,5,6,7,7,3,6,3,8,1,6,5,8,5,7
  1014. DATA 29,0,3,7,5,8,2,0,5,8,52,0,5,6,71,0,3,11,6,3,5,0,6,3
  1015. DATA 3,11,111,0,1,5,3,0,5,8,1,5,47,0,1,5,4,0,7,7,6,14,38,0
  1016. DATA 7,5,5,15,1,14,7,9,2,14,2,5,5,14,2,5,27,0,5,7,9,15,1,5
  1017. DATA 13,15,4,5,1,14,1,7,1,0,1,5,1,0,3,14,4,5,18,0,8,7,9,8
  1018. DATA 3,5,7,14,5,5,4,8,1,0,7,7,3,0,1,5,11,0,10,8,1,6,3,8
  1019. DATA 3,6,1,7,1,8,11,7,5,8,6,7,5,0,1,7,24,0,4,7,3,8,61,0
  1020. DATA 3,6,5,0,3,6,64,0,3,11,1,10,4,3,7,0,4,3,1,10,3,11,115,0
  1021. DATA 5,8,47,0,1,5,4,0,9,7,4,14,40,0,7,5,1,14,1,0,3,14,7,9
  1022. DATA 3,14,2,5,3,14,2,5,4,0,1,5,23,0,1,14,5,7,7,15,2,5,11,15
  1023. DATA 1,5,3,15,1,5,7,7,5,5,19,0,7,7,8,8,1,5,1,8,5,5,3,14
  1024. DATA 7,5,3,8,8,7,16,0,15,8,2,7,3,8,16,7,36,0,5,7,8,0,3,7
  1025. DATA 58,0,5,6,63,0,1,3,2,11,1,10,3,3,9,0,3,3,1,10,2,11,1,3
  1026. DATA 116,0,3,8,53,0,9,7,2,5,4,0,1,14,38,0,6,5,2,0,4,14,5,9
  1027. DATA 2,4,3,0,5,5,31,0,5,7,5,15,4,5,7,15,3,5,5,15,8,7,3,5
  1028. DATA 5,0,1,5,16,0,5,7,7,8,18,5,10,7,5,0,1,7,11,0,15,8,3,7
  1029. DATA 1,8,17,7,37,0,3,7,8,0,5,7,57,0,5,6,63,0,1,3,5,7,11,0
  1030. DATA 5,7,1,3,172,0,9,7,49,0,1,14,3,0,5,14,3,9,1,7,1,0,3,5
  1031. DATA 2,0,3,8,33,0,8,7,4,5,1,14,7,15,3,5,5,15,10,7,5,0,3,5
  1032. DATA 16,0,4,7,8,8,1,5,1,8,15,5,9,7,5,0,3,7,11,0,13,8,22,7
  1033. DATA 47,0,4,7,1,8,2,7,56,0,5,6,63,0,5,7,1,3,11,0,1,3,5,7
  1034. DATA 173,0,7,7,9,0,1,5,39,0,1,14,5,0,3,14,2,7,1,9,1,7,1,0
  1035. DATA 5,5,5,8,1,14,31,0,1,14,8,7,2,5,3,14,1,5,3,15,1,7,1,5
  1036. DATA 2,0,1,14,5,15,1,14,10,7,5,0,1,5,17,0,5,7,7,8,2,7,1,8
  1037. DATA 14,5,10,7,5,0,1,7,6,0,1,5,5,0,13,8,21,7,48,0,7,7,57,0
  1038. DATA 3,6,64,0,5,7,1,3,1,7,9,0,1,7,1,3,5,7,173,0,6,7,1,14
  1039. DATA 48,0,1,5,5,0,3,8,4,7,1,14,1,0,5,5,5,8,1,0,1,14,29,0
  1040. DATA 1,14,7,0,2,7,3,5,1,14,3,5,3,7,2,0,1,5,2,14,7,15,5,7
  1041. DATA 1,14,2,7,13,0,1,5,8,0,1,7,5,0,7,8,3,7,14,5,1,8,9,7
  1042. DATA 19,0,11,8,13,7,3,8,6,7,48,0,7,7,52,0,1,6,71,0,7,7,9,0
  1043. DATA 7,7,175,0,3,7,49,0,1,5,5,0,5,8,2,7,1,0,1,14,1,0,5,5
  1044. DATA 5,8,2,0,1,14,27,0,1,14,9,0,3,15,3,5,8,7,3,14,7,15,5,7
  1045. DATA 1,14,1,5,1,7,20,0,1,7,8,0,3,8,6,7,13,5,11,7,19,0,9,8
  1046. DATA 3,7,1,8,9,7,5,8,4,7,5,0,3,7,42,0,5,7,52,0,3,6,70,0
  1047. DATA 7,6,9,0,7,6,226,0,1,5,5,0,7,8,2,0,1,5,2,0,3,5,2,0,3,8
  1048. DATA 4,0,1,5,24,0,1,14,1,5,4,0,5,5,5,15,11,7,1,14,9,15,5,7
  1049. DATA 1,5,1,14,18,0,2,7,4,0,15,7,11,5,12,7,21,0,5,8,4,7,3,8
  1050. DATA 4,7,1,6,3,7,5,8,3,7,5,0,5,7,42,0,3,7,54,0,1,6,273,0
  1051. DATA 1,5,52,0,7,8,2,0,1,5,15,0,1,5,23,0,1,5,4,0,3,5,3,14
  1052. DATA 5,15,11,7,11,15,5,7,1,5,1,0,1,5,14,0,1,5,1,0,1,7,4,0
  1053. DATA 18,7,9,5,12,7,1,0,1,7,22,0,7,7,1,8,9,7,5,8,3,7,4,0
  1054. DATA 7,7,425,0,7,8,41,0,1,5,4,0,3,5,4,14,5,15,1,0,10,7,11,15
  1055. DATA 6,7,3,5,14,0,1,7,4,0,4,7,3,8,5,7,1,0,10,7,3,5,17,7
  1056. DATA 22,0,17,7,3,8,3,7,5,0,7,7,426,0,5,8,21,0,1,5,19,0,1,5
  1057. DATA 4,0,4,5,1,14,3,15,1,14,3,15,2,0,6,7,1,5,3,7,11,15,6,7
  1058. DATA 1,0,1,5,14,0,1,7,4,0,4,7,5,8,3,7,2,0,27,7,1,0,1,7,25,0
  1059. DATA 19,7,7,0,7,7,427,0,3,8,23,0,1,5,17,0,1,5,5,0,4,5,5,15
  1060. DATA 2,5,2,0,9,7,1,5,1,7,11,15,5,7,3,0,1,5,12,0,1,7,5,0
  1061. DATA 3,7,7,8,1,7,2,0,27,7,3,0,1,7,17,0,1,7,7,0,17,7,9,0
  1062. DATA 5,7,478,0,4,5,5,15,2,5,2,0,11,7,11,15,5,7,4,0,1,5,17,0
  1063. DATA 3,7,7,8,1,7,2,0,27,7,4,0,1,7,26,0,13,7,6,0,1,7,5,0
  1064. DATA 3,7,479,0,4,5,5,15,2,5,2,0,12,7,9,15,5,7,6,0,1,5,16,0
  1065. DATA 3,7,7,8,1,7,2,0,26,7,6,0,1,7,19,0,1,7,8,0,7,7,497,0
  1066. DATA 5,5,3,15,3,5,2,0,6,7,1,5,6,7,7,15,5,7,8,0,1,5,15,0
  1067. DATA 4,7,5,8,2,7,2,0,15,7,1,0,9,7,8,0,1,7,532,0,9,5,3,0
  1068. DATA 14,7,5,15,4,7,27,0,4,7,3,8,2,7,3,0,15,7,3,0,5,7,51,0
  1069. DATA 1,7,492,0,7,5,5,0,6,7,1,5,6,7,37,0,7,7,5,0,13,7,554,0
  1070. DATA 5,5,6,0,13,7,38,0,5,7,6,0,13,7,566,0,11,7,51,0,2,7
  1071. DATA 2,8,7,7,13,0,1,5,43,0,1,7,510,0,9,7,53,0,4,8,5,7,571,0
  1072. DATA 5,7,56,0,2,8,4,7,45,0,1,7,181,0
  1073.  

and K2 the second (chained) file of automaking graphic files

Code: QB64: [Select]
  1. 'K2.BAS: Creates graphics files for KONG.BAS, -chained by K1.BAS
  2. '---------------------------------------------------------------
  3. DEFINT A-Z
  4. DECLARE SUB SaveINSTR (FileNAME$)
  5. DECLARE SUB HighLIGHT (x1%, y1%, x2%, y2%, Colr%)
  6. DECLARE SUB PrintSTRING (x, y, Prnt$)
  7. DECLARE SUB SaveBUILDING (x, UpSET, Building)
  8.  
  9. DIM SHARED Box(1 TO 26000)
  10. DIM SHARED FontBOX(5000)
  12. GOSUB Instructions
  13. GOSUB Buildings
  14. GOSUB TitleBAR
  15. GOSUB WinBOXES
  16. GOSUB ControlPANEL
  17. GOSUB DrawSCREEN
  18.  
  20. OUT &H3C8, 7
  21. OUT &H3C9, 63
  22. OUT &H3C9, 32
  23. OUT &H3C9, 0
  24. LINE (5, 5)-(634, 474), 6, B
  25. LINE (8, 8)-(631, 471), 6, B
  26. LINE (200, 180)-(439, 290), 6, B
  27. LINE (197, 177)-(442, 293), 6, B
  28. PrintSTRING 254, 212, "The graphics files for KONG"
  29. PrintSTRING 243, 226, "have been successfully created."
  30. PrintSTRING 246, 250, "You can now run the program."
  31.  
  32. a$ = INPUT$(1)
  34.  
  35. TitleBAR:
  36. LINE (0, 300)-(639, 340), 1, BF
  37. FOR x = -6 TO 660 STEP 21
  38.     LINE (x, 309)-(x + 18, 331), 2, BF
  40. FOR x = -1 TO 660 STEP 7
  41.     LINE (x, 302)-(x + 2, 306), 10, BF
  42.     LINE (x, 306)-(x + 2, 306), 2
  43.     LINE (x, 334)-(x + 2, 338), 10, BF
  44.     LINE (x, 338)-(x + 2, 338), 2
  46. LINE (0, 300)-(639, 300), 2
  47. LINE (0, 340)-(639, 340), 10
  48. FOR x = 140 TO 498
  49.     FOR y = 0 TO 18
  50.         IF POINT(x, y) <> 0 THEN
  51.             IF y > 9 THEN Colr = 8 ELSE Colr = 15
  52.             PSET (x, y + 314), 10
  53.             PSET (x, y + 311), Colr
  54.         END IF
  55.     NEXT y
  57. PrintSTRING 20, 216, "Instructions"
  58. PrintSTRING 595, 216, "EXIT"
  59. FOR x = 20 TO 620
  60.     FOR y = 216 TO 230
  61.         IF y > 222 THEN Colr = 8 ELSE Colr = 15
  62.         IF POINT(x, y) <> 0 THEN PSET (x, y + 100), Colr
  63.         PSET (x, y), 0
  64.     NEXT y
  67.  
  68. ControlPANEL:
  69. LINE (0, 446)-(639, 479), 7, BF
  70. LINE (0, 446)-(639, 446), 9
  71. PSET (115, 446), 7
  72. DRAW "U10 E4 R399 F4 D10 L407 BE6 P7,7"
  73. PSET (115, 446), 9
  74. DRAW "U10 c15 E4 c9R399 C6 F4 D10"
  75. PSET (0, 435), 7
  76. DRAW "R52 F4 D10 L56 BE4 P7,7"
  77. PSET (0, 435), 9
  78. DRAW "R52 c6 F4 D6"
  79. PSET (639, 435), 7
  80. DRAW "L52 G4 D10 R56 BH4 P7,7"
  81. PSET (639, 435), 9
  82. DRAW "L52 c15 G4 c9 D6"
  83. PSET (215, 432), 7
  84. DRAW "U10 E4 R199 F4 D10 L207 BE5 P7,7"
  85. PSET (215, 432), 9
  86. DRAW "U10 c15 E4 R199 c6 F4 D10"
  87. PSET (5, 440), 4
  88. DRAW "R42 F3 D8 R70 U11 E3 R97 U11 E3 R191"
  89. DRAW "F3 D11 R97 F3 D11 R70 U8 E3 R42 D20 L628 U20 bF4 P4,4"
  90. FOR y = 424 TO 460 STEP 5
  91.     FOR x = 5 TO 634
  92.         IF POINT(x, y) = 4 THEN PSET (x, y), 8
  93.         IF POINT(x, y - 1) = 4 THEN PSET (x, y - 1), 6
  94.     NEXT x
  96. FOR y = 424 TO 460
  97.     FOR x = 4 TO 634
  98.         IF POINT(x, y) = 4 THEN PSET (x, y), 7
  99.     NEXT x
  101. 'Banana Button
  102. LINE (305, 424)-(334, 450), 7, BF
  103. LINE (305, 424)-(334, 451), 9, B
  104. LINE (334, 424)-(334, 450), 6
  105. LINE (309, 428)-(330, 446), 1, BF
  106. LINE (309, 428)-(330, 446), 2, B
  107. LINE (309, 446)-(330, 446), 10
  108. LINE (330, 428)-(330, 446), 10
  109. LINE (305, 451)-(334, 451), 10
  110. LINE (305, 425)-(305, 451), 8
  111. FOR x = 0 TO 16
  112.     FOR y = 0 TO 16
  113.         IF POINT(x, y) <> 0 THEN
  114.             PSET (x + 312, y + 432), 10
  115.             PSET (x + 312, y + 430), POINT(x, y)
  116.         END IF
  117.     NEXT y
  119. 'Transfer KONG
  120. FOR x = 198 TO 256
  121.     FOR y = 0 TO 18
  122.         IF y > 9 THEN Colr = 8 ELSE Colr = 15
  123.         IF POINT(x, y) <> 0 THEN
  124.             PSET (x - 141, y + 452), 10
  125.             PSET (x - 141, y + 450), Colr
  126.         END IF
  127.     NEXT y
  129. 'Transfer YOUNG
  130. FOR x = 424 TO 500
  131.     FOR y = 0 TO 18
  132.         IF y > 9 THEN Colr = 8 ELSE Colr = 15
  133.         IF POINT(x, y) <> 0 THEN
  134.             PSET (x + 92, y + 452), 10
  135.             PSET (x + 92, y + 450), Colr
  136.         END IF
  137.     NEXT y
  139. 'Player LED's
  140. LINE (70, 470)-(100, 477), 8, B
  141. LINE (70, 470)-(70, 477), 6
  142. LINE (70, 470)-(100, 470), 6
  143. LINE (72, 472)-(98, 475), 10, B
  144. LINE (98, 472)-(98, 475), 8
  145. LINE (72, 475)-(98, 475), 8
  146. GET (70, 470)-(100, 477), Box()
  147. PUT (537, 470), Box(), PSET
  148. 'Slider grooves
  149. LINE (359, 469)-(489, 475), 7, BF
  150. LINE (359, 472)-(489, 472), 10
  151. LINE (359, 471)-(489, 473), 9, B
  152. LINE (359, 471)-(359, 473), 6
  153. LINE (359, 471)-(489, 471), 6
  154. 'Get/place slider grooves
  155. GET (354, 462)-(494, 479), Box()
  156. LINE (354, 462)-(494, 479), 7, BF
  157. PUT (135, 442), Box(), PSET
  158. PUT (364, 442), Box(), PSET
  159. GET (245, 442)-(274, 456), Box()
  160. PUT (227, 442), Box(), PSET
  161. LINE (256, 442)-(272, 456), 7, BF
  162. PrintSTRING 185, 462, "Force"
  163. PrintSTRING 436, 462, "Angle"
  164. FOR x = 140 TO 500
  165.     FOR y = 462 TO 478
  166.         IF y > 468 THEN Colr = 9 ELSE Colr = 15
  167.         IF POINT(x, y) <> 7 THEN PSET (x, y), Colr
  168.     NEXT y
  170. FOR x = 146 TO 246 STEP 5
  171.     LINE (x, 446)-(x, 449), 8
  172.     LINE (x, 456)-(x, 459), 8
  174. GET (365, 440)-(380, 460), Box()
  175. LINE (365, 440)-(395, 460), 7, BF
  176. PUT (394, 440), Box(), PSET
  177. FOR x = 404 TO 494 STEP 5
  178.     LINE (x, 446)-(x, 449), 8
  179.     LINE (x, 456)-(x, 459), 8
  181. LINE (255, 442)-(278, 460), 7, BF
  182. LINE (255, 442)-(276, 460), 10, BF
  183. LINE (255, 442)-(276, 460), 9, B
  184. LINE (255, 442)-(276, 442), 6
  185. LINE (255, 442)-(255, 460), 6
  186. PrintSTRING 260, 446, "00"
  187. LINE (362, 442)-(385, 460), 7, BF
  188. LINE (364, 442)-(385, 460), 10, BF
  189. LINE (364, 442)-(385, 460), 9, B
  190. LINE (364, 442)-(364, 460), 6
  191. LINE (364, 442)-(385, 442), 6
  192. PrintSTRING 369, 446, "00"
  193. 'Transfer Cupola
  194. FOR x = 61 TO 95
  195.     FOR y = 48 TO 74
  196.         IF POINT(x, y) <> 0 THEN
  197.             PSET (x - 52, y + 360), POINT(x, y)
  198.             PSET (690 - x, y + 360), POINT(x, y)
  199.         END IF
  200.     NEXT y
  202. CIRCLE (123, 440), 5, 4
  203. PAINT STEP(0, 0), 4
  204. CIRCLE STEP(0, 0), 5, 9
  205. PAINT STEP(0, 0), 7, 9
  206. CIRCLE STEP(0, 0), 5, 6, 3.1, 0
  207. CIRCLE (513, 440), 5, 4
  208. PAINT STEP(0, 0), 4
  209. CIRCLE STEP(0, 0), 5, 9
  210. PAINT STEP(0, 0), 7, 9
  211. CIRCLE STEP(0, 0), 5, 6, 3.1, 0
  212. CIRCLE (223, 426), 5, 4
  213. PAINT STEP(0, 0), 4
  214. CIRCLE STEP(0, 0), 5, 9
  215. PAINT STEP(0, 0), 7, 9
  216. CIRCLE STEP(0, 0), 5, 6, 3.1, 0
  217. CIRCLE (413, 426), 5, 4
  218. PAINT STEP(0, 0), 4
  219. CIRCLE STEP(0, 0), 5, 9
  220. PAINT STEP(0, 0), 7, 9
  221. CIRCLE STEP(0, 0), 5, 6, 3.1, 0
  222. LINE (290, 461)-(350, 477), 9, B
  223. LINE (350, 461)-(350, 477), 6
  224. LINE (290, 477)-(350, 477), 6
  225. LINE (290, 478)-(350, 478), 10
  226. LINE (290, 461)-(290, 477), 8
  227. 'Score boxes
  228. LINE (12, 444)-(42, 474), 0, BF
  229. LINE (12, 444)-(42, 474), 9, B
  230. LINE (12, 444)-(12, 474), 6
  231. LINE (12, 444)-(42, 444), 6
  232. LINE (597, 444)-(627, 474), 0, BF
  233. LINE (597, 444)-(627, 474), 9, B
  234. LINE (597, 444)-(597, 474), 6
  235. LINE (597, 444)-(627, 444), 6
  236. GET (438, 20)-(452, 38), Box()
  237. PUT (19, 450), Box()
  238. PUT (604, 450), Box()
  239. FOR x = 0 TO 639
  240.     FOR y = 362 TO 404
  241.         IF POINT(x, y) = 0 THEN PSET (x, y), 12
  242.     NEXT y
  244. PrintSTRING 298, 464, "NO WIND"
  245. FOR x = 298 TO 342
  246.     FOR y = 465 TO 473
  247.         IF y > 469 THEN Colr = 9 ELSE Colr = 15
  248.         IF POINT(x, y) <> 7 THEN PSET (x, y), Colr
  249.     NEXT y
  251. GET (298, 465)-(342, 473), Box()
  252. DEF SEG = VARSEG(Box(1))
  253. BSAVE "KongWIND.BSV", VARPTR(Box(1)), 240
  255. DIM SliderBOX(1 TO 440)
  256. DEF SEG = VARSEG(SliderBOX(1))
  257. BLOAD "KongSLDR.BSV", VARPTR(SliderBOX(1))
  259. GET (141, 443)-(151, 461), SliderBOX(281)
  260. GET (489, 443)-(499, 461), SliderBOX(361)
  261. DEF SEG = VARSEG(SliderBOX(1))
  262. BSAVE "KongSLDR.BSV", VARPTR(SliderBOX(1)), 880
  265.  
  266. DrawSCREEN:
  267. GET (16, 47)-(56, 87), Box(25000)
  268. GET (0, 300)-(639, 340), Box()
  269. LINE (0, 0)-(639, 350), 0, BF
  270. LINE (0, 0)-(639, 43), 7, BF
  271. LINE (0, 44)-(639, 44), 10
  272. PUT (0, 1), Box(), PSET
  273. PUT (299, 70), Box(25000), PSET
  274. PrintSTRING 2, 46, "Freeware - Copyright 2005 by Bob Seguin"
  275. PrintSTRING 497, 46, "email: BOBSEG@sympatico.ca"
  276. FOR x = 0 TO 639
  277.     FOR y = 46 TO 58
  278.         IF POINT(x, y) <> 0 THEN PSET (x, y), 2
  279.     NEXT y
  281.  
  282. PSET (0, 154), 12
  283. DRAW "r7 U24 R35 NU20 R30 F20 D20 R30 F20 D30 R5 U50 R20 NU20 R20 D60"
  284. DRAW "R5 U30 R5 U4 R20 NU20 R20 D4 R5 D20 R4 U30 R3 U40 R3"
  285. DRAW "U3ru3ru3ru3ru3ru3r2Nu20R2D3rd3rd3rd3rd3rd3r3d40r3d20R4"
  286. DRAW "U30 R30d20r3U60r3u4r25nu12r25d4r3d80r5U30r15Nu12r15d30r5u50r30d40"
  287. DRAW "r5U30 r6U2r34nu12r34d2r6d30r4u20r20d20r5U30e12r20U18e23r"
  288. DRAW "r12nu12r22d108L639U81bfp12,12"
  289. LINE (0, 235)-(639, 400), 12, BF
  290. CIRCLE (605, 198), 200, 12, 2.8, 3.2
  291. CIRCLE (235, 198), 200, 12, 0, .34
  292. LINE (416, 123)-(424, 136), 12, BF
  293. LINE (419, 100)-(421, 125), 12, BF
  294. LINE (420, 80)-(420, 100), 12
  295. PAINT STEP(0, 40), 12
  296.  
  297. PSET (0, 390), 10
  298. DRAW "R10 U10 R100 D5 R10 U10 R80 D30 R20 U20 R60 U8rd8r62 D10"
  299. DRAW "R80 U20 LU10R20 U6lu2r16d2ld6r60d10ld10r118d26L639"
  300. DRAW "U14 BF4 P10,10"
  301. FOR y = 401 TO 440
  302.     FOR x = 0 TO 639
  303.         IF POINT(x, y) = 0 THEN PSET (x, y), 10
  304.     NEXT x
  306. PAINT (60, 396), 10
  307. PAINT (460, 396), 10
  308. GET (80, 340)-(539, 400), Box()
  309. PUT (80, 345), Box(), PSET
  311. FOR Reps = 1 TO 48
  312.     x = FIX(RND * 640)
  313.     y = FIX(RND * 60) + 45
  314.     IF POINT(x, y) = 0 THEN PSET (x, y), 7
  315. NEXT Reps
  316. FOR x = 0 TO 639
  317.     FOR y = 362 TO 404
  318.         IF POINT(x, y) <> 10 THEN PSET (x, y), 0
  319.     NEXT y
  321. GET (0, 362)-(639, 404), Box() '7000
  322. FOR x = 0 TO 639
  323.     FOR y = 362 TO 404
  324.         IF POINT(x, y) = 0 THEN PSET (x, y), 15 ELSE PSET (x, y), 0
  325.     NEXT y
  327. FOR x = 45 TO 595
  328.     FOR y = 430 TO 460
  329.         IF POINT(x, y) = 0 THEN PSET (x, y), 10
  330.     NEXT y
  332. GET (0, 362)-(639, 404), Box(7000) 'Get foreground building mask
  333. PUT (0, 362), Box(), PSET
  334. LINE (80, 410)-(88, 422), 5, BF
  335. LINE (80, 410)-(88, 418), 3, BF
  336. LINE (180, 410)-(188, 422), 0, BF
  337. LINE (480, 390)-(488, 402), 5, BF
  338. LINE (480, 390)-(488, 394), 3, BF
  339. LINE (460, 390)-(468, 402), 0, BF
  340. LINE (440, 412)-(448, 424), 0, BF
  341. GET (0, 362)-(639, 404), Box() '7000 'Get/Save foreground buildings
  342. DEF SEG = VARSEG(Box(1))
  343. BSAVE "KongFBLD.BSV", VARPTR(Box(1)), 28000
  345. LINE (0, 340)-(639, 404), 12, BF
  346. PUT (0, 362), Box(7000), AND
  347. PUT (0, 362), Box()
  348.  
  349. 'Get/Save main screen
  350. FileCOUNT = 0
  351. DEF SEG = VARSEG(Box(1))
  352. FOR y = 0 TO 320 STEP 160
  353.     GET (0, y)-(639, y + 159), Box()
  354.     FileCOUNT = FileCOUNT + 1
  355.     FileNAME$ = "KONGSCR" + LTRIM$(STR$(FileCOUNT)) + ".BSV"
  356.     BSAVE FileNAME$, VARPTR(Box(1)), 52000
  360.  
  361. Buildings:
  362. 'Government building?
  363. PSET (97, 200), 11
  364. DRAW "E16 R33 F16 L65 R32 BU2 P11,11"
  365. FOR x = 102 TO 159 STEP 4
  366.     FOR y = 184 TO 200
  367.         IF POINT(x, y) = 11 THEN PSET (x, y), 3
  368.     NEXT y
  370. PSET (97, 200), 3
  371. DRAW "E16 R33 U3 L33 D3 BE P11,3 BG C3 R33 F16 L67 D3 R69 U3 L30 BD P11,3"
  372. LINE (90, 204)-(169, 208), 7, BF
  373. LINE (90, 204)-(169, 204), 8
  374. LINE (60, 200)-(68, 212), 3, B
  375. LINE (61, 201)-(67, 211), 1, BF
  376. LINE (61, 201)-(67, 211), 7, B
  377. LINE (61, 206)-(67, 206), 7
  378. GET (60, 200)-(68, 212), Box()
  379. PUT (60, 200), Box()
  380. FOR x = 112 TO 140 STEP 14
  381.     PUT (x, 191), Box(), PSET
  383. PSET (130, 180), 7
  384. DRAW "U20 C15 d"
  385. FOR x = 114 TO 146 STEP 2
  386.     LINE (x, 177)-(x, 180), 6
  387.     PSET (x, 177), 8
  388.     IF x < 146 THEN PSET (x + 1, 179), 6
  390. FlagDATA:
  391. DATA 1,2,3,2,2,2,3,4,5,4,3,2
  392. RESTORE FlagDATA
  393. FOR x = 129 TO 119 STEP -1
  394.     READ Down
  395.     LINE (x, 162 + Down)-(x, 168 + Down), 4
  397. LINE (90, 210)-(169, 479), 7, BF
  398. FOR y = 210 TO 470 STEP 2
  399.     LINE (95, y)-(164, y), 6
  401. RANDOMIZE 145678
  402. FOR y = 220 TO 420 STEP 20
  403.     FOR x = 99 TO 157 STEP 11
  404.         LINE (x - 1, y)-(x + 7, y + 12), 7, BF
  405.         IF FIX(RND * 12) = 0 THEN
  406.             Colr1 = 3: Colr2 = 5
  407.         ELSE
  408.             Colr1 = 1: Colr2 = 2
  409.         END IF
  410.         LINE (x + 1, y + 1)-(x + 5, y + 12), Colr1, BF
  411.         LINE (x + 1, y + 3)-(x + 5, y + 12), Colr2, BF
  412.         LINE (x, y + 13)-(x + 6, y + 13), 8
  413.         LINE (x, y + 7)-(x + 5, y + 7), 7
  414.     NEXT x
  416. GET (80, 150)-(180, 479), Box()
  417. PUT (80, 146), Box(), PSET
  418. SaveBUILDING 90, 24, 1
  419.  
  420. 'Modern building
  421. LINE (300, 200)-(379, 204), 6, BF
  422. LINE (300, 205)-(379, 479), 7, BF
  423. PSET (321, 195), 2
  424. DRAW "E4 R30 F4 L38 R10 BU P2,2"
  425. PSET (321, 195), 8
  426. DRAW "E4 ND4 R5 ND4 R5 ND4 R5 ND4 R5 ND4 R5 ND4 R5 ND4 F4 L38"
  427. LINE (321, 195)-(359, 199), 8, BF
  428. CIRCLE (308, 200), 6, 6, 0, 3.14
  429. PAINT STEP(0, -1), 6
  430. PSET STEP(0, -4), 8
  431. CIRCLE (372, 200), 6, 6, 0, 3.14
  432. PAINT STEP(0, -1), 6
  433. PSET STEP(0, -4), 8
  434. FOR x = 300 TO 379
  435.     FOR y = 194 TO 197
  436.         IF POINT(x, y) = 6 THEN PSET (x, y), 2
  437.     NEXT y
  439. LINE (300, 200)-(379, 204), 7, BF
  440. LINE (300, 200)-(379, 200), 8
  441. LINE (300, 205)-(379, 206), 10, B
  442. LINE (317, 184)-(317, 199), 7
  443. PSET STEP(0, -15), 8
  444. LINE (363, 184)-(363, 199), 7
  445. PSET STEP(0, -15), 8
  446. FOR y = 210 TO 440 STEP 16
  447.     LINE (300, y)-(379, y + 8), 2, BF
  448.     LINE (300, y)-(379, y + 3), 1, BF
  449.     LINE (300, y + 8)-(379, y + 8), 8
  450.     FOR x = 305 TO 379 STEP 14
  451.         LINE (x, y)-(x, y + 8), 7
  452.     NEXT x
  454. SaveBUILDING 300, 0, 2 '*************************************************
  455.  
  456. 'Hotel --------------------------------------------------------------------
  457. LINE (400, 200)-(479, 479), 3, BF
  458. LINE (420, 195)-(459, 199), 6, BF
  459. LINE (420, 195)-(459, 195), 7
  460. LINE (460, 174)-(460, 199), 7
  461. LINE (454, 176)-(464, 176), 7
  462. LINE (457, 177)-(467, 177), 7
  463. PSET (454, 176), 9
  464. LINE (410, 192)-(414, 199), 6, BF
  465. LINE (410, 192)-(414, 192), 7
  466. LINE (465, 192)-(469, 199), 6, BF
  467. LINE (465, 192)-(469, 192), 7
  468. FOR x = 421 TO 454 STEP 4
  469.     FOR y = 186 TO 193 STEP 3
  470.         LINE (x, y)-(x + 4, y + 3), 6, B
  471.     NEXT y
  473. PrintSTRING 425, 162, "HOTEL"
  474. FOR x = 425 TO 500
  475.     FOR y = 162 TO 174
  476.         IF POINT(x, y) <> 0 THEN PSET (x, y + 20), 4
  477.         PSET (x, y), 0
  478.     NEXT y
  480. GET (100, 50)-(111, 76), Box()
  481. FOR x = 404 TO 468 STEP 15
  482.     PUT (x, 215), Box(), PSET
  484. GET (100, 54)-(111, 76), Box()
  485. FOR x = 404 TO 464 STEP 15
  486.     PUT (x, 248), Box(), PSET
  487.     IF x = 419 THEN
  488.         FOR xx = x TO x + 12
  489.             FOR yy = 248 TO 267
  490.                 IF POINT(xx, yy) = 2 THEN PSET (xx, yy), 5
  491.             NEXT yy
  492.         NEXT xx
  493.     END IF
  495. FOR x = 404 TO 464 STEP 15
  496.     FOR y = 290 TO 479 STEP 32
  497.         PUT (x, y), Box(), PSET
  498.         IF FIX(RND * 12) = 2 THEN
  499.             LINE (x + 2, y + 8)-(x + 9, y + 15), 1, BF
  500.             LINE (x + 2, y + 16)-(x + 9, y + 16), 7
  501.             LINE (x + 2, y + 17)-(x + 9, y + 17), 10
  502.         END IF
  503.         IF FIX(RND * 15) = 0 THEN
  504.             FOR xx = x TO x + 12
  505.                 FOR yy = y TO y + 19
  506.                     IF POINT(xx, yy) = 2 THEN PSET (xx, yy), 5
  507.                 NEXT yy
  508.             NEXT xx
  509.         END IF
  510.     NEXT y
  512. GET (88, 84)-(93, 91), Box()
  513. FOR x = 401 TO 480 STEP 5
  514.     PUT (x, 200), Box(), PSET
  515.     PUT (x, 276), Box(), PSET
  517. LINE (480, 200)-(484, 310), 0, BF
  518. LINE (395, 200)-(399, 310), 0, BF
  519. FOR y = 202 TO 479 STEP 2
  520.     FOR x = 400 TO 480
  521.         IF POINT(x, y) = 3 THEN PSET (x, y), 1
  522.     NEXT x
  524. GET (478, 200)-(478, 210), Box()
  525. PUT (479, 200), Box(), PSET
  526. PUT (400, 200), Box(), PSET
  527. PUT (479, 276), Box(), PSET
  528. PUT (400, 276), Box(), PSET
  529. SaveBUILDING 400, 0, 3 '*************************************************
  530.  
  531. 'Buff Apartment Block -------------------------------------------------------
  532. GET (608, 44)-(619, 67), Box()
  533. GET (621, 44)-(632, 67), Box(500)
  534. LINE (500, 200)-(579, 479), 11, BF
  535. FOR x = 504 TO 574 STEP 15
  536.     FOR y = 216 TO 460 STEP 32
  537.         IF FIX(RND * 6) = 0 THEN
  538.             PUT (x, y), Box(500), PSET
  539.         ELSE
  540.             PUT (x, y), Box(), PSET
  541.         END IF
  542.         LINE (500, y + 27)-(579, y + 27), 9
  543.         LINE (500, y + 28)-(579, y + 28), 8
  544.     NEXT y
  546. LINE (500, 200)-(579, 204), 7, BF
  547. LINE (500, 200)-(579, 200), 9
  548. LINE (500, 205)-(579, 205), 10
  549. LINE (520, 189)-(559, 199), 11, BF
  550. LINE (520, 189)-(559, 192), 7, BF
  551. LINE (520, 189)-(559, 189), 9
  552. LINE (520, 193)-(559, 193), 6
  553. PSET (539, 188), 8
  554. DRAW "U16 C14 D"
  555. SaveBUILDING 500, 0, 4 '*************************************************
  556.  
  557. 'Factory --------------------------------------------------------------------
  558. LINE (0, 150)-(639, 479), 0, BF
  559. LINE (100, 200)-(179, 479), 3, BF
  560. CIRCLE (120, 220), 10, 15, , , .85
  561. CIRCLE (120, 219), 12, 15, , , .83
  562. LINE (105, 222)-(135, 240), 3, BF
  563. GET (120, 206)-(150, 230), Box()
  564. PUT (119, 206), Box(), PSET
  565. PSET (110, 217), 3
  566. PSET (129, 217), 3
  567. LINE (129, 220)-(129, 228), 15
  568. LINE (110, 220)-(110, 228), 15
  569. DRAW "R19"
  570. LINE (110, 236)-(129, 252), 15, B
  571. PSET (108, 220), 15
  572. DRAW "D34 R23 U34"
  573. PAINT (119, 220), 2, 15
  574. PAINT (119, 244), 2, 15
  575. FOR x = 100 TO 140
  576.     FOR y = 200 TO 260
  577.         IF POINT(x, y) = 15 THEN PSET (x, y), 1
  578.     NEXT y
  580. FOR x = 120 TO 140
  581.     FOR y = 216 TO 260
  582.         IF POINT(x, y) = 1 THEN PSET (x, y), 11
  583.     NEXT y
  585. LINE (111, 228)-(120, 228), 11
  586. LINE (111, 236)-(129, 236), 1
  587. LINE (111, 252)-(129, 252), 11
  588. LINE (109, 254)-(129, 254), 11
  589. LINE (124, 213)-(124, 227), 1
  590. LINE (115, 213)-(115, 227), 1
  591. LINE (111, 219)-(129, 219), 1
  592. LINE (115, 236)-(115, 251), 1
  593. LINE (124, 236)-(124, 251), 1
  594. LINE (111, 244)-(129, 244), 1
  595.  
  596. GET (120, 205)-(133, 256), Box()
  597. PUT (118, 205), Box(), PSET
  598. GET (106, 229)-(131, 253), Box()
  599. FOR y = 254 TO 450 STEP 25
  600.     PUT (106, y), Box(), PSET
  602. GET (106, 202)-(132, 470), Box()
  603. LINE (106, 202)-(132, 470), 3, BF
  604. FOR x = 102 TO 158 STEP 25
  605.     PUT (x, 202), Box(), PSET
  607. FOR y = 255 TO 455 STEP 50
  608.     LINE (100, y)-(179, y + 3), 3, BF
  609.     LINE (100, y)-(179, y), 11
  610.     LINE (100, y + 3)-(179, y + 3), 1
  612. LINE (100, 230)-(104, 234), 3, BF
  613. LINE (100, 230)-(104, 230), 11
  614. LINE (100, 234)-(104, 234), 1
  615. GET (100, 230)-(104, 234), Box()
  616. FOR x = 100 TO 175 STEP 25
  617.     FOR y = 230 TO 430 STEP 50
  618.         PUT (x, y), Box(), PSET
  619.     NEXT y
  621. LINE (120, 190)-(159, 199), 3, BF
  622. LINE (120, 190)-(159, 193), 6, BF
  623. LINE (120, 190)-(159, 190), 7
  624. LINE (120, 194)-(159, 194), 10
  625. LINE (100, 200)-(179, 204), 6, BF
  626. LINE (100, 200)-(179, 200), 7
  627. LINE (100, 205)-(179, 205), 10
  628.  
  629. FOR y = 180 TO 479 STEP 2
  630.     FOR x = 100 TO 179
  631.         IF POINT(x, y) = 3 THEN PSET (x, y), 6
  632.     NEXT x
  634.  
  635. FOR Reps = 1 TO 30
  636.     x = FIX(RND * 80) + 100
  637.     y = FIX(RND * 280) + 200
  638.     Colr = FIX(RND * 3)
  639.     SELECT CASE Colr
  640.         CASE 0: Colr = 6
  641.         CASE 1: Colr = 7
  642.         CASE 2: Colr = 8
  643.     END SELECT
  644.     FOR xx = x - 6 TO x + 6
  645.         FOR yy = y - 6 TO y + 6
  646.             IF POINT(xx, yy) = 2 THEN PSET (xx, yy), Colr
  647.         NEXT yy
  648.     NEXT xx
  649. NEXT Reps
  650. PrintSTRING 212, 184, "B-Bomb Mfg"
  651. FOR x = 204 TO 280
  652.     FOR y = 184 TO 196
  653.         IF POINT(x, y) <> 0 THEN PSET (x - 100, y), 4
  654.         PSET (x, y), 0
  655.     NEXT y
  657. FOR x = 208 TO 270 STEP 5
  658.     FOR y = 185 TO 194 STEP 3
  659.         LINE (x, y)-(x + 5, y + 4), 2, B
  660.     NEXT y
  662. FOR x = 208 TO 275
  663.     FOR y = 178 TO 200
  664.         IF POINT(x, y) <> 0 THEN
  665.             IF POINT(x - 101, y + 1) <> 4 THEN PSET (x - 101, y + 1), 6
  666.             PSET (x, y), 0
  667.         END IF
  668.     NEXT y
  670. SaveBUILDING 100, 0, 5 '*************************************************
  671.  
  672. 'Apescape building -------------------------------------------------------------
  673. LINE (200, 200)-(279, 479), 8, BF
  674. LINE (210, 180)-(269, 299), 8, BF
  675. LINE (220, 180)-(259, 180), 9
  676. LINE (207, 200)-(272, 200), 9
  677. CIRCLE (209, 209), 10, 0, 3.14159 * .5, 3.14159
  678. PAINT (201, 201), 0
  679. CIRCLE (270, 209), 10, 0, 0, 3.14159 * .5
  680. PAINT (278, 201), 0
  681. CIRCLE (219, 190), 10, 0, 3.14159 * .5, 3.14159
  682. PAINT (211, 181), 0
  683. CIRCLE (260, 190), 10, 0, 0, 3.14159 * .5
  684. PAINT (268, 181), 0
  685. FOR x = 203 TO 277 STEP 4
  686.     FOR y = 180 TO 479
  687.         IF POINT(x, y) = 8 THEN PSET (x, y), 7
  688.         IF POINT(x + 1, y) = 8 THEN PSET (x + 1, y), 7
  689.     NEXT y
  691. FOR x = 206 TO 270 STEP 10
  692.     FOR y = 220 TO 460 STEP 36
  693.         LINE (x, y)-(x + 7, y + 26), 8, BF
  694.         LINE (x + 1, y + 1)-(x + 6, y + 22), 2, BF
  695.         LINE (x + 1, y + 1)-(x + 6, y + 6), 1, BF
  696.     NEXT y
  698. LINE (239, 158)-(239, 179), 8
  699. PSET (236, 162), 4
  700. PSET (242, 162), 4
  701. FOR x = 217 TO 260 STEP 8
  702.     LINE (x, 190)-(x + 4, 198), 2, BF
  703.     LINE (x, 190)-(x + 4, 193), 1, BF
  705. PSET (200, 205), 6
  706. PSET (205, 200), 6
  707. PSET (210, 186), 6
  708. PSET (215, 181), 6
  709. PSET (219, 180), 8
  710. PSET (218, 180), 7
  711.  
  712. PSET (279, 205), 6
  713. PSET (274, 200), 6
  714. PSET (269, 186), 6
  715. PSET (264, 181), 6
  716.  
  717. PSET (260, 180), 8
  718. PSET (261, 180), 7
  719.  
  720. GET (200, 180)-(279, 214), Box()
  721. PUT (200, 176), Box(), PSET
  722. GET (200, 180)-(279, 214), Box()
  723. PUT (200, 175), Box(), PSET
  724. LINE (206, 200)-(273, 200), 9
  725. LINE (206, 193)-(206, 200), 6
  726. LINE (273, 193)-(273, 200), 6
  727. LINE (214, 175)-(265, 175), 9
  728. LINE (212, 203)-(267, 216), 8, BF
  729. LINE (212, 217)-(267, 217), 6
  730. LINE (212, 203)-(267, 203), 9
  731. PrintSTRING 217, 203, "apescape"
  732. FOR x = 217 TO 267
  733.     FOR y = 203 TO 217
  734.         IF POINT(x, y) = 15 THEN PSET (x, y), 1
  735.     NEXT y
  737. SaveBUILDING 200, 26, 6
  738.  
  739. 'Tenement building ---------------------------------------------------------
  740. LINE (200, 150)-(279, 479), 0, BF
  742. CIRCLE (220, 198), 10, 2, 0, 3.14159
  743. CIRCLE (259, 198), 10, 2, 0, 3.14159
  744. CIRCLE (220, 198), 7, 2, 0, 3.14159
  745. CIRCLE (259, 198), 7, 2, 0, 3.14159
  746. LINE (207, 198)-(210, 198), 2: DRAW "bl3D3r6u3"
  747. LINE (230, 198)-(233, 198), 2: DRAW "D3l6u3"
  748. LINE (246, 198)-(249, 198), 2: DRAW "bl3D3r6u3"
  749. LINE (269, 198)-(272, 198), 2: DRAW "D3l6u3"
  750. CIRCLE (182, 166), 35, 2, 5.3, 6
  751. CIRCLE (297, 166), 35, 2, 3.42, 4.16
  752. LINE (215, 176)-(264, 176), 2
  753. PSET (200, 195), 2
  754. DRAW "D4 R7 BR26 R12 BR27 R7 U4 l10 Bl20 l18 Bl20 l11"
  755. PAINT (240, 190), 1, 2
  756. PAINT (240, 197), 1, 2
  757. PAINT (202, 197), 1, 2
  758. PAINT (277, 197), 1, 2
  759. FOR y = 168 TO 195 STEP 2
  760.     FOR x = 200 TO 279
  761.         IF POINT(x, y) = 1 THEN PSET (x, y), 2
  762.     NEXT x
  764. PAINT (220, 190), 1, 2
  765. PAINT (259, 190), 1, 2
  766. LINE (215, 176)-(264, 176), 7
  767. CIRCLE (220, 198), 10, 7, .5, 2.64159
  768. CIRCLE (259, 198), 10, 7, .5, 2.64159
  769. PSET (200, 195), 7
  770. DRAW "bD4 bR7 BR26 bR12 bBR27 bR7 bU4 l9 Bl22 l17 Bl22 l9"
  771. FOR x = 215 TO 263 STEP 2
  772.     PSET (x, 174), 7
  773.     PSET (x, 175), 6
  775. LINE (213, 198)-(227, 198), 2
  776. PAINT (220, 197), 1, 2
  777. CIRCLE (220, 195), 1, 8
  778. LINE (215, 198)-(225, 217), 2, B
  779. LINE (216, 199)-(224, 216), 1, BF
  780. LINE (216, 199)-(224, 216), 6, B
  781. LINE (220, 199)-(220, 211), 6: DRAW "nL3nR3"
  782. PAINT (220, 215), 10, 6
  783. CIRCLE (220, 199), 7, 10, .14, 3, 1.1
  784. LINE (217, 200)-(219, 201), 10, B
  785. LINE (221, 200)-(223, 201), 10, B
  786. LINE (214, 218)-(226, 218), 7
  787. GET (210, 190)-(230, 220), Box()
  788. PUT (249, 190), Box(), PSET
  789. PSET (200, 200), 10: DRAW "R6 D2 R6 BR16 R6 U2 R11 D2 R6 BR16 R6 U2 R6"
  790. FOR x = 200 TO 279
  791.     FOR y = 200 TO 479 STEP 2
  792.         IF POINT(x, y) = 0 THEN PSET (x, y), 3
  793.         IF POINT(x, y + 1) = 0 THEN PSET (x, y + 1), 1
  794.     NEXT y
  796. LINE (236, 202)-(243, 212), 2, B
  797. PAINT (238, 210), 7, 2
  798. LINE (237, 203)-(242, 211), 6, B
  799. LINE (237, 207)-(242, 207), 6
  800. PAINT (238, 206), 3, 6
  801. PAINT (238, 208), 5, 6
  802. LINE (235, 213)-(244, 213), 7
  803. LINE (238, 204)-(241, 204), 10
  804. LINE (202, 230)-(220, 234), 10, BF
  805. LINE (218, 230)-(220, 254), 10, BF
  806. LINE (259, 230)-(279, 234), 10, BF
  807. LINE (200, 228)-(279, 229), 2, B
  808. LINE (200, 229)-(201, 254), 2, B
  809. LINE (278, 229)-(279, 254), 2, B
  810. LINE (207, 232)-(212, 242), 6, B
  811. LINE (208, 233)-(211, 233), 10
  812. LINE (200, 245)-(220, 254), 2, B
  813. PAINT (210, 235), 7, 6
  814. PAINT (210, 235), 3, 6
  815. LINE (207, 237)-(212, 237), 6
  816. PAINT (210, 238), 5, 6
  817. LINE (208, 233)-(211, 233), 10
  818. LINE (200, 244)-(220, 254), 2, B
  819. LINE (202, 244)-(220, 244), 7
  820. LINE (202, 252)-(218, 253), 10, BF
  821. FOR x = 202 TO 218 STEP 2
  822.     LINE (x, 245)-(x, 254), 2
  824. LINE (226, 232)-(236, 246), 1, BF
  825. LINE (226, 232)-(236, 246), 6, B
  826. LINE (226, 239)-(236, 239), 6
  827. LINE (225, 247)-(237, 247), 7
  828. FOR x = 200 TO 239
  829.     FOR y = 200 TO 279
  830.         PSET (479 - x, y), POINT(x, y)
  831.     NEXT y
  833. GET (200, 228)-(279, 258), Box()
  834. FOR y = 224 TO 450 STEP 32
  835.     PUT (200, y), Box(), PSET
  836.     IF FIX(RND * 12) = 0 THEN
  837.         PAINT (230, y + 6), 3, 6
  838.         PAINT (230, y + 14), 5, 6
  839.     END IF
  840.     IF FIX(RND * 2) = 0 THEN
  841.         PAINT (249, y + 6), 3, 6
  842.         PAINT (249, y + 14), 5, 6
  843.     END IF
  844.     IF FIX(RND * 5) = 0 THEN
  845.         PAINT (210, y + 8), 1, 6
  846.         PAINT (210, y + 11), 7, 6
  847.     END IF
  848.     IF FIX(RND * 2) = 0 THEN
  849.         PAINT (269, y + 8), 1, 6
  850.         PAINT (269, y + 11), 7, 6
  851.     END IF
  852.     LINE (227, y + 5)-(235, y + 5), 10
  853.     LINE (244, y + 5)-(252, y + 5), 10
  854.     LINE (268, y + 5)-(271, y + 5), 10
  855.     LINE (208, y + 5)-(211, y + 5), 10
  857. SaveBUILDING 200, 25, 7
  858.  
  859. 'Balcony Apartment ----------------------------------------------------------
  860. LINE (0, 150)-(400, 479), 0, BF
  861. GET (118, 50)-(133, 76), Box()
  862. PUT (118, 250), Box()
  863. LINE (300, 200)-(379, 479), 4, BF
  864. GET (118, 240)-(133, 260), Box()
  865. PUT (118, 246), Box(), PSET
  866. GET (118, 256)-(133, 276), Box(6000)
  867. PUT (218, 256), Box(6000)
  868. FOR x = 218 TO 233
  869.     FOR y = 256 TO 276
  870.         IF POINT(x, y) = 1 OR POINT(x, y) = 10 THEN PSET (x, y), 3
  871.         IF POINT(x, y) = 2 THEN PSET (x, y), 5
  872.     NEXT y
  874. GET (219, 257)-(232, 276), Box(5000)
  875. FOR x = 304 TO 360 STEP 18
  876.     IF x = 340 THEN x = 360
  877.     PUT (x, 212), Box(6000), PSET
  879. GET (118, 50)-(133, 76), Box()
  880. PUT (341, 212), Box(), PSET
  881. GET (340, 224)-(359, 235), Box()
  882. PUT (340, 230), Box(), PSET
  883. LINE (329, 242)-(368, 243), 9, B
  884. LINE (329, 232)-(368, 243), 8, B
  885. FOR x = 330 TO 368 STEP 2
  886.     LINE (x, 232)-(x, 242), 8
  888. LINE (300, 242)-(328, 243), 8, BF
  889. LINE (369, 242)-(379, 243), 8, BF
  890. LINE (300, 244)-(379, 244), 6
  891. FOR x = 301 TO 379 STEP 18
  892.     IF x = 355 THEN x = 357
  893.     LINE (x, 214)-(x + 3, 228), 8, BF
  894.     FOR y = 216 TO 226 STEP 2
  895.         LINE (x + 1, y)-(x + 2, y), 7
  896.     NEXT y
  898. GET (300, 212)-(379, 244), Box()
  899. FOR y = 212 TO 440 STEP 38
  900.     PUT (300, y), Box(), PSET
  902. LINE (300, 200)-(379, 204), 8, BF
  903. LINE (300, 200)-(379, 200), 9
  904. LINE (300, 205)-(379, 205), 6
  905. LINE (320, 188)-(359, 199), 11, BF
  906. LINE (319, 188)-(360, 190), 8, BF
  907. LINE (320, 191)-(359, 191), 10
  908. FOR x = 300 TO 379
  909.     FOR y = 200 TO 479
  910.         IF POINT(x, y) = 4 THEN PSET (x, y), 11
  911.     NEXT y
  913. FOR y = 188 TO 478 STEP 2
  914.     FOR x = 300 TO 379
  915.         IF POINT(x, y) = 11 THEN PSET (x, y), 3
  916.     NEXT x
  918. PSET (363, 199), 7
  919. DRAW "U24 C15 D"
  920. FOR x = 305 TO 360 STEP 18
  921.     IF x = 341 THEN x = 361
  922.     FOR y = 213 TO 440 STEP 38
  923.         IF FIX(RND * 10) = 0 THEN PUT (x, y), Box(5000), PSET
  924.         LINE (329, 232)-(368, 232), 15
  925.     NEXT y
  927. FOR y = 232 TO 470 STEP 38
  928.     LINE (329, y)-(368, y), 15
  930. SaveBUILDING 300, 0, 8
  931. LINE (0, 150)-(639, 479), 0, BF
  933.  
  934. SetPALETTE:
  935. DATA 0,4,16,0,10,21,0,16,32,32,10,0
  936. DATA 63,0,0,63,32,0,18,18,24,30,30,37
  937. DATA 42,42,50,55,55,63,0,0,0,43,27,19
  938. DATA 8,8,21,0,63,21,63,63,21,63,63,63
  939.  
  940. RESTORE SetPALETTE
  941. OUT &H3C8, 0
  942. FOR n = 1 TO 48
  943.     READ Intensity
  944.     OUT &H3C9, Intensity
  947.  
  948. WinBOXES:
  949. GET (140, 0)-(256, 18), Box()
  950. GET (376, 0)-(500, 18), Box(5000)
  951. GET (520, 0)-(580, 18), Box(10000)
  952. PUT (198, 200), Box()
  953. PUT (320, 200), Box(10000)
  954. PrintSTRING 220, 223, "To play again, press ENTER"
  955. PrintSTRING 219, 236, "Press any other key to EXIT"
  956. FOR x = 174 TO 400
  957.     FOR y = 192 TO 254
  958.         IF y > 210 THEN Colr = 8 ELSE Colr = 15
  959.         IF y > 222 THEN Colr = 9
  960.         IF POINT(x, y) = 0 THEN PSET (x, y), 1 ELSE PSET (x, y), Colr
  961.     NEXT y
  963. FOR y = 224 TO 200 STEP -1
  964.     FOR x = 174 TO 400
  965.         IF POINT(x, y - 2) <> 1 AND POINT(x, y) = 1 THEN PSET (x, y), 10
  966.     NEXT x
  968. LINE (176, 194)-(398, 252), 6, B
  969. LINE (174, 192)-(400, 254), 6, B
  970. GET (174, 192)-(400, 254), Box()
  971. LINE (170, 188)-(404, 258), 8, BF
  972. LINE (170, 188)-(404, 258), 15, B
  973. LINE (170, 258)-(404, 258), 10
  974. LINE (404, 188)-(404, 258), 10
  975. PUT (174, 192), Box(), PSET
  976. GET (170, 188)-(404, 258), Box()
  977. DEF SEG = VARSEG(Box(1))
  978. BSAVE "KongWINK.BSV", VARPTR(Box(1)), 9000
  980. LINE (177, 197)-(394, 222), 1, BF
  981. PUT (196, 200), Box(5000)
  982. PUT (324, 200), Box(10000)
  983. FOR y = 224 TO 200 STEP -1
  984.     FOR x = 190 TO 382
  985.         IF y > 210 THEN Colr = 8 ELSE Colr = 15
  986.         IF POINT(x, y - 2) <> 1 THEN PSET (x, y - 2), Colr
  987.     NEXT x
  989. FOR y = 224 TO 200 STEP -1
  990.     FOR x = 174 TO 400
  991.         IF POINT(x, y - 2) <> 1 AND POINT(x, y) = 1 THEN PSET (x, y), 10
  992.     NEXT x
  994. GET (196, 200)-(386, 220), Box()
  995. PUT (195, 200), Box(), PSET
  996. GET (170, 188)-(404, 258), Box()
  997. PUT (170, 188), Box()
  998. DEF SEG = VARSEG(Box(1))
  999. BSAVE "KongWINY.BSV", VARPTR(Box(1)), 9000
  1002.  
  1003. Instructions:
  1004. LINE (192, 160)-(447, 310), 8, BF
  1005. LINE (192, 160)-(447, 310), 15, B
  1006. LINE (192, 310)-(447, 310), 10
  1007. LINE (447, 160)-(447, 310), 10
  1008. LINE (202, 164)-(436, 305), 1, BF
  1009. LINE (202, 164)-(436, 305), 6, B
  1010. LINE (204, 166)-(434, 303), 6, B
  1011. LINE (400, 175)-(424, 187), 7, BF
  1012. PrintSTRING 216, 176, "INSTRUCTIONS"
  1013. PrintSTRING 216, 194, "The object of the game is to be the first"
  1014. PrintSTRING 216, 206, "player to achieve a score of 3. You gain"
  1015. PrintSTRING 216, 218, "1"
  1016. PrintSTRING 225, 218, "point each time you blow up the other"
  1017. PrintSTRING 216, 230, "player's gorilla with an exploding banana."
  1018. PrintSTRING 216, 248, "Unless playing the computer, begin by"
  1019. PrintSTRING 216, 260, "deciding which player will control which"
  1020. PrintSTRING 216, 272, "gorilla, then click the"
  1021. PrintSTRING 340, 272, "button to begin."
  1022. PrintSTRING 216, 284, "The starting gorilla is chosen at random."
  1023. FOR x = 207 TO 431
  1024.     FOR y = 167 TO 295
  1025.         IF y < 194 THEN Colr = 9 ELSE Colr = 8
  1026.         IF y < 181 THEN Colr = 15
  1027.         IF POINT(x, y) <> 1 THEN PSET (x, y), Colr
  1028.     NEXT y
  1030. HighLIGHT 354, 206, 362, 217, 9
  1031. HighLIGHT 216, 218, 222, 229, 9
  1032. PSET (404, 184), 6
  1033. DRAW "U6 R12 U2 F5 G5 U2 L12 BE2 P6,6"
  1034. LINE (321, 275)-(332, 281), 8, BF
  1035. LINE (321, 282)-(332, 282), 10
  1036. LINE (323, 278)-(330, 278), 1: DRAW "NH2G2"
  1037. SaveINSTR "KongINS1.BSV"
  1038. LINE (205, 193)-(433, 295), 1, BF
  1039. PrintSTRING 216, 194, "When a player's gorilla is the thrower,"
  1040. PrintSTRING 216, 206, "the LED will be green under his name (and"
  1041. PrintSTRING 216, 218, "he'll be holding a banana). Click on the"
  1042. PrintSTRING 216, 230, "Angle slider and drag it to adjust the initial"
  1043. PrintSTRING 216, 242, "throwing angle (0 degrees is a horizontal"
  1044. PrintSTRING 216, 254, "throw in the other gorilla's direction). Set"
  1045. PrintSTRING 216, 266, "the Force slider in the same way. To toss"
  1046. PrintSTRING 216, 278, "the banana, click the Banana button"
  1047. PrintSTRING 410, 278, "."
  1048. HighLIGHT 216, 194, 434, 295, 8
  1049. HighLIGHT 234, 206, 254, 217, 9
  1050. HighLIGHT 216, 230, 244, 241, 9
  1051. HighLIGHT 236, 266, 264, 277, 9
  1052. HighLIGHT 322, 278, 360, 299, 9
  1053. LINE (204, 166)-(434, 303), 6, B
  1054. GET (99, 80)-(109, 90), Box()
  1055. PUT (397, 279), Box(), PSET
  1056. SaveINSTR "KongINS2.BSV"
  1057. LINE (205, 193)-(433, 295), 1, BF
  1058. PrintSTRING 216, 194, "Be sure to check the Wind arrow (bottom"
  1059. PrintSTRING 216, 206, "center of the screen). The arrow shows both"
  1060. PrintSTRING 216, 218, "the direction and strength of the wind (the"
  1061. PrintSTRING 216, 230, "longer the arrow, the stronger the wind). A"
  1062. PrintSTRING 216, 242, "strong opposing wind can actually blow the"
  1063. PrintSTRING 216, 254, "banana backwards if the Force of the toss"
  1064. PrintSTRING 216, 266, "isn't strong enough!"
  1065. PrintSTRING 348, 282, "Good Luck!"
  1066. HighLIGHT 216, 194, 434, 295, 8
  1067. HighLIGHT 320, 194, 348, 205, 9
  1068. HighLIGHT 348, 282, 420, 294, 15
  1069. LINE (400, 175)-(424, 187), 15, BF
  1070. LINE (400, 182)-(424, 187), 9, BF
  1071. PSET (406, 177), 4
  1072. DRAW "F8rH8rF8rH8rF8 BU8 G8lE8lG8lE8lG8"
  1073. FOR x = 400 TO 424
  1074.     FOR y = 175 TO 187
  1075.         IF POINT(x, y) <> 15 AND POINT(x, y) <> 9 THEN PSET (x, y), 6
  1076.     NEXT y
  1078. LINE (204, 166)-(434, 303), 6, B
  1079. SaveINSTR "KongINS3.BSV"
  1080. PUT (192, 160), Box()
  1081. LINE (180, 194)-(400, 270), 7, BF
  1082. LINE (180, 194)-(400, 270), 9, B
  1083. LINE (180, 270)-(400, 270), 6
  1084. LINE (400, 194)-(400, 270), 6
  1085. LINE (194, 198)-(384, 266), 1, BF
  1086. LINE (196, 200)-(382, 264), 6, B
  1087. PrintSTRING 238, 208, "Click Your Preference"
  1088. PrintSTRING 252, 227, "2 players"
  1089. PrintSTRING 252, 243, "1 player (play computer)"
  1090. HighLIGHT 238, 208, 380, 255, 9
  1091. HighLIGHT 238, 208, 380, 214, 15
  1092. LINE (215, 227)-(241, 239), 10, B
  1093. LINE (216, 228)-(240, 238), 8, BF
  1094. LINE (216, 228)-(240, 238), 15, B
  1095. LINE (240, 228)-(240, 238), 6
  1096. LINE (216, 238)-(240, 238), 6
  1097. LINE (215, 243)-(241, 255), 10, B
  1098. LINE (216, 244)-(240, 254), 8, BF
  1099. LINE (216, 244)-(240, 254), 15, B
  1100. LINE (240, 244)-(240, 254), 6
  1101. LINE (216, 254)-(240, 254), 6
  1102. GET (180, 194)-(400, 270), Box()
  1103. PUT (180, 194), Box()
  1104. DEF SEG = VARSEG(Box(1))
  1105. BSAVE "Kong1PL2.BSV", VARPTR(Box(1)), 8800
  1107. LINE (180, 194)-(400, 270), 7, BF
  1108. LINE (180, 194)-(400, 270), 9, B
  1109. LINE (180, 270)-(400, 270), 6
  1110. LINE (400, 194)-(400, 270), 6
  1111. LINE (194, 198)-(384, 266), 1, BF
  1112. LINE (196, 200)-(382, 264), 6, B
  1113. PrintSTRING 256, 207, "Your gorilla is"
  1114. PrintSTRING 236, 243, "Click to begin"
  1115. HighLIGHT 233, 207, 380, 257, 9
  1116. FOR x = 138 TO 256
  1117.     FOR y = 0 TO 20
  1118.         IF y > 9 THEN Colr = 8 ELSE Colr = 15
  1119.         IF POINT(x, y) <> 0 THEN
  1120.             PSET (x + 92, y + 223), 10
  1121.             PSET (x + 92, y + 221), Colr
  1122.         END IF
  1123.     NEXT y
  1125. LINE (311, 244)-(337, 253), 10, B
  1126. LINE (312, 245)-(336, 255), 8, BF
  1127. LINE (312, 245)-(336, 255), 15, B
  1128. LINE (336, 245)-(336, 255), 6
  1129. LINE (312, 255)-(336, 255), 6
  1130. PSET (318, 249), 1
  1131. DRAW "R9 U2 F3 G3 U2 L9 U2 BF P1,1"
  1132. GET (180, 194)-(400, 270), Box()
  1133. PUT (180, 194), Box()
  1134. DEF SEG = VARSEG(Box(1))
  1135. BSAVE "Kong1PLR.BSV", VARPTR(Box(1)), 8800
  1137. LINE (180, 194)-(400, 270), 7, BF
  1138. LINE (180, 194)-(400, 270), 9, B
  1139. LINE (180, 270)-(400, 270), 6
  1140. LINE (400, 194)-(400, 270), 6
  1141. LINE (194, 198)-(384, 266), 1, BF
  1142. LINE (196, 200)-(382, 264), 6, B
  1143. PrintSTRING 234, 214, "Decide who will control"
  1144. PrintSTRING 234, 226, "which gorilla and then..."
  1145. PrintSTRING 236, 243, "Click to begin"
  1146. HighLIGHT 225, 212, 380, 257, 9
  1147. LINE (311, 244)-(337, 253), 10, B
  1148. LINE (312, 245)-(336, 255), 8, BF
  1149. LINE (312, 245)-(336, 255), 15, B
  1150. LINE (336, 245)-(336, 255), 6
  1151. LINE (312, 255)-(336, 255), 6
  1152. PSET (318, 249), 1
  1153. DRAW "R9 U2 F3 G3 U2 L9 U2 BF P1,1"
  1154. GET (180, 194)-(400, 270), Box()
  1155. PUT (180, 194), Box()
  1156. DEF SEG = VARSEG(Box(1))
  1157. BSAVE "KongOPEN.BSV", VARPTR(Box(1)), 8800
  1160.  
  1161. SUB HighLIGHT (x1, y1, x2, y2, Colr)
  1162.     FOR x = x1 TO x2
  1163.         FOR y = y1 TO y2
  1164.             IF POINT(x, y) <> 1 THEN PSET (x, y), Colr
  1165.         NEXT y
  1166.     NEXT x
  1168.  
  1169. SUB PrintSTRING (x, y, Prnt$)
  1170.  
  1171.     DEF SEG = VARSEG(FontBOX(0))
  1172.     BLOAD "Kong.FBS", VARPTR(FontBOX(0))
  1173.     DEF SEG
  1174.  
  1175.     FOR i = 1 TO LEN(Prnt$)
  1176.         Char$ = MID$(Prnt$, i, 1)
  1177.         IF Char$ = " " THEN
  1178.             x = x + FontBOX(1)
  1179.         ELSE
  1180.             Index = (ASC(Char$) - 33) * FontBOX(0) + 2
  1181.  
  1182.             PUT (x, y), FontBOX(Index)
  1183.             x = x + FontBOX(Index)
  1184.         END IF
  1185.     NEXT i
  1186.  
  1188.  
  1189. SUB SaveBUILDING (x, UpSET, Building)
  1190.  
  1191.     Box(1) = UpSET
  1192.     LINE (x, 155)-(x, 479), 0
  1193.     LINE (x + 79, 155)-(x + 79, 479), 0
  1194.     GET (x, 155)-(x + 79, 199), Box(2)
  1195.     FOR xx = x TO x + 79
  1196.         FOR yy = 155 TO 199
  1197.             IF POINT(xx, yy) = 0 THEN PSET (xx, yy), 15 ELSE PSET (xx, yy), 0
  1198.         NEXT yy
  1199.     NEXT xx
  1200.     GET (x, 155)-(x + 79, 199), Box(1000)
  1201.     GET (x, 200)-(x + 79, 479), Box(2000)
  1202.     FileNAME$ = "KongBLD" + LTRIM$(STR$(Building)) + ".BSV"
  1203.     DEF SEG = VARSEG(Box(1))
  1204.     BSAVE FileNAME$, VARPTR(Box(1)), 16000
  1205.     DEF SEG
  1206.  
  1208.  
  1209. SUB SaveINSTR (FileNAME$)
  1210.     GET (192, 160)-(447, 310), Box()
  1211.     DEF SEG = VARSEG(Box(1))
  1212.     BSAVE FileNAME$, VARPTR(Box(1)), 20000
  1213.     DEF SEG
  1215.  

Instruction to use:
1. save the 3 files into the same folder
2. load K2.BAS into QB64ide and press F11 (make only EXE)
3. load K1_TheBob.bas into QB64ide and press F5 (run)
4. load Kong.Bas into QB64ide and press F5(run) to play game

if you like to run it into fullscreen please add this line at top of Kong.BAS
Code: QB64: [Select]


feel fre to enjoy yourself!
* Kong.bas (Filesize: 36.21 KB, Downloads: 97)
* K1_theBob.bas (Filesize: 52.91 KB, Downloads: 110)
* k2.bas (Filesize: 34.75 KB, Downloads: 109)
Logged
Programming isn't difficult, only it's  consuming time and coffee

Offline qb4ever

  • Newbie
  • Posts: 40
  • LOCATE 15,15: COLOR 14: PRINT "Hello World!"
    • View Profile
Re: Knight VS Castle
« Reply #21 on: March 08, 2019, 05:42:36 am »
Thanks TempodiBasic.

Are you italian ?
Which region are you from ?

A presto, ciao.
Logged

Offline TempodiBasic

  • Forum Resident
  • Posts: 1792
    • View Profile
Re: Knight VS Castle
« Reply #22 on: March 08, 2019, 06:38:39 pm »
Hi guys
I must remark that the game is also into folder of TheBob at path \programs\samples\thebob\Kong

but the translation is here above posted by me  :-)
until QB64 will not become compatible with Call Absolute with INT calls in hexs

@qb4ever

yes I think to be italian until the lega'll not build the wall along the Rubicone... :-)

I was born and I live in Nocera Inferiore (Salerno)
this is my location on Google map
https://www.qb64.org/forum/index.php?topic=550.msg4458#msg4458

and you?

Sai per me la programmazione è affascinante e divertente. Forse perchè non la vivo come lavoro, infatti sono hobbista.
Logged
Programming isn't difficult, only it's  consuming time and coffee

Offline qb4ever

  • Newbie
  • Posts: 40
  • LOCATE 15,15: COLOR 14: PRINT "Hello World!"
    • View Profile
Re: Knight VS Castle
« Reply #23 on: March 09, 2019, 08:59:49 am »
Quote from: TempodiBasic on March 08, 2019, 06:38:39 pm
Hi guys
I must remark that the game is also into folder of TheBob at path \programs\samples\thebob\Kong

but the translation is here above posted by me  :-)
until QB64 will not become compatible with Call Absolute with INT calls in hexs

@qb4ever

yes I think to be italian until the lega'll not build the wall along the Rubicone... :-)

I was born and I live in Nocera Inferiore (Salerno)
this is my location on Google map
https://www.qb64.org/forum/index.php?topic=550.msg4458#msg4458

and you?

Sai per me la programmazione è affascinante e divertente. Forse perchè non la vivo come lavoro, infatti sono hobbista.

Hi TempodiBasic, I was born and living in Rome.

Anche per me la programmazione non è un lavoro, ma una ricordo della fine degli anni 80 e inizio dei 90, quando provavo a scrivere un po di codice e fare dei videogiochi per gli amici (quei pochi che allora avevano un PC).
Loro, meri utilizzatori dei loro 286 e 386, non avevano alcuna idea di come facessi a programmare platform o simili :D
Ho riscoperto 4 / 5 mesi fa il QB64, ma, come vedrai, scrivo ancora praticamente in GWBasic o QB45.
Appena avrò tempo, proverò a studiare i nuovi comandi.

Ciao.
Logged

Offline TempodiBasic

  • Forum Resident
  • Posts: 1792
    • View Profile
Re: Knight VS Castle
« Reply #24 on: March 10, 2019, 01:25:17 pm »
Beh mi hai ricordato che ho conosciuto il Qbasic grazie/per sfida ai miei amici tecnici che erano del campo e affermavano che il Basic era solo con i numeri di riga, i GOTO e le variabili ad una lettera. No quickbasic No turbobasic :-)
 
Logged
Programming isn't difficult, only it's  consuming time and coffee
Pages: 1 [2]   Go Up
« previous next »