Dan -- > I just checked in examples/assembly/life.pasm. Inspired by Damian's truly > evil SelfGOL, and the need to have a working demo for last night's > Boston.PM meeting (which I didn't manage--there was a dopey logic problem I > missed until just *after* the meeting, of course) I cobbled up a program to > play Conway's Life on a 15x15 board.
Thats cool. > Enjoy, and we now return you to your regularly scheduled Stuff. Before returning, I made it clear the screen on my terminal before each board print. Too bad a porable solution would be too much to take on... Patch attached (requires recent Parrot/Assembler.pm change to handle octal character escapes in strings). Ok. NOW, I can go back to my regularly scheduled Stuff... Regards, -- Gregor _____________________________________________________________________ / perl -e 'srand(-2091643526); print chr rand 90 for (0..4)' \ Gregor N. Purdy [EMAIL PROTECTED] Focus Research, Inc. http://www.focusresearch.com/ 8080 Beckett Center Drive #203 513-860-3570 vox West Chester, OH 45069 513-860-3579 fax \_____________________________________________________________________/
Index: examples/assembly/life.pasm =================================================================== RCS file: /home/perlcvs/parrot/examples/assembly/life.pasm,v retrieving revision 1.1 diff -a -u -r1.1 life.pasm --- examples/assembly/life.pasm 2001/10/24 14:56:48 1.1 +++ examples/assembly/life.pasm 2001/10/24 15:43:37 @@ -158,7 +158,8 @@ dump: save I0 save I1 - print "\n\n\n\n\n\n\n\n\n\n\n" +# print "\n\n\n\n\n\n\n\n\n\n\n" + print "\033[H\033[2J\0" print "----------------------\n" set I0, 0 set I1, 14 @@ -171,4 +172,4 @@ ge I1, 0 printloop restore I1 restore I0 - ret \ No newline at end of file + ret