[comp.sys.cbm] Nice and short program

digdon@ug.cs.dal.ca (Mike Digdon) (02/09/91)

In a computerscience class I took a few years ago, one of the assignments
we had to do was to write a program that would print a border around the screen,
but in the least amount of bytes possible. Having recently come across this
again, I decided to post it up here. It will only work on a 64 with version
1 or 3 rom because of the pokes to the screen.. when typing it in, use a line
number between 0 and 9, and abbreviate every command, with no spaces, in order
to get it all on one line:

forl=0to39:a=1024:pokea+l,102:pokea+l+960,102:a=a+(l<25)*l*-40:pokea,102:
pokea+39,102:next

This tiny 1 liner will draw a border arond the entire screen... if you have a
pet, change the a=1024 to a=2^15 to get the border..

-- 
	+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
	+   Mike Digdon: digdon@ug.cs.dal.ca  + My 64 can still get the +
	+		 mike@ac.dal.ca	      + job at hand completed!! +
	+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+