DECLARE SUB pause (timeval!) 'filename: picture4.bas 'picture of turtle CLS LOCATE 20, 20 COLOR 6 PRINT "XXXXXXXXXXXXXXXXXXXX" LOCATE 21, 15 PRINT "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" LOCATE 22, 14 COLOR 2 PRINT "XXXX" LOCATE 23, 10 PRINT "XXXXX" LOCATE 22, 20 PRINT "XXXXX" LOCATE 23, 20 PRINT "XXXXX" LOCATE 23, 25 COLOR 7 PRINT "\" COLOR 2 LOCATE 22, 30 PRINT "XXXXX" LOCATE 23, 30 PRINT "XXXXX" LOCATE 23, 35 COLOR 7 PRINT "\" LOCATE 22, 37 COLOR 2 LOCATE 22, 37 COLOR 2 PRINT "XXXXXXXXXXX XXXXX" LOCATE 22, 48 COLOR 1 PRINT "0" pause .1 CLS LOCATE 20, 21 COLOR 6 PRINT "XXXXXXXXXXXXXXXXXXXX" LOCATE 21, 16 PRINT "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" LOCATE 22, 15 COLOR 2 PRINT "XXXX" LOCATE 23, 11 PRINT "XXXXX" LOCATE 22, 20 PRINT "XXXXX" LOCATE 23, 20 PRINT "XXXXX" LOCATE 23, 25 COLOR 7 PRINT "\" COLOR 2 LOCATE 22, 30 PRINT "XXXXX" LOCATE 23, 30 PRINT "XXXXX" LOCATE 23, 35 COLOR 7 PRINT "\" LOCATE 22, 38 COLOR 2 PRINT "XXXXXXXXXXX XXXXX" LOCATE 22, 49 COLOR 1 PRINT "0" pause .1 CLS LOCATE 20, 22 COLOR 6 PRINT "XXXXXXXXXXXXXXXXXXXX" LOCATE 21, 17 PRINT "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" LOCATE 22, 16 COLOR 2 PRINT "XXXX" LOCATE 23, 12 PRINT "XXXXX" LOCATE 22, 20 PRINT "XXXXX" LOCATE 23, 20 PRINT "XXXXX" LOCATE 23, 25 COLOR 7 PRINT "\" COLOR 2 LOCATE 22, 30 PRINT "XXXXX" LOCATE 23, 30 PRINT "XXXXX" LOCATE 23, 35 COLOR 7 PRINT "\" LOCATE 22, 39 COLOR 2 PRINT "XXXXXXXXXXX XXXXX" LOCATE 22, 50 COLOR 1 PRINT "0" pause .1 CLS LOCATE 20, 23 COLOR 6 PRINT "XXXXXXXXXXXXXXXXXXXX" LOCATE 21, 18 PRINT "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" LOCATE 22, 17 COLOR 2 PRINT "XXXX" LOCATE 23, 13 PRINT "XXXXX" LOCATE 22, 23 PRINT "XXXXX" LOCATE 23, 23 PRINT "XXXXX" LOCATE 23, 28 COLOR 7 PRINT "\" COLOR 2 LOCATE 22, 33 PRINT "XXXXX" LOCATE 23, 33 PRINT "XXXXX" LOCATE 23, 38 COLOR 7 PRINT "\" LOCATE 22, 40 COLOR 2 PRINT "XXXXXXXXXXX XXXXX" LOCATE 22, 51 COLOR 1 PRINT "0" pause .1 CLS LOCATE 20, 24 COLOR 6 PRINT "XXXXXXXXXXXXXXXXXXXX" LOCATE 21, 19 PRINT "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" LOCATE 22, 18 COLOR 2 PRINT "XXXX" LOCATE 23, 14 PRINT "XXXXX" LOCATE 22, 23 PRINT "XXXXX" LOCATE 23, 23 PRINT "XXXXX" LOCATE 23, 28 COLOR 7 PRINT "\" COLOR 2 LOCATE 22, 33 PRINT "XXXXX" LOCATE 23, 33 PRINT "XXXXX" LOCATE 23, 38 COLOR 7 PRINT "\" LOCATE 22, 41 COLOR 2 PRINT "XXXXXXXXXXX XXXXX" LOCATE 22, 52 COLOR 1 PRINT "0" pause .1 CLS LOCATE 20, 25 COLOR 6 PRINT "XXXXXXXXXXXXXXXXXXXX" LOCATE 21, 20 PRINT "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" LOCATE 22, 19 COLOR 2 PRINT "XXXX" LOCATE 23, 15 PRINT "XXXXX" LOCATE 22, 23 PRINT "XXXXX" LOCATE 23, 23 PRINT "XXXXX" LOCATE 23, 28 COLOR 7 PRINT "\" COLOR 2 LOCATE 22, 33 PRINT "XXXXX" LOCATE 23, 33 PRINT "XXXXX" LOCATE 23, 38 COLOR 7 PRINT "\" LOCATE 22, 42 COLOR 2 PRINT "XXXXXXXXXXX XXXXX" LOCATE 22, 53 COLOR 1 PRINT "0" pause .1 CLS LOCATE 20, 26 COLOR 6 PRINT "XXXXXXXXXXXXXXXXXXXX" LOCATE 21, 21 PRINT "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" LOCATE 22, 20 COLOR 2 PRINT "XXXX" LOCATE 23, 16 PRINT "XXXXX" LOCATE 22, 26 PRINT "XXXXX" LOCATE 23, 26 PRINT "XXXXX" LOCATE 23, 31 COLOR 7 PRINT "\" COLOR 2 LOCATE 22, 36 PRINT "XXXXX" LOCATE 23, 36 PRINT "XXXXX" LOCATE 23, 41 COLOR 7 PRINT "\" LOCATE 22, 43 COLOR 2 PRINT "XXXXXXXXXXX XXXXX" LOCATE 22, 54 COLOR 1 PRINT "0" pause .1 CLS LOCATE 20, 27 COLOR 6 PRINT "XXXXXXXXXXXXXXXXXXXX" LOCATE 21, 22 PRINT "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" LOCATE 22, 21 COLOR 2 PRINT "XXXX" LOCATE 23, 17 PRINT "XXXXX" LOCATE 22, 26 PRINT "XXXXX" LOCATE 23, 26 PRINT "XXXXX" LOCATE 23, 31 COLOR 7 PRINT "\" COLOR 2 LOCATE 22, 36 PRINT "XXXXX" LOCATE 23, 36 PRINT "XXXXX" LOCATE 23, 41 COLOR 7 PRINT "\" LOCATE 22, 44 COLOR 2 PRINT "XXXXXXXXXXX XXXXX" LOCATE 22, 55 COLOR 1 PRINT "0" pause .1 CLS LOCATE 20, 28 COLOR 6 PRINT "XXXXXXXXXXXXXXXXXXXX" LOCATE 21, 23 PRINT "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" LOCATE 22, 22 COLOR 2 PRINT "XXXX" LOCATE 23, 18 PRINT "XXXXX" LOCATE 22, 26 PRINT "XXXXX" LOCATE 23, 26 PRINT "XXXXX" LOCATE 23, 31 COLOR 7 PRINT "\" COLOR 2 LOCATE 22, 36 PRINT "XXXXX" LOCATE 23, 36 PRINT "XXXXX" LOCATE 23, 41 COLOR 7 PRINT "\" LOCATE 22, 45 COLOR 2 PRINT "XXXXXXXXXXX XXXXX" LOCATE 22, 56 COLOR 1 PRINT "0" pause .1 CLS LOCATE 20, 29 COLOR 6 PRINT "XXXXXXXXXXXXXXXXXXXX" LOCATE 21, 24 PRINT "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" LOCATE 22, 23 COLOR 2 PRINT "XXXX" LOCATE 23, 19 PRINT "XXXXX" LOCATE 22, 29 PRINT "XXXXX" LOCATE 23, 29 PRINT "XXXXX" LOCATE 23, 34 COLOR 7 PRINT "\" COLOR 2 LOCATE 22, 39 PRINT "XXXXX" LOCATE 23, 39 PRINT "XXXXX" LOCATE 23, 44 COLOR 7 PRINT "\" LOCATE 22, 46 COLOR 2 PRINT "XXXXXXXXXXX XXXXX" LOCATE 22, 57 COLOR 1 PRINT "0" pause .1 CLS LOCATE 20, 30 COLOR 6 PRINT "XXXXXXXXXXXXXXXXXXXX" LOCATE 21, 25 PRINT "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" LOCATE 22, 24 COLOR 2 PRINT "XXXX" LOCATE 23, 20 PRINT "XXXXX" LOCATE 22, 29 PRINT "XXXXX" LOCATE 23, 29 PRINT "XXXXX" LOCATE 23, 34 COLOR 7 PRINT "\" COLOR 2 LOCATE 22, 39 PRINT "XXXXX" LOCATE 23, 39 PRINT "XXXXX" LOCATE 23, 44 COLOR 7 PRINT "\" LOCATE 22, 47 COLOR 2 PRINT "XXXXXXXXXXX XXXXX" LOCATE 22, 58 COLOR 1 PRINT "0" pause .1 CLS LOCATE 20, 31 COLOR 6 PRINT "XXXXXXXXXXXXXXXXXXXX" LOCATE 21, 26 PRINT "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" LOCATE 22, 25 COLOR 2 PRINT "XXXX" LOCATE 23, 21 PRINT "XXXXX" LOCATE 22, 29 PRINT "XXXXX" LOCATE 23, 29 PRINT "XXXXX" LOCATE 23, 34 COLOR 7 PRINT "\" COLOR 2 LOCATE 22, 39 PRINT "XXXXX" LOCATE 23, 39 PRINT "XXXXX" LOCATE 23, 44 COLOR 7 PRINT "\" LOCATE 22, 48 COLOR 2 PRINT "XXXXXXXXXXX XXXXX" LOCATE 22, 59 COLOR 1 PRINT "0" pause .1 CLS LOCATE 20, 32 COLOR 6 PRINT "XXXXXXXXXXXXXXXXXXXX" LOCATE 21, 27 PRINT "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" LOCATE 22, 26 COLOR 2 PRINT "XXXX" LOCATE 23, 22 PRINT "XXXXX" LOCATE 22, 32 PRINT "XXXXX" LOCATE 23, 32 PRINT "XXXXX" LOCATE 23, 37 COLOR 7 PRINT "\" COLOR 2 LOCATE 22, 42 PRINT "XXXXX" LOCATE 23, 42 PRINT "XXXXX" LOCATE 23, 47 COLOR 7 PRINT "\" LOCATE 22, 49 COLOR 2 PRINT "XXXXXXXXXXX XXXXX" LOCATE 22, 60 COLOR 1 PRINT "0" pause .1 CLS LOCATE 20, 33 COLOR 6 PRINT "XXXXXXXXXXXXXXXXXXXX" LOCATE 21, 28 PRINT "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" LOCATE 22, 27 COLOR 2 PRINT "XXXX" LOCATE 23, 23 PRINT "XXXXX" LOCATE 22, 32 PRINT "XXXXX" LOCATE 23, 32 PRINT "XXXXX" LOCATE 23, 37 COLOR 7 PRINT "\" COLOR 2 LOCATE 22, 42 PRINT "XXXXX" LOCATE 23, 42 PRINT "XXXXX" LOCATE 23, 47 COLOR 7 PRINT "\" LOCATE 22, 50 COLOR 2 PRINT "XXXXXXXXXXX XXXXX" LOCATE 22, 61 COLOR 1 PRINT "0" pause .1 CLS LOCATE 20, 34 COLOR 6 PRINT "XXXXXXXXXXXXXXXXXXXX" LOCATE 21, 29 PRINT "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" LOCATE 22, 28 COLOR 2 PRINT "XXXX" LOCATE 23, 24 PRINT "XXXXX" LOCATE 22, 32 PRINT "XXXXX" LOCATE 23, 32 PRINT "XXXXX" LOCATE 23, 37 COLOR 7 PRINT "\" COLOR 2 LOCATE 22, 42 PRINT "XXXXX" LOCATE 23, 42 PRINT "XXXXX" LOCATE 23, 47 COLOR 7 PRINT "\" LOCATE 22, 51 COLOR 2 PRINT "XXXXXXXXXXX XXXXX" LOCATE 22, 62 COLOR 1 PRINT "0" pause .1 CLS LOCATE 20, 35 COLOR 6 PRINT "XXXXXXXXXXXXXXXXXXXX" LOCATE 21, 30 PRINT "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" LOCATE 22, 29 COLOR 2 PRINT "XXXX" LOCATE 23, 25 PRINT "XXXXX" LOCATE 22, 35 PRINT "XXXXX" LOCATE 23, 35 PRINT "XXXXX" LOCATE 23, 40 COLOR 7 PRINT "\" COLOR 2 LOCATE 22, 45 PRINT "XXXXX" LOCATE 23, 45 PRINT "XXXXX" LOCATE 23, 50 COLOR 7 PRINT "\" LOCATE 22, 52 COLOR 2 PRINT "XXXXXXXXXXX XXXXX" LOCATE 22, 63 COLOR 1 PRINT "0" pause .1 CLS LOCATE 20, 36 COLOR 6 PRINT "XXXXXXXXXXXXXXXXXXXX" LOCATE 21, 31 PRINT "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" LOCATE 22, 30 COLOR 2 PRINT "XXXX" LOCATE 23, 26 PRINT "XXXXX" LOCATE 22, 35 PRINT "XXXXX" LOCATE 23, 35 PRINT "XXXXX" LOCATE 23, 40 COLOR 7 PRINT "\" COLOR 2 LOCATE 22, 45 PRINT "XXXXX" LOCATE 23, 45 PRINT "XXXXX" LOCATE 23, 50 COLOR 7 PRINT "\" LOCATE 22, 53 COLOR 2 PRINT "XXXXXXXXX" LOCATE 23, 56 PRINT "XXXXX" LOCATE 23, 57 COLOR 1 PRINT "0" LOCATE 23, 59 PRINT "0" pause .1 CLS LOCATE 20, 36 COLOR 6 PRINT "XXXXXXXXXXXXXXXXXXXX" LOCATE 21, 31 PRINT "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" LOCATE 22, 30 COLOR 2 PRINT "XXXX" LOCATE 23, 26 PRINT "XXXXX" LOCATE 22, 35 PRINT "XXXXX" LOCATE 23, 35 PRINT "XXXXX" LOCATE 23, 40 COLOR 7 PRINT "\" COLOR 2 LOCATE 22, 45 PRINT "XXXXX" LOCATE 23, 45 PRINT "XXXXX" LOCATE 23, 50 COLOR 7 PRINT "\" LOCATE 22, 53 COLOR 2 PRINT "XXXXXXXXX" LOCATE 23, 56 PRINT "XXXXX" LOCATE 23, 57 COLOR 1 PRINT "0" PLAY "D" pause .1 CLS LOCATE 20, 36 COLOR 6 PRINT "XXXXXXXXXXXXXXXXXXXX" LOCATE 21, 31 PRINT "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" LOCATE 22, 30 COLOR 2 PRINT "XXXX" LOCATE 23, 26 PRINT "XXXXX" LOCATE 22, 35 PRINT "XXXXX" LOCATE 23, 35 PRINT "XXXXX" LOCATE 23, 40 COLOR 7 PRINT "\" COLOR 2 LOCATE 22, 45 PRINT "XXXXX" LOCATE 23, 45 PRINT "XXXXX" LOCATE 23, 50 COLOR 7 PRINT "\" LOCATE 22, 53 COLOR 2 PRINT "XXXXXXXXX" LOCATE 23, 56 PRINT "XXXXX" LOCATE 23, 57 COLOR 1 PRINT "0" LOCATE 23, 59 PRINT "0" SYSTEM SUB pause (timeval) w = TIMER + timeval DO LOOP UNTIL TIMER > w END SUB