var f1 : int := Font.New ("Airal:72:bold")
var f2 : int := Font.New ("Airal:20:bold")

for a : 1 .. 20
    locate (5, +a)

    put "      ______"
    locate (6, +a)

    put "     / TTYL \\#########  "
    locate (7, +a)
    put " ___/________\\___"
    locate (8, +a)
    put "/  ____________  \\"
    locate (9, +a)
    put "[-|  |O|  |O|  |-]"
    locate (10, +a)
    put " ----------------  "



    delay (100)

end for


for b : 1 .. 36
    locate (6, 38 + b)
    put ">}OMG)>"
    delay (20)

end for

for i : 0 .. 350
    drawfillbox (maxx div 2 + i, maxy div 2 + i, maxx div 2 - i, maxy div 2 - i, black)
    delay (10)
end for
delay (300)

colorback (black)
color (white)
locate (15, 14)
put "      ______"
locate (15, 14)

put "     / TTYL \\######### >>>>>}OMG)"
locate (16, 14)
put " ___/________\\___"
locate (17, 14)
put "/  ____________  \\"
locate (18, 14)
put "[-|  |O|  |O|  |-]"
locate (19, 14)
put " ----------------  "
delay (1000)


locate (15, 20)
Font.Draw ("GET ONE", 100, 200, f1, white)


delay (3000)
for h : 0 .. 350
    drawfillbox (maxx div 2 + h, maxy div 2 + h, maxx div 2 - h, maxy div 2 - h, 42)
    delay (10)
end for




Font.Draw ("But wait, there is also  the starship enterprise!!!",1,300, f2, brightred)
colorback (42)
color (80)
put"  __...____________________          ,"
put"   `(\\ [ ===NCC-1700===--|__|) ___..--*_`--.._____"
put"     `-----------------| |***` [_**_-___________*_/"
put"                       | |   /..../`*-._.-*`"
put"                   ____| |__/::..*_"
put"                  |\\ **.*** *_____//\\"
put"                   ***-.   *****  \\/"
put"                       **********"