home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / Cobol32 / PowerCBL / powercbl.Z / powrect.ocb < prev    next >
Text File  |  1995-12-19  |  1KB  |  27 lines
  1. 000010 IDENTIFICATION    DIVISION.
  2. 000020 CLASS-ID.    POWRECT.
  3. 000030 ENVIRONMENT    DIVISION.
  4. 000040 CLASS        SECTION.
  5. 000050     INHERIT POWWND EXTERNAL.        *> âNâëâXîpÅ│é╠ïLÅq
  6. 000060 DATA        DIVISION.
  7. 000070 CLASS        SECTION.
  8. 000080    01 POW-BORDER    PIC S9(4) COMP-5.
  9. 000090 PROCEDURE    DIVISION.
  10. 000100       FUNCTION MOVE OF POW-BORDER (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  11. 000110            REPLACING NAME BY "XPOWRECTSETBORDER" .
  12. 000120       FUNCTION REFERENCE OF POW-BORDER () IS EXTERNAL BY VALUE PIC S9(4) COMP-5
  13. 000130            REPLACING NAME BY "XPOWRECTGETBORDER" .
  14. 000140       FUNCTION MOVE OF POW-TRANSPARENT (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  15. 000150            REPLACING NAME BY "XPOWRECTSETTRANSPARENT" .
  16. 000160       FUNCTION REFERENCE OF POW-TRANSPARENT () IS EXTERNAL BY VALUE PIC S9(4) COMP-5
  17. 000170            REPLACING NAME BY "XPOWRECTGETTRANSPARENT" .
  18. 000180       FUNCTION MOVE OF POW-ROUND (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  19. 000190            REPLACING NAME BY "XPOWRECTSETROUND" .
  20. 000200       FUNCTION REFERENCE OF POW-ROUND () IS EXTERNAL BY VALUE PIC S9(4) COMP-5
  21. 000210            REPLACING NAME BY "XPOWRECTGETROUND" .
  22. 000220       FUNCTION ADD OF POW-ROUND (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  23. 000230            REPLACING NAME BY "XPOWRECTADDROUND" .
  24. 000240       FUNCTION SUBTRACT OF POW-ROUND (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  25. 000250            REPLACING NAME BY "XPOWRECTSUBTRACTROUND" .
  26. 000260 END CLASS POWRECT.
  27.