💾 Archived View for mirrors.apple2.org.za › archive › ground.icaen.uiowa.edu › MiscInfo › Programmin… captured on 2024-07-09 at 03:51:14.

View Raw

More Information

⬅️ Previous capture (2023-01-29)

-=-=-=-=-=-=-


--> 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