Declare the length of the appropriate variables and initialize them. 
length filename $ 200 fontlist 8 rc 8;

INIT:
   filename = '';
   fontlist = makelist(0, 'L') ;
   control allcmds ;
return;