abZPR1PR2HDADRAMODLINAXITEMPTEMPAMPEPHHUFDGFACTJNMIPRPRDSCPICSTMG1DIG**BvAA`A @ @ @V @' @sI@@AIPAG@BP@ ''ARTISTIC MATHEMATICS, LISTING ONE""BY MARIAN LORENZ/ALLAN MOOSE (c) 1986, ANTIC PUBLISHING(w +@AAH*(@5(@@(@Z(@ ARTISTICw(@ MATHEMATICS)&(@&(@ part i**(BY LORENZ/MOOSE*AR@+)()( (c) 1986, ANTIC PUBLISHING, A@-11;A d,;A d,;@,;@B,.T46.*h`h\h[hhZhVhUhhThh!L|T67@9<@9,.>:@4,/ 6-C:,+2[AR@#( }PRINTER:&(0(pson@( tar/GeminiI(oneL([( Choose One4AdAU5.F:Ad,"@B$6-@$. @X6.F:Ad,"@b$6-@. @X7.F:Ad,"@5$6-. @X8 @S:5AdAU!6-@+ @`5+@;6-@<# B+%@# APF @P-A@Z>"@46-?:<<<AY<<@,> A_,/AYd n&&DETERMINE AN AXIS FOR SINE CURVEx+%@H AP}6-P:A$H:@,,**DETERMINE AN AMPLITUDE FOR SINE WAVE&&KEEP IT WITHIN SCREEN BOUNDARIES6-A&  6-  6-+6-P:$H:@,,+ @A%%%DETERMINE PERIOD FOR SINE CURVE%%6-P:A$H:@,%@,DETERMINE A PHASE SHIFT6-@($H:@,DETERMINE COLOR6-P:H:,$@, DETERMINE A SPACING FACTOR%%6-P:@$H:@,,%@PLOT PICTURE",-AY66-$+G:'&,,%@,"@"6-?:<<<<<,, A@J ,/T ^''WAIT FOR USER'S CHOICE OF OPTIONScD+%@2 AP'( }ontinue1(rint:(aveD(uithAdAUr?F:Ad,"@*AdAU4 A ?CONTINUE|>F:Ad,"@G*AdAU4+7>QUITKF:Ad,"@b*AdAU4 A KSAVE AS MICROPAINTER<F:Ad,"@*AdAU4 A<PRINT Ap&&SCREEN DUMP FROM ANTIC, JAN 19847"-(}NO PRINTER SELECTED!7 AUj@.@@P:j(@>:@',>:@d,>:@',>:@Q,>:,+%@H AP$$SET LINE SPACING AND MAKE LOOP #A`--@@")67<,.>:,- 27,76,192,3?6.>:,*67A d,.>:,967@,.?6.167@<@,.167@<@,. 6-C:,6-C:,M%6-F:A`,%F:Aa,$AVM6-F:%@,%+F:%@,,$AV/-@9/6-A$@@%%26-?:A6<<<,% @2 @ @ AU #Ap&%-A6AF"!% 0$:33104,104,133,204,104,133,203,104,141,192,6,104D//141,191,6,104,141,194,6,104,141,193,6,169N111,133,207,169,191,133,208,160,0,177,203,141X00190,6,165,207,240,28,169,0,133,207,173,193b,,6,24,105,4,141,193,6,133,205,173,194,6l++105,0,141,194,6,133,206,76,95,6,169,1v..133,207,173,191,6,24,105,4,141,191,6,133..205,173,192,6,105,0,141,192,6,133,206,32))137,6,32,146,6,32,160,6,32,137,6,32//169,6,32,160,6,165,207,240,177,56,165,20322233,40,176,2,198,204,133,203,198,208,165,208--201,255,208,151,96,173,190,6,41,3,10,1000170,96,160,0,189,195,6,145,205,232,200,192,,4,208,245,96,173,190,6,74,74,141,190,6++96,160,0,189,195,6,10,10,10,10,24,11344205,145,205,232,200,192,4,208,238,96,0,0,0,0,0,,0,0,0,0,10,5,10,5,10,0,5,0,15,15,15,15K"@K6-?:C:/h0Э1ѠNРON͐W`,,]A@'A A9AA6KA@V]AR@4YYMOVE PLOT & DRAWTO ROUTINES INTO RAM, DELETE BOUNDS CHECKING (COURTESY DAVID SMALL)>CC6-?:C:3h|}K~}&~ʎA~}}}`,,H$-AR)(}SAVE FILENAME-B:, @A 0]]+7@<@,4D*+7@<@,4:)7@<@,4:,,)4C:A @! 6.D:67@,.!6.;+%@H AP;6-F:A`,%F:Aa,$AV5 A @5@@%%6-F:A`,%F:Aa,$AV}6-AH#%@@<%@F:%@,U%@F:%@,i%@}%@ @06-?:C:hhhLV,<@,A*@F:A,--AA=*@F:,A "@ B" AUD1:MATHART1.BAS