0 Members and 2 Guests are viewing this topic.
:.Get Next Entry:.Returns 1 if End of Vat or 0 otherwise:Lbl VX:P-{P-6}-6->P>={E982E}r:Return
:.Get Pointer to current entry data:Lbl VD:{P-4}r:Return
:.Get Pointer to current name length:Lbl VNL:{P-6}:Return
:sub(VI)::Lbl L:If sub(VT)=5: For(A,1,sub(VNL)): Disp {sub(VN)-A+1}>Char: End: Disp i:End:If sub(VNX): Goto L:End:Return::Lbl VI:{E9830}r->P:Return::Lbl VNX:P-{P-6}-7->P>={E982E}r:Return::Lbl VT:{P}:Return::Lbl VD:{P-4}rr:Return::Lbl VA:{P-5}:Return::Lbl VNL:{P-6}:Return::Lbl VN:P-7:Return