Od†A(12),X(3),J(3),CD(3,2),R(3),S(3):I²1¤12:‡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$²""7n–¥S(I)²8¬¿((TI«µ(TI))¬2¬ÿ):–¥P(I)²8119«µ(Iª11.5)¬22ªµ((Qª1)2)~–S(3)²36876:—36879,27:™"“"È(SP$,16):™" VIC BIORHYTHMS "«™™""È(SP$,16):™" BY ANDY FINKEL"ï›™£7)"(C) 1981":™" COMMODORE BUSINESS":™" MACHINES, INC. œ™"";:9070:™F$;:90708™F$"‘‘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":9050ŠÈ—36879,27:™"Ž“PLOT FROM":™"(MO/DA/YR)‘";:1000:‹I1²0§200½ÒM1²I1:D1²I2:Y1²I3:D0²D1:I²1¤M1«1:D0²D0ªA(I):‚í×D3²Y1¬365ªD0:I²1¤Y1«1:D3²D3«(I4²µ(I4)):‚Ü™"BIRTHDAY ";:1000:‹I1²0§220DáM²I1:I²1¤M«1:I2²I2ªA(I):‚:800:D²I2:Y²I3p™"COMPARE?":9060:R²0:T3²0:‹I$²"N"§300¡R²1:™"BIRTHDAY 2";:1000:‹I1²0§280Ë"I²1¤I1«1:I2²I2ªA(I):‚:T3²T:800:820,‹T³0°T3³0§™"PLOT STARTS BEFORE":™"BIRTHDAY":1030:‰200U™"“ON "Ê(M$,3¬M1«2,3)D1","Y1ª1900:™"YOU WILL HAVE LIVED":™""T"DAYSœô9050:—36879,8:™"“Ÿ"È(F$,9):I²1¤20:™"-";:‚I:™È(F$,19)""SP$:T2²M1Ñþ™È(F$,19)""Ê(M$,3¬M1«2,3)Y1ª1900"’";:™È(F$,20);XI²1¤3:J(I)²0:R(I)²0:J²0¤2:CD(I,J)²0:‚J,I:Q²1¤40:‹Q2²µ(Q2)§618JbE²D3«1:E²µ(7¬(E7«µ(E7))ª.5)ª1:E$²Ê(Ä(D1),2)ƒg™""Ê(W$,E,1)"’"È(E$,1)"";:‹Ã(E$)±1§™""É(E$,1);Ži™"‘‘";Üj—36878,9:I²1¤3:X²¥S(18ªI¬5):820:R(I)²R(I)«(´(X)²´(¥S(18ªI¬5)))¬2.5:820 k‹X³.6¯X±«.6§CD(I,J(I))²M1¬100ªD1:J(I)²J(I)ª1PlZ²Â(¥P(X)):‹Z²32°Z²45°Z²P(I)§—¥P(X),P(I):—¥P(X)ª30720,Iª3:‰630^q—¥P(X),42§v—S(I),2¬Xª200:J²0¤20:‚:—S(I),0:‚I:D3²D3ª.5:T²Tª.5:T3²T3ª.5:D1²D1ª.5Ù€‹D1±²A(M1)ª1§D1²1:M1²M1ª1:‹M1±12§M1²1:Y1²Y1ª1&Š‚Q:—198,0:‹T2³±M1¯D1³±1§™È(F$,19)"Ÿ"Ê(M$,3¬M1«2,3)Y1ª1900"’"K™F$"HIT F1,F7,C,Q";:‹R²1§™",R";hÚ9060:I²Æ(I$):‹I²133§200ƒß‹I²81§™"“":—36879,27:€–é‹I³±82°R²0§750ãê™"“COMPATABILITY":™"PHY: "R(1)"%":™"EMOT:"R(2)"%":™"INT: "R(3)"%":‰655òî‹I²136§400‹I³±67§6557™"“CRITICAL DAYS":™"P’HYS.E’MOT.I’NT."XI²1¤3:J²0¤2:‹CD(I,J)²0§794ˆK2²µ(CD(I,J)100):K1²CD(I,J)«K2¬100:K2²K2«1¸™È(F$,6ª2¬J)£(I«1)¬7)Ê(B$,K2¬3ª1,3)Ä(µ(K1))Æ‚J,I:‰655Ù T²0:‹Y1²I3§810%I²I3ª1¤Y1«1:T²T«(I4²µ(I4)):‚:T²T«(I34²µ(I34)¯I2±58)\*T²Tª(Y1«I3«1«(D0±²I2))¬365«(D0±²I2)¬(D0«I2)«(D0³I2)¬(365«I2ªD0):Žr4K2²T:T²T3:T3²K2:ŽèI²4:…I$:I1²Å(È(I$,2)):‹Ê(I$,2,1)±"9"°Ê(I$,2,1)³"0"§I²3ìíI2²Å(Ê(I$,I,2)):I3²Å(É(I$,2)):A(2)²¥Y(I3):‹I1±12°I1³1§1030ü‹I2±0¯I2³²A(I1)§Ž0™"IMPROPER DATE":I²0¤1500:‚:™"“":I1²0:ŽGZ#™F$"‘ HIT A KEY"[d#¡I$:‹I$²""§9060ai#Ž¥n#I²1¤21:™Ê("Ÿœž",Iª(I±8)¬8ª(I±16)¬8,1)" ";:‚:™"” ’";:ŽÎŒ#ƒ31,28,31,30,31,30,31,31,30,31,30,31$