Category : Files from Magazines
Archive   : DBMS0790.ZIP
Filename : TECHTIP1.JUL

 
Output of file : TECHTIP1.JUL contained in archive : DBMS0790.ZIP
®LM0¯
Listing 1 for Zeidler tip


*:*************************************************
*:
*: Program: MAIN.PRG
*:
*: System: Temp Data Base File Creator
*: Author: Steve Zeidler
*: Copyright (c) 1989, FCS. Corporation
*: Last modified: 12/28/89 11:23
*:
*: Procs & Fncts: TMPNME()
*:
*: Calls: TMPNME() (function in MAIN.PRG)
*:
*: Uses: FCS.DBF
*: : (TFILE).DBF
*:
*: Documented 12/28/89 at 11:24
*: SNAP! version 3.12e
*:*************************************************
*procedure main
PRIV tfile

USE fcs
tfile=tmpnme()
COPY STRUCT TO (tfile)
*
* Work on temporary file
* Call into active area with
* USE (tfile) [IN ]
*
* Remember to surround tfile with parentheses
*
ERASE (tfile)+'.dbf' && erase when done
RETURN

*!*************************************************
*!
*! Function: TMPNME()
*!
*! Called by: MAIN.PRG
*!

*!*************************************************
FUNC tmpnme
PRIVATE fname
DO WHILE .T.
fname=STR(RAND(-1)*10^8,8,0)
IF .NOT. FILE ((fname)+'.dbf') && don't exit
EXIT
ENDIF
ENDDO
RETURN fname+'.dbf'
*: EOF: MAIN.PRG



  3 Responses to “Category : Files from Magazines
Archive   : DBMS0790.ZIP
Filename : TECHTIP1.JUL

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

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

  3. 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/