ggg.label:
print cls$;in$
print " G >>>  BELL " : print ni$
print
print "1>  Alarm clock / Wecker stellen " : print
print "2>  Metronom " : print
print "M>  zurueck zum Menue":print
print "==================================" : Print
print "Ihre Wahl:     "
print
gggwahl:
antw=inkey
if antw=49 then goto alarm:
if antw=50 then goto metro:
if antw=77 OR antw=109 then goto menu:
goto gggwahl:
rem ====================
alarm:
print : input "Nach wievielen Minuten soll geweckt werden ? ";weckmin
minute=1 : sekunde=0
print cls$;esc$+"f";
weckstart:
 sec=PEEK(0FBF8H)
 sek=sec
 while sek=sec : sec=peek(0FBF8H) : wend
 sekunde=sekunde+1
 if sekunde>59 then sekunde=0 : minute=minute+1
 if minute>weckmin then goto wecken:
goto weckstart:
wecken:
print chr$(7)
if constat% then print esc$+"e" : goto menu: else goto wecken:
rem +++++++++++++++++++++++++++++++++++++++++
metro:
print
print string$(69,"-")
print "B E L L T I M E  (V1.0) (c) Herbert MOSCHITZ, P.O.BOX 96, A-8041 GRAZ"
print string$(69,"-")
input "c. Intervall in Sekunden: ";c
print "STOP: Press any key! / Beliebige Taste druecken!"
bell:
n=319*c
if n<0 then n=0
beep:
for z=0 to n : next : print bel$;
if constat% then goto metende: else goto beep:
metende:
goto ggg.label:
then n=0
beep:
for z=0 to n : next : print bel$;
if constat% then goto metende: else goto beep:
metende:
goto ggg.lab