povslope.bas

利用视觉暂留在自行车轮或MOto车轮上闪出绚丽的图案

OPEN "d:\tmrtable.txt" FOR OUTPUT AS 1
FOR a = 255 TO 0 STEP -1
   b = 1.0756 * a
   IF b > 255 THEN b = 255
   IF b < 0 THEN b = 0
   PRINT #1, "   RETLW 0x" + HEX$(b)
NEXT a
CLOSE