(142)A CB$"BIO-VISION BY CRAIG BRUCE 25-FEB-86"OCB$:FC0"INITIALIZING... PLEASE WAIT 0.82 SECS"(C$"":I18:C$C$" ":2 M$(12),M(13),W$(12),D$(3),CW$(7),CM$(12):PI3.14159265358<I112:M$(I)::I113:M(I)::I112:W$(I)BF:I112:CM$(I)::I17:CW$(I):wP AQUARIUS,PISCES,ARIES,TAURUS,GEMINI,CANCER,LEOZ VIRGO,LIBRA,SCORPIO,SAGITTARIUS,CAPRICORNd 0,31,28,31,30,31,30,31,31,30,31,30,31 n JAN 20,FEB 20,MAR 21,APR 20,MAY 21, JUN 21, JUL 237x AUG 23,SEP 23,OCT 24, NOV 23, DEC 22i JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV DEC,SUN,MON,TUE,WED,THU,FRI,SATKP2PI23:KE2PI28:KI2PI33:JZ157784634320000:750 *** SUB TO INPUT DATA:I$""(175)"";A$:A$""190)A$"_"E1:;A$(20)280PA$(13)" ":b(I$)56190(A$" "A$"/")(A$"9"A$"0")(A$"A"A$"Z")190I$I$A$A$;:180(I$)1190"I$(I$,(I$)1):270 , *** SUB TO DERIVE DATE FROM INPUT:(6I13:D$(I)""::K1:E0Y@I1(I$):X$(I$,I,1):X$" "X$"/"350lJD$(K)D$(K)X$wT:410^KK1:K3390h(I$,I,1)" "(I$,I,1)"/"II1:340rII1:I(I$)360|K3400E1:"ENTER MONTH, DATE AND YEAR, WITH SPACES BETWEEN!"::EE1:"ERROR!!! DO IT AGAIN..."::SK3390uI13:(D$(I),1)"A":450K112:CM$(K)(D$(I),3):400D$(I)D$(1):D$(1)(K)D(D$(2)):M(D$(1)):(D$(3))2D$(3)"19"D$(3)Y(D$(3)):(M1M12)D1490570P *** SUB TO CALCULATE NUMBER OF DAYS SINCE ZERO:}KY1:NY365D(K4)(K100)(K400)Y4(Y4)M2NN1Y100(Y100)Y400(Y400)M2NN1I1M:NNM(I):: *** SUB TO TURN DATE INTO DAY:%490:WN(N7)77:W7WW7+&X0 *** SUB TO ROUND DAY, MONTH, AND YEAR:i:DM(M1)vDM2610NDDM(M1):MM1:M12M1:YY1X570bK((Y4(Y4))((Y100(Y100))(Y400(Y400))))28lDKvM3:DDK:570: *** SUB TO PRINT ST SCREEN, OR SCREEN AND PRINTER:mLNLN1:A$(A$C$,72)"-":A$:PR4," "A$PR0LN9"";:680AU1I1800::720"PRESS ANY KEY TO CONTINUE; A FOR AUTO";A$:A$""700A$"A"AU1"LN0:CB$:(1FC0XCB$:"PRESS _ TO START OVER.":E0:"WHAT IS YOUR NAME? ";:170:N$I$:E740N$"QUIT""BYE.":"PUT MONTH BEFORE THE DATE IF USING #'S."FC1820  E0:"WHAT IS TODAY'S DATE? ";:170:E740:310:E8007*PDD:PMM:PYY::a4E0:"WHAT IS YOUR BIRTHDATE? ";:170x9E740:310:E820>BDD:BMM:BYY::"HOW MANY DAYS SHALL BE PLOTTED? "H"(PRESS RETURN FOR 45)"32);:170RNF(I$):NF1NF45 \NF1NF1E9840@f540:BWW:FBN:MPM:YPY:DPD:DY$(BD)","(BY)vpCB$:"YOU WERE BORN ON: "CW$(BW)" "CM$(BM);DY$z"PLOTTING DATE: ";:540:PWW:FPN:CW$(PW)" "CM$(PM);PY$(PD)","(PY):PY$:DOFPFB"TODAY, YOU ARE ";(DO);" DAYS":"("((DOJZ)100);8" MEAN SOLAR YEARS) OLD."r"YOUR NEXT BIRTHDAY WILL BE IN ";:MBM:DBD:YPY1570:MPM980MPMYY1:980DPDYY1:980DPD"TODAY...HAPPY BIRTHDAY!":1000540:(NFP);" DAYS, ON "CW$(W)" "CM$(M);4NY$(D)","(Y):"";NY$;"."LNDD:NYY:NMM:NWWZ$CM$(BM)("0"((BD),2),2):BM1BD20I12:1040I112:(W$(I),3)(Z$,3):I1:1040((W$(I),5,2))((Z$,4,2))II1Z$M$(I) "SET UP PRINTER; THEN PRESS ANY KEY"= $"PRESS N IF YOU HAVE NO PRINTER."Y .ZMPM:ZDPD:ZWPW:ZYPYm 8A$:A$""1080 BAU0:PR1:A$"N"PR0 LPR4,4,7 VS$"":I18:S$S$"----------"::S$(S$,72) `CB$:LN0:A$S$:650&!jA$"- COMPUTERIZED GRAPH OF BIORHYTHMIC CURVES; BY 507.":650I!tA$"- SUBJECT: "N$".":650!~A$("- DATE TODAY: "CW$(PW)", "CM$(PM)PY$"."C$,44)!A$A$"DURATION:"(NF)" DAYS.":650!A$("- BIRTHDATE: "CW$(BW)", "CM$(BM)DY$"."C$,44)"A$A$"ZODIAC SIGN: "Z$".":650_"A$"- AGE TODAY:"(DO)" DAYS ("((DOJZ)100)" M.S.YEARS).""650:A$"- NEXT BIRTHDAY: ""NDPDNMPMA$A$"TODAY!":1230"A$A$CW$(NW)", "CM$(NM)NY$" (IN"(NFP)" DAYS).""650:A$S$:650?#A$"- P=PHYSICAL E=EMOTIONAL I=INTELLECTUAL"d#650:A$S$:650:A$"- "#A$A$"LOW - HIGH - DATE - CRITICAL"#650:A$S$:650#A$"- "# 1560:A$A$X$$A$A$(CW$(PW)", "CM$(PM)(PD)","(PY)C$,18)%$A$A$K$Q$(650:DODO1:PWPW1:PDPD1:PW7PW1x$2MPM:YPY:DPD:570:PDD:PMM:PYY$<NFNF1:NF01280$FA$S$:650$PA$"- HIGH DAYS OF FULL VITALITY, EFFICIENCY, AND HIGH"%ZA$A$" ENDURANCE.":650J%dA$"- LOW DAYS OF REDUCED EFFICIENCY, RECUPERATION; EASILY"c%nA$A$" TIRED.":650%xA$"- CRITICAL DAYS TO AVOID SITUATIONS THAT MIGHT LEAD TO TROUBLE."%650:A$S$:650%PR01440%A66(LN(LN66)66):I1A:4::4&198,0:PR0LN01490A&"";:PR:^&"DONE. PRESS ANY KEY";t&PDZD:PMZM:PYZY&A$:A$""1480&CB$:"PLOT FOR SOMEONE ELSE (Y/N)? "(175);&A$:A$""1500&A$"N""BYE, THEN.":#'"YES.":"USE SAME DATE FOR TODAY (Y/N)? "(175)7'A$:A$""1530M'FC1:A$"N"FC0V'750y'X$(C$,23)"*"(C$,23):K$""'"Q$"E":N28:KKE:1610',Q$"P":N23:KKP:1610'6Q$"I":N33:KKI:1610'@'JCDO(DON)N:C0C(N2)K$K$Q$" ",(TT(2322(KC)):X$(X$,T)Q$(X$,T2)2(^