Category : Files from Magazines
Archive   : AUG91.ZIP
Filename : 2N08053A

 
Output of file : 2N08053A contained in archive : AUG91.ZIP
******************************************************************************
* *
* Author - Nick Makris - STARTECH SYSTEMS - San Francisco, CA *
* Date - DECEMBER 1989 *
* *
* *********** FIMD TEXT PROGRAM ************ *
* *
* *********** RELEASED TO THE PUBLIC DOMAIN ************ *
* *
******************************************************************************
* This program works in conjunction with the Norton Utilities 4.0, Text Search
* (TS) program. Use syntax TS *.PRG '' /LOG >
* This program analyzes the resulting file looking for line number references
* and deletes all other associated lines. The resulting text file contains
* only those lines which point to a specific file and line number which
* may then be printed and used for any intended purpose.

SET DELETED OFF
ANS = SPACE(12) && ASSUMES FILE IS IN DEFAULT DIRECTORY
@15,16 CLEAR TO 17,63
@15,16 TO 17,63 DOUBLE
@16,18 SAY "ENTER THE FILE NAME TO ANALYZE " GET ANS
READ
ANS=TRIM(LTRIM(ANS))
IF LEN(ANS)=0 .OR. READKEY()=12 && USER WANTS OUT
RETURN
ENDIF
X=AT('.',ANS)
IF X # 0
OUTFILNAME = SUBSTR(ANS,1,X-1)+'.OUT'
ELSE && USER DIDN'T INCLUDE AN EXTENSION NAME
IF LEN(ANS) < 9 && AND THE NUMBER OF CHARS IS NORMAL
OUTFILNAME = ANS+'.OUT'
ELSE && ABNORMAL LENGTH OF FILE NAME
OUTFILNAME = SUBSTR(ANS,1,8)+'.OUT'
ENDIF
ENDIF
FILNAME = ANS
IF .NOT. FILE("&FILNAME")
@15,22 CLEAR TO 18,58
@15,22 TO 18,58 DOUBLE
@16,24 SAY "UNABLE TO FIND FILE "+FILNAME+"!"
@17,24 SAY "Press any key to continue!"
zi = 0
DO WHILE zi = 0
zi=INKEY(1)
ENDDO
RETURN
ENDIF
USE SCREELIN && A SINGLE FIELD (SCRNLINE) DATABASE - DEFINED AS 80 CHARS
COPY STRU TO logtxt
USE logtxt
APPEND FROM &FILNAME SDF && IMPORT THE NORTON TS OUTPUT
SVLINE=" "
GO TOP
DO WHILE .NOT. EOF()
IF .NOT. 'Searching' $ SCRNLINE .AND. .NOT. 'Found' $ SCRNLINE
DELETE
ENDIF
IF 'Searching' $ SCRNLINE && RETAIN ONLY ONE REFERENCE TO EACH FILE
IF SVLINE=SCRNLINE && MULTIPLE APPEARANCES IN THE SAME FILE
DELETE
ELSE && NEW FILE BEING CHECKED
SKIP -1
RECALL && PROVIDES A BLANK LINE FOR REFERENCE
SKIP
ENDIF
SVLINE=SCRNLINE
ENDIF
IF 'occurren'$ SCRNLINE
RECALL
SKIP -1
RECALL && PROVIDES A BLANK LINE FOR REFERENCE
SKIP
ENDIF
SKIP
ENDDO
IF FILE("&OUTFILNAME")
ERASE &OUTFILNAME
ENDIF
COPY TO &OUTFILNAME SDF FOR .NOT. DELETED()
&& COPIES FILE TO ".OUT"
USE
ERASE logtxt.dbf && ERASES TEMPORARY DBF CREATED WITH COPY STRU
RETURN


  3 Responses to “Category : Files from Magazines
Archive   : AUG91.ZIP
Filename : 2N08053A
”

  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/