Dieses Programm wurde entwickelt von Arno Pasternak, Hagen
und steht unter der GPL
27.4.2008

PROC Wasserballuhr:
  local taste%
  global spielminute&,spielsekunde&
  global viertellaenge&
  global viertelminute&,viertelsekunde&
  global sekunde_30&
  global angriffszeit&
  global viertel%
  global spiel_laeuft%
  global pausenlaenge1&,pausenlaenge2&,pausenlaenge3&
  global pausenlaenge&
  global pausenminute&,pausensekunde&
  global pause%
  global sekunde%

  sekunde%=second
  spielminute&=0
  spielsekunde&=0
  viertellaenge&=8
  viertelminute&=viertellaenge&
  viertelsekunde&=0
  angriffszeit&=30
  sekunde_30&=angriffszeit&
  pausenlaenge1&=2 : pausenlaenge2&=5 : pausenlaenge3&=2
  pause%=0
  viertel%=1	
  spiel_laeuft%=0

 Ueber:
 Hilfe:	
 Anzeige:
 WHILE 1
  taste%=key
  if taste%=%e or taste%=5 : Ende: : endif
  if taste%=290  REM das ist die Menü-Taste
		ZeigeMenue:
	else
      if taste%=32 : sekunde_30&=angriffszeit&+1
       if spiel_laeuft%=0 : sekunde_30&=angriffszeit& : Anzeige: : endif
      endif 
      if taste%=13 
       if pause%
        pause%=0
        cls
        Anzeige:
       else 
        if spiel_laeuft%
         spiel_laeuft%=0
        else
         sekunde%=second
         spiel_laeuft%=1
        endif
       endif    
      endif
      if spiel_laeuft% : Uhr_laeuft: : endif
      if viertelsekunde&=0 and viertelminute&=0
       viertelminute&=viertellaenge&
       spiel_laeuft%=0
       sekunde_30&=angriffszeit&
       if viertel%<4
         pause%=1
         if viertel%=1 : pausenlaenge&=pausenlaenge1& : endif
         if viertel%=2 : pausenlaenge&=pausenlaenge2& : endif
         if viertel%=3 : pausenlaenge&=pausenlaenge3& : endif
         pausensekunde&=0
         pausenminute&=0
       endif           
       viertel%=viertel%+1
       beep 100,400
       if viertel%<5 : cls : endif
      endif

      if pause% : Pausenuhr_laeuft: : endif
      if pausensekunde&=0 and pausenminute&=pausenlaenge& and pause%
       pause%=0
       beep 100,400
       cls
       Anzeige:
      endif
      
	endif
 ENDWH
ENDP

PROC ZeigeMenue:
local menue%

mInit
	 mCard "Datei","Zeit festsetzen",%z,"Ende",%e
rem	 mCard "Wecker","Wecker an/aus",%w,"Weckzeit einstellen",%z
	 mCard "Extras","Angriffszeit einstellen",%a,"Viertelzeit einstellen",%v,"Pausenzeit einstellen",%p,"Hilfe",%h,"Über",%u
	menue%=Menu 
	
 if menue%=%a : Angriffszeit_einstellen: : endif
 if menue%=%v : Viertelzeit_einstellen: : endif
 if menue%=%p : Pausenzeit_einstellen: : endif
 if menue%=%h : Hilfe: : endif
 if menue%=%u : Ueber: : endif
 if menue%=%z : Zeit_festsetzen: : endif
 if menue%=%e : Ende: : endif
rem  endif

ENDP

PROC Zeit_festsetzen:
    dinit "Zeit festsetzen"
    dlong spielminute&,"Minuten",0,viertellaenge&*4
    dlong spielsekunde&,"Sekunde",0,59
    dtext "","Beenden mit <ESC> oder Tasten rechts"
    dialog

    viertelsekunde&=0
    viertel%=spielminute& / viertellaenge& +1
    if spielsekunde&=0
     viertelminute&=viertel%*viertellaenge&-spielminute&
     viertelsekunde&=0
    else
     viertelminute&=viertel%*viertellaenge&-spielminute&-1
     viertelsekunde&=60-spielsekunde&
    endif 
    sekunde_30&=angriffszeit&
    Anzeige:        
ENDP


PROC Viertelzeit_einstellen:
    dinit "Viertelzeit einstellen"
    dlong viertellaenge&,"Minuten",1,10
    dtext "","Beenden mit <ESC> oder Tasten rechts"
    dialog
    viertelminute&=viertellaenge&
    viertelsekunde&=0
    viertel%=1
    spielminute&=0
    spielsekunde&=0
    sekunde_30&=angriffszeit&
    Anzeige:        
ENDP

PROC Angriffszeit_einstellen:
    dinit "Angriffslzeit einstellen"
    dlong Angriffszeit&,"Sekunden",1,60
    dtext "","Beenden mit <ESC> oder Tasten rechts"
    dialog
    sekunde_30&=angriffszeit&
    Anzeige:        
ENDP


PROC Pausenzeit_einstellen:
    dinit "Pausenzeit einstellen"
    dlong pausenlaenge1&,"1. Pause",1,5
    dlong pausenlaenge2&,"2. Pause",1,5
    dlong pausenlaenge3&,"3. Pause",1,5
    dtext "","Beenden mit <ESC> oder Tasten rechts"
    dialog
ENDP


PROC Hilfe:
  cls
  gfont 268435961
	 gstyle 1
	 gat 130,40 : gtmode 3
	 gprint "Die WASSERBALLUHR"
	 
	 gfont 268435958
	 gat 10,75 : gtmode 3
	 gprint "Start/Stop:                      <Enter>"
	 gat 10,100 : gtmode 3
	 gprint "30 Sekunden - Wechsel:   <Space>"
	 gat 10,125 : gtmode 3
	 gprint "Einstellungen:                  <Menü>"
	 gat 10,150 : gtmode 3
	 gprint "Ende:                             <e>"
	 
	 gfont 268435956
	 gat 10,180 : gtmode 3
	 gprint "Weiter:     beliebige Taste"
	 get
	 cls
	 Anzeige:
ENDP


PROC Ueber:
  cls
  gfont 268435961
	 gstyle 1
	 gat 130,40 : gtmode 3
	 gprint "Die WASSERBALLUHR"
	 
	 gfont 268435960
	 gat 215,90 : gtmode 3
	 gprint "Arno Pasternak"
	 gfont 268435958
	 gat 240,130 : gtmode 3
	 gprint "V. 1.1 (April 2008)"
	 
	 gfont 268435956
	 gat 225,180 : gtmode 3
	 gprint "Weiter:     beliebige Taste"
	 get
	 cls
	 Anzeige:
ENDP


PROC Ende:  
    STOP
ENDP

PROC Uhr_laeuft:  
 if sekunde%<>second 
    spielsekunde&=spielsekunde&+1
    if spielsekunde&=60
      spielsekunde&=0
      spielminute&=spielminute&+1
    endif
    viertelsekunde&=viertelsekunde&-1
    if viertelsekunde&=-1
      viertelsekunde&=59
      viertelminute&=viertelminute&-1
    endif
    sekunde_30&=sekunde_30&-1
    if sekunde_30&=0
      Anzeige:
      sekunde_30&=angriffszeit& 
      beep 25,200
      spiel_laeuft%=0
    endif
    Anzeige:
    sekunde%=second
 endif
ENDP


PROC Pausenuhr_laeuft:  
 if sekunde%<>second 
 pausensekunde&=pausensekunde&+1
    if pausensekunde&=60
      pausensekunde&=0
      pausenminute&=pausenminute&+1
    endif
    Pausenanzeige:
    sekunde%=second
 endif
ENDP


PROC Anzeige:  
  	 gfont 268435961
	 gstyle 9
	 gat 10,100 : gtmode 3
	 if spielsekunde&>9 
	   gprint spielminute&,":",spielsekunde&," "
	  else
	   gprint spielminute&,":0",spielsekunde&," "
	  endif 
	 gat 210,100 : gtmode 3
	 gprint viertel% 
	  
	 gat 350,100 : gtmode 3
	 if viertelsekunde&>9 
	   gprint viertelminute&,":",viertelsekunde&," "
	  else
	   gprint viertelminute&,":0",viertelsekunde&," "
	  endif 
    
    gat 565,100 : gtmode 3
	 if sekunde_30&>9 
	   gprint sekunde_30&," "
	  else
	   gprint "0",sekunde_30&
	  endif 	
	 gstyle 1
	 gfont 268435958
	 gat 10,180 
		gprint "Gesamtzeit"
	 gat 190,180 
		gprint "Viertel"
	 gat 350,180 
		gprint "Viertelzeit"
	 gat 550,180 
		gprint "30 Sek."
ENDP


PROC Pausenanzeige:  
  gfont 268435961
	 gstyle 9
	 gat 100,120 : gtmode 3
	 gprint "Pause ", viertel%-1 
	  
	 gat 400,120 : gtmode 3
	 if pausensekunde&>9 
	   gprint pausenminute&,":",pausensekunde&," "
	  else
	   gprint pausenminute&,":0",pausensekunde&," "
	  endif 
ENDP