script_A:
	cp 38 ;'A'
	jr nz,script_B
	call exec

	dw frame02
	db beat+$80,0
	dw frame04
	db beat,0
	dw frame03+$8000
	db beat,0
	dw frame01+$8000
	db beat,0
	dw frame03
	db beat+$80,0
	dw frame05
	db beat,0
	dw frame02+$8000
	db beat,0
	dw frame01+$8000
	db beat,0
	db 0
script_B:
	cp 39 ;'B'
	jr nz,script_C
	call exec

	dw frame16+$8000
	db beat+$80,0
	dw frame04
	db beat,0
	dw frame16+$8000
	db beat,0
	dw frame05
	db beat,0
	dw frame16+$8000
	db beat+$80,0
	dw frame04
	db beat,0
	dw frame16+$8000
	db beat,0
	dw frame01
	db beat,0
	db 0
script_C:
	cp 40 ;'C'
	jr nz,script_D
	call exec

	dw frame02+$8000
	db beat+$80,0
	dw frame14+$8000
	db beat,0
	dw frame02+$8000
	db beat,0
	dw frame00+$8000
	db beat,0
	dw frame03+$8000
	db beat+$80,0
	dw frame15+$8000
	db beat,0
	dw frame03+$8000
	db beat,0
	dw frame01+$8000
	db beat,0
	db 0
script_D:
	cp 41 ;'D'
	jr nz,script_E
	call exec

	dw frame03+$8000
	db beat+$80,0
	dw frame12+$8000
	db beat,0
	dw frame13+$8000
	db beat,0
	dw frame02+$8000
	db beat,0
	dw frame09+$8000
	db beat+$80,0
	dw frame10+$8000
	db beat,0
	dw frame03+$8000
	db beat,0
	dw frame01+$8000
	db beat,0
	db 0
script_E:
	cp 42 ;'E'
	jr nz,script_F
	call exec

	dw frame02+$8000
	db beat+$80,0
	dw frame09+$8000
	db beat,0
	dw frame10+$8000
	db beat,0
	dw frame03+$8000
	db beat,0
	dw frame12+$8000
	db beat+$80,0
	dw frame13+$8000
	db beat,0
	dw frame02+$8000
	db beat,0
	dw frame01+$8000
	db beat,0
	db 0
script_F:
	cp 43 ;'F'
	jr nz,script_G
	call exec

	dw frame02+$8000
	db beat+$80,0
	dw frame04
	db beat,0
	dw frame11+$8000
	db beat,0
	dw frame12+$8000
	db beat,0
	dw frame13+$8000
	db beat+$80,0
	dw frame04
	db beat,0
	dw frame02+$8000
	db beat,0
	dw frame01+$8000
	db beat,0
	db 0
script_G:
	cp 44 ;'G'
	jr nz,script_H
	call exec

	dw frame03+$8000
	db beat+$80,0
	dw frame05
	db beat,0
	dw frame08+$8000
	db beat,0
	dw frame09+$8000
	db beat,0
	dw frame10+$8000
	db beat+$80,0
	dw frame05
	db beat,0
	dw frame03+$8000
	db beat,0
	dw frame01+$8000
	db beat,0
	db 0
script_H:
	cp 45 ;'H'
	jr nz,script_I
	call exec

	dw frame15+$8000
	db beat+$80,0
	dw frame10+$8000
	db beat,0
	dw frame17
	db beat,0
	dw frame08+$8000
	db beat,0
	dw frame14
	db beat+$80,0
	dw frame13+$8000
	db beat,0
	dw frame21
	db beat,0
	dw frame11+$8000
	db beat,0
	dw frame13+$8000
	db beat+$80,0
	dw frame16
	db beat,0
	dw frame00+$8000
	db beat,0
	dw frame01
	db beat,0
	db 0
script_I:
	cp 46 ;'I'
	jr nz,script_J
	call exec

	dw frame12
	db beat*2+$80,0
	dw frame01
	db beat*2,0
	dw frame09
	db beat*2+$80,0
	dw frame01
	db beat*2,0
	dw frame12
	db beat*2+$80,0
	dw frame01
	db beat*2,0
	dw frame09
	db beat*2+$80,0
	dw frame01
	db beat*2,0
	db 0
script_J:
	cp 47 ;'J'
	jr nz,script_K
	call exec

	dw frame01+$8000
	db beat*2+$80,0
	dw frame00
	db beat*2,0
	db 0
script_K:
	cp 48 ;'K'
	jr nz,script_L
	call exec

	dw frame00
	db beat*2+$80,0
	dw frame22
	db beat,0
	dw frame00
	db beat,0
	db 0
script_L:
	cp 49 ;'L'
	jr nz,script_M
	call exec

	dw frame03+$8000
	db beat+$80,0
	dw frame15
	db beat,0
	dw frame12+$8000
	db beat,0
	dw frame01
	db beat,0
	db 0
script_M:
	cp 50 ;'M'
	jr nz,script_N
	call exec

	dw frame02+$8000
	db beat+$80,0
	dw frame14
	db beat,0
	dw frame09+$8000
	db beat,0
	dw frame01
	db beat,0
	db 0
script_N:
	cp 51 ;'N'
	jr nz,script_O
	call exec

	dw frame01
	db beat*2+$80,0
	dw frame00+$8000
	db beat*2,0
	dw frame02
	db beat*2+$80,0
	dw frame09+$8000
	db beat*2,0
	dw frame02
	db beat*2+$80,0
	dw frame00+$8000
	db beat*2,0
	dw frame02
	db beat*2+$80,0
	dw frame09+$8000
	db beat,0
	dw frame01
	db beat,0
	db 0
script_O:
	cp 52 ;'O'
	jr nz,script_P
	call exec

	dw frame01
	db beat*2+$80,0
	dw frame00+$8000
	db beat*2,0
	dw frame03
	db beat*2+$80,0
	dw frame12+$8000
	db beat*2,0
	dw frame03
	db beat*2+$80,0
	dw frame00+$8000
	db beat*2,0
	dw frame03
	db beat*2+$80,0
	dw frame12+$8000
	db beat,0
	dw frame01
	db beat,0
	db 0
script_P:
	cp 53 ;'P'
	jr nz,script_Q
	call exec

	dw frame13
	db beat+$80,-1
	dw frame21+$8000
	db beat,0
	dw frame20+$8000
	db beat,0
	dw frame19
	db beat,0
	dw frame18
	db beat+$80,-1
	dw frame17+$8000
	db beat,0
	dw frame10+$8000
	db beat,0
	dw frame01
	db beat,0
	db 0
script_Q:
	cp 54 ;'Q'
	jr nz,script_R
	call exec

	dw frame10
	db beat+$80,1
	dw frame17+$8000
	db beat,0
	dw frame18+$8000
	db beat,0
	dw frame19
	db beat,0
	dw frame20
	db beat+$80,1
	dw frame21+$8000
	db beat,0
	dw frame13+$8000
	db beat,0
	dw frame01
	db beat,0
	db 0
script_R:
	cp 55 ;'R'
	jr nz,script_S
	call exec

	dw frame03+$8000
	db beat+$80,0
	dw frame02+$8000
	db beat,-1
	dw frame13+$8000
	db beat,0
	dw frame01
	db beat,0
	db 0
script_S:
	cp 56 ;'S'
	jr nz,script_T
	call exec

	dw frame02+$8000
	db beat+$80,0
	dw frame03+$8000
	db beat,1
	dw frame10+$8000
	db beat,0
	dw frame01
	db beat,0
	db 0
script_T:
	cp 57 ;'T'
	jr nz,script_U
	call exec

	dw frame03
	db beat+$80,0
	dw frame04
	db beat,0
	dw frame02+$8000
	db beat,-1
	dw frame01+$8000
	db beat,0
	dw frame03
	db beat+$80,0
	dw frame05
	db beat,0
	dw frame02+$8000
	db beat,-1
	dw frame01+$8000
	db beat,0
	db 0
script_U:
	cp 58 ;'U'
	jr nz,script_V
	call exec

	dw frame02
	db beat+$80,0
	dw frame05
	db beat,0
	dw frame03+$8000
	db beat,1
	dw frame01+$8000
	db beat,0
	dw frame02
	db beat+$80,0
	dw frame04
	db beat,0
	dw frame03+$8000
	db beat,1
	dw frame01+$8000
	db beat,0
	db 0
script_V:
	cp 59 ;'V'
	jr nz,script_W
	call exec

	dw frame05
	db beat+$80,0
	dw frame08+$8000
	db beat,0
	dw frame09+$8000
	db beat,-1
	dw frame10+$8000
	db beat,0
	dw frame09+$8000
	db beat+$80,0
	dw frame08
	db beat,0
	dw frame01+$8000
	db beat*2,0
	db 0
script_W:
	cp 60 ;'W'
	jr nz,script_X
	call exec

	dw frame04
	db beat+$80,0
	dw frame11+$8000
	db beat,0
	dw frame12+$8000
	db beat,1
	dw frame13+$8000
	db beat,0
	dw frame12+$8000
	db beat+$80,0
	dw frame11
	db beat,0
	dw frame01+$8000
	db beat*2,0
	db 0
script_X:
	cp 61 ;'X'
	jr nz,script_Y
	call exec

	dw frame16
	db beat*2+$80,-33
	dw frame00
	db beat*2,-33
	dw frame01
	db beat*2,33
	dw frame16+$8000
	db beat*2,33
	db 0
script_Y:
	cp 62 ;'Y'
	jr nz,script_Z
	call exec

	dw frame17
	db beat+$80,-33
	dw frame18
	db beat,-33
	dw frame20
	db beat,33
	dw frame16+$8000
	db beat,33
	dw frame21
	db beat+$80,-33
	dw frame20
	db beat,-33
	dw frame18
	db beat,33
	dw frame16+$8000
	db beat,33
	db 0
script_Z:
	cp 63 ;'Z'
	jr nz,script_end
	call exec

	dw frame02+$8000
	db beat+$80,-33
	dw frame04
	db beat,-33
	dw frame16
	db beat,0
	dw frame00
	db beat,0
	dw frame05
	db beat+$80,33
	dw frame03+$8000
	db beat,33
	dw frame16+$8000
	db beat,0
	dw frame01
	db beat,0
	db 0

script_end:
	call exec
	dw frame00
	db beat*2,0
	dw frame06
	db beat*30,0
	dw frame07
	db beat*2,0
	dw frame06
	db beat*15,0
	dw frame00
	db beat*2,0
	db 0
