home *** CD-ROM | disk | FTP | other *** search
/ 1st Canadian Shareware Disc / 1st_Canadian_Shareware_Disc_1991.ISO / comms / bbsname / bbs.slt < prev    next >
Text File  |  1988-12-15  |  349b  |  12 lines
  1. main()
  2. {
  3. int col, row;
  4. str bbsname[27];
  5. col=getx();                //save current column
  6. row=gety();                //and row
  7. substr(_entry_name,0,27,bbsname);    //copy the bbsname
  8. scroll(0,24,26,24,0,78);        //clear the 1st 27 chars of status bar
  9. pstraxy(bbsname,0,24,78);        //print 1st 27 chars of the bbs name
  10. gotoxy(col,row);            //and return to where we started
  11. }
  12.