qq.bas

一个用PIC16C64开发的变色灯程序

10 A = 0#
15 B = 0#
20 I = 0
30 B = SIN(I / 100000)
40 IF B > (3.2 / 311) THEN
41 PRINT I
42 GOTO 70
43 END IF

50 I = I + 1
60 IF I < 10000 THEN GOTO 30
70 END