lpt = &H378

SCREEN 0
CLS

ON ERROR GOTO bye       ' Error out when the data lines end

DO
        READ d
        OUT lpt, d: PRINT HEX$(d)       ' Send the data to the synth
        FOR wl = 0 TO 10: NEXT          ' A short delay to make it stick
        WHILE (INP(lpt + 1) AND &H80) = 0 ' Wait for the 555 to flag okay
                IF INKEY$ <> "" THEN END ' Incase you want to end the program
                                        ' This does not stop the synth though
        WEND
LOOP

bye:    END

' Start by clearing the synth
DATA &H00, &H40, &H80, &HC0

' Music data follows

DATA            &H4A,   &HC0
DATA &H25,              &HC0
DATA &H2A,      &H5A,   &HC0
DATA &H31,              &HC0
DATA &H2C,              &HC0
DATA &H25,              &HC0
DATA &H2C,      &H59,   &HC0
DATA &H33,              &HC0
DATA &H31,      &H5A,   &HC0
DATA            &H55,   &HC0
DATA &H35,      &H5A,   &HC0
DATA            &H61,   &HC0
DATA &H29,      &H5C,   &HC0
DATA            &H55,   &HC0
DATA &H35,      &H5C,   &HC0
DATA            &H63,   &HC0

DATA &H2A,      &H61,   &HC0
DATA &H25,              &HC0
DATA &H2A,      &H5A,   &HC0
DATA &H31,              &HC0
DATA &H2C,      &H59,   &HC0
DATA &H25,              &HC0
DATA &H2C,      &H55,   &HC0
DATA &H33,              &HC0
DATA &H31,      &H5A,   &HC0
DATA            &H55,   &HC0
DATA &H2A,      &H5A,   &HC0
DATA            &H61,   &HC0
DATA &H00,      &H5C,   &HC0
DATA            &H55,   &HC0
DATA            &H5C,   &HC0
DATA            &H63,   &HC0

DATA    &H00,   &H61,   &HC0
DATA    &H35,           &HC0
DATA    &H31,   &H5A,   &HC0
DATA    &H35,           &HC0
DATA    &H2A,   &H61,   &HC0
DATA    &H31,           &HC0
DATA    &H25,   &H5A,   &HC0
DATA    &H28,           &HC0
DATA    &H26,   &H63,   &HC0
DATA            &H5A,   &HC0
DATA    &H2A,   &H56,   &HC0
DATA            &H5A,   &HC0
DATA    &H33,   &H53,   &HC0
DATA            &H56,   &HC0
DATA    &H36,   &H4A,   &HC0
DATA            &H51,   &HC0

DATA    &H00,   &H4C,   &HC0
DATA    &H33,           &HC0
DATA    &H2C,   &H53,   &HC0
DATA    &H33,           &HC0
DATA    &H28,   &H58,   &HC0
DATA    &H2C,           &HC0
DATA    &H23,   &H5C,   &HC0
DATA    &H26,           &HC0
DATA    &H25,           &HC0
DATA            &H58,   &HC0
DATA    &H28,   &H55,   &HC0
DATA            &H58,   &HC0
DATA    &H31,   &H51,   &HC0
DATA            &H55,   &HC0
DATA    &H35,   &H48,   &HC0
DATA            &H4C,   &HC0

DATA    &H00,   &H4A,   &HC0
DATA    &H31,           &HC0
DATA    &H2A,   &H51,   &HC0
DATA    &H31,           &HC0
DATA    &H26,   &H53,   &HC0
DATA            &H56,   &HC0
DATA    &H33,   &H4C,   &HC0
DATA            &H53,   &HC0
DATA            &H48,   &HC0
DATA    &H2C,           &HC0
DATA    &H28,   &H4C,   &HC0
DATA    &H2C,           &HC0
DATA    &H25,   &H51,   &HC0
DATA            &H55,   &HC0
DATA    &H31,   &H4A,   &HC0
DATA            &H51,   &HC0

DATA    &H00,   &H46,   &HC0
DATA    &H2A,           &HC0
DATA    &H26,   &H43,   &HC0
DATA    &H2A,           &HC0
DATA    &H23,   &H48,   &HC0
DATA            &H58,   &HC0
DATA    &H2C,   &H56,   &HC0
DATA            &H58,   &HC0
DATA    &H31,   &H51,   &HC0
DATA            &H58,   &HC0
DATA    &H00,   &H61,   &HC0
DATA            &H65,   &HC0
DATA            &H63,   &HC0
DATA            &H58,   &HC0
DATA            &H63,   &HC0
DATA            &H66,   &HC0

DATA            &H65,   &HC0
DATA    &H28,           &HC0
DATA    &H31,   &H61,   &HC0
DATA    &H35,           &HC0
DATA    &H33,   &H5C,   &HC0
DATA    &H28,           &HC0
DATA    &H33,   &H58,   &HC0
DATA    &H36,           &HC0
DATA    &H35,   &H61,   &HC0
DATA            &H58,   &HC0
DATA    &H38,   &H61,   &HC0
DATA            &H65,   &HC0
DATA    &H2C,   &H63,   &HC0
DATA            &H58,   &HC0
DATA    &H38,   &H63,   &HC0
DATA            &H66,   &HC0

DATA    &H31,   &H65,   &HC0
DATA    &H28,           &HC0
DATA    &H31,   &H61,   &HC0
DATA    &H35,           &HC0
DATA    &H33,   &H40,   &HC0
DATA    &H28,           &HC0
DATA    &H33,           &HC0
DATA    &H36,           &HC0
DATA    &H35,           &HC0
DATA            &H68,   &HC0
DATA    &H31,   &H65,   &HC0
DATA            &H68,   &HC0
DATA    &H38,   &H61,   &HC0
DATA            &H65,   &HC0
DATA    &H35,   &H58,   &HC0
DATA            &H5C,   &HC0

DATA    &H31,   &H5A,   &HC0
DATA    &H3A,           &HC0
DATA    &H35,   &H61,   &HC0
DATA    &H3A,           &HC0
DATA    &H31,   &H65,   &HC0
DATA    &H35,           &HC0
DATA    &H2A,   &H68,   &HC0
DATA    &H31,           &HC0
DATA    &H33,   &H67,   &HC0
DATA            &H6A,   &HC0
DATA    &H37,   &H63,   &HC0
DATA            &H67,   &HC0
DATA    &H3A,   &H5A,   &HC0
DATA            &H63,   &HC0
DATA    &H31,   &H57,   &HC0
DATA            &H5A,   &HC0

DATA    &H3C,   &H58,   &HC0
DATA    &H38,           &HC0
DATA    &H33,   &H5C,   &HC0
DATA    &H38,           &HC0
DATA    &H2C,   &H63,   &HC0
DATA    &H33,           &HC0
DATA    &H28,   &H67,   &HC0
DATA    &H2C,           &HC0
DATA    &H31,   &H65,   &HC0
DATA            &H68,   &HC0
DATA    &H35,   &H61,   &HC0
DATA            &H65,   &HC0
DATA    &H38,   &H58,   &HC0
DATA            &H61,   &HC0
DATA    &H3C,   &H55,   &HC0
DATA            &H58,   &HC0

DATA    &H3A,   &H57,   &HC0
DATA    &H37,           &HC0
DATA    &H34,   &H5A,   &HC0
DATA    &H37,           &HC0
DATA    &H2C,   &H5C,   &HC0
DATA    &H34,           &HC0
DATA    &H27,   &H64,   &HC0
DATA    &H2A,           &HC0
DATA    &H28,   &H40,   &HC0
DATA            &H65,   &HC0
DATA    &H38,   &H61,   &HC0
DATA            &H65,   &HC0
DATA            &H5A,   &HC0
DATA    &H35,   &H61,   &HC0
DATA    &H31,   &H65,   &HC0
DATA    &H35,   &H68,   &HC0

DATA    &H2A,   &H67,   &HC0
DATA            &H63,   &HC0
DATA    &H37,   &H5C,   &HC0
DATA            &H63,   &HC0
DATA            &H58,   &HC0
DATA    &H33,   &H5C,   &HC0
DATA    &H2C,   &H63,   &HC0
DATA    &H33,   &H67,   &HC0
DATA    &H28,   &H65,   &HC0
DATA            &H61,   &HC0
DATA    &H35,   &H5A,   &HC0
DATA            &H61,   &HC0
DATA            &H57,   &HC0
DATA    &H31,   &H5A,   &HC0
DATA    &H2A,   &H61,   &HC0
DATA    &H31,           &HC0

DATA    &H27,   &H40,   &HC0
DATA    &H38,   &H5C,   &HC0
DATA    &H37,   &H61,   &HC0
DATA    &H35,   &H5A,   &HC0
DATA    &H34,   &H5C,   &HC0
DATA    &H37,           &HC0
DATA    &H2C,   &H4C,   &HC0
DATA    &H34,           &HC0
DATA    &H35,   &H55,   &HC0
DATA            &H65,   &HC0
DATA    &H00,   &H5C,   &HC0
DATA            &H58,   &HC0
DATA            &H55,   &HC0
DATA            &H4C,   &HC0
DATA            &H48,   &HC0
DATA            &H4C,   &HC0

DATA            &H45,   &HC0
DATA    &H38,           &HC0
DATA    &H3B,   &H55,   &HC0
DATA    &H38,           &HC0
DATA    &H35,   &H58,   &HC0
DATA    &H38,           &HC0
DATA    &H32,   &H5B,   &HC0
DATA    &H35,           &HC0
DATA    &H38,   &H52,   &HC0
DATA    &H35,           &HC0
DATA    &H32,   &H40,   &HC0
DATA    &H35,           &HC0
DATA    &H2A,           &HC0
DATA    &H28,           &HC0
DATA    &H27,           &HC0
DATA    &H25,           &HC0

DATA    &H00,   &H63,   &HC0
DATA    &H36,           &HC0
DATA    &H3A,   &H53,   &HC0
DATA    &H36,           &HC0
DATA    &H33,   &H56,   &HC0
DATA    &H36,           &HC0
DATA    &H2C,   &H59,   &HC0
DATA    &H33,           &HC0
DATA    &H36,   &H4C,   &HC0
DATA    &H33,           &HC0
DATA    &H2C,   &H40,   &HC0
DATA    &H33,           &HC0
DATA    &H28,           &HC0
DATA    &H26,           &HC0
DATA    &H25,           &HC0
DATA    &H23,           &HC0

DATA    &H00,   &H61,   &HC0
DATA    &H35,           &HC0
DATA    &H38,   &H51,   &HC0
DATA    &H35,           &HC0
DATA    &H31,   &H55,   &HC0
DATA    &H35,           &HC0
DATA    &H2A,   &H57,   &HC0
DATA    &H31,           &HC0
DATA    &H34,   &H4A,   &HC0
DATA    &H31,           &HC0
DATA    &H2A,   &H40,   &HC0
DATA    &H31,           &HC0
DATA    &H27,           &HC0
DATA    &H25,           &HC0
DATA    &H24,           &HC0
DATA    &H22,           &HC0

DATA    &H00,   &H5C,   &HC0
DATA    &H33,           &HC0
DATA    &H36,   &H4C,   &HC0
DATA    &H33,           &HC0
DATA    &H2C,   &H53,   &HC0
DATA    &H33,           &HC0
DATA    &H29,   &H56,   &HC0
DATA    &H2C,           &HC0
DATA    &H33,   &H49,   &HC0
DATA    &H2C,           &HC0
DATA    &H29,   &H40,   &HC0
DATA    &H2C,           &HC0
DATA    &H25,           &HC0
DATA    &H23,           &HC0
DATA    &H21,           &HC0
DATA    &H1C,           &HC0

DATA    &H00,   &H61,   &HC0
DATA    &H25,           &HC0
DATA    &H2A,   &H5A,   &HC0
DATA    &H31,           &HC0
DATA    &H2C,   &H59,   &HC0
DATA    &H25,           &HC0
DATA    &H2C,   &H55,   &HC0
DATA    &H33,           &HC0
DATA    &H31,   &H5A,   &HC0
DATA            &H55,   &HC0
DATA    &H2A,   &H5A,   &HC0
DATA            &H61,   &HC0
DATA    &H29,   &H5C,   &HC0
DATA            &H55,   &HC0
DATA    &H25,   &H5C,   &HC0
DATA            &H63,   &HC0

DATA    &H2A,   &H61,   &HC0
DATA    &H31,   &H65,   &HC0
DATA    &H35,   &H6A,   &HC0
DATA    &H31,   &H65,   &HC0
DATA    &H2A,   &H61,   &HC0
DATA    &H31,   &H65,   &HC0
DATA    &H27,   &H5A,   &HC0
DATA    &H2A,   &H61,   &HC0
DATA    &H31,   &H57,   &HC0
DATA    &H2A,   &H5A,   &HC0
DATA    &H27,   &H61,   &HC0
DATA    &H2A,   &H5A,   &HC0
DATA    &H24,   &H57,   &HC0
DATA    &H31,   &H5A,   &HC0
DATA    &H2C,   &H54,   &HC0
DATA    &H2A,   &H57,   &HC0

DATA    &H29,   &H53,   &HC0
DATA    &H2C,           &HC0
DATA    &H33,   &H59,   &HC0
DATA    &H2C,           &HC0
DATA    &H29,   &H5C,   &HC0
DATA    &H2C,           &HC0
DATA    &H23,   &H59,   &HC0
DATA    &H26,           &HC0
DATA    &H28,   &H55,   &HC0
DATA    &H26,           &HC0
DATA    &H23,   &H4C,   &HC0
DATA    &H26,           &HC0
DATA    &H1C,   &H49,   &HC0
DATA    &H26,           &HC0
DATA    &H25,   &H45,   &HC0
DATA    &H23,           &HC0

DATA    &H21,   &H4A,   &HC0
DATA    &H25,           &HC0
DATA    &H2A,   &H51,   &HC0
DATA    &H25,           &HC0
DATA    &H21,   &H55,   &HC0
DATA    &H25,           &HC0
DATA    &H1A,   &H51,   &HC0
DATA    &H21,           &HC0
DATA    &H24,   &H4A,   &HC0
DATA    &H21,           &HC0
DATA    &H1A,   &H51,   &HC0
DATA    &H21,           &HC0
DATA    &H17,   &H44,   &HC0
DATA    &H21,           &HC0
DATA    &H1C,   &H40,   &HC0
DATA    &H1A,           &HC0

DATA    &H19,           &HC0
DATA            &H5C,   &HC0
DATA    &H2C,   &H59,   &HC0
DATA            &H55,   &HC0
DATA    &H29,   &H53,   &HC0
DATA            &H5C,   &HC0
DATA    &H25,   &H59,   &HC0
DATA            &H53,   &HC0
DATA    &H00,   &H51,   &HC0
DATA    &H25,           &HC0
DATA    &H2A,   &H55,   &HC0
DATA    &H31,           &HC0
DATA    &H2C,   &H49,   &HC0
DATA    &H25,           &HC0
DATA    &H2C,   &H55,   &HC0
DATA    &H33,           &HC0

DATA    &H31,   &H4A,   &HC0
DATA    &H2A,           &HC0
DATA    &H31,   &H57,   &HC0
DATA    &H35,           &HC0
DATA    &H33,   &H4C,   &HC0
DATA    &H2C,           &HC0
DATA    &H33,   &H59,   &HC0
DATA    &H36,           &HC0
DATA    &H35,   &H51,   &HC0
DATA    &H31,           &HC0
DATA    &H35,   &H5A,   &HC0
DATA    &H38,           &HC0
DATA    &H36,   &H53,   &HC0
DATA    &H35,           &HC0
DATA    &H33,   &H5B,   &HC0
DATA    &H31,           &HC0

DATA    &H2C,   &H59,   &HC0
DATA    &H31,           &HC0
DATA    &H33,   &H56,   &HC0
DATA    &H35,           &HC0
DATA    &H36,   &H53,   &HC0
DATA    &H33,           &HC0
DATA    &H39,   &H4C,   &HC0
DATA    &H33,           &HC0
DATA    &H3C,   &H49,   &HC0
DATA    &H33,           &HC0
DATA    &H31,   &H4A,   &HC0
DATA    &H3A,           &HC0
DATA    &H36,   &H43,   &HC0
DATA    &H33,           &HC0
DATA    &H2C,   &H45,   &HC0
DATA    &H33,           &HC0

DATA    &H29,   &H46,   &HC0
DATA    &H2C,           &HC0
DATA    &H31,   &H44,   &HC0
DATA    &H2A,           &HC0
DATA    &H25,   &H45,   &HC0
DATA    &H2A,           &HC0
DATA    &H2C,   &H55,   &HC0
DATA    &H29,           &HC0
DATA    &H2A,   &H4A,   &HC0
DATA    &H25,           &HC0
DATA    &H21,           &HC0
DATA    &H25,           &HC0
DATA    &H1A,           &HC0

DATA    &HC0,&HC0,&HC0,&HC0,&HC0,&HC0
DATA    &H0, &H40, &H80