type rec :
    record
        id : int
        name : string
        position : string
        points : int
        rebounds : int
        jersey : int
        age : int
    end record
var list : array 1 .. 1000 of rec
for i : 1 .. 1000
    list (i).id := -1
end for
var pid := 1
procedure getrecord (id : int)
    list (pid).id := pid
    put "name : " ..
    get list (pid).name
    put "position : " ..
    get list (pid).position
    put "points : " ..
    get list (pid).points
    put "rebounds : " ..
    get list (pid).rebounds
    put "jersy : " ..
    get list (pid).jersey
    put pid
    pid += 1
end getrecord
procedure deleterecord (id : int)
    list (id).id := -1
end deleterecord
procedure listdata (id : int)
    cls
    var y := 4
    if id = 0 then
        for i : 1 .. 1000
            if list (i).id not= -1 then
                locate (1, 1)
                put i
                if y >= 24 then
                    put "press any key to continue..."
                    loop
                        exit when hasch
                    end loop
                    cls
                    y := 4
                end if
                locate (y, 5)
                put list (i).name
                locate (y, 17)
                put list (i).position
                locate (y, 37)
                put list (i).points
                locate (y, 41)
                put list (i).rebounds
                locate (y, 48)
                put list (i).jersey
                locate (y, 53)
                put list (i).id
                y += 1
            end if
        end for
    else
        locate (y, 5)
        put list (id).name
        locate (y, 17)
        put list (id).position
        locate (y, 37)
        put list (id).points
        locate (y, 41)
        put list (id).rebounds
        locate (y, 48)
        put list (id).jersey
        locate (y, 53)
        put list (id).id
        y += 1
    end if
end listdata
function finddata (id : int, name : string, position : string, points : int, rebounds : int, jersey : int, age : int) : int %returns id
    for i : 1 .. 1000
        if id not= 0 then
            result id
        end if
        if name not= "" then
            if Str.index (list (pid).name, name) not= 1 then
                result i
            end if
        end if
    end for
end finddata
var id:=0
loop
    put "menu :"
    put "1. add record"
    put "2. list records"
    put "3. find records"
    put "4. delete records"

    case getchar of
        label "1" :
            getrecord (pid)
        label "2" :
            listdata (0)
        label "3" :
            put "Enter id# : "
            get id
            deleterecord (id)
        label :
    end case
end loop