qq.bas

来自「一个用PIC16C64开发的变色灯程序」· BAS 代码 · 共 14 行

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