; Section 1 -- Financial Basics
; Answer 3
; "How much savings is generally recommended?"
[saving] <-- guide seed for this answer
;
; Marshall handles the generic parts; Jane does the custom stuff.
;
; Indicate that we want to count by frames
FF (count by frames)
; Load in some bitmaps.
BLoad 1 B03BK01.BMP
BLoad 2 B03BK01A.BMP
BLoad 3 B03BK02.BMP
BLoad 4 B03BK03.BMP
BMove 1 229 159
BMove 2 242 102
BMove 3 208 112
BMove 4 208 112
; 
HOst 2 2 130
HOst 1 1 130
;
; See how many children they have.  If the value is missing from
; user profile, assume 0.
LD 1 0
UProfile 1 numdeps
;
; In register 2, put their monthly expenses.
LD 2 0
UProfile 2 ann_expenses
; divide annual expenses by 12.
LD 3 12
DIv 2 3
;
; In register 3, put the sum of 1 and 2.
; That way, reg 3 will be 0 if we have neither
; expenses nor children.  In this case, there
; is no reason to load Jane.
LD 3 0
ADd 3 2
ADd 3 1
;
; Marshall
; talk about cushions
BPlay 1 1
BReg 2 660 0
MPart 2 0 767
;
; If reg 3 is 0, jump to end.
JEq 1 3 0
;
; If there are monthly expenses, call a custom
; routine to put those expenses on screen, and
; have Jane talk about them.
JEq 2 2 0
; there's something in reg 2.
cuSTOM 130 2
XSize 1 250 50
XMove 1 240 180
XMove 2 300 230
; Get rid of safe to make room for numbers
BPlay 1 0
; Show numbers
XPlay 1 1
XPlay 2 1
MPart 1 0 288
;
LAbel 2
;
; Marshall talks about money-market account
MPart 2 816 1255
;
BPlay 2 0
XPlay 1 0
XPlay 2 0
; Now, look for kids.
JEq 1 1 0
JGt 3 1 1
; One kid
BReg 3 603 1108
BReg 4 867 1108
MPart 1 354 1108
JUmp 1
LAbel 3
; many kids
BReg 3 1433 1923
BReg 4 1690 1923
MPart 1 1174 1923
LAbel 1
XPlay 1 0
XPlay 2 0
EXit