10 PRINT CHR$(205.5+RND(1)); : GOTO 10

Strangely enough, that is the title of a book and a one liner for the Commodore 64.  Apparently it prints a maze pattern as shown on the book’s cover.  I’ve never read the book and probably never will.

I was however fascinated by the pattern that results.  Last night, I was reading comp.sys.apple2 and found a posting talking about an apple version of this pattern.

I tried it out and it creates a mesmerising pattern.  I thought I’d share it here, so I just went back to find the posting and can’t.  Here is the line:

10 PRINT CHR$(47+(INT(.5+RND(1))*45));:GOTO 10

Since this was such a short program, I tried this on AppleWin.  I found it is much cooler if you run it in full screen mode to get the full effect.  See, it doesn’t just fill the screen and stop, it keeps on going so the image keeps moving up the screen.

It also looks nice on my Apple //c with my 20″ pc monitor.

I’m going to find that posting because I want to give the credit to the person who posted it.  [Update 6/20/13:  The post was by Vince Weaver, as noted by Adam Green below.]

 

Posted in Apple //c, Programming Tagged with: , ,
2 comments on “10 PRINT CHR$(205.5+RND(1)); : GOTO 10
    • Daily Apple says:

      That was in fact the post I was reading. Thank you. I wanted to try some of the others and got distracted and lost the post.

Leave a Reply to Adam Green Cancel reply

Your email address will not be published. Required fields are marked *

*