10 BORDER 26:INK 0,13:INK 1,26:INK 2,0:MODE 1:CLG 1:WINDOW 11,30,2,24:PAPER 2:CLS:WINDOW 12,29,17,19:PAPER 3:CLS:PRINT:PRINT" Amsoft":TAG:PLOT 176,382,2:PRINT CHR$(16);:PLOT 218,382:PRINT CHR$(142);:PLOT 440,126:PRINT"A";:ORIGIN 226,46,180,460,92,18:CLG 1
20 PRINT"RUN"+CHR$(34)+"40AN6128";:FOR t=1 TO 6:READ p,m,r,z,i:FOR l=-r/z TO r/z:u=r^2:y=SQR(u-l^2):ORIGIN p,m,0,639,0,399:MOVE l,y:DRAW l,-y,i:NEXT l,t:CALL &BB06:DATA 320,312,46,2,0,320,212,30,1,1,208,360,9,1,1,434,360,9,1,1,320,160,9,1,1,320,212,9,1,2