'       Graphics Assignment (The last one, thank goodness)
'
'       Using the knowledge gleaned from lecture and Text
'       Chapters 27 and 28

'       Write a graphics program, include music (which I hate ) if you like.

'       The program will be submitted via email to as an attachment to:

'	profflynn@gmail.com as a text file, with a .txt file extension

'  	by the day of the Final Exam (TBD.  Counts as 3 Assignments.)

'       Disks infected with viruses will suffer -50 points

'       Use subroutines for all time delays.  Program must contain loops.

'       Sample partial program below
       
        SCREEN 12
        GOSUB TD1
        LET DC = 0
        LET H1 = 10
        LET V1 = 10
        LET H2 = 620
        LET V2 = 450
        FOR I = 1 TO 22
           LINE (H1 - (-DC), V1 - (-DC))-(H2 - DC, V2 - DC), , B
           GOSUB TD1:
        LET DC = DC + 20
        NEXT I
        CLS
        DO WHILE INKEY$ = ""
           TIMER ON
           RANDOMIZE TIMER
           LET X = INT(RND * 640) + 1
           LET Y = INT(RND * 350) + 1
           LET R = INT(RND * 100) + 1
           LET C = INT(RND * 15) + 1
           CIRCLE (X, Y), R, C
           PAINT (X, Y), C
           GOSUB TD2
        '   PAINT (X, Y), 0
        LOOP
        END

'       TIMEDELAY SUBROUTINE
'
TD1:
        LET TIME = TIMER
        DO WHILE TIMER < TIME + .5
        LOOP
        RETURN
TD2:
        LET TIME = TIMER
        DO WHILE TIMER < TIME + .05
        LOOP
        RETURN