home *** CD-ROM | disk | FTP | other *** search
/ Zodiac Super OZ / MEDIADEPOT.ISO / FILES / 13 / N_B_V203.ZIP / DASLOGO.DMO < prev    next >
Text File  |  1996-07-04  |  22KB  |  315 lines
  1. $if 0
  2.     ┌──────────────────────────╖                        PowerBASIC v3.20
  3.  ┌──┤          DASoft          ╟──────────────────────┬──────────────────╖
  4.  │  ├──────────────────────────╢    Copyright 1995    │ DATE: 1995-10-01 ╟─╖
  5.  │  │ FILE NAME   DASLOGO .DMO ║          by          ╘════════════════─ ║ ║
  6.  │  │                          ║  Don Schullian, Jr.                     ║ ║
  7.  │  ╘══════════════════════════╝                                         ║ ║
  8.  │ A license is hereby granted to the holder to use this source code in  ║ ║
  9.  │ any program, commercial or otherwise,  without receiving the express  ║ ║
  10.  │ permission of the copyright holder and without paying any royalties,  ║ ║
  11.  │ as long as this code is not distributed in any compilable format.     ║ ║
  12.  │  IE: source code files, PowerBASIC Unit files, and printed listings   ║ ║
  13.  ╘═╤═════════════════════════════════════════════════════════════════════╝ ║
  14.    │                ....................................                   ║
  15.    ╘═══════════════════════════════════════════════════════════════════════╝
  16. $endif
  17.  
  18. '.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
  19. ' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
  20.  
  21. $INCLUDE "DAS-NB01.INC"
  22. $INCLUDE "DAS-NBT1.INC"
  23.  
  24. TBoxFILL 1, 1, 25, 80, 88, 112     ' PUT SOME STUFF ON THE SCREEN
  25. DELAY 2                            ' PAUSE FOR EFFECT
  26. DASoftLOGO 0                       ' DO IT!
  27.  
  28. ' ───────────────────────────────────────────────────────────────────────────
  29.  
  30. SUB DASoftLOGO ( BYVAL Pause! ) LOCAL PUBLIC
  31.   LOCAL C?, D?(), I%, R?, S?(), T$(), X%
  32.  
  33.   RESTORE DASoftDATA                          '┌─────────────────────────────
  34.   COLOR 7,0,0                                 '│
  35.   DIM D?(191), S?(3999), T$(3)                '│
  36.   DACreadArr D?(0), 64                        '│ hold original DAC settings
  37.   Fade2Arr S?(0), 64                          '│ fade out!
  38.   DELAY .5                                    '│
  39.   FOR X% = 0 TO 3999 : READ S?(X%) : NEXT     '│ get the screen data
  40.   QcopyArr S?(0), BYVAL &hB8000000, 4000      '│ B800:0000 or Apage 0
  41.   Fade2Arr D?(0), 64                          '│ fade in
  42.   '────────────────────────────────────────────┤
  43.   T$(3) = "    +    "                         '│ little   ┐ English lesson
  44.   T$(2) = "   ─┼─   "                         '│ big      │
  45.   T$(1) = " │ ─┼─ │ "                         '│ bigger   │
  46.   T$(0) = " ║ ═╬═ ║ "                         '│ biggest  ┘
  47.   PLAY "MBN79"                                '│ twinkle noise
  48.   C? = 51                                     '│ 1st star column
  49.   FOR R? = 2 TO 17 STEP 15                    '│ 2 stars ( R? = row )
  50.     FOR I% = -3 TO 3                          '│ 8 reps for each star
  51.       SetDelay 36                             '│ timing
  52.       X% = ABS( I% )                          '│
  53.       TprintTEXT R?,C?,3,3,T$(X%),0,0,0,15    '│
  54.       EndDelay                                '│
  55.       IF I% = 0 THEN Mdelay 120               '│ pause at 1/2 way mark
  56.     NEXT                                      '│
  57.     Tprint R?+1, C?+1, " ", 0                 '│ clean off "+"
  58.     IF R? = 17 THEN EXIT FOR                  '│
  59.     C? = 72 : Mdelay 200 : PLAY "N82"         '│ new col, pause, make noise
  60.   NEXT                                        '│
  61.   IF Pause! > 0 THEN DELAY Pause!             '│ requested pause
  62.   ' ───────────────────────────────────────────┴─────────────────────────────
  63.   DASoftDATA:
  64.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  65.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  66.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  67.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  68.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  69.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  70.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  71.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  72.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  73.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  74.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  75.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  76.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  77.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  78.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  79.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  80.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  81.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  82.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  83.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  84.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  85.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  86.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  87.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  88.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  89.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  90.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  91.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  92.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  93.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  94.     DATA 032,015,032,015,032,015,176,009,176,009,176,009,176,009,176,009
  95.     DATA 221,009,176,009,176,009,176,009,176,009,176,009,176,009,221,009
  96.     DATA 196,011,191,011,032,015,032,015,032,015,032,015,032,015,032,015
  97.     DATA 176,009,176,009,176,009,176,009,176,009,221,009,196,011,191,011
  98.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,176,009,176,009
  99.     DATA 176,009,176,009,176,009,176,009,176,009,176,009,176,009,176,009
  100.     DATA 221,009,191,011,032,015,032,015,032,015,032,015,032,015,032,015
  101.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  102.     DATA 176,009,176,009,176,009,176,009,221,009,191,011,032,015,032,015
  103.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  104.     DATA 032,015,032,015,032,015,192,011,196,011,176,009,176,009,176,009
  105.     DATA 221,009,191,011,192,011,196,011,196,011,176,009,176,009,176,009
  106.     DATA 221,009,192,011,191,011,032,015,032,015,032,015,032,015,176,009
  107.     DATA 176,009,176,009,221,009,176,009,176,009,176,009,221,009,192,011
  108.     DATA 191,011,032,015,032,015,032,015,032,015,176,009,176,009,176,009
  109.     DATA 221,009,218,011,196,011,196,011,196,011,196,011,176,009,176,009
  110.     DATA 176,009,221,009,191,011,032,015,032,015,032,015,032,015,032,015
  111.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,176,009
  112.     DATA 176,009,176,009,221,009,176,009,176,009,221,009,191,011,176,009
  113.     DATA 221,009,191,011,032,015,032,015,032,015,032,015,032,015,032,015
  114.     DATA 032,015,032,015,032,015,032,015,032,015,177,009,177,009,177,009
  115.     DATA 221,009,179,011,032,015,032,015,032,015,032,015,177,009,177,009
  116.     DATA 177,009,221,009,179,011,032,015,032,015,032,015,177,009,177,009
  117.     DATA 177,009,221,009,218,011,032,015,177,009,177,009,177,009,221,009
  118.     DATA 179,011,032,015,032,015,032,015,177,009,177,009,177,009,221,009
  119.     DATA 218,011,217,011,032,015,032,015,032,015,032,015,032,015,192,011
  120.     DATA 196,011,196,011,217,011,032,015,032,015,032,015,032,015,032,015
  121.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,177,009
  122.     DATA 177,009,221,009,179,011,192,011,196,011,196,011,217,011,177,009
  123.     DATA 177,009,221,009,191,011,032,015,032,015,032,015,032,015,032,015
  124.     DATA 032,015,032,015,032,015,032,015,032,015,177,009,177,009,177,009
  125.     DATA 221,009,179,011,032,015,032,015,032,015,032,015,177,009,177,009
  126.     DATA 177,009,221,009,179,011,032,015,032,015,032,015,177,009,177,009
  127.     DATA 177,009,221,009,179,011,032,015,177,009,177,009,177,009,221,009
  128.     DATA 192,011,191,011,032,015,032,015,192,011,177,009,177,009,177,009
  129.     DATA 221,009,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  130.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  131.     DATA 032,015,032,015,032,015,032,015,032,015,177,009,177,009,177,009
  132.     DATA 177,009,177,009,221,009,191,011,032,015,177,009,177,009,177,009
  133.     DATA 177,009,177,009,221,009,191,011,032,015,032,015,032,015,032,015
  134.     DATA 032,015,032,015,032,015,032,015,032,015,176,025,176,025,176,025
  135.     DATA 221,009,179,011,032,015,032,015,032,015,032,015,176,025,176,025
  136.     DATA 176,025,221,009,179,011,032,015,032,015,176,025,176,025,176,025
  137.     DATA 221,009,218,011,217,011,032,015,032,015,176,025,176,025,176,025
  138.     DATA 221,009,179,011,032,015,032,015,032,015,192,011,176,025,176,025
  139.     DATA 176,025,176,025,176,025,176,025,176,025,176,025,176,025,176,025
  140.     DATA 221,009,191,011,032,015,032,015,032,015,032,015,176,025,176,025
  141.     DATA 176,025,176,025,221,009,191,011,032,015,192,011,196,011,176,025
  142.     DATA 176,025,221,009,218,011,217,011,032,015,192,011,196,011,176,025
  143.     DATA 176,025,221,009,218,011,217,011,032,015,032,015,032,015,032,015
  144.     DATA 032,015,032,015,032,015,032,015,032,015,176,025,176,025,176,025
  145.     DATA 221,009,179,011,032,015,032,015,032,015,032,015,176,025,176,025
  146.     DATA 176,025,221,009,179,011,032,015,032,015,176,025,176,025,176,025
  147.     DATA 176,025,176,025,176,025,176,025,176,025,176,025,176,025,176,025
  148.     DATA 221,009,192,011,191,011,032,015,032,015,032,015,192,011,196,011
  149.     DATA 196,011,196,011,196,011,196,011,196,011,191,011,176,025,176,025
  150.     DATA 176,025,221,009,191,011,032,015,032,015,176,025,176,025,221,009
  151.     DATA 218,011,176,025,176,025,221,009,191,011,032,015,032,015,176,025
  152.     DATA 176,025,221,009,179,011,032,015,032,015,032,015,032,015,176,025
  153.     DATA 176,025,221,009,179,011,032,015,032,015,032,015,032,015,032,015
  154.     DATA 032,015,032,015,032,015,032,015,032,015,177,025,177,025,177,025
  155.     DATA 221,009,179,011,032,015,032,015,032,015,032,015,177,025,177,025
  156.     DATA 177,025,221,009,179,011,032,015,177,025,177,025,177,025,221,009
  157.     DATA 218,011,196,011,196,011,196,011,196,011,196,011,177,025,177,025
  158.     DATA 177,025,221,009,179,011,032,015,032,015,032,015,032,015,032,015
  159.     DATA 032,015,032,015,032,015,032,015,032,015,192,011,032,015,177,025
  160.     DATA 177,025,177,025,221,009,191,011,032,015,177,025,177,025,221,009
  161.     DATA 179,011,177,025,177,025,221,009,179,011,032,015,032,015,177,025
  162.     DATA 177,025,221,009,179,011,032,015,032,015,032,015,032,015,177,025
  163.     DATA 177,025,221,009,179,011,032,015,032,015,032,015,032,015,032,015
  164.     DATA 032,015,032,015,032,015,032,015,032,015,177,025,177,025,177,025
  165.     DATA 221,009,179,011,032,015,032,015,032,015,177,025,177,025,177,025
  166.     DATA 221,009,218,011,217,011,032,015,177,025,177,025,177,025,221,009
  167.     DATA 179,011,032,015,032,015,032,015,032,015,032,015,177,025,177,025
  168.     DATA 177,025,221,009,179,011,032,015,032,015,177,025,177,025,177,025
  169.     DATA 221,009,032,015,032,015,032,015,032,015,032,015,177,025,177,025
  170.     DATA 177,025,221,009,218,011,217,011,032,015,177,025,177,025,221,009
  171.     DATA 179,011,177,025,177,025,221,009,179,011,032,015,032,015,177,025
  172.     DATA 177,025,221,009,179,011,032,015,032,015,032,015,032,015,177,025
  173.     DATA 177,025,221,009,177,025,177,025,221,009,191,011,032,015,032,015
  174.     DATA 032,015,032,015,032,015,177,025,177,025,177,025,177,025,177,025
  175.     DATA 221,009,177,025,177,025,177,025,177,025,177,025,177,025,221,009
  176.     DATA 218,011,217,011,032,015,177,025,177,025,177,025,177,025,177,025
  177.     DATA 221,009,191,011,032,015,032,015,032,015,177,025,177,025,177,025
  178.     DATA 177,025,177,025,221,009,191,011,032,015,192,011,177,025,177,025
  179.     DATA 177,025,177,025,177,025,177,025,177,025,177,025,177,025,177,025
  180.     DATA 221,009,218,011,217,011,032,015,032,015,192,011,177,025,177,025
  181.     DATA 177,025,177,025,221,009,218,011,217,011,032,015,032,015,177,025
  182.     DATA 177,025,221,009,179,011,032,015,032,015,032,015,032,015,032,015
  183.     DATA 177,025,177,025,177,025,221,009,218,011,217,011,032,015,032,015
  184.     DATA 032,015,032,015,032,015,192,011,196,011,196,011,196,011,196,011
  185.     DATA 217,011,032,015,192,011,196,011,196,011,196,011,196,011,196,011
  186.     DATA 217,011,032,015,032,015,192,011,196,011,196,011,196,011,196,011
  187.     DATA 196,011,217,011,032,015,032,015,032,015,192,011,196,011,196,011
  188.     DATA 196,011,196,011,196,011,217,011,032,015,032,015,192,011,196,011
  189.     DATA 196,011,196,011,196,011,196,011,196,011,196,011,196,011,196,011
  190.     DATA 196,011,217,011,032,015,032,015,032,015,032,015,192,011,196,011
  191.     DATA 196,011,196,011,196,011,217,011,032,015,032,015,032,015,192,011
  192.     DATA 196,011,196,011,217,011,032,015,032,015,032,015,032,015,032,015
  193.     DATA 192,011,196,011,196,011,196,011,217,011,032,015,032,015,032,015
  194.     DATA 032,015,032,015,032,015,032,015,220,012,219,012,223,012,220,012
  195.     DATA 219,012,223,012,220,012,219,012,223,012,220,012,219,012,223,012
  196.     DATA 220,012,219,012,223,012,220,012,219,012,223,012,220,012,219,012
  197.     DATA 223,012,220,012,219,012,223,012,220,012,219,012,223,012,220,012
  198.     DATA 219,012,223,012,220,012,219,012,223,012,220,012,219,012,223,012
  199.     DATA 220,012,219,012,223,012,220,012,219,012,223,012,220,012,219,012
  200.     DATA 223,012,220,012,219,012,223,012,220,012,219,012,223,012,220,012
  201.     DATA 219,012,223,012,220,012,219,012,223,012,220,012,219,012,223,012
  202.     DATA 220,012,219,012,223,012,220,012,219,012,223,012,220,012,219,012
  203.     DATA 223,012,220,012,219,012,223,012,032,015,191,011,032,015,032,015
  204.     DATA 032,015,032,015,032,015,032,015,032,015,196,011,196,011,196,011
  205.     DATA 196,011,196,011,196,011,196,011,196,011,196,011,196,011,196,011
  206.     DATA 196,011,196,011,196,011,196,011,196,011,196,011,196,011,196,011
  207.     DATA 196,011,196,011,196,011,196,011,196,011,196,011,196,011,196,011
  208.     DATA 196,011,196,011,196,011,196,011,196,011,196,011,196,011,196,011
  209.     DATA 196,011,196,011,196,011,196,011,196,011,196,011,196,011,196,011
  210.     DATA 196,011,196,011,196,011,196,011,196,011,196,011,196,011,196,011
  211.     DATA 196,011,196,011,196,011,196,011,196,011,196,011,196,011,196,011
  212.     DATA 196,011,196,011,196,011,196,011,196,011,196,011,196,011,196,011
  213.     DATA 196,011,196,011,196,011,196,011,196,011,217,011,032,015,032,015
  214.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  215.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  216.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  217.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  218.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  219.     DATA 032,015,032,015,032,015,097,011,110,011,032,015,111,011,114,011
  220.     DATA 105,011,103,011,105,011,110,011,097,011,108,011,032,015,112,011
  221.     DATA 114,011,111,011,103,011,114,011,097,011,109,011,032,015,098,011
  222.     DATA 121,011,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  223.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  224.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  225.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  226.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  227.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  228.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  229.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  230.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  231.     DATA 032,015,032,015,100,011,111,011,110,011,032,015,115,011,099,011
  232.     DATA 104,011,117,011,108,011,108,011,105,011,097,011,110,011,032,015
  233.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  234.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  235.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  236.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  237.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  238.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  239.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  240.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  241.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  242.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  243.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  244.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  245.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  246.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  247.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  248.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  249.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  250.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  251.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  252.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  253.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  254.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  255.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  256.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  257.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  258.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  259.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  260.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  261.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  262.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  263.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  264.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  265.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  266.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  267.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  268.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  269.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  270.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  271.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  272.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  273.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  274.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  275.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  276.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  277.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  278.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  279.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  280.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  281.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  282.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  283.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  284.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  285.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  286.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  287.     DATA 032,015,032,015,032,015,196,014,196,014,196,014,196,014,196,014
  288.     DATA 196,014,196,014,196,014,196,014,196,014,196,014,196,014,196,014
  289.     DATA 196,014,196,014,196,014,196,014,196,014,196,014,196,014,196,014
  290.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  291.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  292.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  293.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  294.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  295.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  296.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  297.     DATA 032,015,032,015,032,015,032,015,032,015,111,010,110,010,101,010
  298.     DATA 032,015,109,010,111,010,109,010,101,010,110,010,116,010,044,010
  299.     DATA 032,015,112,010,108,010,101,010,097,010,115,010,101,010,046,010
  300.     DATA 046,010,046,010,032,015,032,015,032,015,032,015,032,015,032,015
  301.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  302.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  303.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  304.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  305.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  306.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  307.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,196,014
  308.     DATA 196,014,196,014,196,014,196,014,196,014,196,014,196,014,196,014
  309.     DATA 196,014,196,014,196,014,196,014,196,014,196,014,196,014,196,014
  310.     DATA 196,014,196,014,196,014,196,014,032,015,032,015,032,015,032,015
  311.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  312.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  313.     DATA 032,015,032,015,032,015,032,015,032,015,032,015,032,015,032,015
  314.  
  315. END SUB