j GETCNAME* getcname} LM_GETCOMPCODEC_ETEXTENDCODE _SYMSTARTSYMSTARTSYMBOLSSYMBOLS_SYMENDSYMENDNULLBEGDATA_DATADATA_SYMPBDATA_SYMPDATA_SYMPEDATA_CONSTCONST_MSGMSG_BEGBSSBEGBSS_BSSBSS_ENDBSSENDBSSDGROUP"@\Hh`` h h ߘHHHHH(HHߘHۈP  &k_VOPS LM_FERRORFT_INT86 FT_ISBITONSTRTRAN__ltable __PLANKTON __acrtused DISPBEGIN CLIPPER530 CLIPPER@ EXTEND TERMINAL DBFNTXSSP*(*:q/*;; +/*=|'*?;^;k7%*@;7%*Az7%*Br7% *C;!7'*D7$ |)*E7$'*G7$|q)/*J7y`@TET;T;V(dLM_GETCOMPLM_FERRORFT_INT86FT_ISBITONSTRTRANP$,V*N7 q)/*O7r):l*P7:u/*S7; *T;/Q*V7;LPT^=*W7;r/*X70e!79h*Y;/*Z7;/*`7|*a;'*b7y|*e;_;k;u7%*f7|u7%*gz7%*hr7% *i;!7'*j7$ |)*k7$'*mz/*p7y`1TET;T;V &LM_KILLREDLM_LIBVERSLM_FERRORSTRTRANRIGHTFT_INT86FT_ISBITONP$,VLanMan Library Demo Application/*Y LM_GetCompName()  Get the local computer name # *Y)_, LM_GetRedir()  Get the redirection list # *Y)_, LM_Redirect()  Redirect a network device # *Y)_, LM_KillRedir()  Cancel a redirection # *Y)_, LM_SetPrString() $ Set a network printer setup string # *Y)_, LM_NbMacAddr() ' Get MAC addresses of network adapters # *Y)_, LM_Ferror() : Get the DOS error code for a failed networking operation # *Y )_, LM_Libvers() 0 Get the version of the LANMAN.LIB library file # *Y )_, Quit  Nothing more to do ,, / *\ ;r)/*] ; ֜TET 2T 2Vd)/*^ ;z)/*`/*a/*b ||;;O)/*c ||'||v*d|;(7;\jv7'*f7 '*h||;;O7'*i77vq'*j ;7'*k ; 7'*l ;7'*n{y`SSP*(*uLM_GetCompName()/*x ||;;O)/*y ||'||v*z|;(7;\jv7'*|)/*~;;v>LM_GetCompName() retrieves the NETBIOS name of the computer on'*;;v!which the application is ruuning.'*;;vThe name of this computer is 7u'*;;v#Press any key to return to the menu'*|v*||;;O7'*{y`TDT 2T 2VSSP*( *,/*,/*r/*q/*Status;uTypeu;uLocal Remote naneu/ * LM_GetRedir()/ *,/ * ||;;O)/* ||'||v*|;(7 ;\jv7 '*;;v?LM_GetRedir() retrieves the redirection list, that is, the list'*;;v?of redirected devices in the local computer. You can get either'*;;v@the complete list or you can specify that you want only printers'*;;v>or only disk drives. Or you can supply a device name (either a'*;;v>local name, for example "LPT3:" or "X:", or a renote name, for'*;;v@example "\\MYSERVER\MYPRINTER") and LM_GetRedir() will verify if'*;;v!that device is redirected or not.4TCT 2T 2V'*c*d/* ; |'; |v*7;du;d/*; ;v8Specify "P" for printers or "D" for disk drives or leave'*; ;v'blank to retrieve both types of devices'v7 #(*7{^47]._} cDeviceType!#*4 PD_}{)v7 )<v*o; ;vOr enter a name to search for'v7 #(*7{^47]._} cDeviceName@S35{{)v7 )<v*7 {{{{{{',/ *);*;;vPress to try again'*;;v&or any other key to return to the menu'*|v*);  ****7 *{/ 1*7P^ *;/ *7D^ *;/ *7 7{ 7))/*7p*z/*7X*;;vFound 7u! entries in the redirection list.u'*;;v Press to view the result'*;;v&or any other key to return to the menu'*|v*); l*C*,/*r/c7g/77f *77X$|^ OK; u Disconnected;u77X$;^Printer;u Disk;uu77X$;u;u77X$u;Pu/*77;PvQ* ; |'; |v*; |v7 '*; |;;O7'*;;vPress to search again'*;;v&or any other key to return to the menu'*|v*o); l**;;v No redirected devices were found'*;;vPress to try again'*;;v&or any other key to return to the menu[C'*|v*); l**||;;O7'*{y`ϠSSP*(*q/*q/*q/* LM_Redirect()/*,/* ||;;O)/* ||'||v*|;(7;\jv7'*;;v@LM_Redirect() is used to redirect a shared printer or disk drive'*;;v@(for example "\\MYSERVER\MYPRINTER" or "\\MYSERVER\MYDISK") to a'*;;v?local printer port name or drive letter (for example "LPT3:" or'*;;v<"X:"). It works identically to the "NET USE" DOS command. An'*;;v?optional "share level" password (a separate password for access'*;;v=to the share, not for user level login) can also be passed if'*;;v0the setup of the share requires such a password.'*; ;v=A share can be redirected under several different local namesҜTBT 2T 2V'*; ;v@simultaneously but the local name must not already be "occupied"'*; ;vby another redirection.'*c* d/*  ;|';|v* 7;u;/* 7;2u;2/* 7; u; /*;;vEnter local name 'v7#(*7{^47]._} cLocalName{{{)v7)<v*;;vEnter remote name'v7#(*7{^47]._} cRemoteName{{{)v7)<v*;;vEnter password if required'v7#(*7{^47]._} cPassword{{{)v7)<v*7{{{{{{',/*7!7! );^*;;v8No redirection was requested. Press to try again'*;;v&or any other key to return to the menuB'*|v*);  *y**7)7)7{ 7))/*7* ;;vThe new redirection was set up.'*!;;v%You can now see it with LM_GetRedir()'*";;v+Press to set up another redirection'*#;;v&or any other key to return to the menu'*$|v*%); l*&*);;vThe redirection attempt failed.'**;;vPress to try again'*+;;v&or any other key to return to the menu'*,|v*-); lo*.v*3||;;O7'*4{y`SSP*( *:q/*<LM_KillRedir()/*=,/ *? ||;;O)/*@ ||'||v*A|;(7;\jv7'*Cc*D)/*Eq/*F|/*G7pQ*Hr/c7g/77f 4*I777X$u;u/*J7;<i *K7/*P ;;';;v*Q;;vALM_KillRedir() is used to cancel an already existing redirection.'*R7*S;;v>There are no current redirections, so this demo will not work.'*T;;v#Press any key to return to the menu'*U|v*V*X;;v to try again'*e;;v&or any other key to return to the menu'*f|v*g);  *hso*j*n7))/*o7*q;;vThe redirection of "7)u" was cancelled.u'*r;;v+Press to cancel another redirection'*s;;v&or any other key to return to the menu'*t|v*u); l*v*y;;v,The redirection cancellation attempt failed.'*z;;vPress to try again'*{;;v&or any other key to return to the menuYC'*||v*}); l*~*||;;O7'*{y`FSSP*( *q/*q/*LM_SetPrString()/ *,/ * ||;;O)/* ||'||v*|;(7 ;\jv7 '*;;v>LM_SetPrString() is used to assign a setup string to a network'*;;v=printer. The string will then be output to the printer at the'*;;venter the setup string using chr(n) for unprintable characters'*; ;v9and quotes surrounding printable characters, for example:'*; ;vchr(27)+"&l1O"'*c*d/* ;|';|v*7;u;/*7;2u;2/*;;vEnter local name 'v7 #(*7{^47]._} cLocalName{{{)v7 )<v*;;vEnter setup string'v7 #(*7{^47]._}cString1{{{)v7 )<v*7 {{{{{{',/ *7!7! );^*;;v2No setup was requested. Press to try again'*;;v&or any other key to return to the menu'*|v*);  * **#(*|7)_)/*d/**7)/*7/a w*z/*7'*7*;;v:The syntax check of the setup string resulted in an error.'*;;vPress to try again'*;;v&or any other key to return to the menu'*|v*);  ***7)7)/*7*;;v2The setup string was assigned to the printer port.'*;;v,Press to set up another setup string'*;;v&or any other key to return to the menu'*|v*); l**;;vThe setup string setup failed.'*;;vPress to try again'*;;v&or any other key to return to the menu'*|va:*); l**||;;O7'*{y`)0SSP*(*7Z*{y`T?T 2T 2VSSP*( **/*r/*LM_NbMacAddr()/*,/*,/ * ||;;O)/* ||'||v*|;(7;\jv7'*;;vDLM_NbMacAddr() is used to find the MAC addresses of network adapters'*;;v?It uses the NetBIOS interface for that purpose. The computer on'*;;vAwhich the application is running can be specified either with its'*;;vANetBIOS name or with an asterisk. Asterisk searches are generally'*;;v=the fastest. To find the MAC addresses of adapters in another'*;;v?computer, the exact NetBIOS name of that computer must be used.'*; ;vDIf there is more than one adapter (physical of virtual) or more than؜T>T 2T 2V'*; ;vCone transport protocol installed, each adapter/protocol combination'*; ;vAhas its own LANA number, and the MAC address for each is reported'*; ;vDif it can be retrieved. The search can optionally be limited to only'*; ;v=one LANA number. LANA numbers are not necessarily contiguous.'*c*d * ;|';|v*7;u;/*;;vEnter computer name'v7#(*7{^47]._} cLocalName@!{{)v7)<v* ;;v2Enter LANA number or leave blank to find all LANAs'v7#(* 7{^47]._}cLana9{{)v7)<v* 7{{{{{{',/* 7! );^* ;;v0No computer name was specified. Press to{'*;;v0try again or any other key to return to the menu'*|v*);  ***;;v Searching ...'*!7)7{7)/ * ;;';;v*7  *;;v5No MAC addresses were found in the specified computer'*;;v(NetBIOS error ")u occured)u'*;;v!Press to try again or any'* ;;vother key to return to the menu'*!|v*"); l*#?9*&r/c7g/77 f *'7;f*(7;j/*);-/*+7/*,;/oo*.;7u7vLANA 7 7X$;u'*/;7u7; uvMAC 7 7X$u'X*1;;vPress to search again'*2;;v&or any other key to return to the menuC'*3|v*4); l*5D*:||;;O7'*;{y` SSP*(*C LM_Ferror()/*E ||;;O)/*F ||'||v*G|;(7;\jv7'*I")/*K;;v?LM_Ferror() retrieves the DOS error code of the last error that'*L;;v>occured when a LanMan library function was executed. The error'*M;;v?code is reset to zero at the start of every LanMan function, so'*N;;v?it is only the error code of the last LanMan function which can'*O;;v be retrieved.'*Q; ;v@The error codes are explained in the Error Messages Norton Guide'*R; ;vAand corresponding manual that came with Clipper. An error code of'*S; ;v0 means that no error occured.'*V; ;v&The result of the error code check is =T =T 2T 2Vm 7u. u'*X;;v#Press any key to return to the menu'*Y|v*[||;;O7'*\{y`, SSP*(*b LM_LibVers()/*c,/*e ||;;O)#*f ||'||v*g|;(7;\jv7'*i;;vBLM_LibVers() retrieves the version of the LanMan Library used when'*j;;v?the application was linked. The version number is returned as a'*k;;v>string in the format "N.nn" where "N" is the major version and'*l;;v?"nn" is the minor version. LM_LibVers() also inserts the string'*m;;vB"LanMan Library Version" plus the version number in the LANMAN.LIB'*n;;v@library file and in the resulting exe file. That string can then'*o; ;v?be searched in those files to retrieve the version number "from'*p; ;v the outside".~T <T 2T 2V '*s; ;v9The LanMan Library version linked in this application is )u'*u;;v#Press any key to return to the menu'*v|v*x||;;O#'*y{y`D LMDEMOLM_LIBVERSDEMOGETCNADEMOGETREDDEMOREDIREDEMOKILLREDEMOSETPRSDEMONBMACADEMOLMFERRDEMOLMLIBVSETSAVESCREENSCROLLDEVOUTFT_MENU2RESTSCREENLM_GETCOMP__GETDISPLAYATAILREADMODALLASTKEYLM_GETREDIALLTRIMACHOICELM_REDIRECLM_KILLREDERRORBLOCKDEMOERRHANOBJERRINFOLM_SETPRSTLSUCCESSLM_NBMACADLM_FERRORCSCREENzP$,V F$JULN