Dated Material

[bplus]

Code: (Select All)

Print Date$
elf Date$

Sub elf (expression$)
    If Val(Mid$(expression$, 3, 2)) < 26 Then SleighRide
End Sub

Sub SleighRide
    Print "Paste your clipboard to your browser."
    _Clipboard$ = "https://www.google.com/search?client=opera&q=sleigh+ride+song&sourceid=opera&ie=UTF-8&oe=UTF-8#fpstate=ive&vld=cid:95aee982.7113414d,vid:3oWbvWQcuPk,st:0"
    Sleep 15
    Cls
    Print "Merry Christmas!"
End Sub