; Section 2 -- Planning
; Answer 3
; "Do I qualify for an IRA tax deduction...
[IRA] <-- guide seed for this answer
; Load bitmaps
BLoad 1 P06BK01.BMP
BLoad 2 P06BK02.BMP
BLoad 3 P06BK03.BMP
BMove 1 205 166
BMove 2 205 101
BMove 3 205 166
;
HOst 2 2 230
HOst 1 1 230
; Play Marshall's beginning
BReg 1 169 0
MPart 2 0 279
BPlay 1 0
; Load in Jane and play
BReg 2 650 0
MOvie 1
;Play rest of Marshall's answer
BReg 2 341 775
BReg 3 775 0
MPart 2 341 1459

;XLoad 0 3
;XMove 0 200 100
;XSize 0 200 100
;XPlay 0 1
EXit

// Below conditionals not needed
;
; Marshall begins and ends this question.  The conditionals get really
; hairy.  They are based on a combination of 3 factors:
; income, marital status, and whether your employer offers a
; retirement plan.
; Jane's custom answers are in the middle.
;
; Count by frames
FF
; Get information from Uprofile into registers.
; Register 1: emp retire plan (0=dunno, 1=no, 2=yes)
; Register 2: married (0=dunno, 1=no, 2=yes)
; Register 3: Adjusted Gross Income (0=dunno)
LD 1 0
UProf 1 empl_retplan1
ADd 1 0
LD 2 0
LD 3 Z
LD 4 M
UProf 3 mstatus
SEq 2 3 4
ADd 2 0
LD 3 0
UProf 3 ann_adj_inc
;
;
; Play Marshall's beginning
HOst 1 2 220
BPlay 1 1
MPart 1 1 279
;
; Load in Jane
HOst 2 1 220
;
; If any of our values are 0, jump to generic answer
JEq 1 1 0
JEq 1 2 0
JEq 1 3 0
;
; If they don't have an employee retirement plan,
; our answer is easy.
JNeq 2 1 1
; No retirement plan.
MPart 2 101 200
JUmp 8
;
LAbel 2
; Married people jump to label 5.
JEq 5 2 2
; single people here
;
JGt 3 3 25000
; single folk earning under 25K
MPart 2 201 300
JUmp 8
;
LAbel 3
JGt 4 3 35000
; single folk earning 25K-35K
MPart 2 301 400
JUmp 8
;
LAbel 4
; single folk earning > 35K
MPart 2 401 500
JUmp 8
;
LAbel 5
; Married people here.
JGt 6 3 40000
; married folk earning under 40K
MPart 2 201 300
JUmp 8
;
LAbel 6
JGt 7 3 50000
; married folk earning 40K-50K
MPart 2 301 400
JUmp 8
;
LAbel 7
; married folk earning > 50K
MPart 2 401 500
JUmp 8
;
LAbel 1
; generic answer here
MPart 2 0 100
;
LAbel 8
; We end with one last bit of advice from Marshall.
HOst 1 2 220
MPart 1 4624 5019
;
EXit