jon@cisunx.UUCP (Jon M Pearsall) (01/11/88)
Here's a couple of *really* short but useful programs which I found in this
month's (January, 1988) A+ magazine.
The first one inverts all of the pixels in hires page 1. That is, if a
pixel is lit, then it is turn off and if a pixel is off then it is turned on.
This is really great for making printouts of graphics so that you don't get that
negative effect. Just load the graphic by doing a BLOAD file,A$2000 and then
run the program. Then, resave the graphic picture back to disk by doing a BSAVE
newfile,A$2000,L$240.
The second program is a basic program for ProDOS which produces a wide
catalog similar to the default directory displays in VMS or Unix. It's really
nice if you have a large number of files on disk that always get scrolled off of
the screen with a CAT or CATALOG. Each file name takes up 20 characters so you
B
B
B
B
can display of 40 files on a 40 columns screen (2x20) or 80 files on an 80
columns screen (4x20). When the program asks you to press return to continue,
you can just hit Esc or ^C to exit, instead.
=============================================================================
NEW
5REMBY A.FIELDS, EAST LONDON, S. AFRICA
10FORJ=768TO793:READX:POKEJ,X:NEXT:CALL768
20DATA 160,0,132,60,169,32,133,61,177,60,73,255,145
30DATA 60,200,208,247,230,61,165,61,41,32,208,239,96
SAVE GR.INVERT
NEW
10REMBY LEON MANELIS, ORLANDO FLORIDA
100PRINT:PRINT:"INSERT DISK, PRESS <RETURN>";
110GETX$:IFX$=CHR$(27)ORX$=CHR$(3)THENEND
120D$=CHR$(4):PRINT:PRINTD$"PREFIX":INPUTV$
130PRINTD$"OPEN";V$",TDIR":PRINTD$"READ";V$
140INPUTL1$:INPUTL2$:INPUTL3$
150PRINTL1$:PRINTL3$:GOTO180
160L$=LEFT$(F$,1):IFL$="*"THENL$=":"
170PRINT"|";MID$(F$,18,3);L$;MID$(F$,2,15);:N=N+1
180INPUTF$:IFLEN(F$)THEN160
190INPUTL4$:B$=LEFT$(L4$,20):IFPEEK(1403)THENPRINT
200PRINT:PRINTD$"CLOSE":PRINTB$;"FILES: ";N
--
=-=-=-=-=-=-=-=-=-= Jon Pearsall, University of Pittsburgh =-=-=-=-=-=-=-=-=-=
= !pitt!cisunx!jon As the Zorg closes in, Spaceman Spiff =
= jon@unix.cis.pittsburgh.edu cooly draws his death ray blaster. =
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=kegan@parsely.UUCP (Ron Whittle) (01/16/88)
In article <6111@cisunx.UUCP> jon@unix.cis.pittsburgh.edu.UUCP (Jon M Pearsall) writes:
-
- Here's a couple of *really* short but useful programs which I found in this
-month's (January, 1988) A+ magazine.
I don't mean to be trivial, but isn't this a violation of the copyright law?
Isn't there a place in A+ where it says 'No part of this publication may be
reprinted, or reproduced by any means, without prior written permission from
the publisher"? I don't know how A+ looks at things like this, but don't do
this with Nibble programs.
--
Ron Whittle kegan@parsely ...tektronix!teksce!bucket!parsely!kegan
"If everyone profited from their mistakes, there would be a lot more
millionaires in the world"