; Section 2 -- Planning
; Answer 5
;
; Indicate that we want to count by frames
FF (count by frames)
; Figure age
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
;
; 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
;
; Load Bitmaps
BLoad 1 P08BK01.bmp
BLoad 2 P08BK01a.bmp
;BLoad 3 P08BK01b.bmp
;BLoad 4 P08BK01c.bmp
BMove 1 205 166
BMove 2 273 93
BMove 3 205 125
BMove 4 205 125
;         
; Load and play preamble.
BPlay 1 1
HOst 2 2 250
BReg 2 200 0
MPart 2 1 473
BPlay 2 0
; If age is known then go to label 1 for customized info, otherwise 
; give generic answer
JNeq 1 2 0
; Generic answer
CUstom 250 9
XMove 0 210 265
XMove 1 336 265
XSize 0 110 70
XSize 1 130 70
MPart 2 534 774
XReg 0 1288 0
XReg 1 1635 0
MPart 2 1288 2005
JUmp 2
;
LAbel 1
; Custom answer.
; Text box 2 has the name,
; birthdate, and planned retirement age of the user.
; Text box 0 has the amount they would get from a Jan.2
; date, and text box 1 has the amount you'd get from Apr. 14
cuSTOM 250 3
XMove 0 210 265
XMove 1 334 265
XMove 2 210 70
XSize 0 110 70
XSize 1 134 70
XSize 2 240 70
XPlay 2 1
MPart 2 832 1222
XReg 0 1288 0
XReg 1 1635 0
MPart 2 1288 2005
;
LAbel 2
EXit