💾 Archived View for mirrors.apple2.org.za › archive › ground.icaen.uiowa.edu › MiscInfo › Programmin… captured on 2023-01-29 at 10:16:54.
-=-=-=-=-=-=-
--> This is from one of the articles in one of the user group
newsletters I mentioned in another post. A gentleman down
under used to create many pamphlets for his work and used
`The Newsroom' to make them. He switched to using another
tool, eventually; that could import the Newsroom graphics
but he had no joy in being able to import/convert the TXT
content in the Newsroom files. He figured-out a way to do
it manually, then wrote a little AppleSoft BASIC program,
to automate much of the chore. This may be old news - but
just in case it's of any use/interest; here it is:
10 REM To Convert a BINary NEWSROOM File into a Standard ASCII File.
11 REM 1988-1991 Michael Hickey.
12 REM Canberra - ACT.
20 ONERR GOTO 70 :REM Unexpected Error - Shutdown.
25 D$ = CHR$(4)
30 PRINT D$;"PR#3" :REM Activate 80-Column Firmware.
35 PRINT D$;"CATALOG,TBIN" :REM Only Display BINary Files.
40 PRINT "Which NEWSROOM File to CONVERT?": INPUT FILE$
45 IF LEN (FILE$) < 1 THEN PRINT "Filename ERROR, RUN Program Again.":END
50 HGR: TEXT :REM INITialize Page One of HI-RES Display.
55 PRINT D$;"BLOAD ";FILE$;",A$2000"
60 PRINT D$;"CREATE ";FILE$;"2,TTXT"
65 PRINT D$;"BSAVE ";FILE$;"2,A$2000,L1000"
70 PRINT D$;"CLOSE ";FILE$;"2"
75 END
Not having any Newsroom files, this has not been tested;
nor do I vouch for `no typos' - however, I typed it much
as it was listed in the newsletter. Some nifty stuff, in
these old newsletters! :->
--
E.A.G.L.E Librarian A3 BBS:403/481-3133 email:tturner@freenet.edmonton.ab.ca