equity-first-bank-2.solution.txt

PB025
NEW SOLUTION 1
GRAB 300
COPY F X
NOTE X = MY ACCT NUMBER
REPL KEYWORDER
LINK 800
LINK 800
DROP
GRAB 199
MARK ACCOUNTS
COPY F T
REPL EDITOR
COPY 10 T
MARK STALL
SUBI T 1 T
TJMP STALL
TEST EOF
FJMP ACCOUNTS
NOTE CLEANUP
COPY 300 F
DROP
LINK -1
LINK -1
KILL
HALT
MARK EDITOR
GRAB T
NOTE ACCT NUM
SEEK 9999
COPY M F
NOTE DEBIT
COPY M F
COPY 1 F
COPY 0 F
NOTE OTHER ACCT NUM
SEEK -9999
COPY F X
DROP
GRAB 300
SEEK 9999
COPY X F
COPY M F
COPY 1 F
COPY 0 F
DROP
HALT
MARK KEYWORDER
GRAB 301
MARK CREDIT_DEBIT
NOTE MY ACCT NUM
COPY X M
NOTE DEBIT
SEEK 1
COPY F M
NOTE CREDIT
SEEK -2
COPY F M
SEEK -9999
JUMP CREDIT_DEBIT