十年前的废酸定额核算系统源代码辩析.doc

SET PROC TO WADR.FOX DO TN01 ************************************************************ * TN01 * ************************************************************ PROCEDURE TN01 SET TALK OFF SET STAT OFF SET SAFE OFF SET SCOR OFF SET ESCA OFF SET ECHO OFF SET DOHI OFF GB= _UC= LOAD TEST CALL TEST WITH _UC IF LEFT(_UC,1)=1 SET COLO TO +GB/B,+W/G CLEAR SET COLO TO /0 @10,20 CLEAR TO 16,61 SET COLO TO +W/BG @ 9,18 SAY****************************************** @10,18 SAY* * @11,18 SA