!black,blue,redで彩られたダーツボードです。DECLARE EXTERNAL PICTURE circleDECLARE EXTERNAL PICTURE barOPTION ANGLE DEGREESSET WINDOW -1,1,-1,1DRAW circle WITH ROTATE(0)*SCALE(0.05)*SHIFT(0,0) DRAW circle WITH ROTATE(0)*SCALE(0.15)*SHIFT(0,0)DRAW circle WITH ROTATE(0)*SCALE(0.46)*SHIFT(0,0)DRAW circle WITH ROTATE(0)*SCALE(0.49)*SHIFT(0,0)DRAW circle WITH ROTATE(0)*SCALE(0.76)*SHIFT(0,0)DRAW circle WITH ROTATE(0)*SCALE(0.79)*SHIFT(0,0)DRAW circle WITH ROTATE(0)*SCALE(1)*SHIFT(0,0)FOR i=1 TO 20   DRAW bar WITH ROTATE(18*i+9)*SCALE(0.64)*SHIFT(0.15*COS(18*i+9),0.15*SIN(18*i+9))NEXT iSET TEXT BACKGROUND "TRANSPARENT"SET TEXT FONT "MS ゴシック" , 10SET TEXT COLOR 1PLOT TEXT ,AT COS(18*0+90)*0.9, SIN(18*0+90)*0.9 : "20"PLOT TEXT ,AT COS(18*(-1)+90)*0.9, SIN(18*(-1)+90)*0.9 : "1"PLOT TEXT ,AT COS(18*(-2)+90)*0.9, SIN(18*(-2)+90)*0.9 : "18"PLOT TEXT ,AT COS(18*(-3)+90)*0.9, SIN(18*(-3)+90)*0.9 : "4"PLOT TEXT ,AT COS(18*(-4)+90)*0.9, SIN(18*(-4)+90)*0.9 : "13"PLOT TEXT ,AT COS(18*(-5)+90)*0.9, SIN(18*(-5)+90)*0.9 : "6"PLOT TEXT ,AT COS(18*(-6)+90)*0.9, SIN(18*(-6)+90)*0.9 : "10"PLOT TEXT ,AT COS(18*(-7)+90)*0.9, SIN(18*(-7)+90)*0.9 : "15"PLOT TEXT ,AT COS(18*(-8)+90)*0.9, SIN(18*(-8)+90)*0.9 : "2"PLOT TEXT ,AT COS(18*(-9)+90)*0.9, SIN(18*(-9)+90)*0.9 : "17"PLOT TEXT ,AT COS(18*(-10)+90)*0.9, SIN(18*(-10)+90)*0.9 : "3"PLOT TEXT ,AT COS(18*(-11)+90)*0.9, SIN(18*(-11)+90)*0.9 : "19"PLOT TEXT ,AT COS(18*(-12)+90)*0.9, SIN(18*(-12)+90)*0.9 : "7"PLOT TEXT ,AT COS(18*(-13)+90)*0.9, SIN(18*(-13)+90)*0.9 : "16"PLOT TEXT ,AT COS(18*(-14)+90)*0.9, SIN(18*(-14)+90)*0.9 : "8"PLOT TEXT ,AT COS(18*(-15)+90)*0.9, SIN(18*(-15)+90)*0.9 : "11"PLOT TEXT ,AT COS(18*(-16)+90)*0.9, SIN(18*(-16)+90)*0.9 : "14"PLOT TEXT ,AT COS(18*(-17)+90)*0.9, SIN(18*(-17)+90)*0.9 : "9"PLOT TEXT ,AT COS(18*(-18)+90)*0.9, SIN(18*(-18)+90)*0.9 : "12"PLOT TEXT ,AT COS(18*(-19)+90)*0.9, SIN(18*(-19)+90)*0.9 : "5"SET AREA COLOR 2FOR i=1 TO 10   PAINT 0.48*COS(36*i),0.48*SIN(36*i)   PAINT 0.78*COS(36*i),0.78*SIN(36*i)   PAINT 0,0NEXT iSET AREA COLOR 4FOR i=1 TO 10   PAINT 0.48*COS(36*i+18),0.48*SIN(36*i+18)   PAINT 0.78*COS(36*i+18),0.78*SIN(36*i+18)   PAINT 0.1,0.1NEXT iSET AREA COLOR 0FOR i=1 TO 10   PAINT 0.2*COS(36*i),0.2*SIN(36*i)   PAINT 0.6*COS(36*i),0.6*SIN(36*i)NEXT iSET AREA COLOR 1FOR i=1 TO 10   PAINT 0.2*COS(36*i+18),0.2*SIN(36*i+18)   PAINT 0.6*COS(36*i+18),0.6*SIN(36*i+18)NEXT iSET POINT STYLE 4LET n=100DIM x(n)DIM y(n)PRINT "i";"x(i)";"y(i)"FOR i=1 TO n   GET POINT: x(i),y(i)   PLOT POINTS: x(i),y(i)   PLOT TEXT ,AT x(i),y(i): STR$(i)   PRINT i;x(i);y(i)NEXT i
END
EXTERNAL PICTURE circleOPTION ANGLE DEGREESFOR i=0 TO 1440   PLOT LINES:COS(i*360/1440),SIN(i*360/1440);NEXT iEND PICTURE
EXTERNAL PICTURE barOPTION ANGLE DEGREESFOR i=0 TO 1   PLOT LINES:i,0;NEXT iEND PICTURE