� BIO/Biorhythms
Y � Written by David Tee and Jerry Temple-Fry (NETHERHALL SCHOOL) and Richard G Warner

 � Version 5 - October 1981
0 � For BBC Model A Microcomputer 16K Minimum
( � � �Tr@
2T �7:� M%=0 � �5,16);"Press the STOP button"'"     on your tape recorder":�SPACE
< �:� � � �T`C
d �TITLEPAGE:�INIT
n � L(6),T%(6),S%(6)
x �INTRO
�
 �:�''
�, �"    To get your individual Biorhythm"
�$ �"plot, two dates are needed."'
�, �"    First, enter your date of birth:"
�" �4,7);:� � �DATEOK(1) � �dp@
� Y1=Y:M1=M:D1=D

, �4,9);"and the date for the plot (you"

) �"will get a plot giving 10 days on"

  �"each side of this date):"

"# �4,12);:� � �DATEOK(2) � �TbA

,$ Y2=Y:M2=M:D2=D:LAPSE=�TIMELAPSE

6  � LAPSE<0 � �ERROR(9):�dH@

@" � LAPSE<10 � �ERROR(10):�dH@

J2 �0,18);"Elapsed days since birth ....";LAPSE

T �SPACE

� A%=23:B%=28:C%=33

� D%=LAPSE-10

�! E%=100:F%=1100:I%=(F%-E%)/20

� X%=500:Y%=450:Z%=1

�
 �tDC
 ! � �<>17 � �:�" in line ";�:�
*	 Z%=2
�K �:� M%=0 � �5,5);"Press the PLAY button"'"     on your tape recorder"
� �"BIO"
� ��INTRO
�	 �:�'
�* �"    Some people believe that human"
�) �"temperament and behaviour seem to"
/ �"follow predictable recurring patterns."'
- �"    These patterns, 'BIORHYTHMS', can"
, �"be broken down into three cycles: -"'
$* �"INTELLECTUAL - a cycle of 33 days,"
.. �"    affecting concentration, judgement"
8$ �"    and learning abilities."'
L* �"EMOTIONAL    - a cycle of 28 days,"
V- �"    controlling moods, creativity and"
` �"    emotional life."'
t* �"PHYSICAL     - a cycle of 23 days,"
~* �"    governing energy, coordination"
� �"    and stamina."
� �SPACE
�	 �:�'
�* �"   These cycles start at birth and"
�) �"continue with absolute regularity"
� �"throughout life."'
. �"   Each cycle has a positive phase and"
 �"a negative phase."'
() �"   During the positive phase, the"
2* �"energy controlled by that cycle is"
<- �"being discharged. These are days when"
F) �"positive aspects of the cycle are"
P �"enhanced."'
x, �"   The negative phase is a period of"
�, �"recharging, when energy and vitality"
� �"are reduced."
� �SPACE
�
 �:�''
�) �"   A critical day is when a cycle"
� �"changes phase."'
�+ �"   These are days when you are more"
+ �"likely to have accidents. Care must"
  �"be taken on these days."'
@+ �"   This is especially true when two"
J' �"cycles change on the same day."'
T* �"   When all three cycles change on"
^' �"the same day, you would be well"
h �"advised to stay in bed!"
� �SPACE
� �
� ��ANALYSE
� � L,S,T
� CNT=0:I=1:�NEXTCHAR
$ � �FILLER(T$) � �NEXTCHAR:�TDP
  S=I-1:� � �DIGIT(T$) � �TlP
 L=0:T=0
"5 �:L=�(T$)-48+L*10:�NEXTCHAR:� � �DIGIT(T$):�DhP
, � � �LETTER(T$) � �DJP
6 T=1:L=0
@, �:L=L+1:�NEXTCHAR:� � �LETTER(T$):�DhP
J � T$=�(0) � �dKP
T T=2:L=1:�NEXTCHAR
h5 CNT=CNT+1:� CNT<6 � T%(CNT)=T:S%(CNT)=S:L(CNT)=L
r
 �TDP
� �
� ��NEXTCHAR
�- � I>�(D$) � T$=�(0) �  T$=�D$,I,1):I=I+1
� �
� ݤDIGIT(T$)
" � "0"<=T$ � T$<="9" � =� � =�
\ ݤLETTER(T$)
f" � "A"<=T$ � T$<="Z" � =� � =�
� ݤFILLER(T$)
�D � T$=" " � T$="." � T$="/" � T$="-" � T$="," � T$=":" � =� � =�
� ݤDATEOK(NO)
� � GET AND DEDUCE DATE
� � PUT IN D,M & Y
� �GPI(0,30):D$=""
�  � I=1 � �(A$):T=�(�A$,I,1))
� � T>96 � T<123 � T=T-32
� D$=D$+�(T):�
�% � D$="TODAY" � �ERROR(6+NO):=�  
�
 �ANALYSE
�& X=�CHECKDATE:� X>1 � �ERROR(X):=�
� =�
P ݤCHECKDATE
Z � CNT=0 � CNT>6 �=2 
d � T%(CNT)>0 � =3:� NO YEAR
n  Y=L(CNT):� Y<100 � Y=1900+Y
x � Y<1900 � Y>2000 � =3
� CNT=CNT-1:� CNT=0 � =2
� C=1:� T%(1)=1 � �TXU
� � T%(1)=2 � =4
� �GETDAY
� � C>CNT � =2
� �GETMONTH:� M=0 � =5
�
 �D|U
 �GETMONTH:� M=0 � =5
" � C>CNT � =2
, � T%(C)=1 � =6
6 �GETDAY
| � C<CNT � =2
� � D<=NDAY(M) � =1
�& � �LEAP(Y) � D=29 � M=2 � =1 � =6
D
 ��GETDAY
N  D=L(C):C=C+1:� C>CNT � �tgV
X � T%(C)<>1 � �tgV
b T$=��D$,S%(C),L(C)),2)
l3 � T$="ST" � T$="RD" � T$="ND" � T$="TH" � �t@V
v
 �tgV
�/ L(C)=L(C)-2:S%(C)=S%(C)+2:� L(C)=0 � C=C+1
� �
� ��GETMONTH
� � T%(C)>0 � �dPV
� M=L(C):� M>12 � �dxV
�
 �TBW
� M=12:M$=�D$,S%(C),L(C))
� � �(M$)<3 � �dxV
�  � �MON$(M),�(M$))=M$ � �TBW
� M=M-1:� M>0 � �ddV
� M=0:�TKW

 C=C+1
 �
p ݤTIMELAPSE
z/ � CALCULATE NUMBER OF DAYS BETWEEN 2 DATES
�# � DATES IN D1/M1/Y1 & D2/M2/Y2
� L=365*(Y2-Y1)
�) � M2>1 � � X=1 � M2-1:L=L+NDAY(X):�X
�) � M1>1 � � X=1 � M1-1:L=L-NDAY(X):�X
� L=L+D2-D1
� � ADJUST FOR LEAP YEARS
8 Y=(Y1 � 4)*4 
B Y=Y+4:� Y>=Y2 � �DjX
L � �LEAP(Y) � L=L+1
V
 �DBX
j � Y1=Y2 � �t\X
t � �LEAP(Y1) � M1<3 � L=L+1
~ � �LEAP(Y2) � M2>2 � L=L+1
� =L
�& � �LEAP(Y1) � M1<3 � M2>2 � L=L+1
� =L
d ݤLEAP(Y)
n' � RETURNS TRUE IF Y IS A LEAP YEAR
x3 � Y � 4=0 � (Y � 100<>0 � Y � 400=0) � =� � =�
X ��INIT:� INITIALISE
l � NDAY(12),MON$(12)
v � K=1 � 12:� NDAY(K):�
�* � 31,28,31,30,31,30,31,31,30,31,30,31
� � K=1 � 12:� MON$(K):�
�8 � "JANUARY","FEBRUARY","MARCH","APRIL","MAY","JUNE"
�B � "JULY","AUGUST","SEPTEMBER","OCTOBER","NOVEMBER","DECEMBER"
� �
  ��ERROR(X)
*
 �0,16);
4< � X � �DK],�tX\,�tb\,�tl\,�tv\,�d@\,�dJ\,�dT\,�d^\,�tD\
�? �"You must be at least 10 days old"'"to get a plot.":�dh\
�$ �"Can't understand that.":�dh\
�G �"That does not contain a year in the"'"range 1900 to 2020.":�dh\
�0 �"Can't understand the day or month.":�dh\
�( �"Not sure about that month.":�dh\
�& �"Not sure about that day.":�dh\
� �"HAPPY BIRTHDAY."
�' �"But what is today's date?":�dh\
�F �"Your date of birth must be the"'"earliest date that you enter."
� �'"Try Again.":�SPACE
� � K=16 � 22
� �0,K);�40," ")
 �
K �
@ ��DBL(X$,X,Y)
J �X-1,Y);�(141);X$
T �X-1,Y+1);�(141);X$ 
� �
� ��WAIT(X)
� � Z
� Z=�
� � � �-Z>X*100
  �
  ��SPACE
 4 �3,22);"Press the SPACE BAR to continue";:�KCL
 0 � � �=" "
 k �
 l ��TITLEPAGE
 v �:�DBL("BIORHYTHMS",8,9)
 � �OFF:N%=�(500)
 � �
"`
 ��KCL
"j � �(0)>"" � �Djb
"� � 
"� ��OFF 
"� �23;8202;0;0;0;:�
"�	 ��ON
# �23;29194;0;0;0;:�
#(1 ��GPI(F2,ML):� General Purpose Input Routine
#2 �B,B$ 
#<
 A$=""
#F+ ��ML," ");�ML+1,�(8));�(&87);:�ON:�KCL
#P B$=�:B=�(B$):� B=13 � �dfc
#Z � B=127 � A$="" � �DPc
#d* � B=127 � A$=�A$,�(A$)-1):�B$;:�DPc 
#n% � �(A$)=ML � B<32 � B>126 � �dRc
#x+ � F2=0 � B=32 � (B>=48 � B<=57) � �d\c
#�
 �7:�DPc
#� �B$;:A$=A$+B$:�DPc
#�	 �OFF
#� �
#� ��YESORNO
#�	 �B$ 
$ �GPI(0,3)
$ B$=�A$,1)
$
 Y%=-1
$" � B$="Y" � B$="y" � Y%=1
$, � B$="N" � B$="n" � Y%=0
$S �
�

00000000  0d 00 0a 15 20 f4 20 42  49 4f 2f 42 69 6f 72 68  |.... . BIO/Biorh|
00000010  79 74 68 6d 73 0d 00 0c  59 20 f4 20 57 72 69 74  |ythms...Y . Writ|
00000020  74 65 6e 20 62 79 20 44  61 76 69 64 20 54 65 65  |ten by David Tee|
00000030  20 61 6e 64 20 4a 65 72  72 79 20 54 65 6d 70 6c  | and Jerry Templ|
00000040  65 2d 46 72 79 20 28 4e  45 54 48 45 52 48 41 4c  |e-Fry (NETHERHAL|
00000050  4c 20 53 43 48 4f 4f 4c  29 20 61 6e 64 20 52 69  |L SCHOOL) and Ri|
00000060  63 68 61 72 64 20 47 20  57 61 72 6e 65 72 0d 00  |chard G Warner..|
00000070  0d 1f 20 f4 20 56 65 72  73 69 6f 6e 20 35 20 2d  |.. . Version 5 -|
00000080  20 4f 63 74 6f 62 65 72  20 31 39 38 31 0d 00 0e  | October 1981...|
00000090  30 20 f4 20 46 6f 72 20  42 42 43 20 4d 6f 64 65  |0 . For BBC Mode|
000000a0  6c 20 41 20 4d 69 63 72  6f 63 6f 6d 70 75 74 65  |l A Microcompute|
000000b0  72 20 31 36 4b 20 4d 69  6e 69 6d 75 6d 0d 00 28  |r 16K Minimum..(|
000000c0  0e 20 ee 20 85 20 e5 8d  54 72 40 0d 00 32 54 20  |. . . ..Tr@..2T |
000000d0  eb 37 3a e7 20 4d 25 3d  30 20 8c 20 f1 8a 35 2c  |.7:. M%=0 . ..5,|
000000e0  31 36 29 3b 22 50 72 65  73 73 20 74 68 65 20 53  |16);"Press the S|
000000f0  54 4f 50 20 62 75 74 74  6f 6e 22 27 22 20 20 20  |TOP button"'"   |
00000100  20 20 6f 6e 20 79 6f 75  72 20 74 61 70 65 20 72  |  on your tape r|
00000110  65 63 6f 72 64 65 72 22  3a f2 53 50 41 43 45 0d  |ecorder":.SPACE.|
00000120  00 3c 11 20 db 3a ee 20  85 20 e5 20 8d 54 60 43  |.<. .:. . . .T`C|
00000130  0d 00 64 15 20 f2 54 49  54 4c 45 50 41 47 45 3a  |..d. .TITLEPAGE:|
00000140  f2 49 4e 49 54 0d 00 6e  17 20 de 20 4c 28 36 29  |.INIT..n. . L(6)|
00000150  2c 54 25 28 36 29 2c 53  25 28 36 29 0d 00 78 0b  |,T%(6),S%(6)..x.|
00000160  20 f2 49 4e 54 52 4f 0d  00 c8 0a 20 db 3a f1 27  | .INTRO.... .:.'|
00000170  27 0d 00 d2 2c 20 f1 22  20 20 20 20 54 6f 20 67  |'..., ."    To g|
00000180  65 74 20 79 6f 75 72 20  69 6e 64 69 76 69 64 75  |et your individu|
00000190  61 6c 20 42 69 6f 72 68  79 74 68 6d 22 0d 00 dc  |al Biorhythm"...|
000001a0  24 20 f1 22 70 6c 6f 74  2c 20 74 77 6f 20 64 61  |$ ."plot, two da|
000001b0  74 65 73 20 61 72 65 20  6e 65 65 64 65 64 2e 22  |tes are needed."|
000001c0  27 0d 00 e6 2c 20 f1 22  20 20 20 20 46 69 72 73  |'..., ."    Firs|
000001d0  74 2c 20 65 6e 74 65 72  20 79 6f 75 72 20 64 61  |t, enter your da|
000001e0  74 65 20 6f 66 20 62 69  72 74 68 3a 22 0d 00 f0  |te of birth:"...|
000001f0  22 20 f1 8a 34 2c 37 29  3b 3a e7 20 ac 20 a4 44  |" ..4,7);:. . .D|
00000200  41 54 45 4f 4b 28 31 29  20 8c 20 8d 64 70 40 0d  |ATEOK(1) . .dp@.|
00000210  00 fa 13 20 59 31 3d 59  3a 4d 31 3d 4d 3a 44 31  |... Y1=Y:M1=M:D1|
00000220  3d 44 0d 01 04 2c 20 f1  8a 34 2c 39 29 3b 22 61  |=D..., ..4,9);"a|
00000230  6e 64 20 74 68 65 20 64  61 74 65 20 66 6f 72 20  |nd the date for |
00000240  74 68 65 20 70 6c 6f 74  20 28 79 6f 75 22 0d 01  |the plot (you"..|
00000250  0e 29 20 f1 22 77 69 6c  6c 20 67 65 74 20 61 20  |.) ."will get a |
00000260  70 6c 6f 74 20 67 69 76  69 6e 67 20 31 30 20 64  |plot giving 10 d|
00000270  61 79 73 20 6f 6e 22 0d  01 18 20 20 f1 22 65 61  |ays on"...  ."ea|
00000280  63 68 20 73 69 64 65 20  6f 66 20 74 68 69 73 20  |ch side of this |
00000290  64 61 74 65 29 3a 22 0d  01 22 23 20 f1 8a 34 2c  |date):".."# ..4,|
000002a0  31 32 29 3b 3a e7 20 ac  20 a4 44 41 54 45 4f 4b  |12);:. . .DATEOK|
000002b0  28 32 29 20 8c 20 8d 54  62 41 0d 01 2c 24 20 59  |(2) . .TbA..,$ Y|
000002c0  32 3d 59 3a 4d 32 3d 4d  3a 44 32 3d 44 3a 4c 41  |2=Y:M2=M:D2=D:LA|
000002d0  50 53 45 3d a4 54 49 4d  45 4c 41 50 53 45 0d 01  |PSE=.TIMELAPSE..|
000002e0  36 20 20 e7 20 4c 41 50  53 45 3c 30 20 8c 20 f2  |6  . LAPSE<0 . .|
000002f0  45 52 52 4f 52 28 39 29  3a e5 8d 64 48 40 0d 01  |ERROR(9):..dH@..|
00000300  40 22 20 e7 20 4c 41 50  53 45 3c 31 30 20 8c 20  |@" . LAPSE<10 . |
00000310  f2 45 52 52 4f 52 28 31  30 29 3a e5 8d 64 48 40  |.ERROR(10):..dH@|
00000320  0d 01 4a 32 20 f1 8a 30  2c 31 38 29 3b 22 45 6c  |..J2 ..0,18);"El|
00000330  61 70 73 65 64 20 64 61  79 73 20 73 69 6e 63 65  |apsed days since|
00000340  20 62 69 72 74 68 20 2e  2e 2e 2e 22 3b 4c 41 50  | birth ....";LAP|
00000350  53 45 0d 01 54 0b 20 f2  53 50 41 43 45 0d 01 90  |SE..T. .SPACE...|
00000360  16 20 41 25 3d 32 33 3a  42 25 3d 32 38 3a 43 25  |. A%=23:B%=28:C%|
00000370  3d 33 33 0d 01 9a 10 20  44 25 3d 4c 41 50 53 45  |=33.... D%=LAPSE|
00000380  2d 31 30 0d 01 a4 21 20  45 25 3d 31 30 30 3a 46  |-10...! E%=100:F|
00000390  25 3d 31 31 30 30 3a 49  25 3d 28 46 25 2d 45 25  |%=1100:I%=(F%-E%|
000003a0  29 2f 32 30 0d 01 ae 17  20 58 25 3d 35 30 30 3a  |)/20.... X%=500:|
000003b0  59 25 3d 34 35 30 3a 5a  25 3d 31 0d 01 ea 0a 20  |Y%=450:Z%=1.... |
000003c0  e5 8d 74 44 43 0d 03 20  21 20 e7 20 9f 3c 3e 31  |..tDC.. ! . .<>1|
000003d0  37 20 8c 20 f6 3a f1 22  20 69 6e 20 6c 69 6e 65  |7 . .:." in line|
000003e0  20 22 3b 9e 3a e0 0d 03  2a 09 20 5a 25 3d 32 0d  | ";.:...*. Z%=2.|
000003f0  03 84 4b 20 db 3a e7 20  4d 25 3d 30 20 8c 20 f1  |..K .:. M%=0 . .|
00000400  8a 35 2c 35 29 3b 22 50  72 65 73 73 20 74 68 65  |.5,5);"Press the|
00000410  20 50 4c 41 59 20 62 75  74 74 6f 6e 22 27 22 20  | PLAY button"'" |
00000420  20 20 20 20 6f 6e 20 79  6f 75 72 20 74 61 70 65  |    on your tape|
00000430  20 72 65 63 6f 72 64 65  72 22 0d 03 de 0b 20 d7  | recorder".... .|
00000440  22 42 49 4f 22 0d 03 e8  0c 20 dd f2 49 4e 54 52  |"BIO".... ..INTR|
00000450  4f 0d 03 ed 09 20 db 3a  f1 27 0d 03 f2 2a 20 f1  |O.... .:.'...* .|
00000460  22 20 20 20 20 53 6f 6d  65 20 70 65 6f 70 6c 65  |"    Some people|
00000470  20 62 65 6c 69 65 76 65  20 74 68 61 74 20 68 75  | believe that hu|
00000480  6d 61 6e 22 0d 03 fc 29  20 f1 22 74 65 6d 70 65  |man"...) ."tempe|
00000490  72 61 6d 65 6e 74 20 61  6e 64 20 62 65 68 61 76  |rament and behav|
000004a0  69 6f 75 72 20 73 65 65  6d 20 74 6f 22 0d 04 06  |iour seem to"...|
000004b0  2f 20 f1 22 66 6f 6c 6c  6f 77 20 70 72 65 64 69  |/ ."follow predi|
000004c0  63 74 61 62 6c 65 20 72  65 63 75 72 72 69 6e 67  |ctable recurring|
000004d0  20 70 61 74 74 65 72 6e  73 2e 22 27 0d 04 10 2d  | patterns."'...-|
000004e0  20 f1 22 20 20 20 20 54  68 65 73 65 20 70 61 74  | ."    These pat|
000004f0  74 65 72 6e 73 2c 20 27  42 49 4f 52 48 59 54 48  |terns, 'BIORHYTH|
00000500  4d 53 27 2c 20 63 61 6e  22 0d 04 1a 2c 20 f1 22  |MS', can"..., ."|
00000510  62 65 20 62 72 6f 6b 65  6e 20 64 6f 77 6e 20 69  |be broken down i|
00000520  6e 74 6f 20 74 68 72 65  65 20 63 79 63 6c 65 73  |nto three cycles|
00000530  3a 20 2d 22 27 0d 04 24  2a 20 f1 22 49 4e 54 45  |: -"'..$* ."INTE|
00000540  4c 4c 45 43 54 55 41 4c  20 2d 20 61 20 63 79 63  |LLECTUAL - a cyc|
00000550  6c 65 20 6f 66 20 33 33  20 64 61 79 73 2c 22 0d  |le of 33 days,".|
00000560  04 2e 2e 20 f1 22 20 20  20 20 61 66 66 65 63 74  |... ."    affect|
00000570  69 6e 67 20 63 6f 6e 63  65 6e 74 72 61 74 69 6f  |ing concentratio|
00000580  6e 2c 20 6a 75 64 67 65  6d 65 6e 74 22 0d 04 38  |n, judgement"..8|
00000590  24 20 f1 22 20 20 20 20  61 6e 64 20 6c 65 61 72  |$ ."    and lear|
000005a0  6e 69 6e 67 20 61 62 69  6c 69 74 69 65 73 2e 22  |ning abilities."|
000005b0  27 0d 04 4c 2a 20 f1 22  45 4d 4f 54 49 4f 4e 41  |'..L* ."EMOTIONA|
000005c0  4c 20 20 20 20 2d 20 61  20 63 79 63 6c 65 20 6f  |L    - a cycle o|
000005d0  66 20 32 38 20 64 61 79  73 2c 22 0d 04 56 2d 20  |f 28 days,"..V- |
000005e0  f1 22 20 20 20 20 63 6f  6e 74 72 6f 6c 6c 69 6e  |."    controllin|
000005f0  67 20 6d 6f 6f 64 73 2c  20 63 72 65 61 74 69 76  |g moods, creativ|
00000600  69 74 79 20 61 6e 64 22  0d 04 60 1c 20 f1 22 20  |ity and"..`. ." |
00000610  20 20 20 65 6d 6f 74 69  6f 6e 61 6c 20 6c 69 66  |   emotional lif|
00000620  65 2e 22 27 0d 04 74 2a  20 f1 22 50 48 59 53 49  |e."'..t* ."PHYSI|
00000630  43 41 4c 20 20 20 20 20  2d 20 61 20 63 79 63 6c  |CAL     - a cycl|
00000640  65 20 6f 66 20 32 33 20  64 61 79 73 2c 22 0d 04  |e of 23 days,"..|
00000650  7e 2a 20 f1 22 20 20 20  20 67 6f 76 65 72 6e 69  |~* ."    governi|
00000660  6e 67 20 65 6e 65 72 67  79 2c 20 63 6f 6f 72 64  |ng energy, coord|
00000670  69 6e 61 74 69 6f 6e 22  0d 04 88 18 20 f1 22 20  |ination".... ." |
00000680  20 20 20 61 6e 64 20 73  74 61 6d 69 6e 61 2e 22  |   and stamina."|
00000690  0d 04 a6 0b 20 f2 53 50  41 43 45 0d 04 b0 09 20  |.... .SPACE.... |
000006a0  db 3a f1 27 0d 04 ba 2a  20 f1 22 20 20 20 54 68  |.:.'...* ."   Th|
000006b0  65 73 65 20 63 79 63 6c  65 73 20 73 74 61 72 74  |ese cycles start|
000006c0  20 61 74 20 62 69 72 74  68 20 61 6e 64 22 0d 04  | at birth and"..|
000006d0  c4 29 20 f1 22 63 6f 6e  74 69 6e 75 65 20 77 69  |.) ."continue wi|
000006e0  74 68 20 61 62 73 6f 6c  75 74 65 20 72 65 67 75  |th absolute regu|
000006f0  6c 61 72 69 74 79 22 0d  04 ce 19 20 f1 22 74 68  |larity".... ."th|
00000700  72 6f 75 67 68 6f 75 74  20 6c 69 66 65 2e 22 27  |roughout life."'|
00000710  0d 05 14 2e 20 f1 22 20  20 20 45 61 63 68 20 63  |.... ."   Each c|
00000720  79 63 6c 65 20 68 61 73  20 61 20 70 6f 73 69 74  |ycle has a posit|
00000730  69 76 65 20 70 68 61 73  65 20 61 6e 64 22 0d 05  |ive phase and"..|
00000740  1e 1a 20 f1 22 61 20 6e  65 67 61 74 69 76 65 20  |.. ."a negative |
00000750  70 68 61 73 65 2e 22 27  0d 05 28 29 20 f1 22 20  |phase."'..() ." |
00000760  20 20 44 75 72 69 6e 67  20 74 68 65 20 70 6f 73  |  During the pos|
00000770  69 74 69 76 65 20 70 68  61 73 65 2c 20 74 68 65  |itive phase, the|
00000780  22 0d 05 32 2a 20 f1 22  65 6e 65 72 67 79 20 63  |"..2* ."energy c|
00000790  6f 6e 74 72 6f 6c 6c 65  64 20 62 79 20 74 68 61  |ontrolled by tha|
000007a0  74 20 63 79 63 6c 65 20  69 73 22 0d 05 3c 2d 20  |t cycle is"..<- |
000007b0  f1 22 62 65 69 6e 67 20  64 69 73 63 68 61 72 67  |."being discharg|
000007c0  65 64 2e 20 54 68 65 73  65 20 61 72 65 20 64 61  |ed. These are da|
000007d0  79 73 20 77 68 65 6e 22  0d 05 46 29 20 f1 22 70  |ys when"..F) ."p|
000007e0  6f 73 69 74 69 76 65 20  61 73 70 65 63 74 73 20  |ositive aspects |
000007f0  6f 66 20 74 68 65 20 63  79 63 6c 65 20 61 72 65  |of the cycle are|
00000800  22 0d 05 50 12 20 f1 22  65 6e 68 61 6e 63 65 64  |"..P. ."enhanced|
00000810  2e 22 27 0d 05 78 2c 20  f1 22 20 20 20 54 68 65  |."'..x, ."   The|
00000820  20 6e 65 67 61 74 69 76  65 20 70 68 61 73 65 20  | negative phase |
00000830  69 73 20 61 20 70 65 72  69 6f 64 20 6f 66 22 0d  |is a period of".|
00000840  05 82 2c 20 f1 22 72 65  63 68 61 72 67 69 6e 67  |.., ."recharging|
00000850  2c 20 77 68 65 6e 20 65  6e 65 72 67 79 20 61 6e  |, when energy an|
00000860  64 20 76 69 74 61 6c 69  74 79 22 0d 05 8c 14 20  |d vitality".... |
00000870  f1 22 61 72 65 20 72 65  64 75 63 65 64 2e 22 0d  |."are reduced.".|
00000880  05 d2 0b 20 f2 53 50 41  43 45 0d 05 dc 0a 20 db  |... .SPACE.... .|
00000890  3a f1 27 27 0d 05 e6 29  20 f1 22 20 20 20 41 20  |:.''...) ."   A |
000008a0  63 72 69 74 69 63 61 6c  20 64 61 79 20 69 73 20  |critical day is |
000008b0  77 68 65 6e 20 61 20 63  79 63 6c 65 22 0d 05 f0  |when a cycle"...|
000008c0  17 20 f1 22 63 68 61 6e  67 65 73 20 70 68 61 73  |. ."changes phas|
000008d0  65 2e 22 27 0d 05 fa 2b  20 f1 22 20 20 20 54 68  |e."'...+ ."   Th|
000008e0  65 73 65 20 61 72 65 20  64 61 79 73 20 77 68 65  |ese are days whe|
000008f0  6e 20 79 6f 75 20 61 72  65 20 6d 6f 72 65 22 0d  |n you are more".|
00000900  06 04 2b 20 f1 22 6c 69  6b 65 6c 79 20 74 6f 20  |..+ ."likely to |
00000910  68 61 76 65 20 61 63 63  69 64 65 6e 74 73 2e 20  |have accidents. |
00000920  43 61 72 65 20 6d 75 73  74 22 0d 06 0e 20 20 f1  |Care must"...  .|
00000930  22 62 65 20 74 61 6b 65  6e 20 6f 6e 20 74 68 65  |"be taken on the|
00000940  73 65 20 64 61 79 73 2e  22 27 0d 06 40 2b 20 f1  |se days."'..@+ .|
00000950  22 20 20 20 54 68 69 73  20 69 73 20 65 73 70 65  |"   This is espe|
00000960  63 69 61 6c 6c 79 20 74  72 75 65 20 77 68 65 6e  |cially true when|
00000970  20 74 77 6f 22 0d 06 4a  27 20 f1 22 63 79 63 6c  | two"..J' ."cycl|
00000980  65 73 20 63 68 61 6e 67  65 20 6f 6e 20 74 68 65  |es change on the|
00000990  20 73 61 6d 65 20 64 61  79 2e 22 27 0d 06 54 2a  | same day."'..T*|
000009a0  20 f1 22 20 20 20 57 68  65 6e 20 61 6c 6c 20 74  | ."   When all t|
000009b0  68 72 65 65 20 63 79 63  6c 65 73 20 63 68 61 6e  |hree cycles chan|
000009c0  67 65 20 6f 6e 22 0d 06  5e 27 20 f1 22 74 68 65  |ge on"..^' ."the|
000009d0  20 73 61 6d 65 20 64 61  79 2c 20 79 6f 75 20 77  | same day, you w|
000009e0  6f 75 6c 64 20 62 65 20  77 65 6c 6c 22 0d 06 68  |ould be well"..h|
000009f0  1f 20 f1 22 61 64 76 69  73 65 64 20 74 6f 20 73  |. ."advised to s|
00000a00  74 61 79 20 69 6e 20 62  65 64 21 22 0d 06 9a 0b  |tay in bed!"....|
00000a10  20 f2 53 50 41 43 45 0d  06 a3 06 20 e1 0d 0f a0  | .SPACE.... ....|
00000a20  0e 20 dd f2 41 4e 41 4c  59 53 45 0d 0f aa 0c 20  |. ..ANALYSE.... |
00000a30  ea 20 4c 2c 53 2c 54 0d  0f b4 18 20 43 4e 54 3d  |. L,S,T.... CNT=|
00000a40  30 3a 49 3d 31 3a f2 4e  45 58 54 43 48 41 52 0d  |0:I=1:.NEXTCHAR.|
00000a50  10 04 24 20 e7 20 a4 46  49 4c 4c 45 52 28 54 24  |..$ . .FILLER(T$|
00000a60  29 20 8c 20 f2 4e 45 58  54 43 48 41 52 3a e5 8d  |) . .NEXTCHAR:..|
00000a70  54 44 50 0d 10 0e 20 20  53 3d 49 2d 31 3a e7 20  |TDP...  S=I-1:. |
00000a80  ac 20 a4 44 49 47 49 54  28 54 24 29 20 8c 20 8d  |. .DIGIT(T$) . .|
00000a90  54 6c 50 0d 10 18 0c 20  4c 3d 30 3a 54 3d 30 0d  |TlP.... L=0:T=0.|
00000aa0  10 22 35 20 f5 3a 4c 3d  97 28 54 24 29 2d 34 38  |."5 .:L=.(T$)-48|
00000ab0  2b 4c 2a 31 30 3a f2 4e  45 58 54 43 48 41 52 3a  |+L*10:.NEXTCHAR:|
00000ac0  fd 20 ac 20 a4 44 49 47  49 54 28 54 24 29 3a e5  |. . .DIGIT(T$):.|
00000ad0  8d 44 68 50 0d 10 2c 1b  20 e7 20 ac 20 a4 4c 45  |.DhP..,. . . .LE|
00000ae0  54 54 45 52 28 54 24 29  20 8c 20 8d 44 4a 50 0d  |TTER(T$) . .DJP.|
00000af0  10 36 0c 20 54 3d 31 3a  4c 3d 30 0d 10 40 2c 20  |.6. T=1:L=0..@, |
00000b00  f5 3a 4c 3d 4c 2b 31 3a  f2 4e 45 58 54 43 48 41  |.:L=L+1:.NEXTCHA|
00000b10  52 3a fd 20 ac 20 a4 4c  45 54 54 45 52 28 54 24  |R:. . .LETTER(T$|
00000b20  29 3a e5 8d 44 68 50 0d  10 4a 15 20 e7 20 54 24  |):..DhP..J. . T$|
00000b30  3d bd 28 30 29 20 8c 20  8d 64 4b 50 0d 10 54 16  |=.(0) . .dKP..T.|
00000b40  20 54 3d 32 3a 4c 3d 31  3a f2 4e 45 58 54 43 48  | T=2:L=1:.NEXTCH|
00000b50  41 52 0d 10 68 35 20 43  4e 54 3d 43 4e 54 2b 31  |AR..h5 CNT=CNT+1|
00000b60  3a e7 20 43 4e 54 3c 36  20 8c 20 54 25 28 43 4e  |:. CNT<6 . T%(CN|
00000b70  54 29 3d 54 3a 53 25 28  43 4e 54 29 3d 53 3a 4c  |T)=T:S%(CNT)=S:L|
00000b80  28 43 4e 54 29 3d 4c 0d  10 72 0a 20 e5 8d 54 44  |(CNT)=L..r. ..TD|
00000b90  50 0d 10 cb 06 20 e1 0d  11 94 0f 20 dd f2 4e 45  |P.... ..... ..NE|
00000ba0  58 54 43 48 41 52 0d 11  9e 2d 20 e7 20 49 3e a9  |XTCHAR...- . I>.|
00000bb0  28 44 24 29 20 8c 20 54  24 3d bd 28 30 29 20 8b  |(D$) . T$=.(0) .|
00000bc0  20 20 54 24 3d c1 44 24  2c 49 2c 31 29 3a 49 3d  |  T$=.D$,I,1):I=|
00000bd0  49 2b 31 0d 11 f7 06 20  e1 0d 11 f8 10 20 dd a4  |I+1.... ..... ..|
00000be0  44 49 47 49 54 28 54 24  29 0d 12 02 22 20 e7 20  |DIGIT(T$)..." . |
00000bf0  22 30 22 3c 3d 54 24 20  80 20 54 24 3c 3d 22 39  |"0"<=T$ . T$<="9|
00000c00  22 20 8c 20 3d b9 20 8b  20 3d a3 0d 12 5c 11 20  |" . =. . =...\. |
00000c10  dd a4 4c 45 54 54 45 52  28 54 24 29 0d 12 66 22  |..LETTER(T$)..f"|
00000c20  20 e7 20 22 41 22 3c 3d  54 24 20 80 20 54 24 3c  | . "A"<=T$ . T$<|
00000c30  3d 22 5a 22 20 8c 20 3d  b9 20 8b 20 3d a3 0d 12  |="Z" . =. . =...|
00000c40  c0 11 20 dd a4 46 49 4c  4c 45 52 28 54 24 29 0d  |.. ..FILLER(T$).|
00000c50  12 ca 44 20 e7 20 54 24  3d 22 20 22 20 84 20 54  |..D . T$=" " . T|
00000c60  24 3d 22 2e 22 20 84 20  54 24 3d 22 2f 22 20 84  |$="." . T$="/" .|
00000c70  20 54 24 3d 22 2d 22 20  84 20 54 24 3d 22 2c 22  | T$="-" . T$=","|
00000c80  20 84 20 54 24 3d 22 3a  22 20 8c 20 3d b9 20 8b  | . T$=":" . =. .|
00000c90  20 3d a3 0d 13 88 11 20  dd a4 44 41 54 45 4f 4b  | =..... ..DATEOK|
00000ca0  28 4e 4f 29 0d 13 92 1a  20 f4 20 47 45 54 20 41  |(NO).... . GET A|
00000cb0  4e 44 20 44 45 44 55 43  45 20 44 41 54 45 0d 13  |ND DEDUCE DATE..|
00000cc0  9c 15 20 f4 20 50 55 54  20 49 4e 20 44 2c 4d 20  |.. . PUT IN D,M |
00000cd0  26 20 59 0d 13 a6 15 20  f2 47 50 49 28 30 2c 33  |& Y.... .GPI(0,3|
00000ce0  30 29 3a 44 24 3d 22 22  0d 13 b0 20 20 e3 20 49  |0):D$=""...  . I|
00000cf0  3d 31 20 b8 20 a9 28 41  24 29 3a 54 3d 97 28 c1  |=1 . .(A$):T=.(.|
00000d00  41 24 2c 49 2c 31 29 29  0d 13 ba 1c 20 e7 20 54  |A$,I,1)).... . T|
00000d10  3e 39 36 20 80 20 54 3c  31 32 33 20 8c 20 54 3d  |>96 . T<123 . T=|
00000d20  54 2d 33 32 0d 13 bf 11  20 44 24 3d 44 24 2b bd  |T-32.... D$=D$+.|
00000d30  28 54 29 3a ed 0d 13 c4  25 20 e7 20 44 24 3d 22  |(T):....% . D$="|
00000d40  54 4f 44 41 59 22 20 8c  20 f2 45 52 52 4f 52 28  |TODAY" . .ERROR(|
00000d50  36 2b 4e 4f 29 3a 3d a3  20 20 0d 13 ce 0d 20 f2  |6+NO):=.  .... .|
00000d60  41 4e 41 4c 59 53 45 0d  13 d8 26 20 58 3d a4 43  |ANALYSE...& X=.C|
00000d70  48 45 43 4b 44 41 54 45  3a e7 20 58 3e 31 20 8c  |HECKDATE:. X>1 .|
00000d80  20 f2 45 52 52 4f 52 28  58 29 3a 3d a3 0d 13 e2  | .ERROR(X):=....|
00000d90  07 20 3d b9 0d 14 50 10  20 dd a4 43 48 45 43 4b  |. =...P. ..CHECK|
00000da0  44 41 54 45 0d 14 5a 19  20 e7 20 43 4e 54 3d 30  |DATE..Z. . CNT=0|
00000db0  20 84 20 43 4e 54 3e 36  20 8c 3d 32 20 0d 14 64  | . CNT>6 .=2 ..d|
00000dc0  1f 20 e7 20 54 25 28 43  4e 54 29 3e 30 20 8c 20  |. . T%(CNT)>0 . |
00000dd0  3d 33 3a f4 20 4e 4f 20  59 45 41 52 0d 14 6e 20  |=3:. NO YEAR..n |
00000de0  20 59 3d 4c 28 43 4e 54  29 3a e7 20 59 3c 31 30  | Y=L(CNT):. Y<10|
00000df0  30 20 8c 20 59 3d 31 39  30 30 2b 59 0d 14 78 1b  |0 . Y=1900+Y..x.|
00000e00  20 e7 20 59 3c 31 39 30  30 20 84 20 59 3e 32 30  | . Y<1900 . Y>20|
00000e10  30 30 20 8c 20 3d 33 0d  14 82 1b 20 43 4e 54 3d  |00 . =3.... CNT=|
00000e20  43 4e 54 2d 31 3a e7 20  43 4e 54 3d 30 20 8c 20  |CNT-1:. CNT=0 . |
00000e30  3d 32 0d 14 b4 19 20 43  3d 31 3a e7 20 54 25 28  |=2.... C=1:. T%(|
00000e40  31 29 3d 31 20 8c 20 8d  54 58 55 0d 14 be 13 20  |1)=1 . .TXU.... |
00000e50  e7 20 54 25 28 31 29 3d  32 20 8c 20 3d 34 0d 14  |. T%(1)=2 . =4..|
00000e60  c8 0c 20 f2 47 45 54 44  41 59 0d 14 d2 11 20 e7  |.. .GETDAY.... .|
00000e70  20 43 3e 43 4e 54 20 8c  20 3d 32 0d 14 dc 19 20  | C>CNT . =2.... |
00000e80  f2 47 45 54 4d 4f 4e 54  48 3a e7 20 4d 3d 30 20  |.GETMONTH:. M=0 |
00000e90  8c 20 3d 35 0d 14 e6 0a  20 e5 8d 44 7c 55 0d 15  |. =5.... ..D|U..|
00000ea0  18 19 20 f2 47 45 54 4d  4f 4e 54 48 3a e7 20 4d  |.. .GETMONTH:. M|
00000eb0  3d 30 20 8c 20 3d 35 0d  15 22 11 20 e7 20 43 3e  |=0 . =5..". . C>|
00000ec0  43 4e 54 20 8c 20 3d 32  0d 15 2c 13 20 e7 20 54  |CNT . =2..,. . T|
00000ed0  25 28 43 29 3d 31 20 8c  20 3d 36 0d 15 36 0c 20  |%(C)=1 . =6..6. |
00000ee0  f2 47 45 54 44 41 59 0d  15 7c 11 20 e7 20 43 3c  |.GETDAY..|. . C<|
00000ef0  43 4e 54 20 8c 20 3d 32  0d 15 86 16 20 e7 20 44  |CNT . =2.... . D|
00000f00  3c 3d 4e 44 41 59 28 4d  29 20 8c 20 3d 31 0d 15  |<=NDAY(M) . =1..|
00000f10  90 26 20 e7 20 a4 4c 45  41 50 28 59 29 20 80 20  |.& . .LEAP(Y) . |
00000f20  44 3d 32 39 20 80 20 4d  3d 32 20 8c 20 3d 31 20  |D=29 . M=2 . =1 |
00000f30  8b 20 3d 36 0d 16 44 0d  20 dd f2 47 45 54 44 41  |. =6..D. ..GETDA|
00000f40  59 0d 16 4e 20 20 44 3d  4c 28 43 29 3a 43 3d 43  |Y..N  D=L(C):C=C|
00000f50  2b 31 3a e7 20 43 3e 43  4e 54 20 8c 20 8d 74 67  |+1:. C>CNT . .tg|
00000f60  56 0d 16 58 16 20 e7 20  54 25 28 43 29 3c 3e 31  |V..X. . T%(C)<>1|
00000f70  20 8c 20 8d 74 67 56 0d  16 62 1b 20 54 24 3d c0  | . .tgV..b. T$=.|
00000f80  c1 44 24 2c 53 25 28 43  29 2c 4c 28 43 29 29 2c  |.D$,S%(C),L(C)),|
00000f90  32 29 0d 16 6c 33 20 e7  20 54 24 3d 22 53 54 22  |2)..l3 . T$="ST"|
00000fa0  20 84 20 54 24 3d 22 52  44 22 20 84 20 54 24 3d  | . T$="RD" . T$=|
00000fb0  22 4e 44 22 20 84 20 54  24 3d 22 54 48 22 20 8c  |"ND" . T$="TH" .|
00000fc0  20 8d 74 40 56 0d 16 76  0a 20 e5 8d 74 67 56 0d  | .t@V..v. ..tgV.|
00000fd0  16 80 2f 20 4c 28 43 29  3d 4c 28 43 29 2d 32 3a  |../ L(C)=L(C)-2:|
00000fe0  53 25 28 43 29 3d 53 25  28 43 29 2b 32 3a e7 20  |S%(C)=S%(C)+2:. |
00000ff0  4c 28 43 29 3d 30 20 8c  20 43 3d 43 2b 31 0d 16  |L(C)=0 . C=C+1..|
00001000  a7 06 20 e1 0d 16 a8 0f  20 dd f2 47 45 54 4d 4f  |.. ..... ..GETMO|
00001010  4e 54 48 0d 16 b2 15 20  e7 20 54 25 28 43 29 3e  |NTH.... . T%(C)>|
00001020  30 20 8c 20 8d 64 50 56  0d 16 bc 19 20 4d 3d 4c  |0 . .dPV.... M=L|
00001030  28 43 29 3a e7 20 4d 3e  31 32 20 8c 20 8d 64 78  |(C):. M>12 . .dx|
00001040  56 0d 16 c6 0a 20 e5 8d  54 42 57 0d 16 d0 1c 20  |V.... ..TBW.... |
00001050  4d 3d 31 32 3a 4d 24 3d  c1 44 24 2c 53 25 28 43  |M=12:M$=.D$,S%(C|
00001060  29 2c 4c 28 43 29 29 0d  16 da 15 20 e7 20 a9 28  |),L(C)).... . .(|
00001070  4d 24 29 3c 33 20 8c 20  8d 64 78 56 0d 16 e4 20  |M$)<3 . .dxV... |
00001080  20 e7 20 c0 4d 4f 4e 24  28 4d 29 2c a9 28 4d 24  | . .MON$(M),.(M$|
00001090  29 29 3d 4d 24 20 8c 20  8d 54 42 57 0d 16 ee 17  |))=M$ . .TBW....|
000010a0  20 4d 3d 4d 2d 31 3a e7  20 4d 3e 30 20 8c 20 8d  | M=M-1:. M>0 . .|
000010b0  64 64 56 0d 16 f8 0e 20  4d 3d 30 3a e5 8d 54 4b  |ddV.... M=0:..TK|
000010c0  57 0d 17 02 0a 20 43 3d  43 2b 31 0d 17 0b 06 20  |W.... C=C+1.... |
000010d0  e1 0d 17 70 10 20 dd a4  54 49 4d 45 4c 41 50 53  |...p. ..TIMELAPS|
000010e0  45 0d 17 7a 2f 20 f4 20  43 41 4c 43 55 4c 41 54  |E..z/ . CALCULAT|
000010f0  45 20 4e 55 4d 42 45 52  20 4f 46 20 44 41 59 53  |E NUMBER OF DAYS|
00001100  20 42 45 54 57 45 45 4e  20 32 20 44 41 54 45 53  | BETWEEN 2 DATES|
00001110  0d 17 84 23 20 f4 20 44  41 54 45 53 20 49 4e 20  |...# . DATES IN |
00001120  44 31 2f 4d 31 2f 59 31  20 26 20 44 32 2f 4d 32  |D1/M1/Y1 & D2/M2|
00001130  2f 59 32 0d 17 d4 12 20  4c 3d 33 36 35 2a 28 59  |/Y2.... L=365*(Y|
00001140  32 2d 59 31 29 0d 17 de  29 20 e7 20 4d 32 3e 31  |2-Y1)...) . M2>1|
00001150  20 8c 20 e3 20 58 3d 31  20 b8 20 4d 32 2d 31 3a  | . . X=1 . M2-1:|
00001160  4c 3d 4c 2b 4e 44 41 59  28 58 29 3a ed 58 0d 17  |L=L+NDAY(X):.X..|
00001170  e8 29 20 e7 20 4d 31 3e  31 20 8c 20 e3 20 58 3d  |.) . M1>1 . . X=|
00001180  31 20 b8 20 4d 31 2d 31  3a 4c 3d 4c 2d 4e 44 41  |1 . M1-1:L=L-NDA|
00001190  59 28 58 29 3a ed 58 0d  17 f2 0e 20 4c 3d 4c 2b  |Y(X):.X.... L=L+|
000011a0  44 32 2d 44 31 0d 17 fc  1c 20 f4 20 41 44 4a 55  |D2-D1.... . ADJU|
000011b0  53 54 20 46 4f 52 20 4c  45 41 50 20 59 45 41 52  |ST FOR LEAP YEAR|
000011c0  53 0d 18 38 12 20 59 3d  28 59 31 20 81 20 34 29  |S..8. Y=(Y1 . 4)|
000011d0  2a 34 20 0d 18 42 19 20  59 3d 59 2b 34 3a e7 20  |*4 ..B. Y=Y+4:. |
000011e0  59 3e 3d 59 32 20 8c 20  8d 44 6a 58 0d 18 4c 17  |Y>=Y2 . .DjX..L.|
000011f0  20 e7 20 a4 4c 45 41 50  28 59 29 20 8c 20 4c 3d  | . .LEAP(Y) . L=|
00001200  4c 2b 31 0d 18 56 0a 20  e5 8d 44 42 58 0d 18 6a  |L+1..V. ..DBX..j|
00001210  13 20 e7 20 59 31 3d 59  32 20 8c 20 8d 74 5c 58  |. . Y1=Y2 . .t\X|
00001220  0d 18 74 1f 20 e7 20 a4  4c 45 41 50 28 59 31 29  |..t. . .LEAP(Y1)|
00001230  20 80 20 4d 31 3c 33 20  8c 20 4c 3d 4c 2b 31 0d  | . M1<3 . L=L+1.|
00001240  18 7e 1f 20 e7 20 a4 4c  45 41 50 28 59 32 29 20  |.~. . .LEAP(Y2) |
00001250  80 20 4d 32 3e 32 20 8c  20 4c 3d 4c 2b 31 0d 18  |. M2>2 . L=L+1..|
00001260  88 07 20 3d 4c 0d 18 9c  26 20 e7 20 a4 4c 45 41  |.. =L...& . .LEA|
00001270  50 28 59 31 29 20 80 20  4d 31 3c 33 20 80 20 4d  |P(Y1) . M1<3 . M|
00001280  32 3e 32 20 8c 20 4c 3d  4c 2b 31 0d 18 a6 07 20  |2>2 . L=L+1.... |
00001290  3d 4c 0d 19 64 0e 20 dd  a4 4c 45 41 50 28 59 29  |=L..d. ..LEAP(Y)|
000012a0  0d 19 6e 27 20 f4 20 52  45 54 55 52 4e 53 20 54  |..n' . RETURNS T|
000012b0  52 55 45 20 49 46 20 59  20 49 53 20 41 20 4c 45  |RUE IF Y IS A LE|
000012c0  41 50 20 59 45 41 52 0d  19 78 33 20 e7 20 59 20  |AP YEAR..x3 . Y |
000012d0  83 20 34 3d 30 20 80 20  28 59 20 83 20 31 30 30  |. 4=0 . (Y . 100|
000012e0  3c 3e 30 20 84 20 59 20  83 20 34 30 30 3d 30 29  |<>0 . Y . 400=0)|
000012f0  20 8c 20 3d b9 20 8b 20  3d a3 0d 1b 58 18 20 dd  | . =. . =...X. .|
00001300  f2 49 4e 49 54 3a f4 20  49 4e 49 54 49 41 4c 49  |.INIT:. INITIALI|
00001310  53 45 0d 1b 6c 18 20 de  20 4e 44 41 59 28 31 32  |SE..l. . NDAY(12|
00001320  29 2c 4d 4f 4e 24 28 31  32 29 0d 1b 76 1b 20 e3  |),MON$(12)..v. .|
00001330  20 4b 3d 31 20 b8 20 31  32 3a f3 20 4e 44 41 59  | K=1 . 12:. NDAY|
00001340  28 4b 29 3a ed 0d 1b 80  2a 20 dc 20 33 31 2c 32  |(K):....* . 31,2|
00001350  38 2c 33 31 2c 33 30 2c  33 31 2c 33 30 2c 33 31  |8,31,30,31,30,31|
00001360  2c 33 31 2c 33 30 2c 33  31 2c 33 30 2c 33 31 0d  |,31,30,31,30,31.|
00001370  1b 8a 1b 20 e3 20 4b 3d  31 20 b8 20 31 32 3a f3  |... . K=1 . 12:.|
00001380  20 4d 4f 4e 24 28 4b 29  3a ed 0d 1b 94 38 20 dc  | MON$(K):....8 .|
00001390  20 22 4a 41 4e 55 41 52  59 22 2c 22 46 45 42 52  | "JANUARY","FEBR|
000013a0  55 41 52 59 22 2c 22 4d  41 52 43 48 22 2c 22 41  |UARY","MARCH","A|
000013b0  50 52 49 4c 22 2c 22 4d  41 59 22 2c 22 4a 55 4e  |PRIL","MAY","JUN|
000013c0  45 22 0d 1b 9e 42 20 dc  20 22 4a 55 4c 59 22 2c  |E"...B . "JULY",|
000013d0  22 41 55 47 55 53 54 22  2c 22 53 45 50 54 45 4d  |"AUGUST","SEPTEM|
000013e0  42 45 52 22 2c 22 4f 43  54 4f 42 45 52 22 2c 22  |BER","OCTOBER","|
000013f0  4e 4f 56 45 4d 42 45 52  22 2c 22 44 45 43 45 4d  |NOVEMBER","DECEM|
00001400  42 45 52 22 0d 1b bb 06  20 e1 0d 1c 20 0f 20 dd  |BER".... ... . .|
00001410  f2 45 52 52 4f 52 28 58  29 0d 1c 2a 0d 20 f1 8a  |.ERROR(X)..*. ..|
00001420  30 2c 31 36 29 3b 0d 1c  34 3c 20 ee 20 58 20 e5  |0,16);..4< . X .|
00001430  20 8d 44 4b 5d 2c 8d 74  58 5c 2c 8d 74 62 5c 2c  | .DK],.tX\,.tb\,|
00001440  8d 74 6c 5c 2c 8d 74 76  5c 2c 8d 64 40 5c 2c 8d  |.tl\,.tv\,.d@\,.|
00001450  64 4a 5c 2c 8d 64 54 5c  2c 8d 64 5e 5c 2c 8d 74  |dJ\,.dT\,.d^\,.t|
00001460  44 5c 0d 1c 84 3f 20 f1  22 59 6f 75 20 6d 75 73  |D\...? ."You mus|
00001470  74 20 62 65 20 61 74 20  6c 65 61 73 74 20 31 30  |t be at least 10|
00001480  20 64 61 79 73 20 6f 6c  64 22 27 22 74 6f 20 67  | days old"'"to g|
00001490  65 74 20 61 20 70 6c 6f  74 2e 22 3a e5 8d 64 68  |et a plot.":..dh|
000014a0  5c 0d 1c 98 24 20 f1 22  43 61 6e 27 74 20 75 6e  |\...$ ."Can't un|
000014b0  64 65 72 73 74 61 6e 64  20 74 68 61 74 2e 22 3a  |derstand that.":|
000014c0  e5 8d 64 68 5c 0d 1c a2  47 20 f1 22 54 68 61 74  |..dh\...G ."That|
000014d0  20 64 6f 65 73 20 6e 6f  74 20 63 6f 6e 74 61 69  | does not contai|
000014e0  6e 20 61 20 79 65 61 72  20 69 6e 20 74 68 65 22  |n a year in the"|
000014f0  27 22 72 61 6e 67 65 20  31 39 30 30 20 74 6f 20  |'"range 1900 to |
00001500  32 30 32 30 2e 22 3a e5  8d 64 68 5c 0d 1c ac 30  |2020.":..dh\...0|
00001510  20 f1 22 43 61 6e 27 74  20 75 6e 64 65 72 73 74  | ."Can't underst|
00001520  61 6e 64 20 74 68 65 20  64 61 79 20 6f 72 20 6d  |and the day or m|
00001530  6f 6e 74 68 2e 22 3a e5  8d 64 68 5c 0d 1c b6 28  |onth.":..dh\...(|
00001540  20 f1 22 4e 6f 74 20 73  75 72 65 20 61 62 6f 75  | ."Not sure abou|
00001550  74 20 74 68 61 74 20 6d  6f 6e 74 68 2e 22 3a e5  |t that month.":.|
00001560  8d 64 68 5c 0d 1c c0 26  20 f1 22 4e 6f 74 20 73  |.dh\...& ."Not s|
00001570  75 72 65 20 61 62 6f 75  74 20 74 68 61 74 20 64  |ure about that d|
00001580  61 79 2e 22 3a e5 8d 64  68 5c 0d 1c ca 17 20 f1  |ay.":..dh\.... .|
00001590  22 48 41 50 50 59 20 42  49 52 54 48 44 41 59 2e  |"HAPPY BIRTHDAY.|
000015a0  22 0d 1c d4 27 20 f1 22  42 75 74 20 77 68 61 74  |"...' ."But what|
000015b0  20 69 73 20 74 6f 64 61  79 27 73 20 64 61 74 65  | is today's date|
000015c0  3f 22 3a e5 8d 64 68 5c  0d 1c de 46 20 f1 22 59  |?":..dh\...F ."Y|
000015d0  6f 75 72 20 64 61 74 65  20 6f 66 20 62 69 72 74  |our date of birt|
000015e0  68 20 6d 75 73 74 20 62  65 20 74 68 65 22 27 22  |h must be the"'"|
000015f0  65 61 72 6c 69 65 73 74  20 64 61 74 65 20 74 68  |earliest date th|
00001600  61 74 20 79 6f 75 20 65  6e 74 65 72 2e 22 0d 1c  |at you enter."..|
00001610  e8 1a 20 f1 27 22 54 72  79 20 41 67 61 69 6e 2e  |.. .'"Try Again.|
00001620  22 3a f2 53 50 41 43 45  0d 1c f2 10 20 e3 20 4b  |":.SPACE.... . K|
00001630  3d 31 36 20 b8 20 32 32  0d 1c fc 14 20 f1 8a 30  |=16 . 22.... ..0|
00001640  2c 4b 29 3b c4 34 30 2c  22 20 22 29 0d 1d 06 06  |,K);.40," ")....|
00001650  20 ed 0d 1d 4b 06 20 e1  0d 1f 40 12 20 dd f2 44  | ...K. ...@. ..D|
00001660  42 4c 28 58 24 2c 58 2c  59 29 0d 1f 4a 17 20 f1  |BL(X$,X,Y)..J. .|
00001670  8a 58 2d 31 2c 59 29 3b  bd 28 31 34 31 29 3b 58  |.X-1,Y);.(141);X|
00001680  24 0d 1f 54 1a 20 f1 8a  58 2d 31 2c 59 2b 31 29  |$..T. ..X-1,Y+1)|
00001690  3b bd 28 31 34 31 29 3b  58 24 20 0d 1f a3 06 20  |;.(141);X$ .... |
000016a0  e1 0d 1f a4 0e 20 dd f2  57 41 49 54 28 58 29 0d  |..... ..WAIT(X).|
000016b0  1f ae 08 20 ea 20 5a 0d  1f b8 08 20 5a 3d 91 0d  |... . Z.... Z=..|
000016c0  1f c2 12 20 f5 20 fd 20  91 2d 5a 3e 58 2a 31 30  |... . . .-Z>X*10|
000016d0  30 0d 20 07 06 20 e1 0d  20 08 0c 20 dd f2 53 50  |0. .. .. .. ..SP|
000016e0  41 43 45 0d 20 1c 34 20  f1 8a 33 2c 32 32 29 3b  |ACE. .4 ..3,22);|
000016f0  22 50 72 65 73 73 20 74  68 65 20 53 50 41 43 45  |"Press the SPACE|
00001700  20 42 41 52 20 74 6f 20  63 6f 6e 74 69 6e 75 65  | BAR to continue|
00001710  22 3b 3a f2 4b 43 4c 0d  20 30 0e 20 f5 20 fd 20  |";:.KCL. 0. . . |
00001720  be 3d 22 20 22 0d 20 6b  06 20 e1 0d 20 6c 10 20  |.=" ". k. .. l. |
00001730  dd f2 54 49 54 4c 45 50  41 47 45 0d 20 76 1d 20  |..TITLEPAGE. v. |
00001740  db 3a f2 44 42 4c 28 22  42 49 4f 52 48 59 54 48  |.:.DBL("BIORHYTH|
00001750  4d 53 22 2c 38 2c 39 29  0d 20 80 13 20 f2 4f 46  |MS",8,9). .. .OF|
00001760  46 3a 4e 25 3d a6 28 35  30 30 29 0d 20 cf 06 20  |F:N%=.(500). .. |
00001770  e1 0d 22 60 0a 20 dd f2  4b 43 4c 0d 22 6a 15 20  |.."`. ..KCL."j. |
00001780  e7 20 bf 28 30 29 3e 22  22 20 8c 20 8d 44 6a 62  |. .(0)>"" . .Djb|
00001790  0d 22 c3 07 20 e1 20 0d  22 c4 0b 20 dd f2 4f 46  |.".. . .".. ..OF|
000017a0  46 20 0d 22 ce 16 20 ef  32 33 3b 38 32 30 32 3b  |F .".. .23;8202;|
000017b0  30 3b 30 3b 30 3b 3a e1  0d 22 f6 09 20 dd f2 4f  |0;0;0;:..".. ..O|
000017c0  4e 0d 23 00 17 20 ef 32  33 3b 32 39 31 39 34 3b  |N.#.. .23;29194;|
000017d0  30 3b 30 3b 30 3b 3a e1  0d 23 28 31 20 dd f2 47  |0;0;0;:..#(1 ..G|
000017e0  50 49 28 46 32 2c 4d 4c  29 3a f4 20 47 65 6e 65  |PI(F2,ML):. Gene|
000017f0  72 61 6c 20 50 75 72 70  6f 73 65 20 49 6e 70 75  |ral Purpose Inpu|
00001800  74 20 52 6f 75 74 69 6e  65 0d 23 32 0b 20 ea 42  |t Routine.#2. .B|
00001810  2c 42 24 20 0d 23 3c 0a  20 41 24 3d 22 22 0d 23  |,B$ .#<. A$="".#|
00001820  46 2b 20 f1 c4 4d 4c 2c  22 20 22 29 3b c4 4d 4c  |F+ ..ML," ");.ML|
00001830  2b 31 2c bd 28 38 29 29  3b bd 28 26 38 37 29 3b  |+1,.(8));.(&87);|
00001840  3a f2 4f 4e 3a f2 4b 43  4c 0d 23 50 1f 20 42 24  |:.ON:.KCL.#P. B$|
00001850  3d be 3a 42 3d 97 28 42  24 29 3a e7 20 42 3d 31  |=.:B=.(B$):. B=1|
00001860  33 20 8c 20 8d 64 66 63  0d 23 5a 1b 20 e7 20 42  |3 . .dfc.#Z. . B|
00001870  3d 31 32 37 20 80 20 41  24 3d 22 22 20 8c 20 8d  |=127 . A$="" . .|
00001880  44 50 63 0d 23 64 2a 20  e7 20 42 3d 31 32 37 20  |DPc.#d* . B=127 |
00001890  8c 20 41 24 3d c0 41 24  2c a9 28 41 24 29 2d 31  |. A$=.A$,.(A$)-1|
000018a0  29 3a f1 42 24 3b 3a e5  8d 44 50 63 20 0d 23 6e  |):.B$;:..DPc .#n|
000018b0  25 20 e7 20 a9 28 41 24  29 3d 4d 4c 20 84 20 42  |% . .(A$)=ML . B|
000018c0  3c 33 32 20 84 20 42 3e  31 32 36 20 8c 20 8d 64  |<32 . B>126 . .d|
000018d0  52 63 0d 23 78 2b 20 e7  20 46 32 3d 30 20 84 20  |Rc.#x+ . F2=0 . |
000018e0  42 3d 33 32 20 84 20 28  42 3e 3d 34 38 20 80 20  |B=32 . (B>=48 . |
000018f0  42 3c 3d 35 37 29 20 8c  20 8d 64 5c 63 0d 23 d2  |B<=57) . .d\c.#.|
00001900  0d 20 ef 37 3a e5 8d 44  50 63 0d 23 dc 18 20 f1  |. .7:..DPc.#.. .|
00001910  42 24 3b 3a 41 24 3d 41  24 2b 42 24 3a e5 8d 44  |B$;:A$=A$+B$:..D|
00001920  50 63 0d 23 e6 09 20 f2  4f 46 46 0d 23 ef 06 20  |Pc.#.. .OFF.#.. |
00001930  e1 0d 23 f0 0e 20 dd f2  59 45 53 4f 52 4e 4f 0d  |..#.. ..YESORNO.|
00001940  23 fa 09 20 ea 42 24 20  0d 24 04 0e 20 f2 47 50  |#.. .B$ .$.. .GP|
00001950  49 28 30 2c 33 29 0d 24  0e 0e 20 42 24 3d c0 41  |I(0,3).$.. B$=.A|
00001960  24 2c 31 29 0d 24 18 0a  20 59 25 3d 2d 31 0d 24  |$,1).$.. Y%=-1.$|
00001970  22 1d 20 e7 20 42 24 3d  22 59 22 20 84 20 42 24  |". . B$="Y" . B$|
00001980  3d 22 79 22 20 8c 20 59  25 3d 31 0d 24 2c 1d 20  |="y" . Y%=1.$,. |
00001990  e7 20 42 24 3d 22 4e 22  20 84 20 42 24 3d 22 6e  |. B$="N" . B$="n|
000019a0  22 20 8c 20 59 25 3d 30  0d 24 53 06 20 e1 0d ff  |" . Y%=0.$S. ...|
000019b0