proc add (name, number : string)
    var dummy_buffer : string
    var file : int
    open : file, "book.ini", get, put, mod
    loop
        exit when eof (file)
        get : file, dummy_buffer : *
    end loop
    put : file, name
    put : file, number
    close (file)
end add

proc gets
    var file : int
    var numb : int := 0
    var count_buffer : string
    open : file, "book.ini", get
    loop
        exit when eof (file)
        get : file, count_buffer : *
        get : file, count_buffer : *
        numb := numb + 1
    end loop
    close (file)
    var users : array 1 .. numb of string
    var numbr : array 1 .. numb of string
    open : file, "book.ini", get
    for i : 1 .. numb
        get : file, users (i) : *
        get : file, numbr (i) : *
        put users (i) /* comment out this line if you're making a GUI */
        put "" : 10, numbr (i) : 6 /* as well as this one*/
    end for
    close (file)
end gets

var input, name, number : string
loop
    put ">> " ..
    get input : *
    if length (input) = 4 and input = ".add" then
        put "name: " ..
        get name : *
        put "number: " ..
        get number : *
        add (name, number)
    elsif length (input) = 5 and input = ".dump" then
        gets
    elsif input = "quit" then
        quit
    end if
end loop