'So da ist mein Problem ich weis nicht wie ich
'jetzt einstelle das ich bei Optionen zum Beispiel
'die pause bei Label=scharf und Alarm also wie ich sie änder !!!
was soll ich da schreiben keinplan 'Brauche hilfe plz!!!


'Alarmanlage'

define a byte
define b byte
define c byte
define d byte
define port1 port[1]
define aus AD[2]

#Start
Print "Hallo Herr Dräger:"
Print "Wählen sie eine Optionen aus:"
Print "1. Aktivieren"
Print "2. Optionen

input a
If a = 1 then goto Aktiviert
If a = 2 then goto Optionen

#Aktiviert
Print "Mit 1. Starten mit 2.zurück"
input b
if b = 1 then goto Scharf
if b = 2 then goto Start

#Scharf
Print "Alarmanlage ist in 10sec. Scharf"
pause 500
Print "Alarm Aktiviert"
wait port1 = on

#Alarm
Print "Alarm geht in 10sec. los!!"
pause 500
If aus < 100 then goto Deaktiviert
If aus > 100 then goto Beep

#Deaktiviert
Print "Wollen sie die Alarmanlage Deaktivieren"
Print "1.Deaktivieren und zurück zum Menu"
Print "2.Zum Aktivierungs Menu"
input c
If c = 1 then goto Start
If c = 2 then goto Aktiviert

#Beep
Print "Alarm"
If aus < 100 then goto Deaktiviert
goto Beep

#Optionen