WC: /* The following will make the WC command. ; for RMX86 plm86 wc.p86 cp ram ot(3) link86 wc.obj, & /rmx86/lib/compac.lib, & /rmx86/lib/hpifc.lib, & /rmx86/lib/rpifc.lib & segsize(stack(+1000)) & mempool(+0,0ff000h) & bind pu fl ; for RMX286 Release 1 plm286 wc.p86 cp ram ot(3) set(rmx286) bnd286 wc.obj, & /rmx286/lib/upifc.lib, /rmx286/lib/udi.gat, & /rmx286/lib/hpifc.lib, /rmx286/lib/hi.gat, & /rmx286/lib/nucifc.lib, /rmx286/lib/nuc.gat & segsize(stack(+1000)) & rc(dm(1000h,0ff000h)) nodb ; for RMX286 Release 2ff plm286 wc.p86 cp ram ot(3) set(rmx286) bnd286 wc.obj, & /rmx286/lib/udiifc.lib, & /rmx286/lib/rmxifc.lib & segsize(stack(+1000)) & rc(dm(1000h,0ff000h)) nodb */ DO; DECLARE TOKEN LITERALLY 'SELECTOR'; $IF NOT RMX286 $INCLUDE(/rmx86/inc/hgtipn.ext) $INCLUDE(/rmx86/inc/hsncor.ext) $INCLUDE(/rmx86/inc/uexit.ext) $ELSE $INCLUDE(/rmx286/inc/hi.ext) $INCLUDE(/rmx286/inc/udi.ext) $ENDIF DECLARE cr LITERALLY '0dh', lf LITERALLY '0ah'; DECLARE fname(81) BYTE INITIAL (3), status WORD; DO WHILE (fname(0) > 2); CALL rq$c$get$input$pathname(@fname, SIZE(fname) - 1, @status); fname(fname(0) + 1) = cr; fname(fname(0) + 2) = lf; fname(0) = fname(0) + 2; IF (fname(0) > 2) THEN CALL rq$c$send$co$response(@fname, 0, @fname, @status); END; /* DO WHILE */ CALL dq$exit(0); END WC;