/****************************************
 * Gebuehrenchecker                     *
 * V1.0 by Lunkwill / Sweet Dreams BBS  *
 * Some ARexx code borrowed from        *
 * Quickfinger's GebCheck V2.3          *
 *                                      *
 * Dieses Programm sollte nur vom Logon *
 * (sys.welcome) aus aufrufen werden.   *
 ****************************************/

options results
getuser 39 ; account=result
pfad="mail:users/"account"/zone"

nochmal:
transmit "c9FOREIGN CALLERS PLEASE ENTER '3' AT THE FOLLOWING PROMPT!"
transmit ""
transmit "z4c3 Gebuehrenchecker V1.0 by Lunkwillc7z0"
transmit ""
Transmit "0 = Citytarif"
Transmit "1 = Region 50"
Transmit "2 = Region 200"
Transmit "3 = Fernzone"
transmit ""
transmit "Aus welcher Tarifzone rufst Du hier an? :"
getchar ; zahl=result
transmit zahl
if zahl<"0" | zahl>"3" then call nochmal

open('ZONE',pfad,"W")
writeln('ZONE',zahl)
close('ZONE')