Re: Apple logo in Lores

["Craig Bower" <to.email.me@post.a.request>]

"Simon D. Williams" <bb065@chebucto.ns.ca> wrote in message 
Pine.GSO.4.64.0809061749150.5267@halifax.chebucto.ns.ca">news:Pine.GSO.4.64.0809061749150.5267@halifax.chebucto.ns.ca...
>
> And add the missing "save as executable" function ;-)
>
> ] SIMON D WILLIAMS

Okie doke,

I'm working on a few routines (actually a program called 'lodraw filer')
to do some good stuff with any drawings a person makes in lodraw.

Think along the lines of using that extended 80 col-card as a nice place
to put a lot of lo-res screens for a slideshow, a la MS powerpoint.

And the ability to save a picture individually as an 'execute-able'
standalone file.  Either in Applesoft basic, or as a Binary self-
displaying execute-able file.  Oh but the fun doesn't stop there,
why have a powerpoint view capability if we don't have a stand-
alone powerpoint presentation execute-able.  Yep, I'll be
working on it for a while, but in the end, you'll be able to load
up a good number of lo-res screens, and "export" them to
disk as a bundle.  Then "BRUN BUNDLE.PICS" and voila
instant slideshow - with a user specified delay between slides.

In the meantime, cut and paste this into your favorite A2 emulator:
It'll allow you to load and view any saved lodraw picture file
(actually any $400-$800 text or gr screen grab) under ProDOS.

100 DATA 
141,80,192,141,83,192,141,84,192,141,86,192,169,20,133,34,96,169,0,133,254,168,165,254,32,71,248,165,38,133,250,165,39,105,92,133,251,177,250,145,38,200,192,40,208,247,160,0,230,254,165,254,201,20,208,222,96,0
110 FOR I = 16384 TO 16440

120 READ A: POKE I,A

130 NEXT I

140 PRINT CHR$ (21): TEXT : HOME

150 INVERSE : PRINT " LODRAW PICTURE VIEWER ": NORMAL

160 PRINT CHR$ (4);"CAT"

170 INPUT "FILENAME >";A$: IF A$ = "" THEN 240

175 IF A$ = "/" THEN GOTO 190

180 PRINT : PRINT CHR$ (4);"BLOAD ";A$;",A$6000"

190 HOME : VTAB 21: HTAB 1: INVERSE : PRINT SPC( 40);: CALL 16384: CALL 
16401

200 VTAB 21: HTAB (21 - ( LEN (A$) / 2)): PRINT "<";A$;">";: NORMAL

210 VTAB 24: HTAB 27: PRINT "Press any key";

220 WAIT 49152,128

230 POKE 49168,0: GOTO 140

240 END