Listing of file='BIORHY.BAS;01' on disk='vmedia/sampler-3.31.78-sector.ccvf'
1 REM 2 REM 4 PRINT :PLOT 27,24 5 PRINT 6 PRINT 7 Q9= PEEK (32936) 10 DIM MN$(12),AR(31),CD(31),CY(2),C(2) 11 DIM MX(12) 15 CY(0)= 23:CY(1)= 28:CY(2)= 33 20 C(0)= 1:C(1)= 2:C(2)= 6 30 LL= 8:LH= 103 35 LR= (LH- LL)/ 2:LM= LR+ LL 38 YS= 8:IY= 4 40 FOR I= 1TO 12 43 READ MN$(I) 45 NEXT I 46 FOR I= 1TO 12 47 READ MX(I) 48 NEXT I 50 PLOT 12 55 DIM D$(7) 60 D$(1)= "SUN":D$(2)= "MON":D$(3)= "TUE":D$(4)= "WED" 61 D$(5)= "THU":D$(6)= "FRI":D$(7)= "SAT" 90 PLOT 12,14,6,5 94 PLOT 3,16,0 95 PRINT " BIO-RHYTHM CHART " 96 PRINT 100 PRINT "ENTER BIRTH DATE * MONTH,DAY,YEAR (EX. 1,25,38)..."; 101 IF Q9< > 0THEN M= 2:D= 7:Y1= 37:PRINT M","D","Y1 102 IF Q9= 0THEN INPUT M,D,Y1 105 PRINT 106 MM= M:DD= D 110 IF Y1< 100THEN Y1= Y1+ 1900 120 GOSUB 1830 125 BD= J2 130 PRINT " YOU WERE BORN ON A ",D$(W) 138 PLOT 10:PLOT 10 139 PRINT "ENTER THE START DATE OF THIS PLOT..."; 140 IF Q9< > 0THEN M= 6:D= 1:Y1= 78:PRINT M","D","Y1 141 IF Q9= 0THEN INPUT M,D,Y1 142 N= M 143 GOSUB 5000:REM 144 DC= D:MC= M 145 IF Y1< 100THEN Y1= Y1+ 1900 150 GOSUB 1830 152 IF MM< > MGOTO 155 153 IF DD< > DGOTO 155 154 GOSUB 9000 155 SD= J2 160 ED= SD+ 28 161 YY= YS+ IY* 28 162 PRINT 163 PRINT "Y O U H A V E L I V E D ",SD- BD," D A Y S " 164 FOR I= 0TO 2000:NEXT I:PLOT 15 165 PLOT 12:PLOT 6:PLOT 4:PLOT 2:PLOT 250:PLOT S:PLOT LL- 1:PLOT YY 166 PLOT LM:PLOT YY:PLOT LH+ 1:PLOT YY 169 PLOT 255:PLOT 3:PLOT 0:PLOT 0 170 PLOT 3,16,0 171 PRINT " BIO-RHYTHM CHART "MN$(N)" "D$" "Y1" " 172 PLOT 3,16,1 173 PRINT "( RED DATES ARE ... SUNDAYS )" 175 PLOT 3,0,31 180 PRINT ,,," PHYSICAL EMOTIONAL MENTAL" 185 PLOT 3,64,0 190 GOTO 2200 1830 C9= .001 1850 M9= (- 1)* INT (((14- M)/ 12)+ C9) 1860 J1= D- 2447095+ INT ((1461* (Y1+ 4800+ M9)/ 4)+ C9) 1870 J2= J1+ INT ((367* (M- 2- 12* M9)/ 12)+ C9) 1880 J1= J2- INT ((3* (Y1+ 4900+ M9)/ 400)+ C9) 1890 J2= J1 1900 W= J2- 7* INT ((J1/ 7)+ C9)+ 1 1910 W= INT (W+ C9) 1920 RETURN 1960 J3= INT (J2+ C9) 1980 D8= J2- J3 1990 J2= J3 2000 L= J2+ 2483589 2010 N= INT ((4* L/ 146097)+ C9) 2020 L= L- INT (((146097* N+ 3)/ 4)+ C9) 2030 Y2= INT ((4000* (L+ 1)/ 1461001)+ C9) 2040 L= L- INT (1461* (Y2/ 4)+ C9)+ 31 2050 M1= INT (80* (L/ 2447)+ C9) 2060 D1= L- INT ((2447* M1/ 80)+ C9) 2070 IF M1> 0GOTO 2090 2080 D1= D1- 1 2090 L= INT ((M1/ 11)+ C9) 2100 D8= INT (10* D8+ .5) 2110 D1= D1+ (D8/ 10) 2120 M1= M1+ 2- 12* L 2130 Y2= 100* (N- 49)+ Y2+ L 2140 W= J2- 7* INT ((J2/ 7)+ C9)+ 1 2150 W= INT (W+ C9) 2160 RETURN 2200 FOR RM= 0TO 2 2205 CY= CY(RM) 2300 PLOT 6:PLOT C(RM):PLOT 2 2301 L1= 0:J2= SD:GOSUB 1960 2305 D9= 2* (SD- BD)* 3.1415927 2310 XX= INT (SIN (D9/ CY)* LR+ LM) 2311 CD(1)= INT (CD(1)/ 64)* 64+ W 2312 IF XX> LM- 2GOTO 2315 2313 IF XX< LM- 2THEN CD(1)= W+ 64 2315 SN= SGN (XX- LM) 2320 PLOT 253:PLOT YS:PLOT XX:PLOT 242 2410 FOR X= SD+ 1TO ED 2420 IF W= 7THEN W= 0 2425 W= W+ 1 2430 D9= 2* (X- BD)* 3.1415927 2435 XX= INT (SIN (D9/ CY)* LR+ LM) 2436 CD(X- SD+ 1)= INT (CD(X- SD+ 1)/ 64)* 64+ W 2437 IF SN= SGN (XX- LM)GOTO 2440 2438 CD(X- SD+ 1)= 64+ W 2440 SN= SGN (XX- LM) 2445 PLOT YS+ (X- SD)* IY:PLOT XX 2450 NEXT X 2500 PLOT 255 3000 NEXT RM 3003 PLOT 27:PLOT 10 3005 FOR I= 1TO 29 3010 X= INT (YS/ 2)+ (I- 1)* IY/ 2 3013 PLOT 3,X,2 3015 PLOT 6:PLOT CD(I) 3020 IF CD(I)> 64THEN CD(I)= CD(I)- 64 3025 PRINT DC 3026 CD(I)= 0 3027 IF DC= MX(MC)THEN DC= 0:MC= MC+ 1 3028 IF DC< MX(MC)THEN DC= DC+ 1 3030 NEXT I 3040 PLOT 3,0,31 3050 PLOT 27,24 3060 IF Q9< > 0THEN FOR XX= 1TO 1500:NEXT XX:LOAD "MENU;1":RUN 5 3070 PLOT 15:INPUT "CONTINUE,(Y OR N)? ";YN$ 3080 IF YN$= "Y"OR YN$= "YES"THEN 90 4000 LOAD "MENU;1":RUN 5 5000 IF Y1/ 4= INT (Y1/ 4)THEN MX(2)= MX(2)+ 1 5001 RETURN 9000 PLOT 10 9001 PLOT 10 9005 PRINT "HAPPY BIRTHDAY" 9010 RETURN 20000 DATA "JAN","FEB","MAR","APR","MAY","JUN" 20010 DATA "JUL","AUG","SEP","OCT","NOV","DEC" 20020 DATA 31,28,31,30,31,30,31,31,30,31,30,31