Category : BBS Programs+Doors
Archive   : TONSMOD.ZIP
Filename : FORCE.MOD

 
Output of file : FORCE.MOD contained in archive : TONSMOD.ZIP
void force_callout(void)
{
int i,i1,i2,i3,index,ok,sn,nn,onxi, odci,nv,nitu;
float fl,fl1,fl2,ffl;
long l,l1;
char ch,s[81],s1[81], onx[20],*ss,*ss1,*ss2,*mmk;
struct time ti;
net_system_list_rec *csne;

time(&l);
nl();
prt(2,"Which system? ");
input(s,5);
sn=atoi(s);
odc[0]=0;
odci=0;
onx[0]='Q';
onx[1]=0;
onxi=1;
nv=0;
ss=malloc(net_num_max*3);
ss1=ss+net_num_max;
ss2=ss1+net_num_max;

for (nn=0; nn set_net_num(nn);
if ((!net_sysnum) || (net_sysnum==sn))
continue;

if (!net_networks[net_num].con)
read_call_out_list();

i=-1;
for (i1=0; i1 if (net_networks[net_num].con[i1].sysnum == sn) {
i=i1;
break;
}
}

if (i!=-1) {
if (!net_networks[net_num].ncn)
read_contacts();

i2=-1;
for (i1=0; i1 if (net_networks[net_num].ncn[i1].systemnumber==sn) {
i2=i1;
break;
}
}

if (i2!=-1) {
ss[nv]=nn;
ss1[nv]=i;
ss2[nv++]=i2;
}
}
}

nitu=-1;
if (nv) {
if (nv==1)
nitu=0;
else {
nl();
for (i=0; i set_net_num(ss[i]);
csne=next_system(sn);
if (csne) {
if (i<9) {
onx[onxi++]=i+'1';
onx[onxi]=0;
} else {
odci=(i+1)/10;
odc[odci-1]=odci+'0';
odc[odci]=0;
}
npr("%d. %s (%s)\r\n",i+1,net_name, csne->name);
}
}
pl("Q. Quit");
nl();
prt(2,"Which network (number)? ");
if (nv<9) {
topdata=0;
mmk=mmkey(2);
if (*mmk!='Q')
nitu=atoi(mmk)-1;
} else {
mmk=mmkey(2);
if (*mmk!='Q')
nitu=atoi(mmk)-1;
}
}
}

if (nitu!=-1) {
set_net_num(ss[nitu]);
ok=ok_to_call(ss1[nitu]);

if (!ok) {
nl();
prt(5,"Are you sure? ");
if (yn())
ok=1;
}
if (ok) {
if (net_networks[net_num].ncn[ss2[nitu]].bytes_waiting==0L)
if (!(net_networks[net_num].con[ss1[nitu]].options & options_sendback))
ok=0;
if (ok) {
do_callout(sn);
}
}
}
farfree(ss);
}


  3 Responses to “Category : BBS Programs+Doors
Archive   : TONSMOD.ZIP
Filename : FORCE.MOD
”

  1. Daniel says:
    January 27, 2013 at 3:59 pm

    Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. Joshie says:
    March 18, 2014 at 4:57 pm

    This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. DiskingRound says:
    January 14, 2015 at 10:57 pm

    But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/