Device=18F452
Xtal =20

Dim Out As PORTD
Dim CC As Word
Dim x As Word

TRISD=0
PORTD=0

x=1
loop:
' âûâîäèì Ñèíóñ
For CC=1 To 359 Step 1
Out=CRead Sinus + CC
'DelayUS(x)
Next
' âûâîäèì Ïèëó
For CC=0 To 255
Out=CC
Next

' Âûâîäèì òðåóãîëüíèê
For CC=0 To 254
Out=CC
Next
For CC=255 To 1 Step -1
Out=CC
Next

GoTo loop

Sinus:
CData 128,130,132,134,136,139,141,143,145,148,_
150,152,154,156,158,161,163,165,167,169,171,173,175,177,180,182,_
184,186,188,190,191,193,195,197,199,201,203,204,206,208,210,211,_
213,215,216,218,220,221,223,224,226,227,228,230,231,232,234,235,_
236,237,238,239,240,242,243,243,244,245,246,247,248,249,249,250,_
251,251,252,252,253,253,254,254,254,255,255,255,255,255,255,255,_
255,255,255,255,255,255,255,255,254,254,254,253,253,252,252,251,_
251,250,249,249,248,247,246,245,244,244,243,242,241,240,238,237,_
236,235,234,232,231,230,228,227,226,224,223,221,220,218,217,215,_
213,212,210,208,206,205,203,201,199,197,195,194,192,190,188,186,_
184,182,180,178,176,174,171,169,167,165,163,161,159,156,154,152,_
150,148,146,143,141,139,137,134,132,130,128,125,123,121,119,117,_
114,112,110,108,105,103,101,99,97,95,92,90,88,86,84,82,80,78,76,_
74,72,70,68,66,64,62,60,58,56,54,52,51,49,47,45,44,42,40,39,37,_
36,34,33,31,30,28,27,25,24,23,22,20,19,18,17,16,15,14,13,12,11,_
10,9,8,7,7,6,5,5,4,3,3,2,2,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,_
1,1,1,2,2,3,3,4,4,5,6,6,7,8,9,10,10,11,12,13,14,15,16,18,19,20,_
21,22,24,25,26,28,29,31,32,34,35,37,38,40,42,43,45,47,48,50,52,_
54,56,57,59,61,63,65,67,69,71,73,75,77,79,81,83,85,88,90,92,94,_
96,98,101,103,105,107,109,112,114,116,118,120,123,125    ' Òàáëèöà çíà÷åíèÿ ñèíóñà