Код:
DEFINITION Laser;
PROCEDURE ASLV (col, row, len, hgt: BYTE);
PROCEDURE ASRV (col, row, len, hgt: BYTE);
PROCEDURE ATDV (col, row, len, hgt: BYTE);
PROCEDURE ATOF;
PROCEDURE ATON;
PROCEDURE ATUV (col, row, len, hgt: BYTE);
PROCEDURE AWLV (col, row, len, hgt: BYTE);
PROCEDURE AWRV (col, row, len, hgt: BYTE);
PROCEDURE CLSM (spN: BYTE);
PROCEDURE CLSV (col, row, len, hgt: BYTE);
PROCEDURE GMAT (col, row, spD, spS: BYTE);
PROCEDURE GMBL (col, row, spD, spS: BYTE);
PROCEDURE GMND (col, row, spD, spS: BYTE);
PROCEDURE GMOR (col, row, spD, spS: BYTE);
PROCEDURE GMXR (col, row, spD, spS: BYTE);
PROCEDURE GTBL (col, row, spN: BYTE);
PROCEDURE GTND (col, row, spN: BYTE);
PROCEDURE GTOR (col, row, spN: BYTE);
PROCEDURE GTXR (col, row, spN: BYTE);
PROCEDURE INVM (spN: BYTE);
PROCEDURE INVV (col, row, len, hgt: BYTE);
PROCEDURE Init;
PROCEDURE MARV (col, row, len, hgt: BYTE);
PROCEDURE MIRV (col, row, len, hgt: BYTE);
PROCEDURE PMAT (col, row, spD, spS: BYTE);
PROCEDURE PMBL (col, row, spD, spS: BYTE);
PROCEDURE PMND (col, row, spD, spS: BYTE);
PROCEDURE PMOR (col, row, spD, spS: BYTE);
PROCEDURE PMXR (col, row, spD, spS: BYTE);
PROCEDURE PTBL (col, row, spN: BYTE);
PROCEDURE PTND (col, row, spN: BYTE);
PROCEDURE PTOR (col, row, spN: BYTE);
PROCEDURE PTXR (col, row, spN: BYTE);
PROCEDURE PWBL (col, row, spN, spCol, spRow, len, hgt: BYTE);
PROCEDURE PWND (col, row, spN, spCol, spRow, len, hgt: BYTE);
PROCEDURE PWOR (col, row, spN, spCol, spRow, len, hgt: BYTE);
PROCEDURE PWXR (col, row, spN, spCol, spRow, len, hgt: BYTE);
PROCEDURE SCRM (spN, npx: BYTE);
PROCEDURE SCRV (col, row, len, hgt, npx: BYTE);
PROCEDURE SETV (col, row, len, hgt: BYTE);
PROCEDURE SL1M (spN: BYTE);
PROCEDURE SL1V (col, row, len, hgt: BYTE);
PROCEDURE SL4M (spN: BYTE);
PROCEDURE SL4V (col, row, len, hgt: BYTE);
PROCEDURE SL8M (spN: BYTE);
PROCEDURE SL8V (col, row, len, hgt: BYTE);
PROCEDURE SR1M (spN: BYTE);
PROCEDURE SR1V (col, row, len, hgt: BYTE);
PROCEDURE SR4M (spN: BYTE);
PROCEDURE SR4V (col, row, len, hgt: BYTE);
PROCEDURE SR8M (spN: BYTE);
PROCEDURE SR8V (col, row, len, hgt: BYTE);
PROCEDURE WCRM (spN, npx: BYTE);
PROCEDURE WCRV (col, row, len, hgt, npx: BYTE);
PROCEDURE WL1M (spN: BYTE);
PROCEDURE WL1V (col, row, len, hgt: BYTE);
PROCEDURE WL4M (spN: BYTE);
PROCEDURE WL4V (col, row, len, hgt: BYTE);
PROCEDURE WL8M (spN: BYTE);
PROCEDURE WL8V (col, row, len, hgt: BYTE);
PROCEDURE WR1M (spN: BYTE);
PROCEDURE WR1V (col, row, len, hgt: BYTE);
PROCEDURE WR4M (spN: BYTE);
PROCEDURE WR4V (col, row, len, hgt: BYTE);
PROCEDURE WR8M (spN: BYTE);
PROCEDURE WR8V (col, row, len, hgt: BYTE);
END Laser.