Item-Bank
You can do it this way but you need 4 varibles for each item called:
0001:Current [item]
0002:Account [item]
0003:Withdraw [item]
0004:Deposit [item]
 That's around 1000 variables for me  


<>Messg:Welcome to the Item Storage System.
: :Please select a transaction:
<>Show Choice: Withdrawal/Deposit
:[Withdrawal] Case
<>LABEL: 1No
--Using pictures your going to have to create choices of all of your items
--under each choice put this
<>Messg:Your account currently shows a balance of
: :\v[2] [item(s)]. Please enter the amount
: f the withdrawal.
<>Input Number: 6 Dg.[0003:Withdraw [item]]
<>FORK Optn: Varbl[0003:Withdraw [item]]-V[0002]less
<>Messg:Your account has been debited
: :\v[3] [item(s)]. Please take your item(s).
<>Change Item: [Item] V[0003] Incr.
<>Variable Ch:[0002: Account [item]]-, Var.[0003]val.
:ELSE Case
<>Messg:The amount you entered is in excess of
: :your current bank balance.
<>GOTOLabel: 1No
<>
:END Case
<>
:[Deposit] Case
<>LABEL: 2No
--Using pictures your going to have to create choices of all of your items
--under each choice put this
<>Variable Ch:[0001:Current [item]] Set, [item]#
<>Messg:Your account currently shows a balance
: f \v[2] [item(s). Please enter the amount
: :that you wish to deposit.
<>Input Number: 6 Dg.[0004:Deposit [item]]
<>FORK Optn: Varbl[0004:Deposit]-V[0001]less
<>Messg:Thank you. Your account has been credited
: :\v[4] [item(s)].
<>Change Money: [item] V[0004] Decr.
<>Variable Ch:[0002: Account [item]]+, Var.[0004]val.
<>
:ELSE Case
<>Messg:The amount that you wish to deposit is in
: :excess of the amount that you a currently holding.
<>GOTOLabel: 2No.
<>
:CANCEL Case
<>
:END Case
<>

The item-bank might have a few bugs but I can't find anyone that can bothered to check
Created By: Kingy