    integer  integer
    float    float
    string   string
    declare  procedure procedure()
    string = "the (new user) password ppe v1.0's data file (c) kc4, crd'97"
    string = readline(ppepath() + "nup.dat", 1)
    integer = string
    string = readline(ppepath() + "nup.dat", 2)
    integer = string
    string = readline(ppepath() + "nup.dat", 3)
    integer = string
    string = readline(ppepath() + "nup.dat", 4)
    integer = string
    string = readline(ppepath() + "nup.dat", 5)
    integer = string
    string = readline(ppepath() + "nup.dat", 6)
    string = string
    string = readline(ppepath() + "nup.dat", 7)
    string = string
    string = readline(ppepath() + "nup.dat", 8)
    string = string
    string = readline(ppepath() + "nup.dat", 9)
    string = string
    string = readline(ppepath() + "nup.dat", 10)
    string = string
    string = readline(ppepath() + "nup.dat", 11)
    string = string
    string = readline(ppepath() + "nup.dat", 12)
    string = string
    string = readline(ppepath() + "nup.dat", 13)
    string = string
    string = readline(ppepath() + "nup.cfg", 4)
    :label
    integer = integer + 1
    if (integer > readline(ppepath() + "nup.cfg", 29)) then
    goto label
    endif
    dispfile readline(ppepath() + "nup.cfg", 6), 0
    string = ""
    ansipos readline(ppepath() + "nup.cfg", 17), readline(ppepath() + "nup.cfg", 19)
    integer = 21
    procedure()
    integer = 22
    ansipos readline(ppepath() + "nup.cfg", 17), readline(ppepath() + "nup.cfg", 19) + 1
    procedure()
    integer = 23
    ansipos readline(ppepath() + "nup.cfg", 17), readline(ppepath() + "nup.cfg", 19) + 2
    procedure()
    integer = 24
    ansipos readline(ppepath() + "nup.cfg", 17), readline(ppepath() + "nup.cfg", 19) + 3
    procedure()
    integer = 25
    ansipos readline(ppepath() + "nup.cfg", 17), readline(ppepath() + "nup.cfg", 19) + 4
    procedure()
    integer = 26
    ansipos readline(ppepath() + "nup.cfg", 17), readline(ppepath() + "nup.cfg", 19) + 5
    procedure()
    integer = 27
    ansipos readline(ppepath() + "nup.cfg", 17), readline(ppepath() + "nup.cfg", 19) + 6
    procedure()
    ansipos readline(ppepath() + "nup.cfg", 8), readline(ppepath() + "nup.cfg", 10)
    :label
    string = inkey()
    string = string
    if (string <> "") then
    goto label
    endif
    goto label
    :label
    if (string == chr(13)) then
    goto label
    endif
    if (string == chr(8)) then
    string = string
    string = left(string, len(string) - 1)
    integer = getx()
    if (integer == readline(ppepath() + "nup.cfg", 8)) then
    goto label
    endif
    backup 1
    print " "
    backup 1
    goto label
    endif
    string = string + string
    print readline(ppepath() + "nup.cfg", 12) + string
    backup len(string)
    print readline(ppepath() + "nup.cfg", 13) + string
    backup len(string)
    print readline(ppepath() + "nup.cfg", 14) + string
    backup len(string)
    print readline(ppepath() + "nup.cfg", 15) + string
    goto label
    :label
    if (upper(string) == upper(readline(ppepath() + "nup.cfg", 4))) then
    goto label
    endif
    goto label
    :label
    newline
    clreol
    println "@x03(@x0bn@x03ew user) @x0bp@x03assword (c) kunchung, crd'97"
    if (readline(ppepath() + "nup.cfg", 35) == 1) then
    string = pcbmac("@systime@")
    log "tried password [" + string + "] at " + string, 0
    log "(new user) password v 1.0 (c) kunchung, crd'97", 0
    endif
    integer = integer + 1
    integer = integer + 1
    string = pcbmac("@alias@")
    string = pcbmac("@user@")
    string = date()
    string = pcbmac("@systime@")
    procedure()
    dispfile readline(ppepath() + "nup.cfg", 31), 0
    end
    :label
    newline
    clreol
    println "@x03(@x0bn@x03ew user) @x0bp@x03assword (c) kunchung, crd'97"
    if (readline(ppepath() + "nup.cfg", 35) == 1) then
    string = pcbmac("@systime@")
    log "entered correct password [" + string + "] at " + string, 0
    log "(new user) password v 1.0 (c) kunchung, crd'97", 0
    endif
    integer = integer + 1
    integer = integer + 1
    string = pcbmac("@alias@")
    string = pcbmac("@user@")
    string = date()
    string = pcbmac("@systime@")
    procedure()
    dispfile readline(ppepath() + "nup.cfg", 33), 0
    end
    procedure procedure()
    string = readline(ppepath() + "nup.cfg", integer)
    string = replacestr(string, "%etimes%", integer)
    string = string
    string = replacestr(string, "%ctimes%", integer)
    string = string
    string = replacestr(string, "%wtimes%", integer)
    string = string
    float = integer
    float = integer
    float = float / 100
    float = float / float
    integer = float
    string = replacestr(string, "%cperc%", integer)
    string = string
    float = integer
    float = integer
    float = float / 100
    float = float / float
    integer = float
    string = replacestr(string, "%wperc%", integer)
    string = string
    string = replacestr(string, "%calias%", string)
    string = string
    string = replacestr(string, "%walias%", string)
    string = string
    string = replacestr(string, "%cname%", string)
    string = string
    string = replacestr(string, "%wname%", string)
    string = string
    string = replacestr(string, "%lcdate%", string)
    string = string
    string = replacestr(string, "%lctime%", string)
    string = string
    string = replacestr(string, "%lwdate%", string)
    string = string
    string = replacestr(string, "%lwtime%", string)
    string = string
    println string
    endproc
    procedure procedure()
    delete ppepath() + "nup.dat"
    fappend 1, ppepath() + "nup.dat", 2, 0
    fputln 1, integer
    fputln 1, integer
    fputln 1, integer
    fputln 1, integer
    fputln 1, integer
    fputln 1, string
    fputln 1, string
    fputln 1, string
    fputln 1, string
    fputln 1, string
    fputln 1, string
    fputln 1, string
    fputln 1, string
    fputln 1, string
    fclose 1
    endproc
