; Section 2 -- Planning
; Answer 1
; "How do I plan for a comfortable life when I retire?"
[retirement] <-- guide seed for this answer
;
;  Jane & Marshall each answer this question.  Marshall's answer
; is customized based on age.  We actually only know your birthday,
; not your age, so we have to do some figuring here.
;
; Count by frames
FF
;
; 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
;
; Sanity check -- if they are less than 1, set age to 0.
JLt 8 2 1
;
; Now find out when they plan to retire.  If there's nothing
; in the user profile, assume 65.
LD 3 65
UProf 3 retire_age1
; We care about years until retirement, so subtract their
; current age.
SUb 3 2
;
LAbel 7
;
HOst 1 1 210
HOst 2 2 210
; Call a custom routine which will preload the bitmap
; we want.  Parameter is in register 3.
cuSTOM 211 3
; custom routine loaded bitmap into bitmap slot 0, text into
; text slots 0 & 1 & 2.
; Move it to where we want it.
BLoad 9 aazl.bmp
BMove 9 230 140
;BMove 0 230 140
BMove 0 315 140
XMove 0 230 260
XMove 1 320 260
XMove 2 200 70
XSize 0 90 20
XSize 1 90 20
XSize 2 240 70
;     
; Load Jane's Bitmaps
BLoad 1 P04BK01.bmp
BLoad 2 P04BK01A.bmp
BLoad 3 P04BK01B.bmp
BLoad 4 P04BK01C.bmp
BLoad 5 P04BK01D.bmp
BLoad 6 P04BK01E.bmp
BMove 1 205 67
BMove 2 205 86
BMove 3 205 123
BMove 4 205 160
BMove 5 205 197
BMove 6 205 235
;
; Load Marshall's Bitmaps
BLoad 7 P04BK03.bmp
BLoad 8 P04BK02.bmp
BMove 7 205 67
BMove 8 205 67
;
; Comment this out to hear Jane
;JUmp 9
; Load and play Jane's answer
BReg 1 1 0
BReg 2 155 0
BReg 3 679 0
BReg 4 735 0
BReg 5 781 0
BReg 6 1515 0
MOvie 1
BPlay 2 0
BPlay 3 0
BPlay 4 0
BPlay 5 0
BPlay 6 0
;
LAbel 9
; Load & play marshall's preamble.
MPart 2 0 181
;
; Age in years is in register 2.
;
; Jump to label 1 if age is > 20
JGt 1 2 20
; twenty or younger
BReg 7 785 0
BReg 8 1210 0
MPart 2 246 1371
JUmp 3 
;
LAbel 1
; Jump to label 2 if age is > 29
JGt 2 2 29
; 20-29 years old
BPlay 1 0
XPlay 2 1
BReg 9 2010 0
XReg 0 2010 0
BReg 0 2314 0
XReg 1 2314 1
MPart 2 1432 2461
JUmp 3
;
LAbel 2
; Older than 29
BPlay 1 0
XPlay 2 1
BReg 9 3175 0
BReg 0 3490 0
XReg 0 3175 0
XReg 1 3490 0
MPart 2 2524 3597
;
; Marshall's next chunk -- just play it.
;
LAbel 3
MPart 2 3658 4169
;
; Now marshall has a bit (retire2$) where he gives
; seperate answers if you are 59, less than, or greater than.
;
; If greater than or equal to 59, skip altogether.
; Jump to label 5 if register 2 is > 59
JGt 5 2 58
JEq 4 2 0
MPart 2 4520 4774
JUmp 5
; Under 59
; Equal to 59, or generic (zero)
LAbel 4
MPart 2 4228 4468
;
; We end with one last bit of advice from Marshall.
LAbel 5
MPart 2 4826 5176
;
;
EXit