rem サイン・コサインカーブ cls dim rd, ts, tc dim a, n, m rd = 3.14159 / 180.0 print "----------+----------\n" for n = 0 to 360 step 15 { ts = int(10 + 10 * sin( n * rd)) tc = int(10 + 10 * cos( n * rd)) for m = 0 to 20 { a = " " if(m == 10){ a = "I" } if(m == ts){ a = "S" } if(m == tc){ a = "C" } print a } print "\n" }