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
