(********************* PL0 编译程序Turbo Pascal代码 *********************) 
  program pl0(fa,fa1,fa2); 
  (* PL0 compile with code generation *) 
    
  label 99; 
        (* Turbo Pascal do not support goto between different 
           blocks so, the 'goto' command in getch are replaced 
           by procedure exitp !! in another way, 'label 99' do 
           not work !!                  Lin Wei       2001  *) 
    
  const norw=13;       (* of reserved words *) 
        txmax=100;     (* length of...[ 查看全文 ]