310 RegisterVariable('slot' , vtCommand, @chSlot , false); |
310 RegisterVariable('slot' , vtCommand, @chSlot , false); |
311 RegisterVariable('put' , vtCommand, @chPut , false); |
311 RegisterVariable('put' , vtCommand, @chPut , false); |
312 RegisterVariable('ljump' , vtCommand, @chLJump , false); |
312 RegisterVariable('ljump' , vtCommand, @chLJump , false); |
313 RegisterVariable('hjump' , vtCommand, @chHJump , false); |
313 RegisterVariable('hjump' , vtCommand, @chHJump , false); |
314 RegisterVariable('fullscr' , vtCommand, @chFullScr , true ); |
314 RegisterVariable('fullscr' , vtCommand, @chFullScr , true ); |
315 RegisterVariable('+volup' , vtCommand, @chVolUp_p , true ); |
315 RegisterVariable('+volup' , vtCommand, @chVol_p , true ); |
316 RegisterVariable('-volup' , vtCommand, @chVolUp_m , true ); |
316 RegisterVariable('-volup' , vtCommand, @chVol_m , true ); |
317 RegisterVariable('+voldown', vtCommand, @chVolDown_p , true ); |
317 RegisterVariable('+voldown', vtCommand, @chVol_m , true ); |
318 RegisterVariable('-voldown', vtCommand, @chVolDown_m , true ); |
318 RegisterVariable('-voldown', vtCommand, @chVol_p , true ); |
319 |
319 |
320 finalization |
320 finalization |
321 FreeVariablesList |
321 FreeVariablesList |
322 |
322 |
323 end. |
323 end. |