[求助]ASAP宏语言中，#代表什么意思？ [复制链接]

哪位朋友可以帮忙指点一下：ASAP宏语言中，#后面加数字（比如#0）是什么意思？如下面程序中黄色背景部分语言。谢谢~ HKJ^6|'  
:>Qu;Z1P  
SYSTEM NEW G)c+GoK  
RESET y7+n*|H  
5wha _Yet  
$IO LIBRARY LCD !! ASSIGNS LCD.LIB AS THE LIBRARY FILE .726^2sx  
Nl/ fvJ`4  
ARROWS OFF D>
ou,  
UNITS MM )?$@cvf  
cIa`pU,6A  
WAVELENGTHS 450 550 633 NM @F*z/E}e  
V~Z)
^.6  
MEDIA p#-=mXE/2  
1.5 1.5 1.5 'GLASS' S3$C#mHX  
0>D*d'xLd  
COATING PROPERTIES PRx-0S  
!! wavelength1 R T wavelength2 R T wavelength3 R T 'name' %s
9*?6  
1 0  1 0  1 0  'REFLECT' ShvC4Xb 0  
0 1  0 1  0 1  'TRANSMIT' [dUAb  
0 1  1 0  1 0  'SPLITTER1' !!8;ZcL}Z  
0 0  1 0  0 1  'SPLITTER2' p@O,-&/D  
1 0  0 1  0 1  'SPLITTER3' e'c3.sQ|?  
0 1  0 1  1 0  'SPLITTER4' 0NU3% 4?  
UH;bg}=8  
!! GEOMETRY CONSTRUCTION qJO6m-  
E>gLUMG$  
DEL=10  !! DISTANCE BETWEEN THE LCD AND LENSES /~7M @`1  
JUXBMYFus  
!!___________________________________________________ Evqy e;  
!! PARABOLIC REFLECTOR 2"j&_$#l5X  
DMs8B&Y=  
RAD=12.5  !! RADIUS OF CURVATURE OF PARABOLIC REFLECTOR [;4ak)!  
XAPE=60   !! FULL APERTURE IN X-DIRECTION c&aqN\'4"  
YAPE=60   !! FULL APERTURE IN Y-DIRECTION bY*_6SPK4  
ZPOS=-12.5/2-50  !! Z-AXIS POSITION OF THE REFLECTOR 6#Y]^%?uy  
YPOS=0           !! Y-AXIS POSITION OF THE REFLECTOR n "^rS}Y]  
heB![N0:  
SURFACE &gJ@"`r4  
  OPTICAL Z 0 (RAD) -1 ELLIPSE (XAPE/2) (YAPE/2) p]?eIovi  
OBJECT 'LAMP_REFLECTOR' gp~-n7'~O  
  INTERFACE COAT REFLECT AIR AIR sSD&'K=lq  
  SHIFT 0 (YPOS) (ZPOS) o8IqO'  
=knLkbiq7,  
!!___________________________________________________ DT6BFx  
!! LENS ARRAY ~k?
t  
!! ASSUME FIVE BY FIVE ARRAY OF IDEAL LENSES G&MO(r}B  
n<HF]  
LXAPE=10  !! LENSLET X-DIRECTION FULL APERTURE s|Vs#o.P)  
LYAPE=10  !! LENSLET X-DIRECTION FULL APERTURE NwQ$gDgu t  
FLA1=50   !! LENSLET FOCAL LENGTH 7lJ8<EP9 u  
ZPOS=0 1rU\ !GfR  
YPOS=0 I$)9T^Ra  
Qy=tkCN  
!! USE THE MACRO LANGUAGE TO CREATE 25 IDEAL LENSLETS. m7XN6zX  
!! CREATE the lenses as individual objects within a YnDaBpx  
!! nested $DO loop.  The only way to nest $DO loops in ;j(*:Nt1  
!! ASAP is to place the inner loop in a macro, and call ;A*sub  
!! that macro from the outer loop. W~i0.rg|>  
6& hiW]Adm  
LENSROW { 8{{^pW?x  
$DO 1 5 <5CQ#^cK  
   { LENSES 8^^ehaxy  
       IDEAL Z 0 (LXAPE/2) rXip"uz(K>  
         1 0 -1/(FLA1) 1 m9jjKu]|  
     OBJECT 'LENSLET.?.#1' E)X_  
       SHIFT (LXAPE*(?-1)) (LYAPE*(#1-1)) 0 Gz8JOl  
     RETURN } /
BF7N3  
} 9c1q:>|  
Bxj4rC[  
$DO 1 5 ~{kA;uw  
  $LENSROW ? 8 ?:W{GAo  
5"q{b1  
GROUP -25 /jq"r-S"  
  SHIFT (-2*LXAPE) (-2*LYAPE+YPOS) (ZPOS)

这里好像是命名吧，０就是０号物体，可能也许大概吧．．．．．．．．．．