Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : SCATTER.ZIP
Filename : SCATTER.TXT

 
Output of file : SCATTER.TXT contained in archive : SCATTER.ZIP

FUNCTION SCATTER
parameter aname,fqty,rqty
private currec,fldname
currec = recno()
do while .not. eof() .and. rqty >= 1
for i = 1 to fqty
fldname = field(i)
aname[r2(rqty,i,fqty)] = &fldname
next
rqty = rqty -1
skip
enddo
goto currec
return .t.




FUNCTION R2
parameter x,y,ye
return (((x-1) * ye) + y)




FUNCTION R3
parameter x,y,z,ye,ze
return (((x-1) * ye * ze) + ((y-1) * ze) + z)




FUNCTION R4
parameter w,x,y,z,xe,ye,ze
return (((w-1) * xe * ye * ze) + ((x-1) * ye * ze) + ((y-1) * ze) + z)



  3 Responses to “Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : SCATTER.ZIP
Filename : SCATTER.TXT
”

  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/