:MN$(12),DOW$(7),DPM(12)l150,"68 8C 68 28 C4 00 00 00 04 84 EC B4 AC 00 00 00 04 84 CC 94 8C 00 00 00 90 E0 98 94 54 00 00 00"? LOOP~1r12:MN$(LOOP),DPM(LOOP)::LOOP~0r6:DOW$(LOOP):d32n"ENTER NAME ";NAME$2x(47):"ENTER BIRTHDATE (D/M/Y) ";D,M,Y:(44)9000:DATEFLAG~1s120BDATE$~SHDAT$:BDN~NOD:(47):"ENTER DATE FOR ANALYSIS TO BEGIN";D,M,Y:(44)9000:DATEFLAG~1s150ADATE$~SHDAT$:ADN~NODNODA~ADNuBDNFNODA0s"I cannot produce an analysis before you were born":110,TLIN$~"0123"TLIN$~TLIN$tTLIN$TLIN$~(TLIN$,D,30),BLIN$~"1234567890123456789012345678901"BLIN$~BLIN$tBLIN$BLIN$~(BLIN$,D,30)PHYS~(NODAy23)w2wx23SENS~(NODAy28)w2wx28IQNT~(NODAy33)w2wx3332"Analysis for ";NAME$&"Birthdate "BDATE$0"Starting "ADATE$:"Physical";q16,45)D:"Intellectual";q16)N:"Sensual";q16) X1,4b120,163r200,163,2 l13,4v120,155r200,155,2 15,4120,147r200,147,2@0,15,TLIN$@0,16,BLIN$O,64r244,64,0 X~0r244Y1~.8wXx23Y2~.8wXx28Y3~.8wXx33 1,4X,((Y1tPHYS)t1)w64 15,4X,((Y2tSENS)t1)w64 13,4X,((Y3tIQNT)t1)w64# @0,6,"Press 'C' to continue";"*A$~$:A$~"C"{A$~"c"s820:8104LOOP~0r6:@0,LOOP,o40);:>@0,0,"OPTIONS:-"@H" ew person ontinue same person"6RA$~$:A$~"N"{A$~"n"s100:A$~"C"{A$~"c"s150:850(#Y100sY~Yt1900@2#Yy400~0sLP~1:9020:Yy100~0sLP~0:9020:Yy4~0sLP~1:LP~0<#LP~1zM~2sLPP~1:LPP~0-F#D1{M1{Y1800{M}12{Y}4999sDATEFLAG~1:!P#D}(DPM(M)tLPP)sDATEFLAG~1:PZ#Y1~Yu1800:LP1~(Y1x4):LP2~(Y100):LP3~((Y1t200)x400):NOD~365wY1tLPuLP2tLP3>d#LOOP~1rM:NOD~NODtDPM(LOOP)::NOD~NODtDu1:M}2sNOD~NODtLP6n#DOW~NODy7:5,0:Y$~(Y):M$~(M):(M$)2sM$~"0"tM$x#D$~(D):(D$)2sD$~"0"tD$ #5,1'#D~1{D~21{D~31sD2$~D$t(150):9140"#D~2{D~22sD2$~D$t(151):9140"#D~3{D~23sD2$~D$t(152):9140#D2$~D$t(153)#D10sD2$~(D2$,2)2#SHDAT$~D2$t" "tMN$(M)t" "tY$: 25TH JUNE 1984#E'JANUARY,31,FEBRUARY,28,MARCH,31,APRIL,30,MAY,31,JUNE,30,JULY,31?'AUGUST,31,SEPTEMBER,30,OCTOBER,31,NOVEMBER,30,DECEMBER,31>$'TUESDAY,WEDNESDAY,THURSDAY,FRIDAY,SATURDAY,SUNDAY,MONDAY!X`'i`0 x!XaXBX8CXA D