	
 BIRTHDAY UPDATED 2284 TO B20 BY C. BROWN 	 ()
 Z$(),L(),N(<),Y$()
( G$(),H$( )0
2 I  : Z$(I):I
< I  : L(I): b
F I  : Y$(I): {
P I  : G$(I):
Z I   : H$(I):
d JANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST:  
n SEPTEMBER,OCTOBER,NOVEMBER,DECEMBER:x 31,28,31,30,31,30,31,31,30,31,30,31:P THURS,FRI,SATUR,SUN,MON,TUES,WEDNES: THE MOON,THE SUN,THE EARTH,THE PLANET MERCURY,VENUS,MARS:    JUPITER,SATURN,THE PLANET URANUS,THE PLANET NEPTUNE: THE PLANET PLUTO,PEANUT BUTTER: < JUXTAROTATION,CONTRAPOSITION,CONTRASTING PHASES,TRANSPOSITION:  k SATISFIED,HAPPY,INTERESTING,TOLERANT:    OFTEN,OCCASIONALLY,SOMETIMES:    TEND TO BE,ARE,ARE INCLINED TO BE:   SHORT OF PATIENCE,UNEASY,AT ODDS:   +
 OTHERS.,CLOSE FRIENDS.,YOUNGER PEOPLE.,THOSE IN AUTHORITY.: N
 : BEWARE OF ,  AVOID    
 APPLE PIE,BEING ALONE,DARK PLACES,STRANGERS,UNUSUAL SITUATIONS:
 BE TAKING A TRIP YOU HAVE NOT MADE BEFORE. BE MEETING SOMEONE YOU WILL KNOW FOR THE REST OF YOUR LIFE.@ MAKE SEVERAL IMPORTANT DECISIONS INVOLVING OTHERS. BECOME ILL IF YOU DO NOT LESSEN YOUR UNUSUAL ACTIVITIES.RA(W,MAKEPOINTER(@,)),SA(W,MAKEPOINTER(B,))6A(W,MAKEPOINTER(RA,SA))@ A
J I    
 :  :  IGT    TYPE IN TODAY'S DATE NUMERICALLY: MO,DAY,YEAR;V^ X1,Y1,Z1hh Z1c  |vrZ1Z1l|XFX1:YFY1:ZFZ1: :UND    TODAY IS ;Y$(U(U));DAY   (I HOPE) HI, I'M A MICRO COMPUTER. TELL ME YOUR NAME; N$I(N$, )7K$N$G I  :WK$(N$,I){ ARE YOU USUALLY CALLED ;K$; A$  NA  ,, WHAT DO YOU LIKE TO BE CALLED; K$ SO YOUR FULL NAME IS ;N$;, BUT YOU$ LIKE TO BE CALLED ;K$;.*0H: HOW OLD ARE YOU, ;K$;PD A\NA(A)xX ((A)_)   vb COME ON, ;K$;, YOU'RE PULLING MY LEG.l :v SO YOU ARE;A;YEARS OLD. DO YOU KNOW, OFF HAND, HOW MANY DAYS OLD YOU ARE; A$ 8 NA  ,,V OK, SMARTY, HOW MANY? I     :JUNK$INKEY$ :  I : () SORRY, ;K$;, YOU'LL HAVE TO BE FASTER THAN THAT ^ OK, I'LL TELL YOU. IN WHAT MONTH WERE YOU BORN; M$( X  U (M$,(M$))  (Z$[X],(M$))  *] X K$;, YOU MAY BE NICE BUT YOU CAN'T SPELL.  * ON WHAT DAY;4 Y>ZZ1AH ((Y)L(X))  p	R (X)(Y)(Z(Z))  p@\ COME ON, ;N$;, YOU'RE GIVING ME A HARD TIME.Jf *PppzXFX1:YFY1:ZFZ: :WNDXFX:YFY:ZFZ: :VND W V  ZZ (WV)   (WV)  ,, YOU HAVE A BIRTHDAY COMING UP IN ONLY;VW;DAYS c YOUR BIRTHDAY WAS ONLY;WV;DAYS AGO. CONGRATULATIONSm  HAPPY BIRTHDAY, DEAR ;K$;, HAPPY BIRTHDAY TO YOU.XFX:YFY:ZFZ: :VND () YOU WERE BORN ON ;Y$(V(V));DAY, ;Z$(X);Y;,;Z> WHICH MAKES YOU;UV;DAYS OLD.{ YOU WERE BORN ON THE DAY;V;AD, AND ON JAN. 1, 2000 YOU WILL BE;W2V;DAYS OLD.$ HOW ABOUT THAT.8 dB WELL, ;N$;L N$K$  
V  (ALIAS ;K$;)F  IT HAS BEEN NICE CHATTING WITH YOU. DO COME AGAIN.Wj GOOD BYEat ^ SUBROUTINE FOR YES NO REQUESTNA (A$,)N   (A$,)n  NA (A$,)Y   (A$,)y  NA) A SIMPLE YES OR NO WILL DO 1   SUBROUTINE TO SOLVE FOR NUMBER OF DAYS  mNDYF  I1  XFNDNDL(I1) 
 I1 I1(ZFd)   ZF(ZF)  P(  ZFdI1  P 2  ND;  P < XF  P   FNDND >P NDNDI1(6(ZFdI1)) FZ  hd GENERATE RANDOM HOROSCOPE  {nR1()xR2  ()   R1R2  xRX: @  YOU WERE BORN UNDER THE ;H$(NR); OF ;G$(R1)  X: @ : AND ;G$(R2);.  YOU ARE A BASICALLY ;H$(NR)   IX: @ e PERSON BUT ;H$(NR);p @   YOU ;H$(NR)    @:N1NR:X: @:N2NR:X: @    H$(N1); WITH ;H$(N2);H$(NR)X: @ $ H$(NR); FOR THE NEXT WEEK. I PREDICT YOU WILL SOON 3X: @ C H$(NR)   K  R, |6 SUBROUTINE TO SELECT RANDOM WORDS  @NR(X)R JRRX  T ^:::::: DO Another ;h A$r (A$,)  Y  (A$,)  y  6|w^FFF^
O,s;G*vS*	FtF^
G^
G*;G(uFG(F^
G* ^
F9G*sG*F^
;G(sG(Fr5QF
PPMlFuF
P*	Fti^
t|w8PFwG PFG<PFw:
Ft@^
G^
G FG4ZW6^
GG.^
FG0ZW2YYt^
G@1Wv
|AFZW^
GF^
GFPP^
