Path: utzoo!mnetor!tmsoft!torsqnt!news-server.csri.toronto.edu!cs.utexas.edu!uunet!cs.dal.ca!ug.cs.dal.ca!digdon
From: digdon@ug.cs.dal.ca (Mike Digdon)
Newsgroups: comp.sys.cbm
Subject: Nice and short program
Message-ID: <1991Feb8.201729.1642@cs.dal.ca>
Date: 8 Feb 91 20:17:29 GMT
Sender: news@cs.dal.ca (USENET News)
Distribution: na
Organization: Math, Stats & CS, Dalhousie University, Halifax, NS, Canada
Lines: 19
Originator: digdon@ug.cs.dal.ca
Nntp-Posting-Host: ug.cs.dal.ca

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