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