Path: news.cs.au.dk!not-for-mail From: Flemming Gram Christensen Newsgroups: comp.lang.beta Subject: Re: New BETA library (nti): How to connect to the Internet via Remote Access Service Date: 02 May 2000 09:22:33 +0200 Organization: University of Aarhus, Department of Computer Science (DAIMI) Lines: 61 Message-ID: References: <20000308194517.5277.qmail@noatun.mjolner.dk> NNTP-Posting-Host: ull.mjolner.dk X-Trace: xinwen.cs.au.dk 957252154 15890617 255.255.255.255 (2 May 2000 07:22:34 GMT) X-Complaints-To: news@cs.au.dk NNTP-Posting-Date: 2 May 2000 07:22:34 GMT X-Newsreader: Gnus v5.7/Emacs 20.4 Xref: news.cs.au.dk comp.lang.beta:12307 Flemming Gram Christensen writes: > "Webmaster tricos developer center" writes: > > > Hi, > Hi. > > Nice work. > I tested the software on my home win98 machine and it works fine. > Hi again. I've now tested the library on a Win95 machine. It works there also. Here is the code I used: ORIGIN '~beta/basiclib/systemenv'; INCLUDE 'ras'; --program:descriptor-- systemenv (# r:@ras; book:[1]@text; t:^text; username,password,provider:^text; do (if r.installed then 'RAS is installed'->putline; (for i:r.phonebook.entries repeat i->r.phonebook.getEntry->putline for); if); (if r.isConnected then 'Is Connected'->putline; r.disConnect; else 'Is not Connected - will try'->putline; 'Username:'->putline; getline->username[]; 'Password:'->putline; getline->password[]; 'Connecting to: '->puttext; 2->r.phonebook.getEntry->provider[]; provider[]->putline; (provider,username,password)->r.connectExt; 1->sleep; (if r.isConnected then 'Is Connected, now'->putline else 'Is not Connected now'->putline; if); 3->sleep; 'Disconnecting'->putline; r.disConnect if) #) Regards Flemming