home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 1996 February / PCPRO_FEB96.ISO / 3rdparty / tools / library / tooltip2.exe / TIP.CLW < prev    next >
Encoding:
Text File  |  1995-06-02  |  2.4 KB  |  89 lines
  1.  PROGRAM
  2.    MAP
  3.      MODULE('TIP001.clw')
  4.      Main 
  5.      END
  6.      MODULE('TIP003.clw')
  7.      tippee 
  8.      END
  9.      MODULE('TIP004.clw')
  10.      yellowtip 
  11.      END
  12.      MODULE('TIP_SF.CLW')
  13.        CheckOpen(FILE,<BYTE>,<BYTE>)
  14.        StandardWarning(LONG,<STRING>,<STRING>,<STRING>,<STRING>),LONG
  15.      END
  16.      MODULE('TIP_RU.CLW')
  17.      END
  18.      MODULE('TIP_RD.CLW')
  19.      END
  20.    END
  21.  
  22.    INCLUDE('Equates.CLW')
  23.    INCLUDE('Keycodes.CLW')
  24.    INCLUDE('Errors.CLW')
  25.  
  26. Sort:Alpha    STRING('  AFANAT'|
  27.                     &'B BFBNBT'|
  28.                     &'C CFCNCT'|
  29.                     &'D DFDNDT'|
  30.                     &'E EFENET'|
  31.                     &'F FFFNFT'|
  32.                     &'G GFGNGT'|
  33.                     &'H HFHNHT'|
  34.                     &'I IFINIT'|
  35.                     &'J JFJNJT'|
  36.                     &'K KFKNKT'|
  37.                     &'L LFLNLT'|
  38.                     &'M MFMNMT'|
  39.                     &'N NFNNNT'|
  40.                     &'O OFONOT'|
  41.                     &'P PFPNPT'|
  42.                     &'Q QN'|
  43.                     &'R RFRNRT'|
  44.                     &'S SFSNST'|
  45.                     &'T TFTNTT'|
  46.                     &'U UFUNUT'|
  47.                     &'V VFVNVT'|
  48.                     &'W WFWNWT'|
  49.                     &'X XFXNXT'|
  50.                     &'Y YFYNYT'|
  51.                     &'Z ZN')
  52. Sort:Alpha:Array    STRING(2),DIM(100),OVER(Sort:Alpha)
  53.  
  54. Sort:Name     STRING('   ALBAMEARNBAK'|
  55.                     &'BATBENBIABOBBRA'|
  56.                     &'BROBUACACCARCEN'|
  57.                     &'CHRCOECONCORCRU'|
  58.                     &'DASDELDIADONDUR'|
  59.                     &'ELDEVEFELFISFLO'|
  60.                     &'FREFUTGARGIBGOL'|
  61.                     &'GOSGREGUTHAMHEM'|
  62.                     &'HOBHOTINGJASJON'|
  63.                     &'KAGKEAKIRKORKYO'|
  64.                     &'LATLEOLIGLOUMAC'|
  65.                     &'MAQMARMAUMCKMER'|
  66.                     &'MILMONMORNATNOL'|
  67.                     &'OKEPAGPAUPETPIN'|
  68.                     &'PORPULRAUREYROB'|
  69.                     &'ROSRUBSALSCASCH'|
  70.                     &'SCRSHASIGSKISNA'|
  71.                     &'SOUSTESTISUNTAY'|
  72.                     &'TIRTUCVANWACWAS'|
  73.                     &'WEIWIEWIMWOLYOR')
  74. Sort:Name:Array     STRING(3),DIM(100),OVER(Sort:Name)
  75.  
  76. x   LONG
  77. yellowmsg   STRING(80)
  78. tipmsg   STRING(400)
  79. gxpos   LONG
  80. gypos   LONG
  81. thr   LONG
  82. y   LONG
  83.  
  84. GlobalRequest     LONG(0),THREAD
  85. GlobalResponse    LONG(0),THREAD
  86.   CODE
  87.   Main
  88.  
  89.