qbasic/asciitur.bas

684 lines
8.5 KiB
QBasic
Raw Permalink Normal View History

2021-06-12 23:36:23 -04:00
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