; Section 3 -- Investing
; Answer 1 "How much money should I put in each kind of investment...?"
[asset allocation] <-- guide seed
;
; Count by frames
FF
; Jane answers this question.  There are only
; slight variations for age.  Hardly worth the trouble.
; 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
; load our movies
HOst 1 1 310
HOst 2 2 310
;
BLoad 1 I09BK01.BMP
BMove 1 205 113
BLoad 2 I09BK02.BMP
BMove 2 205 113
BLoad 3 I09BK03.BMP
BMove 3 205 112
; Play Jane's preamble
BReg 1 315 0
MPart 1 0 1396
;
; Play one of 3 possible variations
; for age unknown (0), age < 45, or age > 45.
JGt 1 2 0
; Age unknown
; Don't need this because bitmap is already showing:  BReg 1 1454 0
BReg 2 1841 0
BReg 3 2426 0
MPart 1 1454 3147
BPlay 3 0
JUmp 4
LAbel 1
JGt 2 2 45
; Age <= 45
; Don't need this because bitmap is already showing: BReg 1 3212 0
BReg 2 3595 0
MPart 1 3212 4100
BPlay 2 0
JUmp 4
LAbel 2
; Older than 45
; Don't need this because bitmap is already showing: BReg 1 4162 0
BReg 3 4480 0
MPart 1 4162 5198
BPlay 2 0
;
LAbel 4
;
; Marshall snipes at Jane
; But only for those under 45.
JGt 5 2 45
BPlay 1 0
BPlay 2 0
BPlay 3 0
MOvie 2
LAbel 5
EXit