684 lines
8.5 KiB
QBasic
684 lines
8.5 KiB
QBasic
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
|