$:PG$"ORRERY":NM$"23":62000A" KARL & ERNEST MARHENKE[" 1710 WILSHIRE DRIVEr" APTOS, CA. 95003x"" CURSOR #23, DEC 1980" COPYRIGHT(C)1980 THE CODE WORKS" BOX 550, GOLETA, CA. 93017" " AS OF 1 DEC 80dA(19),B(19),C(19),M$(12),D(13)2nI119:A(I),B(I):x.7791,.00273790931,.9931,.0027377785,.7007,.011367714,.4855,.0113675957.5055,.00445046867,.14,.00445036173,.9874,.00145575328,.0539 .00145561327,.0896,2.3080893E-4,.0565,2.3080893E-4,.1333,9.294371E-5W.883,9.294371E-5,.8702,3.269438E-5,.4006,3.269438E-5,.8469,1.672092E-5.7254,1.672092E-5,.6639,1.115482E-5,.041,1.104864E-5,.3574,1.104864E-5I112:M$(I): JANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBER.I113:D(I):b1,32,60,91,121,152,182,213,244,274,305,335,366vI19:O$(I): MERCURY,VENUS,EARTH,MARS,JUPITER,SATURN,URANUS,NEPTUNE,PLUTOO33274:I19:P2(I)O::CD$""<M1$"I":IN7:DT736525:F648E3:B$" ":R(3)1:R(2).723UR(8)30.07:"":MF1"WHAT IS THE STARTING YEAR? ";:60000:Y(IN$)Y1680Y2280300""BETWEEN 1680 AND 2280, PLEASE.":270 ,"WHAT IS THE STARTING MONTH? ";:60000:M$IN$ 6 IN$""300+ @((M$,1))57350g JM((M$)):M1M12"BETWEEN 1 AND 12, PLEASE ":300y TM$M$(M):470 ^M0:I112 h (M$(I),(M$))M$ 390 r M0 MI: 390 |"THAT COULD BE ";M$(M);:MI: 420  I  M0 470& "NO SUCH MONTH. TRY AGAIN.": 3005  M12460F  IM1 12q  (M$(I),(M$))M$ ", ";M$(M);:MIy  I " OR ";M$(M);".": 300 DD(M):LY0:Y4(Y4)D59DD1:LY1 T367Y(7(Y((M9)12))4)(275M9)1730531.5:T11T36525 M1$M2$520S LO1:U5:E5.7:MA2:T$"INNER PLANETS":M2$M1$:MF1 M1$"O"LO5:U9:E49.3:MA2:T$"OUTER PLANETS" LL1:UU10:M1$"O"LL9:UU19 ILLUU:CA(I)B(I)T:H0:C0H1 C(I)2(C(C)H): &M1$"O"6102 0L(1)F(84378(C(4))10733(2C(4)))C(3)Q :R(1).39528.07834(C(4))p DL(2)F(2814(C(6)))C(5) NL(3)F(6910(C(2)))C(1) XL(4)F(38451(C(8))2238(2C(8)))C(7):R(4)1.5303.1417(C(8)) bL(5)F(19934(C(10))5023T12511)C(9)6 lR(5)5.20883.25122(C(10)):M1$"I"700p vL23045(C(12))5014T12689(2C(10)5C(12))2507 L(6)F(LC(11)):R(6)9.55774.53252(C(12)) L(7)F(19397(C(14)))C(13):R(7)19.21216.90154(C(14))L(8)F(3523(C(16)))C(15):L101577(C(18))15517(2C(18))3593(2C(19))_L(9)F(L3414(3C(18)))C(17)R(9)40.746389.58235(C(18))1.16703(2C(18))ILOU:X(I)R(I)(L(I)):Y(I)R(I)(L(I))XXX(I)24.5E:SX1:XX0SX1%X%(XX):VSX((X%1)2):FX0:XX0X%2(X%2)FX1BXX0X%2(X%2)FX1fYYY(I)24.5E:SY1:YY0SY1Y%(YY):WSY((Y%1)2):FY0:YY0Y%2(Y%2)FY1YY0Y%2(Y%2)FY1P1(I)OV40W:R1(I)123:FX1FY0R1(I)108  FX0FY1R1(I)126#FX1FY1R1(I)1241 ILO890Q*JLOI1:P1(I)P1(J)880x4QR1(I)R1(J):Q231R1(I)98:880>Q249R1(I)97:880HQ247R1(I)255:880RQ252R1(I)225:880\Q250R1(I)226:880fR1(I)127pzMF09609"S";|B1$"":I111:B1$;:"AV";:I111:B1$;:"W";:33767,75!T$:ILOU:(CD$,IMA);O$(I)::MF0F(CD$,11);((Y),2);" "gY0(CD$,11);"B.C.""";B$:"";M$(M);DD(M)1LYYD(CD$,21);((IN),2);" DAY ":"INCREMENT"ILOU:P2(I),32::O,81ILOU:P1(I),R1(I)::O,81IN0(CD$,18);B$:B$BIN0(CD$,18);"REVERSE":"MOTION"VA$:A$""1210hA$"H"1150$A$"O"A$"I"M1$A$.A$"S"IN7(IN)8A$"M"IN30(IN)BA$"F"IN180(IN)LA$"R"IN(IN)VA$"D"IN(IN)`A$"N"260jA$"Q""":"t10407~A$:A$""1150T(CD$,13);"AND HOLDING"x"PRESS ANY KEY":"TO RESTART"A$:A$""1180(CD$,13);B$:B$:"";B$:"";B$TTIN:T1T1IN36525:DDIND01250YY1:DD365:Y0Y1Y4(Y4)DD1=LY0:YD0:Y4(Y4)D59LY1WY4(Y4)D60YD1M112:DD(M1)LYM$M$(M):1310 DD365LY:YY1:Y0Y11250ILOU:P2(I)P1(I)::490`IN$" ":ZTTI:ZC2:ZD$(20)jZ$:Z$""600703tZTTI(" ",ZC,1);"";:ZC3ZC:ZTTI15>~60010nZ(Z$):ZL(IN$):(Z127)32" ";:60110FL(Z127)64(Z127)91Z$((Z128)255)ZL25460010IN$IN$Z$:Z$;ZD$;Z$;Z13IN$(IN$,2):CR$;:Z20ZL1IN$(IN$,ZL1):"";:60010IZ141Z$(20(ZL1)):Z2ZL:Z$;:Z:60000T60010d(PN060250o-605002"PRESS RETURN TO ";