"lpt1:",  '  * "no of side of structure",S- "input the radius of structure",R7 'E : :[(CONST ISk2 I  S<X1 R(ICONST)FY1 (R )(ICONST)P N  SZX2 R(NCONST)dY2 (R )(NCONST)n (X1@,Y1d)(X2@,Y2d),x N!N) I3 *q "Would you like to print the screen 'Y' for yes: ",YES$ YES$"Y"  P "Would you like another pattern? 'Y' for yes: ",YES$ YES$"Y"  ' switch to color' $' ,,.' SEG =8' ,(( ) ) FB' (TL' ,,,,ZV'o* switch to monow+  +,,+ SEG  + ,( ) 0*+ SEG4+ >+ H+ PR+ ,,, , \+P SEG P J  O#(P ( );"L";( );( );92P K c  b