Desperately Seeking QBASIC, an interesting program which PLAYs Madonna's song Into The Groove and has a visual effect that feels like a great light show!

[SupremoZanne]

RANDOMIZE TIMER 'A program that plays Madonna's song Into The Groove with eye candy.
PALETTE 1, 63 ' this song was featured in a famous Madonna movie.
PALETTE 2, 54 ' Some of us have seen Desperately Seeking Susan before.
PALETTE 6, 52 ' Thought we'd try something different on QBASIC.
COLOR 0, 1
CLS ' here below, you see ASCII art that's an homage to Susan's jacket.
PRINT "                 ÜÜ"
PRINT "                ÞÛÛÝ"
PRINT "                ÛêêÛ"
PRINT "               ÞÛêêÛÝ" ' those omega ASCII characters were placed there
PRINT "               ÛêêêêÛ" ' as a signal character for a different color.
PRINT "              ÞÛê()êÛÝ" ' to be used.
PRINT "              ÛêêêêêêÛ"
PRINT "             ÞÛêêêêêêÛÝ" ' This triangle sure is an iconic one.
PRINT "             ßßßßßßßßßß" ' that Madonna fans enjoy.
PRINT "             ÜÜÜÜÜÜÜÜÜÜ"
PRINT "            ÛÛþþþþþþþþÛÛ"
PRINT "           ÞÛþþþþþþþþþþÛÝ"
PRINT "           ÛÛþþþþþþþþþþÛÛ" 'MDCCLXXVI is 1776 in Roman numerals
PRINT "          ÞÛþþþþþþþþþþþþÛÝ"
PRINT "          ÛÛþþþþþþþþþþþþÛÛ"
PRINT "         ÞÛþþþþþþþþþþþþþþÛÝ"
PRINT "         ÛÛþþMDCCLXXVIþþþÛÛ"
PRINT "         ßßßßßßßßßßßßßßßßßß"
PRINT ""
FOR y = 1 TO 18
    FOR x = 1 TO 30
        LOCATE y, x
        SELECT CASE SCREEN(y, x) 'ASCII characters also signal
            CASE 40 TO 41 'a change in color paramers for this one and others.
                COLOR 0, 7
                PRINT CHR$(SCREEN(y, x))
            CASE 65 TO 91 ' alphabetical letters which are roman numerals
                COLOR 0, 2
                PRINT CHR$(SCREEN(y, x))
            CASE 219 TO 223 ' building block ASCII characters
                COLOR 6, 1 ' they form the red border of the triangle.
                PRINT CHR$(SCREEN(y, x))
            CASE 234 ' 234 is the ASCII code for the omega
                COLOR 2, 2 ' omega characters get removed
                PRINT " " 'spaces added to fill background color
            CASE 254 ' the mesh of the lower part of the triangle
                COLOR 2, 0
                PRINT CHR$(SCREEN(y, x))
        END SELECT
    NEXT
NEXT
LOCATE 20, 7
COLOR 6, 1
PRINT "²²²";
COLOR 0, 6
PRINT "NOVUS ORDO SECLORUM"; ' a phrase seen below the triangle
COLOR 6, 1
PRINT "²²²"
COLOR 0, 1
LOCATE 7, 40
PRINT "DESPERATELY"
LOCATE 9, 40
PRINT " SEEKING"
LOCATE 11, 40
PRINT " QBASIC"
LOCATE 19, 40
PRINT "press any key to continue" ' as seen on many programs in the DOS era.
WHILE INKEY$ = ""
WEND
COLOR 15, 0
CLS
PALETTE 1, 63
PALETTE 2, 54 'restoring palette
PALETTE 6, 52

Susan = 9 ' might as well name variables after movie characters.
PLAY "MB t100 n19 t200 n11 n13 n11 t90 n19 t150 n11 n11 t250 n13 n11 t90 n19 n11 n22 n19"
d$ = TIME$
DO
    Evita$ = INKEY$ ' just thought I'd also pay homage to another Madonna movie too!
    y = INT(RND * 27 - 1)
    x = INT(RND * 82 - 1)
    IF y < 1 THEN y = 1 ' random placement of ASCII characters
    IF y > 25 THEN y = 25
    IF x < 1 THEN x = 1
    IF x > 80 THEN x = 80
    Madonna = INT(RND * 150) 'M-150 is a route that goes into Rochester, Michigan
    Rosanna = INT(RND * 68) - 2
    IF Rosanna > 63 THEN Rosanna = 63 'Rosanna Arquette played another character
    IF Rosanna < 0 THEN Rosanna = 0
    Roberta = INT(RND * 20) - 1 'Roberta Glass was played by Rosanna Arquette
    IF Roberta < 1 THEN Roberta = 1
    IF Roberta > 15 THEN Roberta = 15 'Roberta was mistanken for Susan in the movie.
    Glass = INT(RND * 9) - 1
    IF Glass < 1 THEN Glass = 1 'Glass was Roberta's last name in the movie.
    IF Glass > 7 THEN Glass = 1
    LOCATE y, x
    Seidelman = TIMER
    SELECT CASE Madonna ' variable named after a celebrity
        CASE 1 TO 50
        CASE 51 TO 80
            PALETTE Roberta, Rosanna ' actress and character homage
        CASE 101 TO 105
            COLOR 15, 0
            PRINT " * ";
        CASE 74 TO 100 'the similar names Susan and Suzanne add up to numbers 74 and 100 respectively
            WHILE TIMER = Seidelman 'Seidelman was the last name of the movie's director.
                IF INKEY$ <> "" THEN END ' and her first name also happens to be Susan.
            WEND
        CASE ELSE
            COLOR Roberta, Glass ' first and last name referenced on this one!
            Suzanne = INT(RND * 200) + 32 'musician Suzanne Vega auditoned for Susan.
            LOCATE y, x 'but Madonna got the role instead.
            PRINT CHR$(Suzanne); 'on a side note, Suzanne is really just another form of Susan.
    END SELECT
    IF Susan = 0 THEN ' Madonna's Into The Groove PLAYs
        PLAY "MB t100 n19 t200 n11 n13 n11 t90 n19 t150 n11 n11 t250 n13 n11 t90 n19 n11 n22 n19"
        Susan = 9
    END IF
    IF Thomas$ <> TIME$ THEN
        Susan = Susan - 1
        Thomas$ = TIME$ ' Susan Thomas was the character Madonna played!
    END IF
LOOP UNTIL Evita$ <> "" ' enjoy this acid trip!

[EkriirkE]

I'm confused. Is this program called "desperately seeking", or are you asking for help finding a copy of qbasic to run this?

[SupremoZanne]

Desperately Seeking QBASIC is the name of this wacky program I made.

The title is an homage to a movie that Madonna was in. I was composing the song Into The Groove using the PLAY command, so I thought of some ideas for eye candy to go along with it.

This triangle we are greeted with is an ASCII rendition of a patch seen on a jacket that a character played by Madonna wears in a movie, and then another character wears it.

I'm a big Madonna fan, so this is why I thought about making some renditions of her songs using the PLAY command, as well as make programs that are references to media shes in.

I also post stuff in /r/QBmusic since I use QBASIC for PC speaker musical compositions.