length filename $ 200 fontlist 8 rc 8; INIT: filename = ''; fontlist = makelist(0, 'L') ; control allcmds ; return;