// // FHOSTS.VDM (C) C.Z. 13.10.1997 // 15.10.1997 // // sucht im Subnetz nn.mm.pp. nach Hosts von Nr. A bis Nr. B // // Reg11 erh„lt das Subnetz (z.B. "194.76.96") vom Aufruf Config(S_E_MORE,0) Buf_Switch(Buf_Free) RI(11) R("|W","",ALL+BEGIN+NOERR) BOF EOL if (CC == '.') {DC(1)} RCB(11,0,EOL_POS) Buf_Quit(OK+MAINBUF) if (#10==0) { #10 = 90 } if (#11==0) { #11 = 200 } File_Delete("c:\tmp\fhosts.out", OK+NOERR) M("\n\n\n\n\n\n\n") for(#12=#10; #12<=#11; #12++){ OR(12) nt(#12,LEFT+NOCR) OR(0) RS(13,"Checking ") RS(13,@11, APPEND) RS(13,".", APPEND) RS(13,@12, APPEND) RS(13,"\n", APPEND) M(@13) sys("c:\pctcp\host |@(11).|@(12) >> c:\tmp\fhosts.out",DOS+simple) } fo("\tmp\fhosts.out")