Eu não explicarei muito o que faz, o que acontece, eu apenas vou colocar o que tem que fazer para conseguir fazer um banco. Para começar a tela deve ficar assim 
     <>Messg: Bem vindo ao banco [nome do banco, se você quiser]: Por favor escolha uma opção: 
     <>Show Choice: Retirar/Depositar :
          <>:[Retirar] Case 
<>:[Depositar] Case 
<>:CANCEL Case 
<>:END Case <> 
Coloque esses títulos para variables: Dinheiro atual, Dinheiro da conta, Retirar dinheiro, Depositar dinheiro. Eu usarei 1 para dinheiro atual, 2 para dinheiro da conta
 No caso de retirar, a tela deve ficar assim:
<>:[Retirar] Case 
     <>LABEL: 1No 
     <>Messg: Você têm \v[2] [tipo do dinheiro aqui] na sua conta . Coloque a quantidade que está retirando. 
Eu coloquei  \v[2] porque variable 2 é a que nós designamos para "Dinheiro da conta". Então ficará assim... 
         <>:[Retirar] Case 
              <>LABEL: 1No 
              <>Messg: Você têm \v[2] [tipo do dinheiro aqui] na sua conta . Coloque a quantidade que está retirando.
              <>Input Number: 6 Dg.[0003:Retirar dinheiro] 
              <>FORK Optn: Varbl[0003:Retirar dinheiro]-V[0002]less 
              <>Messg: Você retirou \v[3] [tipo do dinheiro aqui]. Pegue seu dinheiro. 
              <>Change Money: Money V[0003] Incr. 
              <>Variable Ch:[0002: Dinheiro da conta]-, Var.[0003]val. 
          <> Excepting Case 
              <>Messg: A quantidade que você colocou está ultrapassando a quantia em sua conta. 
              <>GOTOLabel: 1No 
<>:END Case <> 
Agora, para depositar, a tela deve ficar assim... 
         <>:[Depositar] Case 
              <>LABEL: 2No 
              <>Variable Ch:[0001:Dinheiro atual] Set, Money# 
              <>Messg: Você tem \v[2] [tipo do dinheiro aqui] na sua conta. Coloque a quantidade de dinheiro que você quer depositar. 
              <>Input Number: 6 Dg.[0004:Depositar dinheiro] 
              <>FORK Optn: Varbl[0004:Depositar]-V[0001]less 
              <>Messg: Obrigado. Você tinha \v[4] [tipo do dinheiro aqui] na sua conta antes de depositar. 
              <>Change Money: Money V[0004] Decr. 
              <>Variable Ch:[0002: Dinheiro da conta]+, Var.[0004]val. 
          <>Excepting Case 
<>Messg: A quantidade que você quer depositar está acima da quantia que você está segurando. 
<>GOTOLabel: 2No. 
O evento inteiro tem que ficar desse jeito: 
          <>Messg: Bem vindo ao banco [nome do banco, se você quiser]: Por favor escolha uma opção: 
     <>Show Choice: Retirar/Depositar :
          <>:[Retirar] Case 
<>:[Depositar] Case 
<>:CANCEL Case 
<>:END Case <>
          <>:[Retirar] Case 
     <>LABEL: 1No 
     <>Messg: Você têm \v[2] [tipo do dinheiro aqui] na sua conta . Coloque a quantidade que está retirando. 
Eu coloquei  \v[2] porque variable 2 é a que nós designamos para "Dinheiro da conta". Então ficará assim... 
         <>:[Retirar] Case 
              <>LABEL: 1No 
              <>Messg: Você têm \v[2] [tipo do dinheiro aqui] na sua conta . Coloque a quantidade que está retirando.
              <>Input Number: 6 Dg.[0003:Retirar dinheiro] 
              <>FORK Optn: Varbl[0003:Retirar dinheiro]-V[0002]less 
              <>Messg: Você retirou \v[3] [tipo do dinheiro aqui]. Pegue seu dinheiro. 
              <>Change Money: Money V[0003] Incr. 
              <>Variable Ch:[0002: Dinheiro da conta]-, Var.[0003]val. 
          <> Excepting Case 
              <>Messg: A quantidade que você colocou está ultrapassando a quantia em sua conta. 
              <>GOTOLabel: 1No 
<>:END Case <>
     [Depositar] Case 
              <>LABEL: 2No 
              <>Variable Ch:[0001:Dinheiro atual] Set, Money# 
              <>Messg: Você tem \v[2] [tipo do dinheiro aqui] na sua conta. Coloque a quantidade de dinheiro que você quer depositar. 
              <>Input Number: 6 Dg.[0004:Depositar dinheiro] 
              <>FORK Optn: Varbl[0004:Depositar]-V[0001]less 
              <>Messg: Obrigado. Você tinha \v[4] [tipo do dinheiro aqui] na sua conta antes de depositar. 
              <>Change Money: Money V[0004] Decr. 
              <>Variable Ch:[0002: Dinheiro da conta]+, Var.[0004]val. 
          <>Excepting Case 
<>Messg: A quantidade que você quer depositar está acima da quantia que você está segurando. 
<>GOTOLabel: 2No.