TITLE USE OF MACRO CAPABILITY                                           00000010
* NARROW                                                                00000020
* NOSTATS                                                               00000030
MACRO MAIN(POS,VEL,CONST)                                               00000040
L POS.K=INTGRL(VEL.JK)                                                  00000050
N POS=0                                                                 00000060
R VEL.KL=CONST*TIME.K                                                   00000070
MEND                                                                    00000075
EXPND MAIN(POS1,VEL1,)                                                  00000080
C CONST1=2                                                              00000090
EXPND MAIN(POS2,VEL2,CONST2)                                            00000100
C CONST2=3                                                              00000110
PARM DT=1                                                               00000120
PARM START=0                                                            00000130
PARM STOP=20                                                            00000140
PARM PLTPER=1                                                           00000150
PLOT POS2=2,POS1=1                                                      00000160