� BIORHYTHMS
$� Electron Introductory Cassette
� Author T.D.
(�
2��M%=1234��T|@��M%=5678��DF@��5:�19,3,4;0;:�2:�0,5)"Does your cassette"''"recorder have motor"''"control (Y/N)?";:�(��&DF)=�"Y"�M%=5678:�DF@�M%=1234
<��1,-15,121,60:�5:�19,3,4;0;:�1:�8,9)"STOP";:�3:�6,13)"the tape":�2:�4,25)"Press SPACE"�4,27)"to continue":���=32:�&11,0,0,0
F
��:�DP@
P� MAP 255,BLOCK 8,DAYS%(12)
Zosword=&FFF1
d3�4:�OFF:�DBL("Biorhythms",12):NOW=�:���-NOW>300
n ��DXB:�I%=1�12:� DAYS%(I%):�
x
� � �txA
�
�INTRO
��
�)�CEN("To get your Biorhythm plot,",3)
�%�CEN("two dates are needed.",�+1)
�0�CEN("First, enter your date of birth:",�+2)
���0,8);:��DATE
�$DAY1=DAY:MONTH1=MONTH:YEAR1=YEAR
�.�CEN("and now, the date for the plot:",12)
���0,14);:��DATE
�$DAY2=DAY:MONTH2=MONTH:YEAR2=YEAR
�ELAPSED=�DIFFERENCE
�� ELAPSED<0 � �tL@
�3�CEN("Elapsed days since birth = "+�ELAPSED,20)


�SPACE

+�23,254,&18,&3C,&5A,&99,&18,&18,&18,&18

)�23,255,&20,&20,&20,&FC,&20,&20,&20,0

"�2

,$�5,19,3,2;0;19,2,4;0;29,100;500;

6D=ELAPSED-10

@I%=50:Y%=450

J�0,-Y%:�0,Y%:�0,0:�1000,0

T �K%=1�20:�K%*I%,0:�1,0,-20:�

^#�-50,Y%�2:�255:�-50,-Y%�2:�"-";

h�0,1:�10*I%,0:�1,0,-20

r�10*I%-20,-40:�254

|�SIN(23,2,"P")

��SIN(28,3,"E")

��SIN(33,1,"I")

���0

� 

�� Error Handler

�� �<>17 �:�" at line ";�:�

��4:�OFF

�&�CEN("Do you want to go on to",12)

�&�CEN("the next program (Y/N)?",13)

��ON

�$�X%=��&DF:�X%=�"Y" � X%=�"N":�X%

�� X%=�"N" �:�DP@

��'"Play tape"'
�""
 
$��SIN(wavelength,colour,letter$)
&'�0,colour:�0,Y%*�(2*�/wavelength*D)
03�X=0�1000�16:�X,Y%*�(2*�/wavelength*(D+X/I%)):�
:
�letter$;
D�
N 
X)� 31,28,31,30,31,30,31,31,30,31,30,31
b 
l
ݤDATE
v
vpos=�
��OFF:�0,vpos)�(120);:�ON
�M��OFF:�0,vpos)�(39):�ON:�5,vpos)"Day (1-31):"D$:DAY=�NUMBER(D$):�DAY>-1
�W��OFF:�0,vpos+1)�(39):�ON:�3,vpos+1)"Month (1-12):"M$:MONTH=�NUMBER(M$):�MONTH>-1
�N��OFF:�0,vpos+2)�(39):�ON:�11,vpos+2)"Year:"Y$:YEAR=�NUMBER(Y$):�YEAR>-1
�� YEAR<100 YEAR=YEAR+1900
�+� YEAR<1900 � YEAR>2020 � MONTH>12 � =�
�6� DAY>DAYS%(MONTH)+�LEAP(YEAR)*(MONTH=2) � =� � =�
� 
�ݤNUMBER(A$)
�� A$="" � =-1
�NONNUMERIC=�
�
�I%=1��A$
�CH$=�A$,I%,1)
$� CH$<"0" � CH$>"9" NONNUMERIC=�
�
� NONNUMERIC � =-1 � =�A$
  
*HݤLEAP(YEAR) � YEAR � 4=0 � (YEAR � 100<>0 � YEAR � 400=0) � =� � =�
4 
>ݤDIFFERENCE
HL%=365*(YEAR2-YEAR1)
R1� MONTH2>1 � �I%=1�MONTH2-1:L%=L%+DAYS%(I%):�
\1� MONTH1>1 � �I%=1�MONTH1-1:L%=L%-DAYS%(I%):�
fL%=L%+DAY2-DAY1
pYEARS=YEAR1-YEAR1 � 4
z'YEARS=YEARS+4:� YEARS>=YEAR2 � �tXC
�� �LEAP(YEARS) L%=L%+1
�	�DzC
�� YEAR1=YEAR2 � �d@C
�%� �LEAP(YEAR1) � MONTH1<3 L%=L%+1
�%� �LEAP(YEAR2) � MONTH2>2 L%=L%+1
�=L%
�0� �LEAP(YEAR1) � MONTH1<3 � MONTH2>2 L%=L%+1
�=L%
� 
���INTRO
�1�:�CEN("According to the Swiss science of",0)
�7�CEN("Biorhythms, three cycles start at birth",�+2)
�5�CEN("and continue with absolute regularity",�+2)
8�CEN("throughout life.  The three cycles are:-",�+2)
r�''"PHYSICAL"�13)"governs physical strength,"''"23 days      confidence, aggressiveness"''�13)"and endurance."
y�''"EMOTIONAL"�13)"governs feelings,intuition,"'"28 days      creativity, cooperation,"''�13)"love and cheerfulness."
$o�''"INTELLECTUAL"�13)"governs intelligence,memory"'"33 days"�13)"concentration and quickness"�13)"of mind."
.
�SPACE
80�:�CEN("The most critical days are those",3)
B5�CEN("when the cycle crosses the horizontal",�+3)
L3�CEN("line, denoting a transition between",�+3)
V+�CEN("the energy being discharged",�+3)
`�CEN("and recharged.",�+3)
j
�SPACE
t�
~ 
���OFF �23,1,0;0;0;0;:�
� 
���ON �23,1,1;0;0;0;:�
� 
�C��SPACE �OFF:�CEN("Press the SPACE BAR to continue",29):*FX15,1
����=" ":�ON:�
� 
�%��CEN(A$,Y%)�(40-�A$)/2,Y%)A$;:�
� 
���DBL(A$,y%)$MAP=�255,�0):MAP?255=0:CHARPTR=224:B$="":C$="":�CH%=1��A$:K%=�CHAR(��A$,CH%,1)):B$=B$+�K%:C$=C$+�(K%+1):�:K%=(40-�A$)/2:DBL$=�31+�K%+�y%+B$+�31+�K%+�(y%+1)+C$:�DBL$;:�
� 
��ݤCHAR(C%)�MAP?C%�=MAP?C%��CHARPTR>=256� �MAP?C%=CHARPTR:?BLOCK=C%:A%=10:X%=BLOCK:Y%=BLOCK � 256:�osword:�J%=0�1:�23,CHARPTR+J%:�I%=2�9:�BLOCK?(J%*4+I%�2):�,:CHARPTR=CHARPTR+2:=MAP?C%
�

00000000  0d 00 0a 10 f4 20 42 49  4f 52 48 59 54 48 4d 53  |..... BIORHYTHMS|
00000010  0d 00 14 24 f4 20 45 6c  65 63 74 72 6f 6e 20 49  |...$. Electron I|
00000020  6e 74 72 6f 64 75 63 74  6f 72 79 20 43 61 73 73  |ntroductory Cass|
00000030  65 74 74 65 0d 00 1e 11  f4 20 41 75 74 68 6f 72  |ette..... Author|
00000040  20 54 2e 44 2e 0d 00 28  07 ee 85 f9 0d 00 32 99  | T.D...(......2.|
00000050  e7 4d 25 3d 31 32 33 34  8c 8d 54 7c 40 8b e7 4d  |.M%=1234..T|@..M|
00000060  25 3d 35 36 37 38 8c 8d  44 46 40 8b eb 35 3a ef  |%=5678..DF@..5:.|
00000070  31 39 2c 33 2c 34 3b 30  3b 3a fb 32 3a f1 8a 30  |19,3,4;0;:.2:..0|
00000080  2c 35 29 22 44 6f 65 73  20 79 6f 75 72 20 63 61  |,5)"Does your ca|
00000090  73 73 65 74 74 65 22 27  27 22 72 65 63 6f 72 64  |ssette"''"record|
000000a0  65 72 20 68 61 76 65 20  6d 6f 74 6f 72 22 27 27  |er have motor"''|
000000b0  22 63 6f 6e 74 72 6f 6c  20 28 59 2f 4e 29 3f 22  |"control (Y/N)?"|
000000c0  3b 3a e7 28 a5 80 26 44  46 29 3d 97 22 59 22 8c  |;:.(..&DF)=."Y".|
000000d0  4d 25 3d 35 36 37 38 3a  e5 8d 44 46 40 8b 4d 25  |M%=5678:..DF@.M%|
000000e0  3d 31 32 33 34 0d 00 3c  82 d4 31 2c 2d 31 35 2c  |=1234..<..1,-15,|
000000f0  31 32 31 2c 36 30 3a eb  35 3a ef 31 39 2c 33 2c  |121,60:.5:.19,3,|
00000100  34 3b 30 3b 3a fb 31 3a  f1 8a 38 2c 39 29 22 53  |4;0;:.1:..8,9)"S|
00000110  54 4f 50 22 3b 3a fb 33  3a f1 8a 36 2c 31 33 29  |TOP";:.3:..6,13)|
00000120  22 74 68 65 20 74 61 70  65 22 3a fb 32 3a f1 8a  |"the tape":.2:..|
00000130  34 2c 32 35 29 22 50 72  65 73 73 20 53 50 41 43  |4,25)"Press SPAC|
00000140  45 22 8a 34 2c 32 37 29  22 74 6f 20 63 6f 6e 74  |E".4,27)"to cont|
00000150  69 6e 75 65 22 3a f5 fd  a5 3d 33 32 3a d4 26 31  |inue":...=32:.&1|
00000160  31 2c 30 2c 30 2c 30 0d  00 46 0d ee 85 d8 3a e5  |1,0,0,0..F....:.|
00000170  8d 44 50 40 0d 00 50 1f  de 20 4d 41 50 20 32 35  |.DP@..P.. MAP 25|
00000180  35 2c 42 4c 4f 43 4b 20  38 2c 44 41 59 53 25 28  |5,BLOCK 8,DAYS%(|
00000190  31 32 29 0d 00 5a 10 6f  73 77 6f 72 64 3d 26 46  |12)..Z.osword=&F|
000001a0  46 46 31 0d 00 64 33 eb  34 3a f2 4f 46 46 3a f2  |FF1..d3.4:.OFF:.|
000001b0  44 42 4c 28 22 42 69 6f  72 68 79 74 68 6d 73 22  |DBL("Biorhythms"|
000001c0  2c 31 32 29 3a 4e 4f 57  3d 91 3a f5 fd 91 2d 4e  |,12):NOW=.:...-N|
000001d0  4f 57 3e 33 30 30 0d 00  6e 20 f7 8d 44 58 42 3a  |OW>300..n ..DXB:|
000001e0  e3 49 25 3d 31 b8 31 32  3a f3 20 44 41 59 53 25  |.I%=1.12:. DAYS%|
000001f0  28 49 25 29 3a ed 0d 00  78 0d ee 20 85 20 e5 8d  |(I%):...x.. . ..|
00000200  74 78 41 0d 00 82 0a f2  49 4e 54 52 4f 0d 00 8c  |txA.....INTRO...|
00000210  05 db 0d 00 96 29 f2 43  45 4e 28 22 54 6f 20 67  |.....).CEN("To g|
00000220  65 74 20 79 6f 75 72 20  42 69 6f 72 68 79 74 68  |et your Biorhyth|
00000230  6d 20 70 6c 6f 74 2c 22  2c 33 29 0d 00 a0 25 f2  |m plot,",3)...%.|
00000240  43 45 4e 28 22 74 77 6f  20 64 61 74 65 73 20 61  |CEN("two dates a|
00000250  72 65 20 6e 65 65 64 65  64 2e 22 2c bc 2b 31 29  |re needed.",.+1)|
00000260  0d 00 aa 30 f2 43 45 4e  28 22 46 69 72 73 74 2c  |...0.CEN("First,|
00000270  20 65 6e 74 65 72 20 79  6f 75 72 20 64 61 74 65  | enter your date|
00000280  20 6f 66 20 62 69 72 74  68 3a 22 2c bc 2b 32 29  | of birth:",.+2)|
00000290  0d 00 b4 13 f5 f1 8a 30  2c 38 29 3b 3a fd a4 44  |.......0,8);:..D|
000002a0  41 54 45 0d 00 be 24 44  41 59 31 3d 44 41 59 3a  |ATE...$DAY1=DAY:|
000002b0  4d 4f 4e 54 48 31 3d 4d  4f 4e 54 48 3a 59 45 41  |MONTH1=MONTH:YEA|
000002c0  52 31 3d 59 45 41 52 0d  00 c8 2e f2 43 45 4e 28  |R1=YEAR.....CEN(|
000002d0  22 61 6e 64 20 6e 6f 77  2c 20 74 68 65 20 64 61  |"and now, the da|
000002e0  74 65 20 66 6f 72 20 74  68 65 20 70 6c 6f 74 3a  |te for the plot:|
000002f0  22 2c 31 32 29 0d 00 d2  14 f5 f1 8a 30 2c 31 34  |",12).......0,14|
00000300  29 3b 3a fd a4 44 41 54  45 0d 00 dc 24 44 41 59  |);:..DATE...$DAY|
00000310  32 3d 44 41 59 3a 4d 4f  4e 54 48 32 3d 4d 4f 4e  |2=DAY:MONTH2=MON|
00000320  54 48 3a 59 45 41 52 32  3d 59 45 41 52 0d 00 e6  |TH:YEAR2=YEAR...|
00000330  17 45 4c 41 50 53 45 44  3d a4 44 49 46 46 45 52  |.ELAPSED=.DIFFER|
00000340  45 4e 43 45 0d 00 f0 16  e7 20 45 4c 41 50 53 45  |ENCE..... ELAPSE|
00000350  44 3c 30 20 8c 20 8d 74  4c 40 0d 00 fa 33 f2 43  |D<0 . .tL@...3.C|
00000360  45 4e 28 22 45 6c 61 70  73 65 64 20 64 61 79 73  |EN("Elapsed days|
00000370  20 73 69 6e 63 65 20 62  69 72 74 68 20 3d 20 22  | since birth = "|
00000380  2b c3 45 4c 41 50 53 45  44 2c 32 30 29 0d 01 04  |+.ELAPSED,20)...|
00000390  0a f2 53 50 41 43 45 0d  01 0e 2b ef 32 33 2c 32  |..SPACE...+.23,2|
000003a0  35 34 2c 26 31 38 2c 26  33 43 2c 26 35 41 2c 26  |54,&18,&3C,&5A,&|
000003b0  39 39 2c 26 31 38 2c 26  31 38 2c 26 31 38 2c 26  |99,&18,&18,&18,&|
000003c0  31 38 0d 01 18 29 ef 32  33 2c 32 35 35 2c 26 32  |18...).23,255,&2|
000003d0  30 2c 26 32 30 2c 26 32  30 2c 26 46 43 2c 26 32  |0,&20,&20,&FC,&2|
000003e0  30 2c 26 32 30 2c 26 32  30 2c 30 0d 01 22 06 eb  |0,&20,&20,0.."..|
000003f0  32 0d 01 2c 24 ef 35 2c  31 39 2c 33 2c 32 3b 30  |2..,$.5,19,3,2;0|
00000400  3b 31 39 2c 32 2c 34 3b  30 3b 32 39 2c 31 30 30  |;19,2,4;0;29,100|
00000410  3b 35 30 30 3b 0d 01 36  10 44 3d 45 4c 41 50 53  |;500;..6.D=ELAPS|
00000420  45 44 2d 31 30 0d 01 40  10 49 25 3d 35 30 3a 59  |ED-10..@.I%=50:Y|
00000430  25 3d 34 35 30 0d 01 4a  1d ec 30 2c 2d 59 25 3a  |%=450..J..0,-Y%:|
00000440  df 30 2c 59 25 3a ec 30  2c 30 3a df 31 30 30 30  |.0,Y%:.0,0:.1000|
00000450  2c 30 0d 01 54 20 e3 4b  25 3d 31 b8 32 30 3a ec  |,0..T .K%=1.20:.|
00000460  4b 25 2a 49 25 2c 30 3a  f0 31 2c 30 2c 2d 32 30  |K%*I%,0:.1,0,-20|
00000470  3a ed 0d 01 5e 23 ec 2d  35 30 2c 59 25 81 32 3a  |:...^#.-50,Y%.2:|
00000480  ef 32 35 35 3a ec 2d 35  30 2c 2d 59 25 81 32 3a  |.255:.-50,-Y%.2:|
00000490  f1 22 2d 22 3b 0d 01 68  1a e6 30 2c 31 3a ec 31  |."-";..h..0,1:.1|
000004a0  30 2a 49 25 2c 30 3a f0  31 2c 30 2c 2d 32 30 0d  |0*I%,0:.1,0,-20.|
000004b0  01 72 16 ec 31 30 2a 49  25 2d 32 30 2c 2d 34 30  |.r..10*I%-20,-40|
000004c0  3a ef 32 35 34 0d 01 7c  12 f2 53 49 4e 28 32 33  |:.254..|..SIN(23|
000004d0  2c 32 2c 22 50 22 29 0d  01 86 12 f2 53 49 4e 28  |,2,"P").....SIN(|
000004e0  32 38 2c 33 2c 22 45 22  29 0d 01 90 12 f2 53 49  |28,3,"E").....SI|
000004f0  4e 28 33 33 2c 31 2c 22  49 22 29 0d 01 9a 07 f5  |N(33,1,"I").....|
00000500  fd 30 0d 01 a4 05 20 0d  01 ae 13 f4 20 45 72 72  |.0.... ..... Err|
00000510  6f 72 20 48 61 6e 64 6c  65 72 0d 01 b8 1e e7 20  |or Handler..... |
00000520  9f 3c 3e 31 37 20 f6 3a  f1 22 20 61 74 20 6c 69  |.<>17 .:." at li|
00000530  6e 65 20 22 3b 9e 3a e0  0d 01 c2 0b eb 34 3a f2  |ne ";.:......4:.|
00000540  4f 46 46 0d 01 cc 26 f2  43 45 4e 28 22 44 6f 20  |OFF...&.CEN("Do |
00000550  79 6f 75 20 77 61 6e 74  20 74 6f 20 67 6f 20 6f  |you want to go o|
00000560  6e 20 74 6f 22 2c 31 32  29 0d 01 d6 26 f2 43 45  |n to",12)...&.CE|
00000570  4e 28 22 74 68 65 20 6e  65 78 74 20 70 72 6f 67  |N("the next prog|
00000580  72 61 6d 20 28 59 2f 4e  29 3f 22 2c 31 33 29 0d  |ram (Y/N)?",13).|
00000590  01 e0 07 f2 4f 4e 0d 01  ea 24 f5 58 25 3d a5 80  |....ON...$.X%=..|
000005a0  26 44 46 3a fd 58 25 3d  97 22 59 22 20 84 20 58  |&DF:.X%=."Y" . X|
000005b0  25 3d 97 22 4e 22 3a ef  58 25 0d 01 f4 15 e7 20  |%=."N":.X%..... |
000005c0  58 25 3d 97 22 4e 22 20  d8 3a e5 8d 44 50 40 0d  |X%=."N" .:..DP@.|
000005d0  01 fe 12 f1 27 22 50 6c  61 79 20 74 61 70 65 22  |....'"Play tape"|
000005e0  27 0d 02 08 07 d7 22 22  0d 02 12 05 20 0d 02 1c  |'....."".... ...|
000005f0  24 dd f2 53 49 4e 28 77  61 76 65 6c 65 6e 67 74  |$..SIN(wavelengt|
00000600  68 2c 63 6f 6c 6f 75 72  2c 6c 65 74 74 65 72 24  |h,colour,letter$|
00000610  29 0d 02 26 27 e6 30 2c  63 6f 6c 6f 75 72 3a ec  |)..&'.0,colour:.|
00000620  30 2c 59 25 2a b5 28 32  2a af 2f 77 61 76 65 6c  |0,Y%*.(2*./wavel|
00000630  65 6e 67 74 68 2a 44 29  0d 02 30 33 e3 58 3d 30  |ength*D)..03.X=0|
00000640  b8 31 30 30 30 88 31 36  3a df 58 2c 59 25 2a b5  |.1000.16:.X,Y%*.|
00000650  28 32 2a af 2f 77 61 76  65 6c 65 6e 67 74 68 2a  |(2*./wavelength*|
00000660  28 44 2b 58 2f 49 25 29  29 3a ed 0d 02 3a 0d f1  |(D+X/I%)):...:..|
00000670  6c 65 74 74 65 72 24 3b  0d 02 44 05 e1 0d 02 4e  |letter$;..D....N|
00000680  05 20 0d 02 58 29 dc 20  33 31 2c 32 38 2c 33 31  |. ..X). 31,28,31|
00000690  2c 33 30 2c 33 31 2c 33  30 2c 33 31 2c 33 31 2c  |,30,31,30,31,31,|
000006a0  33 30 2c 33 31 2c 33 30  2c 33 31 0d 02 62 05 20  |30,31,30,31..b. |
000006b0  0d 02 6c 0a dd a4 44 41  54 45 0d 02 76 0a 76 70  |..l...DATE..v.vp|
000006c0  6f 73 3d bc 0d 02 80 1d  f2 4f 46 46 3a f1 8a 30  |os=......OFF:..0|
000006d0  2c 76 70 6f 73 29 89 28  31 32 30 29 3b 3a f2 4f  |,vpos).(120);:.O|
000006e0  4e 0d 02 8a 4d f5 f2 4f  46 46 3a f1 8a 30 2c 76  |N...M..OFF:..0,v|
000006f0  70 6f 73 29 89 28 33 39  29 3a f2 4f 4e 3a e8 8a  |pos).(39):.ON:..|
00000700  35 2c 76 70 6f 73 29 22  44 61 79 20 28 31 2d 33  |5,vpos)"Day (1-3|
00000710  31 29 3a 22 44 24 3a 44  41 59 3d a4 4e 55 4d 42  |1):"D$:DAY=.NUMB|
00000720  45 52 28 44 24 29 3a fd  44 41 59 3e 2d 31 0d 02  |ER(D$):.DAY>-1..|
00000730  94 57 f5 f2 4f 46 46 3a  f1 8a 30 2c 76 70 6f 73  |.W..OFF:..0,vpos|
00000740  2b 31 29 89 28 33 39 29  3a f2 4f 4e 3a e8 8a 33  |+1).(39):.ON:..3|
00000750  2c 76 70 6f 73 2b 31 29  22 4d 6f 6e 74 68 20 28  |,vpos+1)"Month (|
00000760  31 2d 31 32 29 3a 22 4d  24 3a 4d 4f 4e 54 48 3d  |1-12):"M$:MONTH=|
00000770  a4 4e 55 4d 42 45 52 28  4d 24 29 3a fd 4d 4f 4e  |.NUMBER(M$):.MON|
00000780  54 48 3e 2d 31 0d 02 9e  4e f5 f2 4f 46 46 3a f1  |TH>-1...N..OFF:.|
00000790  8a 30 2c 76 70 6f 73 2b  32 29 89 28 33 39 29 3a  |.0,vpos+2).(39):|
000007a0  f2 4f 4e 3a e8 8a 31 31  2c 76 70 6f 73 2b 32 29  |.ON:..11,vpos+2)|
000007b0  22 59 65 61 72 3a 22 59  24 3a 59 45 41 52 3d a4  |"Year:"Y$:YEAR=.|
000007c0  4e 55 4d 42 45 52 28 59  24 29 3a fd 59 45 41 52  |NUMBER(Y$):.YEAR|
000007d0  3e 2d 31 0d 02 a8 1d e7  20 59 45 41 52 3c 31 30  |>-1..... YEAR<10|
000007e0  30 20 59 45 41 52 3d 59  45 41 52 2b 31 39 30 30  |0 YEAR=YEAR+1900|
000007f0  0d 02 b2 2b e7 20 59 45  41 52 3c 31 39 30 30 20  |...+. YEAR<1900 |
00000800  84 20 59 45 41 52 3e 32  30 32 30 20 84 20 4d 4f  |. YEAR>2020 . MO|
00000810  4e 54 48 3e 31 32 20 8c  20 3d a3 0d 02 bc 36 e7  |NTH>12 . =....6.|
00000820  20 44 41 59 3e 44 41 59  53 25 28 4d 4f 4e 54 48  | DAY>DAYS%(MONTH|
00000830  29 2b a4 4c 45 41 50 28  59 45 41 52 29 2a 28 4d  |)+.LEAP(YEAR)*(M|
00000840  4f 4e 54 48 3d 32 29 20  8c 20 3d a3 20 8b 20 3d  |ONTH=2) . =. . =|
00000850  b9 0d 02 c6 05 20 0d 02  d0 10 dd a4 4e 55 4d 42  |..... ......NUMB|
00000860  45 52 28 41 24 29 0d 02  da 11 e7 20 41 24 3d 22  |ER(A$)..... A$="|
00000870  22 20 8c 20 3d 2d 31 0d  02 e4 10 4e 4f 4e 4e 55  |" . =-1....NONNU|
00000880  4d 45 52 49 43 3d a3 0d  02 ee 0d e3 49 25 3d 31  |MERIC=......I%=1|
00000890  b8 a9 41 24 0d 02 f8 11  43 48 24 3d c1 41 24 2c  |..A$....CH$=.A$,|
000008a0  49 25 2c 31 29 0d 03 02  24 e7 20 43 48 24 3c 22  |I%,1)...$. CH$<"|
000008b0  30 22 20 84 20 43 48 24  3e 22 39 22 20 4e 4f 4e  |0" . CH$>"9" NON|
000008c0  4e 55 4d 45 52 49 43 3d  b9 0d 03 0c 05 ed 0d 03  |NUMERIC=........|
000008d0  16 1d e7 20 4e 4f 4e 4e  55 4d 45 52 49 43 20 8c  |... NONNUMERIC .|
000008e0  20 3d 2d 31 20 8b 20 3d  bb 41 24 0d 03 20 05 20  | =-1 . =.A$.. . |
000008f0  0d 03 2a 48 dd a4 4c 45  41 50 28 59 45 41 52 29  |..*H..LEAP(YEAR)|
00000900  20 e7 20 59 45 41 52 20  83 20 34 3d 30 20 80 20  | . YEAR . 4=0 . |
00000910  28 59 45 41 52 20 83 20  31 30 30 3c 3e 30 20 84  |(YEAR . 100<>0 .|
00000920  20 59 45 41 52 20 83 20  34 30 30 3d 30 29 20 8c  | YEAR . 400=0) .|
00000930  20 3d b9 20 8b 20 3d a3  0d 03 34 05 20 0d 03 3e  | =. . =...4. ..>|
00000940  10 dd a4 44 49 46 46 45  52 45 4e 43 45 0d 03 48  |...DIFFERENCE..H|
00000950  18 4c 25 3d 33 36 35 2a  28 59 45 41 52 32 2d 59  |.L%=365*(YEAR2-Y|
00000960  45 41 52 31 29 0d 03 52  31 e7 20 4d 4f 4e 54 48  |EAR1)..R1. MONTH|
00000970  32 3e 31 20 8c 20 e3 49  25 3d 31 b8 4d 4f 4e 54  |2>1 . .I%=1.MONT|
00000980  48 32 2d 31 3a 4c 25 3d  4c 25 2b 44 41 59 53 25  |H2-1:L%=L%+DAYS%|
00000990  28 49 25 29 3a ed 0d 03  5c 31 e7 20 4d 4f 4e 54  |(I%):...\1. MONT|
000009a0  48 31 3e 31 20 8c 20 e3  49 25 3d 31 b8 4d 4f 4e  |H1>1 . .I%=1.MON|
000009b0  54 48 31 2d 31 3a 4c 25  3d 4c 25 2d 44 41 59 53  |TH1-1:L%=L%-DAYS|
000009c0  25 28 49 25 29 3a ed 0d  03 66 13 4c 25 3d 4c 25  |%(I%):...f.L%=L%|
000009d0  2b 44 41 59 32 2d 44 41  59 31 0d 03 70 19 59 45  |+DAY2-DAY1..p.YE|
000009e0  41 52 53 3d 59 45 41 52  31 2d 59 45 41 52 31 20  |ARS=YEAR1-YEAR1 |
000009f0  83 20 34 0d 03 7a 27 59  45 41 52 53 3d 59 45 41  |. 4..z'YEARS=YEA|
00000a00  52 53 2b 34 3a e7 20 59  45 41 52 53 3e 3d 59 45  |RS+4:. YEARS>=YE|
00000a10  41 52 32 20 8c 20 8d 74  58 43 0d 03 84 1a e7 20  |AR2 . .tXC..... |
00000a20  a4 4c 45 41 50 28 59 45  41 52 53 29 20 4c 25 3d  |.LEAP(YEARS) L%=|
00000a30  4c 25 2b 31 0d 03 8e 09  e5 8d 44 7a 43 0d 03 98  |L%+1......DzC...|
00000a40  18 e7 20 59 45 41 52 31  3d 59 45 41 52 32 20 8c  |.. YEAR1=YEAR2 .|
00000a50  20 8d 64 40 43 0d 03 a2  25 e7 20 a4 4c 45 41 50  | .d@C...%. .LEAP|
00000a60  28 59 45 41 52 31 29 20  80 20 4d 4f 4e 54 48 31  |(YEAR1) . MONTH1|
00000a70  3c 33 20 4c 25 3d 4c 25  2b 31 0d 03 ac 25 e7 20  |<3 L%=L%+1...%. |
00000a80  a4 4c 45 41 50 28 59 45  41 52 32 29 20 80 20 4d  |.LEAP(YEAR2) . M|
00000a90  4f 4e 54 48 32 3e 32 20  4c 25 3d 4c 25 2b 31 0d  |ONTH2>2 L%=L%+1.|
00000aa0  03 b6 07 3d 4c 25 0d 03  c0 30 e7 20 a4 4c 45 41  |...=L%...0. .LEA|
00000ab0  50 28 59 45 41 52 31 29  20 80 20 4d 4f 4e 54 48  |P(YEAR1) . MONTH|
00000ac0  31 3c 33 20 80 20 4d 4f  4e 54 48 32 3e 32 20 4c  |1<3 . MONTH2>2 L|
00000ad0  25 3d 4c 25 2b 31 0d 03  ca 07 3d 4c 25 0d 03 d4  |%=L%+1....=L%...|
00000ae0  05 20 0d 03 de 0b dd f2  49 4e 54 52 4f 0d 03 e8  |. ......INTRO...|
00000af0  31 db 3a f2 43 45 4e 28  22 41 63 63 6f 72 64 69  |1.:.CEN("Accordi|
00000b00  6e 67 20 74 6f 20 74 68  65 20 53 77 69 73 73 20  |ng to the Swiss |
00000b10  73 63 69 65 6e 63 65 20  6f 66 22 2c 30 29 0d 03  |science of",0)..|
00000b20  f2 37 f2 43 45 4e 28 22  42 69 6f 72 68 79 74 68  |.7.CEN("Biorhyth|
00000b30  6d 73 2c 20 74 68 72 65  65 20 63 79 63 6c 65 73  |ms, three cycles|
00000b40  20 73 74 61 72 74 20 61  74 20 62 69 72 74 68 22  | start at birth"|
00000b50  2c bc 2b 32 29 0d 03 fc  35 f2 43 45 4e 28 22 61  |,.+2)...5.CEN("a|
00000b60  6e 64 20 63 6f 6e 74 69  6e 75 65 20 77 69 74 68  |nd continue with|
00000b70  20 61 62 73 6f 6c 75 74  65 20 72 65 67 75 6c 61  | absolute regula|
00000b80  72 69 74 79 22 2c bc 2b  32 29 0d 04 06 38 f2 43  |rity",.+2)...8.C|
00000b90  45 4e 28 22 74 68 72 6f  75 67 68 6f 75 74 20 6c  |EN("throughout l|
00000ba0  69 66 65 2e 20 20 54 68  65 20 74 68 72 65 65 20  |ife.  The three |
00000bb0  63 79 63 6c 65 73 20 61  72 65 3a 2d 22 2c bc 2b  |cycles are:-",.+|
00000bc0  32 29 0d 04 10 72 f1 27  27 22 50 48 59 53 49 43  |2)...r.''"PHYSIC|
00000bd0  41 4c 22 8a 31 33 29 22  67 6f 76 65 72 6e 73 20  |AL".13)"governs |
00000be0  70 68 79 73 69 63 61 6c  20 73 74 72 65 6e 67 74  |physical strengt|
00000bf0  68 2c 22 27 27 22 32 33  20 64 61 79 73 20 20 20  |h,"''"23 days   |
00000c00  20 20 20 63 6f 6e 66 69  64 65 6e 63 65 2c 20 61  |   confidence, a|
00000c10  67 67 72 65 73 73 69 76  65 6e 65 73 73 22 27 27  |ggressiveness"''|
00000c20  8a 31 33 29 22 61 6e 64  20 65 6e 64 75 72 61 6e  |.13)"and enduran|
00000c30  63 65 2e 22 0d 04 1a 79  f1 27 27 22 45 4d 4f 54  |ce."...y.''"EMOT|
00000c40  49 4f 4e 41 4c 22 8a 31  33 29 22 67 6f 76 65 72  |IONAL".13)"gover|
00000c50  6e 73 20 66 65 65 6c 69  6e 67 73 2c 69 6e 74 75  |ns feelings,intu|
00000c60  69 74 69 6f 6e 2c 22 27  22 32 38 20 64 61 79 73  |ition,"'"28 days|
00000c70  20 20 20 20 20 20 63 72  65 61 74 69 76 69 74 79  |      creativity|
00000c80  2c 20 63 6f 6f 70 65 72  61 74 69 6f 6e 2c 22 27  |, cooperation,"'|
00000c90  27 8a 31 33 29 22 6c 6f  76 65 20 61 6e 64 20 63  |'.13)"love and c|
00000ca0  68 65 65 72 66 75 6c 6e  65 73 73 2e 22 0d 04 24  |heerfulness."..$|
00000cb0  6f f1 27 27 22 49 4e 54  45 4c 4c 45 43 54 55 41  |o.''"INTELLECTUA|
00000cc0  4c 22 8a 31 33 29 22 67  6f 76 65 72 6e 73 20 69  |L".13)"governs i|
00000cd0  6e 74 65 6c 6c 69 67 65  6e 63 65 2c 6d 65 6d 6f  |ntelligence,memo|
00000ce0  72 79 22 27 22 33 33 20  64 61 79 73 22 8a 31 33  |ry"'"33 days".13|
00000cf0  29 22 63 6f 6e 63 65 6e  74 72 61 74 69 6f 6e 20  |)"concentration |
00000d00  61 6e 64 20 71 75 69 63  6b 6e 65 73 73 22 8a 31  |and quickness".1|
00000d10  33 29 22 6f 66 20 6d 69  6e 64 2e 22 0d 04 2e 0a  |3)"of mind."....|
00000d20  f2 53 50 41 43 45 0d 04  38 30 db 3a f2 43 45 4e  |.SPACE..80.:.CEN|
00000d30  28 22 54 68 65 20 6d 6f  73 74 20 63 72 69 74 69  |("The most criti|
00000d40  63 61 6c 20 64 61 79 73  20 61 72 65 20 74 68 6f  |cal days are tho|
00000d50  73 65 22 2c 33 29 0d 04  42 35 f2 43 45 4e 28 22  |se",3)..B5.CEN("|
00000d60  77 68 65 6e 20 74 68 65  20 63 79 63 6c 65 20 63  |when the cycle c|
00000d70  72 6f 73 73 65 73 20 74  68 65 20 68 6f 72 69 7a  |rosses the horiz|
00000d80  6f 6e 74 61 6c 22 2c bc  2b 33 29 0d 04 4c 33 f2  |ontal",.+3)..L3.|
00000d90  43 45 4e 28 22 6c 69 6e  65 2c 20 64 65 6e 6f 74  |CEN("line, denot|
00000da0  69 6e 67 20 61 20 74 72  61 6e 73 69 74 69 6f 6e  |ing a transition|
00000db0  20 62 65 74 77 65 65 6e  22 2c bc 2b 33 29 0d 04  | between",.+3)..|
00000dc0  56 2b f2 43 45 4e 28 22  74 68 65 20 65 6e 65 72  |V+.CEN("the ener|
00000dd0  67 79 20 62 65 69 6e 67  20 64 69 73 63 68 61 72  |gy being dischar|
00000de0  67 65 64 22 2c bc 2b 33  29 0d 04 60 1e f2 43 45  |ged",.+3)..`..CE|
00000df0  4e 28 22 61 6e 64 20 72  65 63 68 61 72 67 65 64  |N("and recharged|
00000e00  2e 22 2c bc 2b 33 29 0d  04 6a 0a f2 53 50 41 43  |.",.+3)..j..SPAC|
00000e10  45 0d 04 74 05 e1 0d 04  7e 05 20 0d 04 88 1a dd  |E..t....~. .....|
00000e20  f2 4f 46 46 20 ef 32 33  2c 31 2c 30 3b 30 3b 30  |.OFF .23,1,0;0;0|
00000e30  3b 30 3b 3a e1 0d 04 92  05 20 0d 04 9c 19 dd f2  |;0;:..... ......|
00000e40  4f 4e 20 ef 32 33 2c 31  2c 31 3b 30 3b 30 3b 30  |ON .23,1,1;0;0;0|
00000e50  3b 3a e1 0d 04 a6 05 20  0d 04 b0 43 dd f2 53 50  |;:..... ...C..SP|
00000e60  41 43 45 20 f2 4f 46 46  3a f2 43 45 4e 28 22 50  |ACE .OFF:.CEN("P|
00000e70  72 65 73 73 20 74 68 65  20 53 50 41 43 45 20 42  |ress the SPACE B|
00000e80  41 52 20 74 6f 20 63 6f  6e 74 69 6e 75 65 22 2c  |AR to continue",|
00000e90  32 39 29 3a 2a 46 58 31  35 2c 31 0d 04 ba 11 f5  |29):*FX15,1.....|
00000ea0  fd be 3d 22 20 22 3a f2  4f 4e 3a e1 0d 04 c4 05  |..=" ":.ON:.....|
00000eb0  20 0d 04 ce 25 dd f2 43  45 4e 28 41 24 2c 59 25  | ...%..CEN(A$,Y%|
00000ec0  29 f1 8a 28 34 30 2d a9  41 24 29 2f 32 2c 59 25  |)..(40-.A$)/2,Y%|
00000ed0  29 41 24 3b 3a e1 0d 04  d8 05 20 0d 04 e2 b8 dd  |)A$;:..... .....|
00000ee0  f2 44 42 4c 28 41 24 2c  79 25 29 24 4d 41 50 3d  |.DBL(A$,y%)$MAP=|
00000ef0  c4 32 35 35 2c bd 30 29  3a 4d 41 50 3f 32 35 35  |.255,.0):MAP?255|
00000f00  3d 30 3a 43 48 41 52 50  54 52 3d 32 32 34 3a 42  |=0:CHARPTR=224:B|
00000f10  24 3d 22 22 3a 43 24 3d  22 22 3a e3 43 48 25 3d  |$="":C$="":.CH%=|
00000f20  31 b8 a9 41 24 3a 4b 25  3d a4 43 48 41 52 28 97  |1..A$:K%=.CHAR(.|
00000f30  c1 41 24 2c 43 48 25 2c  31 29 29 3a 42 24 3d 42  |.A$,CH%,1)):B$=B|
00000f40  24 2b bd 4b 25 3a 43 24  3d 43 24 2b bd 28 4b 25  |$+.K%:C$=C$+.(K%|
00000f50  2b 31 29 3a ed 3a 4b 25  3d 28 34 30 2d a9 41 24  |+1):.:K%=(40-.A$|
00000f60  29 2f 32 3a 44 42 4c 24  3d bd 33 31 2b bd 4b 25  |)/2:DBL$=.31+.K%|
00000f70  2b bd 79 25 2b 42 24 2b  bd 33 31 2b bd 4b 25 2b  |+.y%+B$+.31+.K%+|
00000f80  bd 28 79 25 2b 31 29 2b  43 24 3a f1 44 42 4c 24  |.(y%+1)+C$:.DBL$|
00000f90  3b 3a e1 0d 04 ec 05 20  0d 04 f6 bb dd a4 43 48  |;:..... ......CH|
00000fa0  41 52 28 43 25 29 e7 4d  41 50 3f 43 25 8c 3d 4d  |AR(C%).MAP?C%.=M|
00000fb0  41 50 3f 43 25 8b e7 43  48 41 52 50 54 52 3e 3d  |AP?C%..CHARPTR>=|
00000fc0  32 35 36 fa 20 8b 4d 41  50 3f 43 25 3d 43 48 41  |256. .MAP?C%=CHA|
00000fd0  52 50 54 52 3a 3f 42 4c  4f 43 4b 3d 43 25 3a 41  |RPTR:?BLOCK=C%:A|
00000fe0  25 3d 31 30 3a 58 25 3d  42 4c 4f 43 4b 3a 59 25  |%=10:X%=BLOCK:Y%|
00000ff0  3d 42 4c 4f 43 4b 20 81  20 32 35 36 3a d6 6f 73  |=BLOCK . 256:.os|
00001000  77 6f 72 64 3a e3 4a 25  3d 30 b8 31 3a ef 32 33  |word:.J%=0.1:.23|
00001010  2c 43 48 41 52 50 54 52  2b 4a 25 3a e3 49 25 3d  |,CHARPTR+J%:.I%=|
00001020  32 b8 39 3a ef 42 4c 4f  43 4b 3f 28 4a 25 2a 34  |2.9:.BLOCK?(J%*4|
00001030  2b 49 25 81 32 29 3a ed  2c 3a 43 48 41 52 50 54  |+I%.2):.,:CHARPT|
00001040  52 3d 43 48 41 52 50 54  52 2b 32 3a 3d 4d 41 50  |R=CHARPTR+2:=MAP|
00001050  3f 43 25 0d ff                                    |?C%..|
00001055