; Section 1 -- Financial Basics
; Answer 2
; "How can I save more money"
[saving] <-- guide seed for this answer
;
; Jane starts & finishes this answer with generic stuff.
; Marshall pipes up with custom stuff in the middle.
; it's pretty cool.
;
; Indicate that we want to count by frames
FF (count by frames)
; Load in some bitmaps.
; (LATER)
;
; figure out the age.  put their birth year in reg.1
; and the current year in reg.2
TOday -1 -1 2
UDate -1 -1 1 birthday1
; If there is a 0 in reg 0, that means birthday1 is not
; in the user profile.  Give them an age of 0 and move
; on.
JNeq 6 0 0
LAbel 8
LD 2 0
LD 3 0
JUmp 7
; Subtract birth year from current year.
; Now register 2 will contain the user's age in years.
LAbel 6
SUb 2 1
; watch for negative age!
JLt 8 2 1
;
LAbel 7
;
HOst 1 1 120
HOst 2 2 120
; Load bitmaps
BLoad 1 b02bk01.bmp
BLoad 2 b02bk02.bmp
BLoad 3 b02bk03.bmp
BLoad 4 b02bk04.bmp
BLoad 5 b02bk05.bmp
BLoad 6 b02bk01a.bmp
BLoad 7 b02bk01b.bmp
BLoad 8 b02bk01c.bmp
BMove 1 205 143
BMove 2 205 141
BMove 3 205 130
BMove 4 205 135
BMove 5 205 137
BMove 6 300 140
BMove 7 251 141
BMove 8 205 140
;
; Load and play preamble.
BPlay 1 1
BReg 6 413 0
BReg 7 510 0
BReg 8 668 0
MPart 1 0 841
BPlay 8 0
BPlay 7 0
BPlay 6 0
;
; 5 way split here: generic answer for unknown, <20 or >59
; 4 different answers for 20's, 30's, 40's 50's.
;
JLt 1 2 20
JGt 1 2 59
;
JGt 2 2 29
; in their 20s
BReg 3 916 0
MPart 2 779 1120
JUmp 5
;
LAbel 2
JGT 3 2 39
; in their 30s
BReg 3 1321 0
MPart 2 1185 1526
JUmp 5
;
LAbel 3
JGt 4 2 49
; in their 40s
BReg 4 1730 0
MPart 2 1588 1940
JUmp 5
;
LAbel 4
; in their 50s
BReg 5 2167 0 
MPart 2 2016 2415
JUmp 5
;
LAbel 1
; Generic answer here
BReg 3 178 0
BReg 4 470 0
BReg 5 622 0
MPart 2 0 716
BPlay 3 0 
BPlay 4 0
BPlay 5 0
LAbel 5
; Jane comes back for finale
MPart 1 918 1473
EXit