An Atari BASIC program on a vinyl LP

[ldelsarte]

Hello Atari 8-bit fellows!

 

In the 80s, it was not uncommon to find ZX Spectrum programs (etc, ...) on Flexidisc, cassette, radio broadcast, etc...
However, I thought there was NOTHING for my Atari 800XL.
Nothing until I read the latest issue of the French magazine "Canard PC Hardware" n°49, July-Aug 2021 (this mag is about the latest hardware for PC enthusiasts).
It contains an article about programmes released on vinyl back then (in the 80s).
And I discovered this LP by "Adolphson-Falk" called "Över Tid Och Rum" which contains (ONLY on the vinyl version, track is omitted on the CD) a track that is actually an Atari BASIC program.

 

Link to the record: Adolphson-Falk - Över Tid Och Rum | Releases | Discogs
Link to an article on the subject: Decoding the Adolphson-Falk data signal – Logic Applied knowledge base

(I'm attaching the .CAS file)

 

I would like to submit this information for inclusion in a future version of the FAQ, hence my question:
Except for this disc, does anyone know of any other media (LP/MC/CD/etc...) that contains an audio track that is actually an Atari BASIC program (for 8-bit, obviously)?

I hope you're okay if your findings are quoted in a forthcoming FAQ update...

 

Thank you in advance for your contributions and comments,
Kind regards,
Laurent

Adolphson-Falk - Över Tid Och Rum (atari basic on vinyl LP).cas

[ldelsarte]

The Atari BASIC listing:

 

10 FOR AF=0 TO 195:READ A:POKE 1536+AF,A:NEXT AF:POKE 1791,255:POKE 756,192
20 X=USR(1536)
1000 DATA 169,0,141,240,6,141,243,6
1010 DATA 169,122,141,242,6,169,9,141
1020 DATA 244,6,169,0,133,12,169,6
1030 DATA 133,13,169,1,133,9,169,33
1040 DATA 141,47,2,169,131,141,48,2
1050 DATA 169,6,141,49,2,169,4,141
1060 DATA 4,212,173,11,212,208,251,174
1070 DATA 240,6,169,7,232,141,10,212
1080 DATA 142,26,208,173,11,212,201,63
1090 DATA 208,242,174,242,6,202,141,10
1100 DATA 212,142,26,208,173,11,212,201
1110 DATA 150,208,242,238,240,6,238,242
1120 DATA 6,238,243,6,173,243,6,201
1130 DATA 2,208,199,169,0,141,243,6
1140 DATA 173,244,6,24,105,16,141,244
1150 DATA 6,201,16,144,243,141,198,2
1160 DATA 76,50,6,112,112,112,112,112
1170 DATA 112,112,112,112,112,112,112,96
1180 DATA 87,151,6,7,65,131,6,0
1190 DATA 0,0,161,164,175,172,176,168
1200 DATA 179,175,174,141,166,161,172,171
1210 DATA 0,0,0,188,182,165,178,0
1220 DATA 180,169,164,0,175,163,168,0
1230 DATA 178,181,173,0,0,0,0,0
1240 DATA 0,0,0,0