P495 ORACLE 495 Fri25 Dec ITV 2000:01 30205059NFSE0t RHYTHMS 30205059NFSE0t 10 PRINT CHR$(12); : PRINT : PRINT YEL;N WBG;RED;"Dates in wrong order. Try again " : PRINT CHR$(7);CHR$(7);CHR$(7);CHR$(7 ) : GOTO 3|p11 DIM Line(40),Wekday$(6)=3 |a12 DATA "Sat","Sun","Mon","Tue","Wed", "Thr","Fri"|b13 RESTORE |d14 FOR I=0 TO 6 : READ Wekday$(I) : NEXT I |r15 PRINT CHR$(12); : PRINT YEL;NWBG;MAG;" Your biorythm for the fortnight" : PRINT YEL ;NWBG;MAG;" starting on";BLU;D;"—" ;M;"—";Y|k16 PRINT YEL;NWBG : PRINT YEL; NWBG;RED;" Minus Pl us"|"17 PRINT RED;NWBG;YEL;Dots$|318 Cou nt=Fact-INT(Fact/7)*7|w19 Ic=ASCII("i") : Ec=ASCII("e") : Pc=ASCII("p")|p20 Id=( Days-INT(Days/33)*33)*.1904|/21 Ed=(Days -INT(Days/28)*28)*.224399|£22 Pd=(Days-I NT(Days/23)*23)*.27318|m23 FOR I=0 TO 2. 4752 STEP .1904|k24 FOR J=0 TO 31 : Li ne(J)=ASCII(" ") : NEXT J |"|
P495 ORACLE 495 Fri25 Dec ITV 2006:00 37 Fact=365*Y-INT((3/4)*(INT((Y-1)/100)+ 1))+D!31*(M-1)+INT( Y-1)/4) : RETURN |}3 8 Fact=365*Y-INT((3/4)*(INT(Y/100)+1))+I NT(Y/4)-INT(.4*M 0.3)+D+31*(M-1) : RE PR N | 39 PRINT : PRINT YEL;NWBG; EDO the digits 0..9 may be used" : RESUME |: 40 DEF FNDy1 PRINT : PPINT YEL;NWBG;RED;"Numbers mus t be in the range 0..9" : PRINT YEL;NCBG ;MAG;"Try again—>" : PRINT YEL;NCBG;MAG; |f43 T=0|$44 Key=FNKey : PRINT ".";C HR$(7); : IF Key=95 THEN GOTO 47|/45 I F Ke8KASCIITHEN GOTO 42|446 T=T*10+Key-48 : GOTO 44|÷4 7 RETURN T|;48 FNEND |349 PRINT CHR$(1 3);Blank$;CHR$(13); : PRINT YEL;NWBG;RED ;"Numbdr out of range"; : FOR J=1 TO 10 : PRINT CHR$(7); : NEXT J : PRINT CHR$(1 3);Blank$;CHR$(13);|'50 RE PRN |!51 DEF FNKey|.52 OUT 128,125|:53 IF INP(129 ) AND 2=0 THEN 53|p|
P495 ORACLE 495 Fri25 Dec ITV 2003:01 30205059NFSE0t RHYTHMS 30205059NFSE0t 37 Fact=365*Y-INT((3/4)*(INT((Y-1)/100)+ 1))+D+31*(M-1)+INT((Y-1)/4) : RETURN |}3 8 Fact=365*Y-INT((3/4)*(INT(Y/100)+1))+I NT(Y/4)-INT(.4*M+2.3)+D+31*(M-1) : RETUR N | 39 PRINT : PRINT YEL;NWBG;RED;"Only the digits 0..9 may be used" : RESUME |: 40 DEF FNDy1|q41 GOTO 43|!42 PRINT : PRINT : PRINT YEL;NWBG;RED;"Numbers mus t be in the range 0..9" : PRINT YEL;NWBG ;MAG;"Try again—>" : PRINT YEL;NWBG;MAG; |f43 T=0|$44 Key=FNKey : PRINT ".";C HR$(7); : IF Key=95 THEN GOTO 47|/45 I F KeyASCII("9") THEN GOTO 42|446 T=T*10+Key-48 : GOTO 44|÷4 7 RETURN T|;48 FNEND |349 PRINT CHR$(1 3);Blank$;CHR$(13); : PRINT YEL;NWBG;RED ;"Number out of range"; : FOR J=1 TO 10 : PRINT CHR$(7); : NEXT J : PRINT CHR$(1 3);Blank$;CHR$(13);|'50 RETURN |!51 DEF FNKey|.52 OUT 128,125|:53 IF INP(129 ) AND 2=0 THEN 53|p|
P495 ORACLE 495 Fri25 Dec ITV 2000:00 30205059NFSE0t RHYTHMS 30205059NFSE0t 1 EXTEND : FLOAT |%2 PRINT CHR$(12);YEL; NWBG;BLU;"Hi. I will calculate your bio rythm" : PRINT |-3 PRINT YEL;NWBG;BLU;" I will ask you to tell me the date" : PR INT YEL;NWBG;BLU;"of your birthday. Don 't worry I"|v4 PRINT YEL;NWBG;BLU;"will not tell anybody else." : PRINT |;5 PRI NT YEL;NWBG;BLU;" Then I will ask the d ate on which" : PRINT YEL;NWBG;BLU;"you want your biorythm." : PRINT |l6 PRINT Y EL;NWBG;BLU;" When you have finished ans wering " : PRINT YEL;NWBG;BLU;"press the # key, to let me know." : PRINT |!7 PRI NT YEL;NWBG;BLU;" When were you born?" : PRINT YEL;NWBG : GOSUB 33 : B=Fact|s8 P RINT : PRINT : PRINT YEL;NWBG;BLU;" On w hat day do you want your" : PRINT YEL;NW BG;BLU;"biorythm?" : PRINT YEL;NWBG : GO SUB 33|%9 Days=Fact-B : IF Days>0 THEN G OTO 11|b|
P495 ORACLE 495 Fri25 Dec ITV 2001:01 30205059NFSE0t RHYTHMS 30205059NFSE0t 25 Line(16)=ASCII(".") : PRINT YEL;NWB G;RED;Wekday$(Count);BLU;|s26 Line(SIN (Id+I)*15.5+15.5)=Ic|i27 Line((SIN(Ed+ I)*14+14)*1.107)=Ec|l28 Line((SIN(Pd+I )*11.5+11.5)*1.348)=Pc|j29 IF Count=6 THEN Count=0 ELSE Count=Count+1|k30 FOR J=0 TO 31 : PRINT CHR$(Line(J)); : NEXT J : PRINT : NEXT I |g31 PRINT RED;NWBG;Y EL;Dots$ : PRINT YEL;NWBG : PRINT YEL;NW BG;MAG;" Emotional (e), Physical (p) a nd" : PRINT YEL;NWBG;MAG;" Intellectu al (i) well being"|o32 A=FNKey : GOTO 1| —33 PRINT YEL;NWBG;MAG;"Day "; : D=FNDy 1 : IF D>31 THEN GOSUB 49 : GOTO 33|k34 PRINT YEL;NWBG;MAG;" Month "; : M=FNDy1 : IF M>12 THEN GOSUB 49 : PRINT YEL;NWB G;MAG;"Day ..."; : GOTO 34|235 PRINT YE L;NWBG;MAG;" Year "; : Y=FNDy1 : IF Y< 100 THEN Y=1900+Y|336 IF M>2 THEN GOTO 3 8|$|