Weekly Qbasic and Qb64 Lesson Topics

FOR i% = 1 TO 15
PLAY "ga2be4cgefa8g"
    COLOR i%: PRINT " color ="; i%
NEXT
FOR i% = 1 TO 15
PLAY "aa2ag8e2fagd4a"
    COLOR i%: PRINT " This Pretty ="; i%
NEXT

SCREEN 12

DO
    SCREEN 12
    CLS
    FOR I = 1 TO 15
        COLOR I, 0
        PRINT I; "*** COLOR ***"
    NEXT I
    COLOR 0, 9
    LOCATE 22, 45
    PRINT "Now watch this"
    _DELAY 1
    LOCATE 23, 46
    PRINT "*"
    _DELAY 1
    LOCATE 17, 35
    PRINT "*"
    _DELAY .5
    LOCATE 18, 36
    PRINT "*"
    _DELAY 1
    LOCATE 19, 37
    PRINT "*"
    _DELAY 1
    LOCATE 20, 38
    PRINT "*"
    _DELAY 1
    LOCATE 21, 37
    PRINT "*"
    _DELAY 1
    LOCATE 22, 36
    PRINT "*"
    _DELAY 1
    LOCATE 23, 35
    PRINT "*"
    _DELAY 1
    LOCATE 22, 34
    PRINT "*"
    _DELAY 1
    LOCATE 21, 33
    PRINT "*"
    _DELAY 1
    LOCATE 20, 32
    PRINT "*"
    _DELAY 1
    LOCATE 19, 31
    PRINT "*"
    _DELAY 1
    LOCATE 18, 32
    PRINT "*"
    _DELAY 1
    LOCATE 17, 33
    PRINT "*"
    _DELAY 1
    LOCATE 16, 34
    PRINT "*"
    _DELAY 1
    PLAY "A,Gb10a4e8f4aa"
    _DELAY 1
    COLOR 15, 1
    LOCATE 23, 46
    PRINT "*"
    PLAY "a"
    COLOR 15, 2
    LOCATE 17, 35
    PRINT "*"
    PLAY "b"
    COLOR 15, 3
    LOCATE 18, 36
    PRINT "*"
    PLAY "c"
    COLOR 15, 4
    LOCATE 19, 37
    PRINT "*"
    PLAY "d"
    COLOR 15, 5
    LOCATE 20, 38
    PRINT "*"
    PLAY "e"
    COLOR 15, 6
    LOCATE 21, 37
    PRINT "*"
    PLAY "f"
    LOCATE 22, 36
    COLOR 15, 14
    PRINT "*"
    PLAY "g"
    COLOR 15, 7
    LOCATE 23, 35
    PRINT "*"
    PLAY "<a"
    COLOR 15, 8
    LOCATE 22, 34
    PRINT "*"
    PLAY "b"
    COLOR 15, 9
    LOCATE 21, 33
    PRINT "*"
    PLAY "c"
    COLOR 15, 10
    LOCATE 20, 32
    PRINT "*"
    PLAY "d"
    COLOR 15, 11
    LOCATE 19, 31
    PRINT "*"
    PLAY "e"
    COLOR 15, 12
    LOCATE 18, 32
    PRINT "*"
    PLAY "f"
    COLOR 15, 13
    LOCATE 17, 33
    PRINT "*"
    PLAY "g"
    COLOR 15, 14
    LOCATE 16, 34
    PRINT "*"
    PLAY ">a"
    COLOR 11, 9
    CLS
    PRINT "This was made,useing samples from Ted Felix's tutorial for kids"
    PRINT "The asterix diamond, locate, print, and colors I made up,experimenting"

    INPUT "Would you like to do it again (y/n)? ", Answer$
LOOP WHILE Answer$ = "y"