'
' MODUL-BUSYMOUSE 1.0
' (C) 05.08.1993 von Manfred Ssykor
' FUNKTION: BUSYMOUSE als rotierender Ball darstellen
'
INLINE m_adr%,592
busymouse%=m_adr%
'
> PROCEDURE defmouse(ms|)
  ' šbergebener Wert darf zwischen 0 und 7 sein:
  ' Entspricht DEFMOUSE ms|
  ' 0 = Pfeil
  ' 1 = X-Klammer (Text-Cursor)
  ' 2 = Biene
  ' 3 = Zeigende Hand
  ' 4 = Offene Hand
  ' 5 = Fadenkreuz fein
  ' 6 =      "     grob
  ' 7 =      "     umrandet
  IF ms|>-1 AND ms|<8
    ~GRAF_MOUSE(ms|,0)
  ELSE
    ~GRAF_MOUSE(0,0)
  ENDIF
RETURN
> PROCEDURE busymouse
  ' ADD(m_busy%,xxx)  xxx= INLINE-L„nge minus 74!
  ' INLINE-L„nge / 74 = Anzahl der einzel-Bilder
  IF m_adr%=ADD(busymaus%,1628)
    m_adr%=busymaus%
  ELSE
    ADD m_adr%,74
  ENDIF
  ~GRAF_MOUSE(255,m_adr%)
RETURN
'