ttermpro.exe /c=5 /baud=115200

GP0 I/O bit0 / PWM3
GP1 I/O bit1 / PWM2
GP2 I/O bit2 / PWM1
GP3 I/O bit3
GP4 I/O bit4 / UART TX
GP5 I/O bit5 / UART RX
GP6 I/O bit6
GP7 I/O bit7
GP8 I/O bit8 / SPI RX / button1 (UP)
GP9 I/O bit9 / SPI CS / button2 (LEFT)
GP10 I/O bit10 / SCK / button3 (RIGHT)
GP11 I/O bit11 / SPI TX / button4 (DOWN)
GP12 IMU_SDA / TP_SDA / I2C SDA
GP13 IMU_SCL / TP_SCL / I2C SCL
GP14 I/O bit14 / IMU_INT1
GP15 LCD_BL
GP16 LCD_DC
GP17 LCD_CS
GP18 LCD_CLK
GP19 LCD_DIN(MOSI)
GP20 LCD_RST
GP21 SOUND OUT
GP22 I/O bit12 / button5 (START)
GP23 I/O bit13 / button6 (FIRE)
GP24 SD_DO(MISO)
GP25 SD_CS
GP26 SD-SCLK
GP27 SD_DI(MOSI)
GP28 BAT_ADC / ADC2
GP29 I/O bit15 / TP_INT

PWM4=15

do
  for i=0 to 1000
    PWM i, 1000, 4
    wait 1
    cursor 0,10 : print i,
  next
loop

useclass CST816D,TBUTTON,GEN3O
usegraphic
K=new(GEN3O,88,"UTF-8")
T=new(CST816D)

for y=0 to 1
  for x=0 to 4
    point x*60,40+y*100
    K.GPRT(chr$(0x30+x+y*5),0,7)
    new(TBUTTON,x*60,40+y*100,48,88,funcaddress(push_cb),funcaddress(release_cb),x+y*5)
  next
next

do
  wait 1
  if T.POLLING() then
    TBUTTON::touch(T.Xpos, T.Ypos)
  else
    TBUTTON::release()
  endif
loop

label push_cb
  print args(1);
  point args(4),args(5)
  K.GPRT(chr$(0x30+args(1)),0,3)
return

label release_cb
  point args(4),args(5)
  K.GPRT(chr$(0x30+args(1)),0,7)
return

rem 4100 mV = 1696 = 100%
rem 3550 mV = 1468 = 40%
rem 3300 mV = 1365 = 0%
label BATTERYP
  var a
  a=analog(28)
  if a>1468 then
    return 60*(a-1468)/(1696-1468)+40
  else
    return 40*(a-1365)/(1468-1365)

IF "ABC"=T$ AND "DEF"=S$ THEN
  print "T$ is 'ABC'"
  print "S$ is 'DEF'"
ELSEIF T$<"ABC" THEN
  print "T$ is probably shorter than 'ABC'"
ENDIF

PWM4=21

DO:PRINT INKEY():LOOP

ffprobe -v error -select_streams v:0 -show_entries stream=r_frame_rate input.mp4

ffmpeg -i input.mp4 -ac 1 -ar 15825 -f wav -acodec pcm_u8 -t 31 result.wav

ffmpeg -i D0002030736_00000_V_000.mp4 -ac 1 -ar 15809 -f wav -acodec pcm_u8 -t 31 -af "volume=32, dynaudnorm, alimiter=limit=0.9" crick15.wav

useclass PLAYAVI

cls
system 51,15
system 50,315000000
system 57, 40000000

a=new(PLAYAVI,"crick15.avi")
a.SETWAVE("crick15.wav")

do
  wait 1
loop while a.play()

end

w=15015
do
  w=w-1
  if 0=w then
    w=15015
    a.MOVEWAVPOINTER(191)
  endif
  wait 1
loop while a.play()

ffmpeg -i original.mp4 -c:v rawvideo result.avi