[FirstLoad]
'I need to define these somewhere untouched
nam1$=""
nam2$=""
nam3$=""

Bal = 0 : Bal1 = 0 : Bal2 = 0 : Bal3 = 0
Dep = 0 : Dep1 = 0 : Dep2 = 0 : Dep3 = 0
With = 0 : With1 = 0 : With2 = 0 : With3 =0


GOSUB [ACC]

[Menu]
    cls
    Print "Welcome, ";Name$
    Print ""
    Print "Your Current Balance is ";Bal;"$."
    if Dep > 0 Then
        Print "Your last deposit was ";Dep;"$."
    END IF
    if With > 0 Then
        Print "Your last withdrawal was ";With;"$."
    End IF


    Print "================"
    Print "A. Deposit"
    Print "B. Withdrawal"
    Print "C. Show Balance"
    Print "L. Log Off"
    Print "Q. Quit"
    Print ""
    Input "Make Selection: ";Choice$


     Select Case Upper$(Choice$)
        Case "A"
            GOSUB [Deposit]
        Case "B"
            GOSUB [Withdrawal]
        Case "C"
            GOSUB [ShowBalance]
        Case "L"
            GOSUB [ACC]
        Case "Q"
            GOSUB [Quit]
        Case Else
            GOSUB [Error]
End Select

[Deposit]
    cls
    Print "Your current Balance is ";Bal;"$."
    Input "Amount to Deposit: ";Dep
    If Dep > 0 Then
        Bal = Bal + Dep
    Else
        Print "Invalid Amount"
    End IF
GOSUB [ShowBalance]

[Withdrawal]
    cls
    Print "Your current Balance is ";Bal;"$."
    Input "Amout to Withdraw: ";With
    If Bal = 0 Then
        Print "Error: No available balance to withdrawal from" : Print "" : Print "Press any key" : dummy$ = input$(1) : cls : GOSUB [Menu]
    Else
        If With > 1000 Then
            Print "Error: Max withdrawal amount is 1000$. Please select a lower amount." : Print "" : Print "Press any key" : dummy$ = input$(1) : cls : GOSUB [Menu]
        Else
            If With > Bal Then
                Print "Insufficient Funds"
            Else
                If With > 0 Then
                    GOSUB [Conf]
                Else
                    Print "Invalid Amount"
                End If
            End IF
        End IF
    End IF
GOSUB [Menu]


[Conf]
    Input "Confirm you are withdrawing ";With;"$. [Y/N]: ";YN$
    if upper$(YN$) = "Y" Then
        Bal = Bal - With : GOSUB [ShowBalance]
    Else
        With = 0 : GOSUB [Menu]
    End IF


[ShowBalance]
    Print "Your current balance is ";Bal;"$. Press any key to return to the main menu."
    dummy$ = input$(1)
GOSUB [Menu]


[Error]
    Print ""
    Print "Invalid Option. Press any key to continue..."
    dummy$ = input$(1)
    cls
    GOSUB [Menu]
Return


[ACC]

    cls
    Print "Login Screen"
    Print ""
    Input "Enter Username: ";Name$

if nam1$ = "" then
    nam1$ = Name$ : Bal1 = Bal : Dep1 = Dep : With1 = With : Bal = 0 : Dep = 0 : With = 0
Else
    if nam2$ = "" then
        nam2$ = Name$ : Bal2 = Bal : Dep2 = Dep : With2 = With : Bal = 0 : Dep = 0 : With = 0
Else
        if nam3$ = "" then
            nam3$ = Name$ : Bal3 = Bal : Dep3 = Dep : With3 =With : Bal = 0 : Dep = 0 : With = 0
end if
end if
end if

if Name$ = nam1$ then
    Bal = Bal1 : Dep = Dep1 : With = With1
Else
    if Name$ = nam2$ then
        Bal = Bal2 : Dep = Dep2 : With = With2
Else
        if Name$ = nam3$ then
            Bal = Bal3 : Dep = Dep3 : With = With3
end if
end if
end if

GOSUB [Menu]

[Quit]
Print "Thanks for using the Banking App"
End