| Click here to select a new forum. |
| 10 PRINT CHR$(205.5+RND(1)); : GOTO 10 |
Posted by: krye on 2012-11-30 11:07:37 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?
|
Posted by: uniserver on 2012-11-30 11:11:53 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.
|
Posted by: uniserver on 2012-11-30 11:19:20 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.
|
Posted by: ClassicHasClass on 2012-11-30 12:04:46 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.
|
Posted by: Dog Cow on 2012-12-05 15:10:33
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
|
Posted by: krye on 2012-12-05 16:05:10 Cool:


|
Posted by: magnusfalkirk on 2012-12-09 18:51:29 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
|
Posted by: krye on 2012-12-09 19:17:58 Pretty cool, but yeah, not the same.
|
| 1 |