Path: utzoo!attcan!uunet!lll-winken!ames!pasteur!ucbvax!wnre.aecl.CDN!delaneyg
From: delaneyg@wnre.aecl.CDN
Newsgroups: comp.sys.apple
Subject: Getting a CATALOG into a file
Message-ID: <2867*delaneyg@wnre.aecl.cdn>
Date: 25 Jan 89 14:31:00 GMT
References: <410f8301.14dd6@c>
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The Internet
Lines: 23

First a suggestion.  Get a copy of BASIC PROGRAMMING IN PRODOS. Your book or
computer stores should have it APPLE wrote it Adison Wesely Publish it it has
a disk included.  To get a quick fix do some thing like this.

10 D$ = CHR$(4)
20 INPUT "DIRECTORY NAME NO / ALLOWED "; A$
30 ?D$;"OPEN ";A$;",TDIR"
40 ?D$;"READ ";A$;"
50 INPUT R1$:?R1$:REM HEADER
60 INPUT R2$:?R2$:REM BLANK LINE
70 INPUT R3$:?R3$:REM BLANK LINE
80 INPUT R4$:?R4$
90 IF R4$ <> "" THEN 80
100 INPUT R5$:?R5$
110 ?D$;"CLOSE ";A$

This will just print it to the screen what you have to do is the write it to
the disk as a text file.  A hint the records are formated I don't have it hear 
but it's easy to count out.  You can use MID$ or Right$ or LEFT$ to just 
WRITE what you want.

Grant