P咥(12),X(3),J(3),CD(3,2),R(3),S%(3):両񸾻2:嘇(I)::枼Y(I)28(I4驳(I4))V36879:P(1)16:P(2)5:P(3)9:M$"JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC":W$"MTWTFSS"S(1)睼5:S(2)睼4:SP$" ":F$""1I((V13)128)4:SB睮64((V10)120):CB睮37888玈Bx枼S(I)8((T璉(T璉))2):枼P(I)睸B439(I11.5)22((Q1)2)S(3)睼3:梀,27:""(SP$,16):" VIC BIORHYTHMS """(SP$,16):" BY ANDY FINKEL#櫍7)"(C) 1981 COMMODORE BUSINESS MACHINES, INC.x 両񸫐1:J睮(I7)8(I15)8:桽B狢B狪,J:桽B505狢B獻,J:桽B狪,160:桽B505獻,160: 橣$"憫INSTRUCTIONS ?";:59:婭$"N"15 "ENTER DATES LIKE THIS:MONTH/DAY/YEAR "(8/13/57=AUG 13,1957)淯SE SLASHES":58:"孟屯廖挠M "F1 蜤W CHARTF7 蠰OT NEXT 20 DAYS" 肦ITICAL DAYS 裊IT 肙MPARE":58梀,27:"帗PLOT FROM(MO/DA/YR)潙";:54:婭1񸫭5M1睮1:D1睮2:Y1睮3:D0睤1:両111:D0睤0狝(I):!D3瞃1365狣0:両111:D3睤3(I4驳(I4)):F"BIRTHDAY";:54:婭1񸫭8sM睮1:両11:I2睮2狝(I)::50:D睮2:Y睮3"COMPARE?":59:R0:T30:婭$"N"23R1:櫲(F$,10)"BIRTHDAY 2";:54:婭1񸫮1両111:I2睮2狝(I)::T3睺:50:53'婽0癟30"PLOT STARTS BEFOREBIRTHDAY":58:15q"ON "(M$,3琈12,3)D1","Y11900:"YOU WILL HAVE LIVED崫"T"DAYS58:梀,8:"摕"(F$,9):両񸾼0:"-";:侷:櫲(F$,19)""SP$:T2睲1櫲(F$,19)""(M$,3琈12,3)Y11900"";:櫲(F$,20);-両񸾽:J(I)0:R(I)0:丣񸫐:CD(I,J)0:侸,I:丵񸾾0:婹2驳(Q2)31_E睤31:E驳(7(E7(E7)).5)1:E$彩((D1),2)""(W$,E,1)""(E$,1)"";:嬅(E$)1""(E$,1);"憫";梀1,9:両񸾽:X播S(18狪5):53:R(I)睷(I)((X)泊((18狪5)))2.5:53 媂.6疿鲍.6D(I,J(I))睲1100狣1:J(I)睯(I)1`!Z猜((X)):媄32癦45癦睵(I)(X),P(I):棩P(X)30720,I3:35n"棩P(X),42#桽(I),2琗200:丣񸫗::桽(I),0:侷:D3睤3.5:T睺.5:T3睺3.5:D1睤1.5$婦1辈A(M1)111:M1睲11:婱11211:Y1瞃115%俀:198,0:婽2潮M1疍1潮1(F$,19)""(M$,3琈12,3)Y11900""Z&橣$"HIT F1,F7,C,Q";:婻1",R";t'59:I财(I$):婭13315(婭81"":梀,27:)婭潮82癛񸫰3*"COMPATABILITYPHY: "R(1)"%岴MOT:"R(2)"%岻NT: "R(3)"%":38+婭13624,婭潮6738.-"CRITICAL DAYSP扝YS.E扢OT.I扤T.N.両񸾽:丣񸫐:婥D(I,J)񸫰9~/K2驳(CD(I,J)100):K1睠D(I,J)獽2100:K2睰210櫲(F$,62琂)(I1)7)(B$,K2񧉿,3)((K1))1侸,I:382T0:媃1睮352 3両睮3111:T睺(I4驳(I4))::T睺(I34驳(I34)疘258)P4T睺(Y1獻31(D0辈I2))365(D0辈I2)(D0獻2)(D0矷2)(365獻2狣0):f5K2睺:T睺3:T3睰2:6I4:匢$:I1才((I$,2)):嬍(I$,2,1)"9"笆(I$,2,1)"0"37I2才((I$,I,2)):I3才((I$,2)):A(2)播Y(I3):婭112癐1񼄕78婭20疘2巢A(I1)9"IMPROPER DATE":58:"":I10:1:橣$" HIT A KEY"C;$:婭$""59I<r=31,28,31,30,31,30,31,31,30,31,30,31