Untitled

const prompt_r := 7
const prompt_c := 30
const input_c := prompt_c + 15
var selection, playernum : int
var playername : string
var playerstatus : string (1)


proc displayPrompts (which : int)
    if which = 1 then
        locate (prompt_r, prompt_c)
        put "Basketball Statistics"
        locate (prompt_r + 1, prompt_c)
        put "====================="
        locate (prompt_r + 3, prompt_c)
        put "1) Player Entry"
        locate (prompt_r + 5, prompt_c)
        put "2) Game Entry"
        locate (prompt_r + 7, prompt_c)
        put "3) Stats Report"
        locate (prompt_r + 9, prompt_c)
        put "====================="
        locate (prompt_r + 11, prompt_c)
        put "Selection:"
    elsif which = 2 then
        locate (prompt_r, prompt_c + 4)
        put "Player Entry"
        locate (prompt_r + 1, prompt_c + 4)
        put "=========="
        locate (prompt_r + 3, prompt_c + 4)
        put "Player #:"
        locate (prompt_r + 5, prompt_c + 4)
        put "1)Name  :"
        locate (prompt_r + 7, prompt_c + 4)
        put "2)Status:"
        locate (prompt_r + 8, prompt_c + 4)
        put "=========="
        locate (prompt_r + 10, prompt_c + 4)
        put "Selection:"
    elsif which = 3 then
        locate (prompt_r, prompt_c + 4)
        put "Game Entry"
        locate (prompt_r + 1, prompt_c + 4)
        put "=========="
        locate (prompt_r + 3, prompt_c - 10)
        put "Game #       :"
        locate (prompt_r + 3, prompt_c + 15)
        put "Player #:"
        locate (prompt_r + 5, prompt_c - 10)
        put "1)3 Pt Shots :"
        locate (prompt_r + 5, prompt_c + 15)
        put "2)Made  :"
        locate (prompt_r + 7, prompt_c - 10)
        put "3)2 Pt Shots : "
        locate (prompt_r + 7, prompt_c + 15)
        put "4)Made  :"
        locate (prompt_r + 9, prompt_c - 10)
        put "5)Free Throws:"
        locate (prompt_r + 9, prompt_c + 15)
        put "6)Made  :"
        locate (prompt_r + 11, prompt_c - 10)
        put "7)Fouls      :"
        locate (prompt_r + 12, prompt_c + 4)
        put "=========="
        locate (prompt_r + 14, prompt_c - 10)
        put "Selection:"
    elsif which = 4 then
        locate (prompt_r, prompt_c - 5)
        put "Basketball Statistics for Game #"
        locate (prompt_r + 2, prompt_c - 25)
        put "Player"
        locate (prompt_r + 2, prompt_c - 11)
        put "--3 PT--"
        locate (prompt_r + 2, prompt_c + 4)
        put "--2 Pt--"
        locate (prompt_r + 2, prompt_c + 19)
        put "Free Throws"
        locate (prompt_r + 3, prompt_c - 25)
        put "# Name"
        locate (prompt_r + 3, prompt_c - 11)
        put "TKN MD %"
        locate (prompt_r + 3, prompt_c + 4)
        put "TKN MD %"
        locate (prompt_r + 3, prompt_c + 19)
        put "TKN MD %"
        locate (prompt_r + 3, prompt_c + 39)
        put "Fouls"
        locate (prompt_r + 4, prompt_c - 25)
        put "====================================================================="
    else
        locate (prompt_r, prompt_c)
        put "Basketball Statistics"
        locate (prompt_r + 1, prompt_c)
        put "====================="
        locate (prompt_r + 3, prompt_c)
        put "1) Player Entry"
        locate (prompt_r + 5, prompt_c)
        put "2) Game Entry"
        locate (prompt_r + 7, prompt_c)
        put "3) Stats Report"
        locate (prompt_r + 9, prompt_c)
        put "====================="
        locate (prompt_r + 11, prompt_c)
        put "Selection:"
    end if
end displayPrompts

function getPlayerNumber : int
    loop
        locate (prompt_r + 3, prompt_c + 14)
        get playernum
        exit when playernum > 1 and playernum < 99
    end loop
    result playernum
end getPlayerNumber

function getPlayerName : string
    loop
        locate (prompt_r + 5, prompt_c + 14)
        put ""
        locate (prompt_r + 5, prompt_c + 14)
        get playername
        exit when length (playername) < 25
    end loop
    result playername
end getPlayerName

function getPlayerStatus : string
    loop
        locate (prompt_r + 7, prompt_c + 14)
        put ""
        locate (prompt_r + 7, prompt_c + 14)
        get playerstatus
        exit when playerstatus = "A" or playerstatus = "a" or playerstatus = "X" or playerstatus = "x"
    end loop
    result playerstatus
end getPlayerStatus

function getSelection (x, y : int) : int
    loop
        locate (x, y)
        put ""
        locate (x, y)
        get selection
        exit when selection > 1 and selection < 10
    end loop
    result selection
end getSelection

proc getData (which : int)
    if which = 1 then
        playernum := getPlayerNumber
        playername := getPlayerName
        playerstatus := getPlayerStatus
        selection := getSelection (prompt_r + 10, prompt_c + 15)
    elsif which = 2 then
    elsif which = 3 then
    elsif which = 4 then
    end if
end getData

%====================================Main================================
displayPrompts (1)
loop
locate (prompt_r + 11, prompt_c + 11)
get selection
if selection = 1 then
    cls
    displayPrompts (2)
    getData (1)
    if selection = 1 then
   
    elsif selection = 2 then
    
    elsif selection = 0 then
    
    end if
end if
if selection = 2 then
cls
displayPrompts (3)
end if
end loop



% loop
%     loop
%         locate (prompt_r + 3, prompt_c + 13)
%         get playernum
%         exit when playernum > 1 and playernum < 99
%     end loop
%     loop
%         locate (prompt_r + 5, prompt_c + 14)
%         put ""
%         locate (prompt_r + 5, prompt_c + 14)
%         get playername
%         exit when length (playername) < 25
%     end loop
%     loop
%         locate (prompt_r + 7, prompt_c + 14)
%         put ""
%         locate (prompt_r + 7, prompt_c + 14)
%         get playerstatus
%         exit when playerstatus = "A" or playerstatus = "a" or playerstatus = "X" or playerstatus = "x"
%     end loop
%     locate (prompt_r + 10, prompt_c + 15)
%     put ""
%     locate (prompt_r + 10, prompt_c + 15)
%     get selection
%     locate (prompt_r + 3, prompt_c + 4)
%     put ""
%     if selection = 1 then
%         loop
%             locate (prompt_r + 5, prompt_c + 14)
%             put ""
%             locate (prompt_r + 5, prompt_c + 14)
%             get playername
%             exit when length (playername) < 25
%         end loop
%     end if
%     if selection = 2 then
%         loop
%             locate (prompt_r + 7, prompt_c + 14)
%             put ""
%             locate (prompt_r + 7, prompt_c + 14)
%             get playerstatus
%             exit when playerstatus = "A" or playerstatus = "a" or playerstatus = "X" or playerstatus = "x"
%         end loop
%     end if
%     exit when selection = 0
% end loop