C64S tape image fileVIC BIORHYTHMS   ÑVIC BIORHYTHMS ÑÐ VIC BIORHYTHMS Od†A(12),X(3),J(3),CD(3,2),R(3),S(3):�I²1¤12:‡A(I):‚:–¥Y(I)²28«(I­4²µ(I­4)) 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¬¿((T­I«µ(T­I))¬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«(I­4²µ(I­4)):‚Ü™"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);X�I²1¤3:J(I)²0:R(I)²0:�J²0¤2:CD(I,J)²0:‚J,I:�Q²1¤40:‹Q­2²µ(Q­2)§618JbE²D3«1:E²µ(7¬(E­7«µ(E­7))ª.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."X�I²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«(I­4²µ(I­4)):‚:T²T«(I3­4²µ(I3­4)¯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$Od†A(12),X(3),J(3),CD(3,2),R(3),S(3):�I²1¤12:‡A(I):‚:–¥Y(I)²28«(I­4²µ(I­4)) 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¬¿((T­I«µ(T­I))¬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«(I­4²µ(I­4)):‚Ü™"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);X�I²1¤3:J(I)²0:R(I)²0:�J²0¤2:CD(I,J)²0:‚J,I:�Q²1¤40:‹Q­2²µ(Q­2)§618JbE²D3«1:E²µ(7¬(E­7«µ(E­7))ª.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."X�I²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«(I­4²µ(I­4)):‚:T²T«(I3­4²µ(I3­4)¯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$nirog)[16k].tap