; Section 2 -- Planning
; Answer 2
; "How should I invest in a college fund for my children?
[college] <-- guide seed for this answer
;
; Marshall answers this question.  It's awfully complex.
;
; Count by frames
FF
;
; First, call a custom routine that does all the really
; hard work for us.  This routine will put the age of the
; youngest child in register 1,
; the number of children age 0-8 in register 2,
; the number of children age 9-14 in register 3,
; and the number of children 14-18 in register 4.
; The names of the children in registers 2,3,and4 will
; be placed in text boxes 2,3,and4.
CUstom 220 0
;
; Load Marsh's bitmaps
BLoad 1 P05BK01.BMP
BLoad 2 P05BK02.BMP
BLoad 3 P05BK03.BMP
BLoad 4 P05BK04.BMP
BLoad 5 P05BK05.BMP
BLoad 6 P05BK06.BMP
BMove 1 242 109
BMove 2 205 102
BMove 3 275 119
BMove 4 271 118 
BMove 5 259 107
BMove 6 205 101
;
; Play Marsh's preamble.
HOst 2 2 220
BReg 1 1 0
MPart 2 0 319
BPlay 1 0
;
; If the value in reg 1 is non-negative, then
; it is the age of the youngest child.  It needs
; to translate into a chart.
JGt 1 1 -1
; Generic answer
BPlay 2 1
MPart 2 378 554
JUmp 2
;
LAbel 1
; Specific answer -- put up chart.
cuSTOM 221 1
XMove 1 200 100
XSize 1 220 40
XMove 5 215 180
XSize 5 200 100
XMove 6 415 180
XSize 6 85 100
XPlay 1 1      
XPlay 5 1
XPlay 6 1
MPart 2 603 828
LAbel 2
;
; Marsh's next speech: 'Ideally, you should start...'
MPart 2 883 1046
; Kill generic college cost chart
BPlay 2 0
; Kill custom college cost chart
XPlay 1 0
XPlay 5 0
XPlay 6 0
;
; Marsh's point about infinks.  Customized if you got one.
;
;Present infink graphic
BPlay 3 1
;
JGt 3 2 0
; no infinks.
MPart 2 1103 1446
JUmp 5 
;       
LAbel 3
XMove 2 271 245
XPlay 2 1
JGt 4 2 1
; one infink
MPart 2 1512 1836
JUmp 5
LAbel 4
; many infinks
MPart 2 1884 2206
LAbel 5 
;
; Marshall talks stocks
MPart 2 2273 2547
; Kill infant graphic
BPlay 3 0
; Kill infant custom label
XPlay 2 0
;
; Now, we branch based on number of
; kids in the 9-14 range
;
; Present midkid graphic
BPlay 4 1
;
JGt 6 3 0
; No midkids
MPart 2 2606 2865
JUmp 8
LAbel 6
XMove 3 271 245
XPlay 3 1
JGt 7 3 1
; 1 midkid
MPart 2 2926 3220
JUmp 8
LAbel 7
; many midkids
MPart 2 3280 3552
LAbel 8  
; Kill midkids graphic
BPlay 4 0
; Kill midkids custom label
XPlay 3 0
;
; Now we do the same thing for teenagers...
;
; Present teenager graphic
BPlay 5 1
;
JGt 9 4 0
; no teenagers
MPart 2 3612 3840
JUmp 11
LAbel 9
XMove 4 271 245
XPlay 4 1
JGt 10 4 1
; one teenager
MPart 2 3906 4122
JUmp 11
LAbel 10
; bunches o' teenagers
MPart 2 4181 4396
LAbel 11
;
; Two more things Marsh wants to say
MPart 2 4456 4709
; Kill teenager graphic
BPlay 5 0
; Kill teenager custom label
XPlay 4 0
BReg 6 5040 0
MPart 2 4710 5452
EXit