1PAGE 1 USE OF MACRO CAPABILITY (C) 1978 UND
* * * * * S O U R C E L I S T I N G * * * * *
0001 TITLE USE OF MACRO CAPABILITY
0002 * NARROW
0003 * NOSTATS
0004 MACRO MAIN(POS,VEL,CONST)
0005 L POS.K=INTGRL(VEL.JK)
0006 N POS=0
0007 R VEL.KL=CONST*TIME.K
0008 MEND
0009 EXPND MAIN(POS1,VEL1,)
0010+ MEND MAIN(POS1,VEL1,)
0011 C CONST1=2
$
1) ***** W A R N I N G ***** ND0588
0012 EXPND MAIN(POS2,VEL2,CONST2)
0013+ L POS2.K=INTGRL(VEL2.JK)
0014+ N POS2=0
0015+ R VEL2.KL=CONST2*TIME.K
0016+ MEND
0017 C CONST2=3
0018 PARM DT=1
0019 PARM START=0
0020 PARM STOP=20
0021 PARM PLTPER=1
0022 PLOT POS2=2,POS1=1
$
1) ***** C R I T I C A L ***** ND0516