Category : C Source Code
Archive   : TECO.ZIP
Filename : VERIFY.C

 
Output of file : VERIFY.C contained in archive : TECO.ZIP
#include
#include
#include

verify()
{
#include "teco.h"

int tmp; /* First scratch */
int wrk; /* Second scratch */

number=abs(number); /* Take magnitude */
tmp=bufptx; /* Save temporary */
wrk=number; /* Save counter */
while (1) { /* Position back */
if (!tmp) goto type; /* Scan back line */
if (toascii(buffer[--tmp]) == 13) {
if (! --wrk) {
if (toascii(buffer[tmp+1]) == 10){
tmp++;
}
goto type;
}
}
}
type: wrk=bufptx; /* Save context */
while (1) { /* Position front */
if (wrk > bufptr) { /* Type out stuff */
while (++tmp < wrk) {
echo(buffer[tmp]);
}
return; /* all done type */
}
if (toascii(buffer[++wrk]) == 13) {
if (toascii(buffer[tmp]) == 10) ++wrk;
if (! --number) {
while (tmp++ < wrk) {
echo(buffer[tmp]);
}
return;
}
}
}
}


  3 Responses to “Category : C Source Code
Archive   : TECO.ZIP
Filename : VERIFY.C
”

  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/