Path: news.uiowa.edu!uunet!in1.uu.net!news.delphi.com!usenet
From: Chuck Orem <progreens@delphi.com>
Newsgroups: comp.sys.apple2.programmer
Subject: Re: printing Applesoft listing
Date: Mon, 8 May 95 01:24:40 -0500
Organization: Delphi (info@delphi.com email, 800-695-4005 voice)
Lines: 23
Message-ID: <p8xeyto.progreens@delphi.com>
References: <3ohp42$fs6@borg.svpal.org>
NNTP-Posting-Host: bos1g.delphi.com
X-To: Paul Creager <wily@svpal.svpal.org>

Paul Creager <wily@svpal.svpal.org> writes:
 
>I tried to print out a listing of an Applesoft program, but long lines 
>overstruck on my IW2.  I'm using a GS with the latest Basic.System.  All 
>I did was PR#1 and then LIST.  What do I have to do get a better printout?
 
From the May '85 Open-Apple, exec the following program and tell it
the name of the file you want converted to text, and it'll convert
your Applesoft program to a text file that you can print out with any
word processor.
 
0 D$=CHR$(4) : POKE 33,33 : INPUT "FILE NAME? ";F$ : PRINT D$; "OPEN";F$ :
PRINT D$;"CLOSE";F$ : PRINT D$;"DELETE";F$ : PRINT D$;"OPEN";F$ : PRINT D$;
"WRITE";F$ : LIST 1, : PRINT D$;"CLOSE";F$ : TEXT : END
 
RUN
 
--
  Objects in the rear view mirror can appear closer than they are - Meat Loaf
 
                        Goodbye Uncle DOS (1985-1995)
 
   c.orem@genie.geis.com                             progreens@delphi.com