You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
683 lines
8.5 KiB
683 lines
8.5 KiB
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
|
|
|