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

[krye]

I'm sure by now everyone has seen this floating around the internet:

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

This single line of code on a C64 produces a labyrinth on the screen using a random / or \.



I wanted to run it on my //c but I just get random Ms and Ns.

As it turns out, the Commodore uses the PETSCII character set. Anyone know how to "port" this over to Apple BASIC?

 

[uniserver]

speaking of basic for macintosh.

I hear they originally released a version, but apple then pulled it,

but some universities were able to keep their copy, nobody else.

 

[uniserver]

i was wrong,

http://www.folklore.org/StoryView.py?project=Macintosh&story=MacBasic.txt

"The Beta version of MacBASIC had been released to interested parties, including Dartmouth University which used it in an introductory programming class. Apple tried to get back all the copies, but the Beta version was widely pirated, and two books on MacBASIC were published, and sold quite well for several years."

man, i'd like to get my grubby mit's on a copy of MacBASIC.

 

[ClassicHasClass]

You'd have to have it use / and \ though it won't look as "nice" as the C64 version (the "/" and "\" are in fact graphics characters, not true / and \). I'll leave it as an exercise to the reader, but you can keep it in one line.

 

[Dog Cow]

man, i'd like to get my grubby mit's on a copy of MacBASIC.

http://macgui.com/downloads/?file_id=17340

http://macgui.com/downloads/?file_id=17339

The latter file came from my own floppy disk that I inherited back in 2009.

You'd have to have it use / and \ though it won't look as "nice" as the C64 version (the "/" and "\" are in fact graphics characters, not true / and \). I'll leave it as an exercise to the reader, but you can keep it in one line.

Here is the Apple II version:

http://macgui.com/usenet/?group=1&start=0&id=263482#msg

 

[krye]

Cool:

 

[magnusfalkirk]

not exactly the same but here's a one liner from a Beagle Bros add from Incider magazine from Nov 1983.

10 HGR2: FOR X=0 TO 255: POKE 228, X: HPLOT 0,0: CALL -3082: NEXT X

 

[krye]

Pretty cool, but yeah, not the same.