:59468,126 COPYRIGHT(C) 1980 DAVE GOFORTHH 329-22 ST Eh PRINCE ALBERT SASK CANADAn: CURSOR #20, MAY 1980 BOX 550, GOLETA, CA. 93017: AS OF 6 JUN 80ZPG$"CURVES":NM$"20":62000dPC(15):I015:PC(I):IFx32,123,108,98,126,97,127,252,124,255,225,254,226,236,251,224g}M$" "}Q133267:Q032768G76PR$"PRESS RETURN FOR MENU"" HYPOCYCLOIDS" TRIGONOMETRIC LOOPS" QUIT),"PICK ONE: ";:60000:Y$(IN$,1):6Y$"H"1000K@Y$"T"3000\JY$"Q"4000sT"TRY AGAIN": 300"HYPOCYCLOIDS"RADIUS OF OUTER WHEEL: ";:60000:RO(IN$)RO(RO)"INTEGERS ONLY.":1210RO212501"OUTER WHEEL MUST HAVE A RADIUS OF 2":"OR MORE.":1210c"RADIUS OF INNER WHEEL: ";:60000:RI(IN$) RI(RI) "INTEGERS ONLY.":1250RIRO"INNER WHEEL MUST BE SMALLER THAN";RO:1250RI11300"INNER WHEEL MUST HAVE A RADIUS OF 1":"OR MORE.":1250\"HOW FAR FROM THE CENTER OF THE INNER":"WHEEL IS THE PENCIL? ";q60000:RP(IN$)#IN$""RPRI:"I'LL PUT IT ON THE EDGE.":T1400:T( RP0 "THAT DOESN'T MAKE SENSE.":1300 2 RPRI "";RI;"OR LESS, PLEASE.":1300 FPRI:NROC PT(PN):ZPTN:Z0PN:NZ:1360_ ZRIRIN:RORON:RPRPNq RMRO(RIRP)z PRO NRI D(6060N) T11RORI:T2RORI PR$ I02ND IIIT1 Y12(T2(I)RP(II))RM X14(T2(I)RP(II))RM& Y$:Y$CR$2000 50007 IE "DONE.[ Y$:Y$CR$1560d "200 "TRIGONOMETRIC FUNCTION PLOTTING "USING POLAR COORDINATES. "THE GENERAL FORMULA IS " " R = F ( M * A )2 "YOU CAN CHOOSE F (THE FUNCTION), ANDi "M (THE MULTIPLIER). A IS THE ANGLE.  "YOU CAN CHOOSE THE FUNCTION FROM: & " 1) SINE";20);"4) COSECANT 0 " 2) COSINE";20);"5) SECANT : " 3) TANGENT";20);"6) COTANGENT% "ENTER NUMBER: ";:60000d N(IN$): N1 N6 "TYPE A NUMBER FROM 1 TO 6.":3200 N(N) "INTEGERS ONLY.":3200 "THE MULTIPLIER AFFECTS THE SIZE AND "NUMBER OF THE LOOPS. "PICK A MULTIPLIER: ";:60000:W(IN$)0 W0"POSITIVE NUMBERS ONLY, PLEASE.":32509 PR$T A0:D90:MX14:MY12g N2MX7:MY6q DDW  N3910,3920,3930,3940,3950,3960  Y$:Y$CR$200  XMXR(A):YMYR(A):(X)19(Y)125000 AAD * Y$:Y$CR$33304 200FR(AW):$PR(AW):FZ((2AW))(2AW)R0:U[R(AW):qdR(AW):R0R10000:}eR1R:nR(AW):R0R10000:oR1R:x((2AW))(2AW)R0:yR1(AW):IX(X):IY(Y) C1:IX(X.5)C2 IY(Y.5)CC4<CLQ1IX40IY:CV(CL)QCL,(CV128)255]J015pCVPC(J)5100J:CL,CV:CL,PC(J C)`IN$" ":ZTTI:ZC2:ZD$(20)jZ$:Z$""60070tZTTI(" ",ZC,1);"";:ZC3ZC:ZTTI15 ~60010:Z(Z$):ZL(IN$):(Z127)32" ";:60110jFL(Z127)64(Z127)91Z$((Z128)255)|ZL25460010IN$IN$Z$:Z$;ZD$;Z$;Z13IN$(IN$,2):CR$;:Z20ZL1IN$(IN$,ZL1):"";:60010Z141Z$(20(ZL1)):Z2ZL:Z$;:Z:60000 60010G0"";9);"CURSOR #";NM$;" ";PG$t:" COPYRIGHT (C) 1980 BY DAVE GOFORTHDI110:"";:IN"PRESENTING PLEASING PLOTTED PATTERNS"PRESS RETURN TO BEGINZ$:Z$""62090""::CR$(13):100