C64S tape image fileVIC BIORHYTHMS VIC BIORHYTHMS  VIC BIORHYTHMS OdA(12),X(3),J(3),CD(3,2),R(3),S(3):I112:A(I)::Y(I)28(I4(I4))fP(1)16:P(2)5:P(3)9:M$"JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC":W$"MTWTFSS"lS(1)36874:S(2)36875:SP$" ":F$""7nS(I)8((TI(TI))2):P(I)8119(I11.5)22((Q1)2)~S(3)36876:36879,27:""(SP$,16):" VIC BIORHYTHMS """(SP$,16):" BY ANDY FINKEL"7)"(C) 1981":" COMMODORE BUSINESS":" MACHINES, INC. "";:9070:F$;:90708F$"INSTRUCTIONS ?";:9060:I$"N"200j"ENTER DATES LIKE THIS:MONTH/DAY/YEAR"(8/13/57=AUG 13,1957)":"USE SLASHES!!9050:" , "F1 EW CHART":"F7 LOT NEXT 20 DAYSJ" RITICAL DAYS":" UIT":" OMPARE":905036879,27:"PLOT FROM":"(MO/DA/YR)";:1000:I10200M1I1:D1I2:Y1I3:D0D1:I1M11:D0D0A(I):D3Y1365D0:I1Y11:D3D3(I4(I4)):"BIRTHDAY ";:1000:I10220DMI1:I1M1:I2I2A(I)::800:DI2:YI3p"COMPARE?":9060:R0:T30:I$"N"300R1:"BIRTHDAY 2";:1000:I10280"I1I11:I2I2A(I)::T3T:800:820,T0T30"PLOT STARTS BEFORE":"BIRTHDAY":1030:200U"ON "(M$,3M12,3)D1","Y11900:"YOU WILL HAVE LIVED":""T"DAYS9050:36879,8:""(F$,9):I120:"-";:I:(F$,19)""SP$:T2M1(F$,19)""(M$,3M12,3)Y11900"";:(F$,20);XI13:J(I)0:R(I)0:J02:CD(I,J)0:J,I:Q140:Q2(Q2)618JbED31:E(7(E7(E7)).5)1:E$((D1),2)g""(W$,E,1)""(E$,1)"";:(E$)1""(E$,1);i"";j36878,9:I13:XS(18I5):820:R(I)R(I)((X)(S(18I5)))2.5:820 kX.6X.6CD(I,J(I))M1100D1:J(I)J(I)1PlZ(P(X)):Z32Z45ZP(I)P(X),P(I):P(X)30720,I3:630^qP(X),42vS(I),2X200:J020::S(I),0:I:D3D3.5:TT.5:T3T3.5:D1D1.5D1A(M1)1D11:M1M11:M112M11:Y1Y11&Q:198,0:T2M1D11(F$,19)""(M$,3M12,3)Y11900""KF$"HIT F1,F7,C,Q";:R1",R";h9060:I(I$):I133200I81"":36879,27:I82R0750"COMPATABILITY":"PHY: "R(1)"%":"EMOT:"R(2)"%":"INT: "R(3)"%":655I136400 I676557"CRITICAL DAYS":"PHYS.EMOT.INT."XI13:J02:CD(I,J)0794K2(CD(I,J)100):K1CD(I,J)K2100:K2K21(F$,62J)(I1)7)(B$,K231,3)((K1))J,I:655 T0:Y1I3810%II31Y11:TT(I4(I4))::TT(I34(I34)I258)\*TT(Y1I31(D0I2))365(D0I2)(D0I2)(D0I2)(365I2D0):r4K2T:TT3:T3K2:I4:I$:I1((I$,2)):(I$,2,1)"9"(I$,2,1)"0"I3I2((I$,I,2)):I3((I$,2)):A(2)Y(I3):I112I111030I20I2A(I1)0"IMPROPER DATE":I01500::"":I10:GZ#F$" HIT A KEY"[d#I$:I$""9060ai#n#I121:("",I(I8)8(I16)8,1)" ";::" ";:#31,28,31,30,31,30,31,31,30,31,30,31$OdA(12),X(3),J(3),CD(3,2),R(3),S(3):I112:A(I)::Y(I)28(I4(I4))fP(1)16:P(2)5:P(3)9:M$"JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC":W$"MTWTFSS"lS(1)36874:S(2)36875:SP$" ":F$""7nS(I)8((TI(TI))2):P(I)8119(I11.5)22((Q1)2)~S(3)36876:36879,27:""(SP$,16):" VIC BIORHYTHMS """(SP$,16):" BY ANDY FINKEL"7)"(C) 1981":" COMMODORE BUSINESS":" MACHINES, INC. "";:9070:F$;:90708F$"INSTRUCTIONS ?";:9060:I$"N"200j"ENTER DATES LIKE THIS:MONTH/DAY/YEAR"(8/13/57=AUG 13,1957)":"USE SLASHES!!9050:" , "F1 EW CHART":"F7 LOT NEXT 20 DAYSJ" RITICAL DAYS":" UIT":" OMPARE":905036879,27:"PLOT FROM":"(MO/DA/YR)";:1000:I10200M1I1:D1I2:Y1I3:D0D1:I1M11:D0D0A(I):D3Y1365D0:I1Y11:D3D3(I4(I4)):"BIRTHDAY ";:1000:I10220DMI1:I1M1:I2I2A(I)::800:DI2:YI3p"COMPARE?":9060:R0:T30:I$"N"300R1:"BIRTHDAY 2";:1000:I10280"I1I11:I2I2A(I)::T3T:800:820,T0T30"PLOT STARTS BEFORE":"BIRTHDAY":1030:200U"ON "(M$,3M12,3)D1","Y11900:"YOU WILL HAVE LIVED":""T"DAYS9050:36879,8:""(F$,9):I120:"-";:I:(F$,19)""SP$:T2M1(F$,19)""(M$,3M12,3)Y11900"";:(F$,20);XI13:J(I)0:R(I)0:J02:CD(I,J)0:J,I:Q140:Q2(Q2)618JbED31:E(7(E7(E7)).5)1:E$((D1),2)g""(W$,E,1)""(E$,1)"";:(E$)1""(E$,1);i"";j36878,9:I13:XS(18I5):820:R(I)R(I)((X)(S(18I5)))2.5:820 kX.6X.6CD(I,J(I))M1100D1:J(I)J(I)1PlZ(P(X)):Z32Z45ZP(I)P(X),P(I):P(X)30720,I3:630^qP(X),42vS(I),2X200:J020::S(I),0:I:D3D3.5:TT.5:T3T3.5:D1D1.5D1A(M1)1D11:M1M11:M112M11:Y1Y11&Q:198,0:T2M1D11(F$,19)""(M$,3M12,3)Y11900""KF$"HIT F1,F7,C,Q";:R1",R";h9060:I(I$):I133200I81"":36879,27:I82R0750"COMPATABILITY":"PHY: "R(1)"%":"EMOT:"R(2)"%":"INT: "R(3)"%":655I136400 I676557"CRITICAL DAYS":"PHYS.EMOT.INT."XI13:J02:CD(I,J)0794K2(CD(I,J)100):K1CD(I,J)K2100:K2K21(F$,62J)(I1)7)(B$,K231,3)((K1))J,I:655 T0:Y1I3810%II31Y11:TT(I4(I4))::TT(I34(I34)I258)\*TT(Y1I31(D0I2))365(D0I2)(D0I2)(D0I2)(365I2D0):r4K2T:TT3:T3K2:I4:I$:I1((I$,2)):(I$,2,1)"9"(I$,2,1)"0"I3I2((I$,I,2)):I3((I$,2)):A(2)Y(I3):I112I111030I20I2A(I1)0"IMPROPER DATE":I01500::"":I10:GZ#F$" HIT A KEY"[d#I$:I$""9060ai#n#I121:("",I(I8)8(I16)8,1)" ";::" ";:#31,28,31,30,31,30,31,31,30,31,30,31$nirog)[16k].tap