Universal Chaos

5 OLEAR 65518: LET menu - 6000 6005 BORDER 0 PAPER O: INK 7: C LS PRINT *0; PAPER 1; MNPUT 10 PAUSE 50: LET p-1: LET a»-" ": FOR v-0 TO 10 STEP 2: FOR h - 0 TO 14 STEP 2 20 PRINT AT v,h; PAPER p;a«;AT v+l,h+l.al;AT v , 3 0 - h ; a » ; A T v+1. 31-h;al 30 PRINT AT 20-v,h; PAPER p.-a* ;AT 2 1 - v , h + 1 ; a l ; A T 2 0 - v , 3 0 - h ; a l ; AT 2 1 - v , 3 1 - h ; a l 40 NEXT h: NEXT v