Listing of file='BIORHY.BAS;01' on disk='vmedia/ncc_6_real-sector.ccvf'
1 REM 2 REM 4 PRINT :PLOT 27,24 5 PRINT 6 PRINT 7 Q9= PEEK (32936) 8 QQ= 0 10 DIM MN$(12),AR(31),CD(31),CY(2),C(2) 11 DIM MX(12),D$(7) 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 IF QQ> 0THEN 142 55 PLOT 12 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 156 PRINT 160 ED= SD+ 28 161 YY= YS+ IY* 28 162 IF QQ> 0THEN 164 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,YS- 4,XX,242 2410 FOR X= SD+ 1TO ED+ 1 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- 4,XX 2450 NEXT X 2500 PLOT 255 3000 NEXT RM 3001 FOR I= 1TO 29:IF CD(I+ 1)> 64THEN CD(I)= CD(I)+ 64:CD(I+ 1)= CD(I+ 1)- 64 3002 NEXT I 3003 PLOT 27:PLOT 10 3005 FOR I= 1TO 30 3010 X= INT (YS/ 2)+ (I- 1)* IY/ 2 3013 PLOT 3,X- 2,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 MC> 12THEN MC= 1 3029 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/NEXT/STOP? C/N/S ";YN$ 3080 IF YN$= "C"THEN GOSUB 10000:GOTO 15 3090 IF YN$= "N"THEN QQ= 0:GOTO 90 3100 IF YN$< > "S"THEN 3070 4000 LOAD "MENU;1":RUN 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 10000 M= M+ 1:IF M> 12THEN M= 1:Y1= Y1+ 1 10010 PLOT 3,0,1 10020 QQ= QQ+ 1 10030 RESTORE 10040 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