home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #26 / NN_1992_26.iso / spool / comp / sys / apple2 / 23596 < prev    next >
Encoding:
Text File  |  1992-11-08  |  1.9 KB  |  50 lines
  1. Newsgroups: comp.sys.apple2
  2. Path: sparky!uunet!cs.utexas.edu!qt.cs.utexas.edu!yale.edu!ira.uka.de!ira.uka.de!news.belwue.de!news.uni-stuttgart.de!news
  3. From: WULF@bonnie.physik.uni-stuttgart.de (Wulf Hofbauer)
  4. Subject: Re: AppleSoft Basic Question
  5. In-Reply-To: mkheintz@vela.acs.oakland.edu's message of Sat, 7 Nov 1992 07:10:14 GMT
  6. Message-ID: <1992Nov7.120315.29794@news.uni-stuttgart.de>
  7. Sender: news@news.uni-stuttgart.de (USENET News System)
  8. Organization: Physics Dept, University of Stuttgart, FRG
  9. References:  <1992Nov7.071014.13355@vela.acs.oakland.edu>
  10. Date: Sat, 7 Nov 1992 12:03:15 GMT
  11. X-News-Reader: VMS NEWS 1.24
  12. Lines: 36
  13.  
  14. In <1992Nov7.071014.13355@vela.acs.oakland.edu> mkheintz@vela.acs.oakland.edu writes:
  15.  
  16. > I remember reading a trick to convert an AppleSoft basic program to a text
  17. > file so it could be printed out with a word processor.  Can anyone help me
  18. > out with the method required to do this trick?  Somehow I lost the article.
  19. > 
  20. > I believe there is also a way to turn the text file back into an AppleSoft
  21. > Basic program.  Any help would be appreciated.
  22. > 
  23. Append the following lines to your program:
  24.  
  25. 63000 print chr$(4);"OPEN LISTFILE":print chr$(4);"WRITE LISTEFILE"
  26. 63010 list 1,62999
  27. 63020 print chr$(4);"CLOSE":end
  28.  
  29. and then do a "RUN 63000".
  30. To convert it back to a BASIC file, use
  31.  
  32. NEW
  33. EXEC LISTFILE
  34. SAVE BASFILE
  35.  
  36. This doesn't work perfectly for all instances (eg. long BASIC lines or DATA
  37. lines) but is simple.
  38.  
  39. - Wulf
  40.  
  41.  
  42. "Though this be madness, there is method in it." (Shakespeare)
  43. +-------------------------------------+-----------------------+
  44. ! WULF@BONNIE.PHYSIK.UNI-STUTTGART.DE !  Apple // Enthusiast  !
  45. +-------------------------------------+-----------------------+
  46. ! Wulf Hofbauer * Heilbronner Str. 12 * W-7146 Tamm * Germany !
  47. !                      Tel. 07141/602518                      !
  48. +-------------------------------------------------------------+
  49.  
  50.