; Section 5 -- Life Changes
; Answer 5
; "I'm getting divorced.  How should I reorginize my finances?"
;
; Indicate that we want to count by frames
FF (count by frames)
;
; Store 1 in register 1 if number of children is known (not null )
; Store number of children in register 2
LD 1 0
LD 2 0
UProfile 2 numdeps
COpy 0 1
;
; Store 1 in register 3 if whether family is two-paycheck is is known (not null)
; Store 1 in register 4 if family is two-paycheck
LD 3 0
LD 4 0
UProfile 4 employed2
COpy 0 3
;
; Load Bitmaps
BLoad 1 L26BK01.bmp
BLoad 2 L26BK01a.bmp
BLoad 3 L26BK01b.bmp
BLoad 4 L26BK01c.bmp
BLoad 5 L26BK01d.bmp
BMove 1 206 85
BMove 2 210 91
BMove 3 210 132
BMove 4 210 172
BMove 5 210 214
;
BPlay 1 1
;
; Load clip
HOst 1 1 650
;
; Play A or B
JEq 1 1 0
JEq 1 2 0
;
; Segment A "The court and the lawyers..."
MPart 1 1 542
JUmp 7
LAbel 1
;
; Segment B "When you make two households..."
MPart 1 610 1022
;
LAbel 7
; Segment D, E, F, or G "You need a budget..."
;
; Segment D
JEq 2 1 0
JNeq 2 2 0
JEq 2 3 0
JNeq 2 4 0
MPart 1 1080 1882
JUmp 5
;
LAbel 2
;
; Segment E
JEq 3 1 0
JNeq 3 2 0
JEq 3 3 0
JNeq 3 4 1
MPart 1 1942 2252
JUmp 5
;
LAbel 3
;
; Segment F
JEq 4 1 0
JEq 4 2 0
JEq 4 3 0
JNeq 4 4 1
MPart 1 2310 2804
JUmp 5
;
LAbel 4
;
; Segment G
MPart 1 2864 4052
;
LAbel 5
;
; Segment H or I
;
;
; Segment H
JEq 6 1 0
JNeq 6 2 0
JEq 6 3 0
JNeq 6 4 1
BReg 2 4769 0
BReg 3 5059 0
BReg 4 5105 0
BReg 5 5235 0
MPart 1 4768 5618
BPlay 2 0
BPlay 3 0
BPlay 4 0
BPlay 5 0
JUmp 8
;
LAbel 6
;
; Segment I
BReg 2 4115 0
BReg 3 4407 0
BReg 4 4445 0
BReg 5 4570 0
MPart 1 4114 4708
BPlay 2 0
BPlay 3 0
BPlay 4 0
BPlay 5 0
;
LAbel 8
EXit
;