ZX Computings - OpenLibra

The 'science' of bio-rhythms is
based on the belief that each of
us is in the throes of three cycles
which start at the moment of birth
and continue until death.
PHYSICAL: The 23-day physical
cycle relates to endurance, aggressiveness
and physical strength.
EMOTIONAL: The 28-day
emotional cycle governs emotions,
optimism/pessimism, frustration,
temper and moodiness.
MENTAL: The 33-day mental
rhythm is related to logic, reasoning,
ease of expression and common
sense.
This program takes your date of
birth, then the date of the day
which interests you, and works out
the 'worst point' on each of the
three cycles in relation to the day
you have nominated.
Programs
BIORHYTHMS
I * * *
I I 1 I ! I
• 1 * 1 * 1 1 1 1
Hfl I* i ! !*! ! I !
* * 1*1 I * I f I
1
* *
20 GOTO 210
30 LET T =0
40 IF B-3 > ~0 THEN LET T =2
50 IF T =2 THEN LET B = B + 1
60 IF T=2 THEN GOTO 90
70 LET R=R-1
80 LET B=B+13
90 LET E = INT 1365 . 25 * A.I F INT F 3
0,6*B)+ C
100 RETURN
110 LET T =0
120 LET F = G — I NT (G,'D) *D
13© IF F)0/8 THEN LET T=2
14.0 IF T =2 THEN LET H=D-F
150 IF T=2 THEN GOTO 180
160 IF F=0 OR D/3=F THEN PRINT
170 IF F = 0 OR D/2=F THEN RETURN
180 LET H=D^2-F
190 PRINT "AFTER ";H;" DAYS"
200 RETURN
210 LET Y$ A"THE UORST DAY IS "
220 LET X$=" CYCLE"
230 CLS
240 PRINT "ENTER YEAR OF BIRTH
CRS 1950)"
250 INPUT A
260 PRINT "NUMBER OF BIRTH MONT
H (AS 12)7"
270 INPUT B
^280 PRINT "DAY OF BIRTH CAS 30)
290 INPUT C
300 CLS
310 GOSUB 30
320 LET U=E
330 PRINT "NOU, TO FIND YOUR BI
O-RHYTHM","FOR A SET DAY. ENTER
THE"
340 PRINT "DATE THAT INTERESTS
YOU"
350 PRINT
360 PRINT "YEAR CAS 1960.)?"
370 INPUT A
I * I !*
I
! V
I
!
I !
! 1
! ! * ! # * * I 1 f *
I t * M I
* I* !
t * I
* I i
i* ! I
I
t *
i* I
i
—
:
* 1 H
* I t i I i 1 1 I I I I--' i»f H i l*$ HIM4*+++-1 -H-H
! j
* i : i It ! f !
It i i I ! * I * I I *
! ! I * 1*1 i ft I + i i* I
!# ' * i I I
* 1
I .+ i I ! I I i v l I
! I ! i ! + I* I i * 1 * 1 1
I ! !
I*** 1 it I
! I I -
I *
* !
I 1
f
I I I I I f *
375
380
LET Z=A
IF A