10 'BIOR10V
20 SCREEN 12: COLOR 15
30 CLS : WINDOW SCREEN (0, -50)-(740, 600)
40 PRINT " Ohjelma piirt„„ biorytmik„yr„t, jos aikav„li on 1900<V<2100."
50 INPUT " Anna syntym„aikasi muodossa vvvv,kk,pv "; V, K, P
60 GOSUB 360
70 LET M1 = D
80 INPUT " Anna sunnuntain p„iv„m. muodossa vvvv,kk,pv "; V, K, P
90 GOSUB 360
100 LET M2 = D
110 INPUT " Nimi"; A$: CLS : LOCATE 6, 5: PRINT A$
115 PRINT "    Kymmenen viikon ennuste alkaa sunnuntaista "; P; "/"; K; ","
120 PRINT "    jolloin olet el„nyt "; M2 - M1; " p„iv„„."
130 PRINT "    Korkein aalto edustaa fyysist„ kuntoa ja varmuutta,"
140 PRINT "    seuraava „lyllist„ vireytt„."
150 PRINT "    Matalin edustaa mielialaa, herkkyytt„ ja luovuutta. Se ylitt„„"
160 PRINT "    akselin aina samana viikonp„iv„n„ kuin syntym„."
180 PRINT "    Aallonpituudet ovat i„nikuisia astronomian ja kokemuksen tuomia"
190 PRINT "    vakioita. Žl„ usko muihin jumaliin.        Laatinut P.K.T."
200 LINE (10, 300)-(710, 540), 15, B: LINE (10, 420)-(710, 420)
210 FOR X = 10 TO 710 STEP 70
220 PSET (X, 435): LINE (X, 435)-(X, 405)
230 NEXT X
240 FOR X = 15 TO 710 STEP 10
250 PSET (X, 423): DRAW "u6"
260 NEXT X
270 A = M2 - M1
280 L1 = A - INT(A / 23) * 23: L2 = A - INT(A / 28) * 28: L3 = A - INT(A / 33) * 33
290 FOR X = 10 TO 710 STEP .5
300 B1 = 6.283 * (10 * L1 + X - 10) / 230: B2 = 6.283 * (10 * L2 + X - 10) / 280
310 B3 = 6.283 * (10 * L3 + X - 10) / 330
320 PSET (X, -100 * SIN(B1) + 420), 15: PSET (X, -60 * SIN(B2) + 420), 15
330 PSET (X, -80 * SIN(B3) + 420), 15
340 NEXT X
350 CLEAR : END
360 S1 = INT((V - 1) / 4) * 1461
370 E = V - 1 - INT((V - 1) / 4) * 4
380 IF E = 0 THEN S2 = 0
390 IF E = 1 THEN S2 = 365
400 IF E = 2 THEN S2 = 730
410 IF E = 3 THEN S2 = 1095
420 IF E = 3 AND K - 1 = 0 THEN S3 = P
430 IF E = 3 AND K - 1 = 1 THEN S3 = 31 + P
440 IF E = 3 AND K - 1 = 2 THEN S3 = 60 + P
450 IF E = 3 AND K - 1 = 3 THEN S3 = 91 + P
460 IF E = 3 AND K - 1 = 4 THEN S3 = 121 + P
470 IF E = 3 AND K - 1 = 5 THEN S3 = 152 + P
480 IF E = 3 AND K - 1 = 6 THEN S3 = 182 + P
490 IF E = 3 AND K - 1 = 7 THEN S3 = 213 + P
500 IF E = 3 AND K - 1 = 8 THEN S3 = 244 + P
510 IF E = 3 AND K - 1 = 9 THEN S3 = 274 + P
520 IF E = 3 AND K - 1 = 10 THEN S3 = 305 + P
530 IF E = 3 AND K - 1 = 11 THEN S3 = 335 + P
540 IF E < 3 AND K - 1 = 0 THEN S3 = P
550 IF E < 3 AND K - 1 = 1 THEN S3 = 31 + P
560 IF E < 3 AND K - 1 = 2 THEN S3 = 59 + P
570 IF E < 3 AND K - 1 = 3 THEN S3 = 90 + P
580 IF E < 3 AND K - 1 = 4 THEN S3 = 120 + P
590 IF E < 3 AND K - 1 = 5 THEN S3 = 151 + P
600 IF E < 3 AND K - 1 = 6 THEN S3 = 181 + P
610 IF E < 3 AND K - 1 = 7 THEN S3 = 212 + P
620 IF E < 3 AND K - 1 = 8 THEN S3 = 243 + P
630 IF E < 3 AND K - 1 = 9 THEN S3 = 273 + P
640 IF E < 3 AND K - 1 = 10 THEN S3 = 304 + P
650 IF E < 3 AND K - 1 = 11 THEN S3 = 334 + P
660 LET D = S1 + S2 + S3: REM D ON kulunut aika +1, 1900<V<2100
670 RETURN