Jackie Blue

    'Jackie Blue
 
    nomainwin
    WindowWidth=400
    WindowHeight=440
    UpperLeftX=int((DisplayWidth-WindowWidth)/2)
    UpperLeftY=int((DisplayHeight-WindowHeight)/2)
    open "Jackie Blue" for graphics_nf_nsb as #jack
    print #jack, "trapclose [quit]"
 
    #jack, "down"
    #jack, "fill 1 3 31"
    #jack, "getbmp blue 0 0 400 440"
    #jack, "color green ; size 8 ; backcolor green"
    #jack, "place 190 30 ; boxfilled 210 60"
    #jack, "home ; color yellow ; circle 140"
    #jack, "size 5"
    for x = 1 to 3
        read startX, startY
        #jack, "place ";startX;" ";startY
        #jack, "north ; turn 135 ; go 35"
        #jack, "turn 135 ; go 50 ; turn 135 ; go 35"
    next x
    #jack, "place 200 260 ; ellipse 130 40"
    #jack, "size 9 ; place 190 242 ; north ; turn 200"
    #jack, "go 15 ; turn 140 ; go 12"
    #jack, "place 210 242 ; north ; turn 160"
    #jack, "go 15 ; turn 220 ; go 12"
    #jack, "place 198 275 ; north ; turn 10 ; go 10"
    #jack, "turn 150 ; go 12"
    #jack, "getbmp jack 0 0 400 440"
    for x = 1 to 25
        #jack, "drawbmp blue 0 0"
        call delay 100
        #jack, "discard"
        #jack, "drawbmp jack 0 0"
        call delay 200
        #jack, "discard"
    next x
    #jack, "color blue ; backcolor 1 3 31"
    #jack, "font arial_bold 18"
    newX=13
    for x = 1 to 15
        #jack, "place ";newX;" 390"
        read letter
        read ltrSpc
        #jack, "\ ";chr$(letter);
        call delay 300
        newX=newX+ltrSpc
        #jack, "flush"
    next x
 
    wait
 
 
[quit]
    #jack, "cls"
    #jack, "discard"
    close #jack
    end
 
sub delay p
    t=time$("milliseconds")
    while time$("milliseconds")<t+p
    wend
end sub
 
 
    data 140, 140, 250, 140, 200, 180
    data 72, 26, 65, 25, 80, 23, 80, 23, 89, 24, 32, 10
    data 72, 26, 65, 25, 76, 21, 76, 21, 79, 26, 87, 31, 69, 22, 69, 22, 78, 10