home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / fish / disks / d1096.lha / Programs / CloudsAGA / Source / No!.MOD < prev    next >
Encoding:
Text File  |  1994-07-18  |  1.5 KB  |  29 lines
  1. MODULE No; (* $CodeChip+ $DataChip+ *)
  2.  
  3. CONST NoSize * = 370; (* 73 x 37 x 1 *)
  4.  
  5. TYPE IntArray185 = ARRAY 185 OF INTEGER;
  6.  
  7. CONST NoData * = IntArray185(
  8.   00000U,0000FU,0FFF8U,00000U,00000U, 00000U,003F0U,03FFFU,0E000U,00000U,
  9.   00000U,03C03U,0FFFFU,0FE00U,00000U, 00001U,0C00FU,0FFFFU,0FFC0U,00000U,
  10.   00006U,0003FU,0FFFFU,0FFF0U,00000U, 00018U,0007FU,0FFFFU,0FFFCU,00000U,
  11.   00060U,000FFU,0FFFFU,0FFFFU,00000U, 00180U,000FFU,0E0FFU,0FFFFU,0C000U,
  12.   00200U,001FFU,0C07FU,0FFFFU,0E000U, 00400U,001FFU,0803FU,0FFFFU,0F000U,
  13.   00800U,001FFU,0C07FU,0FFFFU,0F800U, 01000U,000FFU,0E0FFU,0FFFFU,0FC00U,
  14.   02000U,000FFU,0FFFFU,0FFFFU,0FE00U, 04000U,0007FU,0FFFFU,0FFFFU,0FF00U,
  15.   04000U,0003FU,0FFFFU,0FFFFU,0FF00U, 04000U,0000FU,0FFFFU,0FFFFU,0FF00U,
  16.   08000U,00003U,0FFFFU,0FFFFU,0FF80U, 08000U,00000U,03FFFU,0FFFFU,0FF80U,
  17.   08000U,00000U,0007FU,0FFFFU,0FF80U, 08000U,00000U,00007U,0FFFFU,0FF80U,
  18.   08000U,00000U,00001U,0FFFFU,0FF80U, 04000U,00000U,00000U,07FFFU,0FF00U,
  19.   04000U,00000U,00000U,03FFFU,0FF00U, 04000U,00000U,00000U,01FFFU,0FF00U,
  20.   02000U,00000U,00000U,01FFFU,0FE00U, 01000U,00000U,01F00U,00FFFU,0FC00U,
  21.   00800U,00000U,03F80U,00FFFU,0F800U, 00400U,00000U,07FC0U,00FFFU,0F000U,
  22.   00200U,00000U,03F80U,01FFFU,0E000U, 00180U,00000U,01F00U,01FFFU,0C000U,
  23.   00060U,00000U,00000U,03FFFU,00000U, 00018U,00000U,00000U,07FFCU,00000U,
  24.   00006U,00000U,00001U,0FFF0U,00000U, 00001U,0C000U,00007U,0FFC0U,00000U,
  25.   00000U,03C00U,0007FU,0FE00U,00000U, 00000U,003F0U,00FFFU,0E000U,00000U,
  26.   00000U,0000FU,0FFF8U,00000U,00000U);
  27.  
  28. END No.
  29.