/*

	Hier noch ein kleines Test-Script für MEReset

	Autor : Malte Eller

	VER$: MEReset_TestArexx 2.0 (30.04.1996)

*/

ADDRESS MERESET.REXX

SAY "Folgende Befehle kennt MEReset:"
SAY " - Ende      : Beendet das Programm"
SAY " - Reset x,y : Was wohl?!"
SAY "   x - 0 normal, 1 ohne Sicherheit"
SAY "   y - 0 normal, 1 ohne Zeit"
SAY " - Abbruch : Bricht den Reset ab (nur bei Reset)"

SAY "Wähle ein Befehl aus:"

DO FOREVER
 Options PROMPT "Meine Wahl: "
 PULL Befehl
 IF Befehl="" THEN
  BREAK
 Else
  Befehl
 END
ENDE