home *** CD-ROM | disk | FTP | other *** search
- //
- //Script to log on to Telenet's local access number and load MENU script
- //
-
- str T_ID[] = "D1";
- str cr[] = "^M";
-
- main()
- {
- alarm(1);
- {
- cputs(cr);
- cputs("D");
- cputs(cr);
- }
- cputs(T_ID);
- cputs("^M");
- if (not waitfor("@", 20))
- {
- prints("Log-on failed!");
- return;
- }
- CALLD("MENU");
- }
-