# bank
if $ARGS[0] = 'start':
cla
clr
*clr
minut += 5
gs 'stat'
fcolor = rgb(0, 0, 0)
bcolor = rgb(255, 255, 255)
lcolor = rgb(106, 90, 205)
'
Bank'
'
'
if karta > 0:'In the bank <> rubles'
if BankPapper = 1 and dayBankPapper = day:
act 'Give documents':
cls
minut += 15
BankPapper = 2
gs 'stat'
'You went to the office and gave the documents to the manager.'
act 'Leave':minut += 5 & gt 'down'
end
end
if money > 0:
act 'Deposit money':
cla
minut += 5
kartaIN = input ("How much money you want to deposit into the account?")
if kartaIN <= 0 or kartaIN > money:
'Not correct operation.'
else
karta += kartaIN
money -= kartaIN
'You put on the account <> rubles, now on your account <> rubles.'
end
act 'Move away':gt 'bank', 'start'
end
end
if karta > 0:
act 'Withdraw money':
cla
minut += 5
kartaOUT = input ("How much do you want to withdraw from account?")
if kartaOUT <= 0 or kartaOUT > karta:
'Not correct operation.'
else
karta -= kartaOUT
money += kartaOUT
'You debited <> rubles, now on your account <> rubles.'
end
act 'Move away':gt 'bank', 'start'
end
end
act 'Leave':gt 'down'
end
--- bank ---------------------------------