    integer  integer
    getuser
    integer = pcbmac("@security@")
    if (readline(ppepath() + "sec.cfg", 6) == 1) then
    integer = readline(ppepath() + "sec.cfg", 4)
    u_sec = integer
    endif
    if (readline(ppepath() + "sec.cfg", 6) == 2) then
    integer = readline(ppepath() + "sec.cfg", 4)
    integer = integer - integer
    u_sec = integer
    endif
    if (readline(ppepath() + "sec.cfg", 6) == 3) then
    integer = readline(ppepath() + "sec.cfg", 4)
    integer = integer + integer
    u_sec = integer
    endif
    if (readline(ppepath() + "sec.cfg", 6) == 4) then
    integer = readline(ppepath() + "sec.cfg", 4)
    integer = integer * integer
    u_sec = integer
    endif
    if (readline(ppepath() + "sec.cfg", 6) == 5) then
    integer = readline(ppepath() + "sec.cfg", 4)
    integer = integer / integer
    u_sec = integer
    endif
    putuser
    newline
    print "@x0bs@x03ecurity modifier (c) kunchung, crd'97"
    if (readline(ppepath() + "sec.cfg", 8) == 1) then
    bye
    hangup
    dtroff
    end
    endif

