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