Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive : DMSLIB.ZIP
Filename : WINDOWS.PRG
Output of file : WINDOWS.PRG contained in archive : DMSLIB.ZIP
**||(c)1987, D M Sampson Consulting
function implode
parameters r1,c1,r2,c2,incr
store r1 to r_pos1
store r2 to r_pos2
store c1 to c_pos1
store c2 to c_pos2
store ((r2-r1)/2)/iif(incr<1,1,incr) to r_inc1,r_inc2
store ((c2-c1)/2)/iif(incr<1,1,incr) to c_inc1,c_inc2
rest screen
save screen
do while (r_pos1
r_pos1 = r_pos1+r_inc1
r_pos2 = r_pos2-r_inc2
c_pos1 = c_pos1+c_inc1
c_pos2 = c_pos2-c_inc2
rest screen
save screen
enddo
return .t.
function explode
parameters r1,c1,r2,c2,incr
store ((r2-r1)/2)+r1 to r_pos1,r_pos2
store ((c2-c1)/2)+c1 to c_pos1,c_pos2
store (r_pos1-r1)/iif(incr<1,1,incr) to r_inc1,r_inc2
store (c_pos1-c1)/iif(incr<1,1,incr) to c_inc1,c_inc2
save screen
do while (r_pos1>r1) .and. (c_pos1>c1)
@ r_pos1,c_pos1 to r_pos2,c_pos2 double
r_pos1 = r_pos1-r_inc1
r_pos2 = r_pos2+r_inc2
c_pos1 = c_pos1-c_inc1
c_pos2 = c_pos2+c_inc2
REST screen
save screen
enddo
@ r1,c1 clear to r2,c2
@ r1,c1 to r2,c2 double
return .t.
**||End of File-> WINDOWS.PRG
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
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/