1 ' Pattern plotter 2 ' by Paul Bridel 3 ' Amstrad Action  September 87 20 ' For Tandy CGP-115 plotters & compatibles 30 MODE 2: INPUT"Step Value (0.1 to 4 are best) ";stp 40 ' Screen-draw routine 50 ORIGIN 320,200: FOR a=0 TO 230 STEP stp 60 DRAW a*SIN(a),a*COS(a): NEXT a 70 INPUT "Do you want a plot-out of this? ";plt$ 80 IF plt$="Y" OR plt$="y" THEN 100 ELSE 30 90 ' Plot Routine 100 PRINT#8,CHR$(17): PRINT#8: PRINT#8,CHR$(18) 110 PRINT#8,"S0": PRINT#8,"Pstep Value: ";stp 120 PRINT#8,"M240,-240": PRINT#8,"1" 130 FOR a=0 TO 230 STEP stp 140 PRINT#8,"D";a*SIN(a);",";a*COS(a): NEXT a 150 PRINT#8,"A": GOTO 20