A useful .COM proggy:

Article: 8626 of alt.hackers
Newsgroups: alt.hackers
From: hedley@inferno.cs.bris.ac.uk (David Hedley)
Subject: A useful .COM proggy:
Message-ID: DF5zvF.IMz@uns.bris.ac.uk
Sender: usenet@uns.bris.ac.uk (Usenet news owner)
Nntp-Posting-Host: inferno.cs.bris.ac.uk
Reply-To: David.Hedley@bris.ac.uk
Organization: Computer Science Dept. University of Bristol, England
X-Newsreader: TIN [version 1.2 PL2]
Date: Tue, 19 Sep 1995 18:11:39 GMT
Approved: of course!
Lines: 29
Status: RO

Here's a little program I write working on someone else's
computer. It's 12 bytes and only takes a few secs to type the
assembler into `debug' to create the .com file. It simply switches
the screen into 50 line mode as 80x25 is far too small to see anything!

begin 755 vga50.com
,N`,`S1"X$A'-$,T@
`
end

If you prefer 43 line mode (a la EGA), then run this first:

begin 755 scan350.com
.N`$2LS#-$+@#`,T0S2#_
`
end

David (p.s. the following is _not_ my usual .sig I hasten to add!)

unsigned
char*c[256],*strdup(),*v,p[99],i,d,e,a,s[2]={31},*m=",.}&'()(|>},,
|!$"
"jodmvef!=tue/ejt}4|bjnfs?!}\"|!}-,*N)|,}$!OT|!}VWXYZ[\\[TO!R_*X|Ebwje!Ifemfz!)"
"}fh=lnp|Acs}@|/bd/vl*}Xc(aS~*|.}]~012}\\~.,.}]|iuuq;00x~@|/dt/}{~!#%|l0}#|i}mo"
"|z0~0*6}c[|g}2|h}F|!~M}x|zA~CE
DH&|!gps!QHQ!lfz!}./.|.}234|.}!$!5:0<=>?@A>:479"
"D3.|Dpnqvuf}%|Hsbqijdt!}S|pvq!}!|!Vojw}Q|tju}-|pg!Csjtupm}`b|L}1H68z4B~#$%}y~!"
"}F~!}D~&,$*}57|,~/}D|>~5675|$~:;<<8?63}5|,}$";f(){*m?e=*m>123?*m++-124:e,i=92*e
+*m++-32:exit();}main(){d?f(),sprintf(p,"%s%.1s",c[a],c[c[i]?i:a]),c[d++]=strdup
(p),v=c[a=i]?c[i]:p,x(),i=d:(++*s,++i?c[i]=i<97?strdup(s):0,0:(v=c[f(),a=i],d=97
,x())),main();}x(){if(*v=*v>126?10:*v)write(1,v++,1),x();}

Back to index