How to create random YouTube URLs on a Commodore 64
21In this episode I'll demonstrate how to create those seemingly random YouTube Video IDs using a Commodore 64.
Here's the code:
10 print chr$(14)
20 gosub 100:x=rnd(-ti):cn=1
30 a$="https://youtu.be/"
40 for i=1 to 11
50 rn=int(rnd(0)*62)+1
60 a$=a$+yt$(rn)
70 next
80 print:print cn;" : ";a$
85 cn=cn+1
90 goto 30
85 cn=cn+1
90 goto 30
100 rem populate array
110 dim yt$(62)
120 i=1
130 for j=65 to 90
140 yt$(i)=chr$(j)
150 i=i+1
160 next j
170 for j=193 to 218
180 yt$(i)=chr$(j)
190 i=i+1
200 next j
210 for j=48 to 57
220 yt$(i)=chr$(j)
230 i=i+1
240 next j
299 return
The first line switches to lower case letters (I forgot to show that in the video). Also available on GitHub: https://gist.github.com/versluis/5489dc6828cceb5f0eb49088228e518e
NOTE: In addition to the upper case and lower case alphabet, and the numbers 0-9, YouTube also use two special characters that I forgot to mention in the video. One is the standard minus sign (-), and the other one is the underscore (_). The Commodore machines cannot produce the latter. For simplicity's sake, I've left both of those out (just though I'd mention it here).
Inspired by Tom Scott's video "Will YouTube ever run out of Video IDs" - watch it here: https://www.youtube.com/watch?v=gocwRvLhDf8
SUPPORT MY PROJECTS
=====================
https://patreon.com/versluis
https://streamlabs.com/wpguru
LISTEN ON SPOTIFY
=================
3D Podcast
https://open.spotify.com/show/4IIh2WPBMRbjct6wdrGcTH?si=Tb7qVvEeQ2GxHpVjahGZNQ
Tech Podcast
https://open.spotify.com/show/3MSMNOruDorce08roxUy85?si=63KfmlDFTT-U1HzpNaa8pw