OpenEuphoria

Re: Contest #2... Example Programs

• Posted by unkmar Dec 15, 2010
• 2510 views

Generates a grid like this.

1 0 0 0 0 
0 1 0 0 0 
0 0 1 0 0 
0 0 0 1 0 
0 0 0 0 1 

800 ; r[0] = -1 
292 ; \ (2*3-1) 
493 ;  > Tinker with these lines to change the size 
690 ; / -- Subtract 1 
519 ; loop 1 
529 ; loop 2 
620 
237 ; jump point (this_line # - 1) 
553 
359 
352 
260 
540 
742 
641 
640 
054 ; skip if r[4] != 0 
261 
620 
??6 
032 ; end loop 2 
610 
630 
630 
355 
359 
260 
540 
742 
641 
054 ; skip if r[4] != 0 
261 
?6 
031 ; end loop 1 
100 ; Halt