**********************************************************************
*  GRAFIK                                                            *
*                  R.MUNDLOCH,LEINORSTR.15A,8047 KARLSFELD           *
**********************************************************************
       DC.L    0                                                     *
       DC.L    0                                                     *
       DC      $0010          MODULDEFINITION                        *
       DC.B    'G     '                                              *
**********************************************************************
ENTR   OPD.V   29                                                    *
RETN   OPD     $4E4C                                                 *
VARW   OPD.V   10                                                    *
SADR   EQU     $081A                                                 *
EPAR   OPD.V   19                                                    *
**********************************************************************
>WBOX  ENTR    10.L
       VARW    0.X            * X    * 
       VARW    2.X            * Y    * 
       VARW    4.X            * XLEN * 
       VARW    6.X            * YLEN * 
       EPAR
       MOVE.W  0.X,D0         * PARAMETERUEBERGABE * 
       MOVE.W  2.X,D1
       MOVE.W  0.X,D2
       ADD.W   4.X,D2
       MOVE.W  2.X,D3
       MOVE.W  =$0001,D4      * FARBE * 
       JSR     $00069ED4      * CALL LINE AUFRUF VON PEARL * 
       MOVE.W  0.X,D0
       MOVE.W  2.X,D1
       ADD.W   6.X,D1
       MOVE.W  0.X,D2
       ADD.W   4.X,D2
       MOVE.W  2.X,D3
       ADD.W   6.X,D3
       MOVE.W  =$0001,D4
       JSR     $00069ED4
       MOVE.W  0.X,D0
       MOVE.W  2.X,D1
       MOVE.W  0.X,D2
       MOVE.W  2.X,D3
       ADD.W   6.X,D3
       MOVE.W  =$0001,D4
       JSR     $00069ED4
       MOVE.W  0.X,D0
       ADD.W   4.X,D0
       MOVE.W  2.X,D1
       MOVE.W  0.X,D2
       ADD.W   4.X,D2
       MOVE.W  2.X,D3
       ADD.W   6.X,D3
       MOVE.W  =$0001,D4
       JSR     $00069ED4
       RETN
**********************************************************************
       END     OF     JOY