SCREEN ZERO HERO PRODUCTIONS...

[Pete]

Code: (Select All)

t$ = "Frosty the No-man"
_TITLE t$
WIDTH 90, 25
PALETTE 5, 8
COLOR 15, 5
CLS
$UNSTABLE:MIDI
$MIDISOUNDFONT:DEFAULT
PRINT: PRINT " SCREEN ZERO HERO PRESENTS, A FROSTY CHRISTMAS!...": PRINT

DIM song$(1), songhand&(1)
song$(1) = "frosty.mid"
songhand&(1) = _SNDOPEN(song$(1), "stream")
IF songhand&(1) = 0 THEN
    PRINT "Error opening file: "; song$(1), _CWD$
    END
END IF

_SNDPLAY songhand&(1)

_DELAY 10: CLS: PRINT: _DELAY 1

DO
    READ a$
    IF a$ = "EOF" THEN EXIT DO
    seed = 0
    LOCATE , 2
    DO
        i = i + 1
        j = INSTR(seed, a$ + " ", " ")
        PRINT MID$(a$, seed, j - seed + 1);
        SELECT CASE i
            CASE 1
                _DELAY .75
            CASE 2
                _DELAY .35
            CASE ELSE
                _DELAY .42
        END SELECT
        seed = j + 1
    LOOP UNTIL j = 0
    PRINT: PRINT
    IF i = 1 THEN _DELAY 1.4 ELSE _DELAY .75
LOOP

DATA "Frosty the snowman, had two very cold snowballs"
DATA "'Til a kid named Sue, didn't think it through, and wrapped him up with Grandma's shawls"
DATA "Now Frosty the snowman, won't be smiling on Christmas day"
DATA "'Cause the heat from the shawls, warmed up his snow balls, 'till they dropped and rolled away"
DATA "There must have been, some magic in, that Super Glue we found"
DATA "'Cause when we glued his balls back on, he began to dance around"
DATA "Oh... Frosty the snowman, now he's jolly and that's a fact"
DATA "Even though he knows, his snowballs are froze, he's so glad he's got them back..."
DATA "FROSTY!"
DATA "EOF"

Requires the midi file attached below if you don't already have it from Dav's screensaver... (Thanks Dav!)


Pete

[SMcNeill]

..Sue, thought would she should do, is..

You sing very goodly Engrish Sir!  Me teacha youse betta!  Only Two Dollar!!

[Pete]

Thanks, edited that line... Hey shouldn't you be out flocking your sheep today?

Pete

[bplus]

Thanks, edited that line... Hey shouldn't you be out flocking your sheep today?

Pete

LOL no question who wrote that up!

[Pete]

Thanks! Actually, the limerick, minus the stupid now corrected sentence mix up, was something I put together almost 50 years ago. Now I finally have it written down, so good; I can remember it 50 years from now! That's right, I'm installing an LED screen on the inside of my coffin lid. Of course if it outputs any FreeBASIC programs, I'll know I shouldn't have posted that flocking joke.

Pete

[Pete]

@Dav

I ho ho hope you don't mind. I borrowed your Frosty song for my x-mas program, above: https://qb64phoenix.com/forum/showthread.php?tid=1309

Out of curiosity, where do you go online to find these?

Pete

[Dav]

Hey @Pete. Nope I don’t mind at all.  I use to collect a ton of midi files, and have had these for years.  I believe these came off a collection of public domain Christmas midis I grabbed from a music site that collected free midi files.  They were passed around quite a bit back in the day.  I’ve also seen them on some of those freeware CD collections,too. Haven’t looked, but I bet they’re all on the famous “MIDI file collection” Of 6000 MIDI files, that came out about 20 years ago

I pulled out my MIDI keyboard yesterday and started recording my own versions. Will be glad to share them when done. 

EDIT: Yep, looks like frosty.mid is in that giant 6000+ midi archive http://cd.textfiles.com/midifiles/F/

- Dav

[Pete]

Nice! That site even had the Star Trek theme. They had Star Wars, too, but then there's always a dark side to everything.

If we could control the midi output, we'd be able to make a Name That Tune app.

Thanks Dav,

Pete