home *** CD-ROM | disk | FTP | other *** search
/ Computer Club Elmshorn Atari PD / CCE_PD.iso / mac / 0700 / CCE_0708.ZIP / CCE_0708.PD / GFAHILFE / SRC_DATA / BUSYMAUS.LST < prev    next >
File List  |  1994-02-10  |  801b  |  37 lines
  1. '
  2. ' MODUL-BUSYMOUSE 1.0
  3. ' (C) 05.08.1993 von Manfred Ssykor
  4. ' FUNKTION: BUSYMOUSE als rotierender Ball darstellen
  5. '
  6. INLINE m_adr%,592
  7. busymouse%=m_adr%
  8. '
  9. > PROCEDURE defmouse(ms|)
  10.   ' Übergebener Wert darf zwischen 0 und 7 sein:
  11.   ' Entspricht DEFMOUSE ms|
  12.   ' 0 = Pfeil
  13.   ' 1 = X-Klammer (Text-Cursor)
  14.   ' 2 = Biene
  15.   ' 3 = Zeigende Hand
  16.   ' 4 = Offene Hand
  17.   ' 5 = Fadenkreuz fein
  18.   ' 6 =      "     grob
  19.   ' 7 =      "     umrandet
  20.   IF ms|>-1 AND ms|<8
  21.     ~GRAF_MOUSE(ms|,0)
  22.   ELSE
  23.     ~GRAF_MOUSE(0,0)
  24.   ENDIF
  25. RETURN
  26. > PROCEDURE busymouse
  27.   ' ADD(m_busy%,xxx)  xxx= INLINE-Länge minus 74!
  28.   ' INLINE-Länge / 74 = Anzahl der einzel-Bilder
  29.   IF m_adr%=ADD(busymaus%,1628)
  30.     m_adr%=busymaus%
  31.   ELSE
  32.     ADD m_adr%,74
  33.   ENDIF
  34.   ~GRAF_MOUSE(255,m_adr%)
  35. RETURN
  36. '
  37.