REM 9-29-94
'This program makes me very happy.
CLS
SCREEN 12
WINDOW (-57.5, -52.5)-(67.5, 72.5)
                FOR i = -25 TO 25 STEP .03
                        PSET (i, -25), 1
                        PSET (-25, i), 1
                NEXT i
                FOR i = -25 TO 25 STEP .03
                        x = 25 + ((i + 25) / 4)
                        y = 25 + ((i + 25) / 2)
                        PSET (i, 25), 2
                        PSET (25, i), 5
                                PSET (x, y - 50), 4
                                PSET (y, x - 50), 8
                                PSET (x - 50, y), 14
                NEXT i
                FOR i = -25 TO 25 STEP .03
                        x = 25 + ((i + 25) / 4)
                        y = 25 + ((i + 25) / 2)
                        z = (i / 2)
                        PSET (37.5, i + 25), 4
                        PSET (i + 12.5, 50), 14
                        PSET (z + 50, 12.5), 8
                                PSET (y + 12.5, x - 25), 8
                                PSET (x + 25, y - 37.5), 8
                                PSET (x, y), 6
                NEXT
        LINE (-25, -25)-(25, -25), 1
        LINE (-25, -25)-(-25, 25), 1
        LINE (-25, 25)-(25, 25), 1
        LINE (25, -25)-(25, 25), 1
        PAINT (0, 0), 1
        LINE (-25, 25)-(25, 25), 14
        LINE (-12.5, 50)-(37.5, 50), 14
        LINE (-25, 25)-(-12.5, 50), 14
        LINE (25, 25)-(37.5, 50), 14
        PAINT (0, 37.5), 14
        LINE (25, 25)-(37.5, 50), 4
        LINE (25, -25)-(25, 25), 4
        LINE (25, -25)-(37.5, 0), 4
        LINE (37.5, 0)-(37.5, 50), 4
        PAINT (30, 0), 4
        LINE (25, -25)-(37.5, 0), 8
        LINE (25, -25)-(50, -12.5), 8
        LINE (37.5, 0)-(62.5, 12.5), 8
        LINE (50, -12.5)-(62.5, 12.5), 8
        PAINT (40, -6), 8
        LINE (37.5, 0)-(37.5, 50), 8
        PAINT (38, 12), 8
        LINE (37.5, 0)-(37.5, 50), 4
LINE (-25, -25)-(25, -25), 1
LINE (-25, -25)-(-25, 25), 1
LINE (-25, 25)-(25, 25), 2
LINE (25, -25)-(25, 25), 5
LINE (37.5, 0)-(37.5, 50), 4
LINE (-12.5, 50)-(37.5, 50), 14
LINE (25, -25)-(37.5, 0), 4
LINE (25, -25)-(50, -12.5), 8
LINE (-25, 25)-(-12.5, 50), 14
LINE (37.5, 0)-(62.5, 12.5), 8
LINE (50, -12.5)-(62.5, 12.5), 8
LINE (25, 25)-(37.5, 50), 6
RANDOMIZE TIMER
o = INT(RND * 14 + 1)
COLOR o
LOCATE 25, 1: PRINT "1995 Domino Productions"
COLOR 0