'===========================================================================
' Subject: METALLIC TRIANGULAR TUBE          Date: 07-05-97 (08:46)       
' Author:  Dyselxic DJ                       Code: QB, QBasic, PDS        
' Origin:  Dislexic@Earthlink.net          Packet: GRAPHICS.ABC
'===========================================================================
        'DANIEL'S HI-REZ-LOW-COLOR METALLIC TRIANGLULAR TUBE ON BROWN PLAID
        'WRITTEN BY DYSLEXIC DJ
        'JULY 5, 1997
        'YOU ARE A NEMOTOAD.
       
SCREEN 12: RANDOMIZE TIMER

        'the background

        PAINT (1, 1), 6
        FOR T = 1 TO 640 STEP 10
        LINE (T, 1)-(T, 480), 0
        NEXT T
        FOR T = 1 TO 480 STEP 10
        LINE (1, T)-(640, T), 4
        NEXT T
        PAINT (FIX(RND * 640) + 1, FIX(RND * 480) + 1), FIX(RND * 15) + 1, 4
        

        'the triangle
        X = 50
        Y = 89
10      FOR Z = 1 TO 400
        CIRCLE (200, Z), 40, 7
        CIRCLE (201, Z), 40, 8
        NEXT Z
        FOR Z = 200 TO 600
        CIRCLE (Z, 400), 40, 7
        CIRCLE (Z, 401), 40, 8
        NEXT Z
        FOR Z = 400 TO 1 STEP -1
        CIRCLE (Z + 200, Z), 40, 7
        CIRCLE (Z + 201, Z), 40, 8
        NEXT Z