&DL      PROC  &P,2                                                     00000000
XDICE    NAME  X                                                        00000100
ZO#COORD NAME  1                   . SET CO-ORDINATES                   00000200
ZO#FORM  NAME  2                   . FORM CONTROL                       00000300
ZO#FORMC NAME  3                   . FORM CONTROL AND CLEAR             00000400
ZO#POS   NAME  4                   . NEW LINE POSITION CONTROL          00000500
ZO#POSC  NAME  5                   . NEW LINE POSITION CNTRL AND CLEAR  00000600
ZO#CUR   NAME  6                   . CURRENT LINE POSITION CONTROL      00000700
ZO#CURC  NAME  7                   . CURRENT LINE POS CNTRL AND CLEAR   00000800
ZO#BEG   NAME  8                   . BEGINNING OF CURRENT LINE CONTROL  00000900
ZO#TABS  NAME  9                   . SET TAB STOP                       00001000
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00001100
.* .                                                                  * 00001200
.* . THIS AND ALL RELATED PROGRAMS ARE PROPERTY OF                    * 00001300
.* .                                                                  * 00001400
.* . UNIVAC CONTAINING ITS CONFIDENTIAL INFORMATION                   * 00001500
.* .                                                                  * 00001600
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00001700
.* .                                                                    00001800
         DO    '&DL'=''                                                 00001900
         GOTO  .NONAME                                                  00002000
         ENDO                                                           00002100
&DL      EQU   *                                                        00002200
.NONAME  LABEL                                                          00002300
         DC    X'10'               . DICE MODE                          00002400
         DC    AL1(&P(0))          . FUNCTION                           00002500
         DC    AL1(&P(2))          . ROW CO-ORDINATE (M FIELD)          00002600
         DC    AL1(&P(1))          . COLUMN CO-ORDINATE (N FIELD)       00002700
         END                                                            00002800
