var balance : real %globel variable
var font1, font2 : int
balance := 1000 %assigning variable a value
font1 := Font.New ("Lucida Console:32:Bold")
font2 := Font.New ("Lucida Console:14")
procedure Deposit %start of procedure
var deposit : real %declaring all variables
put "DEPOSITS" %Title of the procedure
put ""
put ""
put "Enter amount of deposit: " .. %Asking for user input
get deposit %user input
balance := balance + deposit %adding deposit to the balance
put "Current balance: $", balance %outputing the new balance
end Deposit %end of procedure
procedure Withdrawal %start of the procedure
var withdrawal : real %decalre all variables
put "WITHDRAWALS" %tile fo the procedure
put ""
put ""
put "Enter amount of withdrawal: " .. %asking for user input
get withdrawal %user input
if withdrawal <= balance then
%start of the outer if statement-only condition
if withdrawal rem 10 = 0 then
%start of the innter if statement-first condition
balance := balance - withdrawal
%takes amount of money out of the withdrawal
else %for the error message
put "Invaild amount(most be a multiple of 10)"
end if
else %if the balance is less than withdrawal
put "Insufficient Funds"
end if %end of the if statements
put "Current balance: $", balance : 0 : 2
%displays balance after withdrawal
end Withdrawal %end of procedure
procedure FastCash
var opt : int
loop
cls
put "FAST CASH"
put ""
put "Choose an option"
put "1.) $10"
put "2.) $20"
put "3.) $40"
put "4.) $80"
put "5.) $100"
put "6.) Cancel"
put "Your choice: " ..
get opt
if opt = 1 then
if balance < 10 then
put "Insufficient Funds"
delay (2000)
else
balance := balance - 10
exit when opt = 1
end if
elsif opt = 2 then
if balance < 20 then
put "Insufficient Funds"
delay (2000)
else
balance := balance - 20
exit when opt = 2
end if
elsif opt = 3 then
if balance < 40 then
put "Insufficient Funds"
delay (2000)
else
balance := balance - 40
exit when opt = 3
end if
elsif opt = 4 then
if balance < 80 then
put "Insufficient Funds"
delay (2000)
else
balance := balance - 80
exit when opt = 4
end if
elsif opt = 5 then
if balance < 100 then
put "Insufficient Funds"
delay (2000)
else
balance := balance - 100
exit when opt = 5
end if
elsif opt = 6 then
put "Cancelled"
exit when opt = 6
else
put "Invaild Option"
delay (2000)
cls
end if
end loop
put "Current Balance: ", balance : 0 : 2
end FastCash
procedure Balance
put "Your Current Balance: $", balance
end Balance
procedure Main
var s : string (1)
put "How may I help you?"
put ""
put "1. Deposit"
put "2. Withdrawal"
put "3. Fast Cash"
put "4. Balance"
put "5. Exit"
get s
loop
if s = "1" then
getch (s)
Deposit
elsif s = "2" then
getch (s)
Withdrawal
elsif s = "3" then
getch (s)
FastCash
elsif s = "4" then
getch (s)
Balance
elsif s = "5" then
put ""
put ""
put "Thank You & Good-Bye"
exit when s = "5"
else
put ""
put "Invaild Option"
end if
end loop
end Main
setscreen ("graphics:800;600")
Main
|