5 DIM A(12)
10 PRINT"[147]"
30 REM BIO RHYTHM PROGRAM
50 DIM A$(38),B$(38),C$(38),N$(50)
110 REM ENTER NAME & AGE
130 PRINT:PRINT:PRINT"WHAT IS YOUR NAME ";:INPUT N$
170 PRINT:PRINT:PRINT "WHEN IS YOUR BIRTHDAY (MO,DA,YR) ",:INPUT M1,D1,Y1
210 PRINT:PRINT
230 IF Y1<=99 THEN 250
240 Y1=Y1-1900
250 M=M1:D=D1:Y=Y1
280 GOSUB 1330
290 B1=K:GOTO 420
320 REM BAD ENTRY
340 PRINT"BIO-RHYTHMS CAN ONLY BE COMPUTED"
350 PRINT"FOR YEARS BETWEEN 1980 & 1999":PRINT
370 PRINT"PLEASE ENTER MO & YR AGAIN":GOTO 440
400 REM ENTER DATE OF BIO
420 PRINT "WHAT MONTH, YEAR DO YOU WANT YOUR"
430 PRINT "BIO-RHYTHM TO BEGIN? (MO,YR)";
440 INPUT M2,Y2:PRINT:PRINT
480 REM TEST FOR GOOD DATE
500 IF Y2<80 OR Y2>1999 THEN 340
510 IF Y2<=99 THEN 540
520 IF Y2>99 AND Y2<1980 THEN 340
530 Y2=Y2-1900
540 M=M2:D=1:Y=Y2:GOSUB 1330
580 S1=K:GOSUB1450
610 REM PRINT CHART
630 E=S1-B1
640 OPEN 4,4
670 PRINT#4,"BIO-RHYTHM ANALYSIS FOR ";N$
680 PRINT#4," ":PRINT#4," ";
710 GOSUB 1170 REM PRINT MO.
800 PRINT#4,Y2:PRINT#4," "
850 PRINT#4,"    DOWN        CRITICAL         UP"
860 GOSUB 1170
880 PRINT#4,"--------------------------------------"
890 D6=A(M2)
900 IF M2=2 THEN GOSUB 1650
910 FOR I=1 TO D6
920 PRINT#4,I;
930 A$="                :                    "
940 J=33:GOSUB 1420
960 A$=LEFT$(A$,Y-1)+"I"+MID$(A$,Y+1)
970 B$=A$:J=28:GOSUB1420
1000 B$=LEFT$(B$,Y-1)+"E"+MID$(B$,Y+1)
1010 C$=B$:J=23:GOSUB 1420
1020 IF I<=9 THEN PRINT#4," ";
1040 C$=LEFT$(C$,Y-1)+"P"+MID$(C$,Y+1):PRINT#4,C$
1060 E=E+1:NEXT I
1120 M4=M4-1:M2=M2+1
1130 IF M4<=0 THEN 1780
1140 GOSUB 1570
1145 PRINT#4," ":PRINT#4," ":PRINT#4," "
1147 GOSUB 1570
1150 GOTO 670
1170 REM PRINT CHART MONTH
1190 IF M2=1 THEN PRINT#4,"JAN.";
1200 IF M2=2 THEN PRINT#4,"FEB.";
1210 IF M2=3 THEN PRINT#4,"MAR.";
1220 IF M2=4 THEN PRINT#4,"APR.";
1230 IF M2=5 THEN PRINT#4,"MAY.";
1240 IF M2=6 THEN PRINT#4,"JUN.";
1250 IF M2=7 THEN PRINT#4,"JUL.";
1260 IF M2=8 THEN PRINT#4,"AUG.";
1270 IF M2=9 THEN PRINT#4,"SEP.";
1280 IF M2=10 THEN PRINT#4,"OCT.";
1290 IF M2=11 THEN PRINT#4,"NOV.";
1300 IF M2=12 THEN PRINT#4,"DEC.";
1310 RETURN
1330 REM COMPUTE JULIAN DATE
1350 IF M>2 THEN 1390
1360 M3=M+13:Y=Y-1:GOTO 1400
1390 M3=M+1
1400 K=INT(365.25*Y)+INT(30.6001*M3)+D
1410 RETURN
1420 Y=INT(12*SIN(6.28318*E/J)+18.5)
1430 RETURN
1450 REM READ IN DAYS OF THE MONTH
1470 : REM   DIMMED ALREADY - LN. #5
1480 DATA 31,28,31,30,31,30,31,31,30,31,30,31
1490 D6=0
1500 FOR I=1 TO 12
1510 READ A:A(I)=A:NEXT I
1530 PRINT"FOR HOW MANY MONTHS DO YOU":PRINT"WANT YOUR BIO-RHYTHM ";
1540 INPUT M4
1550 PRINT:PRINT
1570 IF M2<13 THEN 1600
1580 M2=M2-12:Y2=Y2+1
1600 IF M2=2 THEN GOSUB 1650
1605 PRINT"[144]PLEASE TURN YOUR PRINTER ON-LINE"
1606 PRINT"PRESS A KEY TO PRINT.":POKE198,0:WAIT198,1
1610 RETURN
1630 REM IS IT LEAP YEAR?
1650 LE=Y2-80
1660 IF LE>19 THEN 340
1670 IF LE/4-INT(LE/4)<.1 THEN 1730
1700 RETURN
1730 D6=29
1740 RETURN
1750 Y2=Y2+1:M2=M2-12
1770 RETURN
1780 FOR I=1 TO 8:PRINT#4," ":NEXT I
1790 PRINT#4:CLOSE 4
1800 PRINT"LIKE TO TRY ANOTHER?"
1805 POKE198,0:WAIT198,1:GETK$:IFK$<>"Y"ANDK$<>"N"THEN1805
1810 IFK$="Y"THENRESTORE:PRINT"[147]":GOTO110
1900 PRINT"[147]LOAD"CHR$(34)"PAYLOAD"CHR$(34)",8":PRINT"RUN"
1910 POKE631,13:POKE632,13:POKE198,2:END