Show Demo and normal speed

These are the scrips which I'm currently using.
You can speedup, slowdown, pause the demo with the "keypad +" and "keypad -" AND while running the demo the "keypad enter" turns on/off the shownormals.

//=========== Demo Speed ============================================================
set dt_00 "set dt_f vstr dt_01; set dt_b vstr dt_00; cl_freezedemo 1; timescale 0.01; ut_echo >> ^1DEMO SPEED |---------------- 0% <<"
set dt_01 "set dt_f vstr dt_02; set dt_b vstr dt_00; cl_freezedemo 0; timescale 0.25; ut_echo >> ^1DEMO SPEED =|-------------- 25% <<"
set dt_02 "set dt_f vstr dt_03; set dt_b vstr dt_01; cl_freezedemo 0; timescale 0.50; ut_echo >> ^1DEMO SPEED ==|------------ 50% <<"
set dt_03 "set dt_f vstr dt_04; set dt_b vstr dt_02; cl_freezedemo 0; timescale 0.75; ut_echo >> ^1DEMO SPEED ===|---------- 75% <<"
set dt_04 "set dt_f vstr dt_05; set dt_b vstr dt_03; cl_freezedemo 0; timescale 1.00; ut_echo >> ^1DEMO SPEED ====|-------- 100% <<"
set dt_05 "set dt_f vstr dt_06; set dt_b vstr dt_04; cl_freezedemo 0; timescale 1.50; ut_echo >> ^1DEMO SPEED =====|------ 150% <<"
set dt_06 "set dt_f vstr dt_07; set dt_b vstr dt_05; cl_freezedemo 0; timescale 2.00; ut_echo >> ^1DEMO SPEED ======|---- 200% <<"
set dt_07 "set dt_f vstr dt_08; set dt_b vstr dt_06; cl_freezedemo 0; timescale 2.50; ut_echo >> ^1DEMO SPEED =======|-- 250% <<"
set dt_08 "set dt_f vstr dt_08; set dt_b vstr dt_07; cl_freezedemo 0; timescale 3.00; ut_echo >> ^1DEMO SPEED ========| 300% <<"
vstr dt_04 // set default
bind KP_PLUS "vstr dt_f" // Increase Speed
bind KP_MINUS "vstr dt_b" // Decrease Speed
//=========== Shownormals Toggle ====================================================
set shownor_off "r_shownormals 0; wait 15; ut_echo ^1SHOWNORMALS: OFF; set shownor vstr shownor_on"
set shownor_on "r_shownormals 1; wait 15; ut_echo ^1SHOWNORMALS: ON; set shownor vstr shownor_off"
set shownor "vstr shownor_off" //set default
bind KP_ENTER "vstr shownor"