Inside Multimedia 1995 August/IMM0895.ISO01.iso/magazin/html/setup.cmd

OS/2 REXX Batch file | 1995-02-24 | 1KB | 43 lines

# Mit diesem Script k÷nnen Sie Ihre Standard Logindaten Σndern

if ![load $username]
   $username = "ppp-gast"
end
if ![username "Geben Sie bitte Ihren Usernamen ein:"]
   display "Setup abgebrochen."\n
   abort
end
if ![load $password]
   $password = ""
end
if [password "Geben Sie bitte Ihr Passwort ein:"]
   $A = $password
   $password = ""
   if [password "Geben Sie das Pa▀wort bitte nochmals ein:"]
     $B = $password
     if $A <> $B
        display "Das eingegebene Pa▀wort ist ungⁿltig."\n
        display "Daten wurden nicht gespeichert."\n
        abort
     end
   end
end
if ! [load $dialmode]
   $dialmode = "p"
end
if ![query $dialmode "WΣhlmodus: p (Impuls) oder t (Ton)"]
   display \n"Setup abgebrochen."\n
   abort
end
if $dialmode <> "p"
   if $dialmode <> "t"
      display "Unbekannter WΣhlmodus. Bitte nur t oder p eingeben."\n
      display "Daten wurden nicht gespeichert."\n
      abort
   end
end
save $dialmode
save $password
save $username
display "Daten gespeichert!"\n