Create a gist now

Instantly share code, notes, and snippets.

@Earlz /gist:5848045
Last active Dec 18, 2015

Embed
What would you like to do?
This is the oldest program I can find that once worked which I wrote. This was probably written in either 2003 or 2004 in DarkBasic Professional. I would have been 13 at the time.
rem this is a generic media player
rem this prog was made by jordan earls
starty:
print "type 1 to choose where media is"
print "type 2 to pause music"
print "type 3 to resume music"
print "type 4 to reload music"
print "type 5 to change volume"
print "type 6 to change speed"
start:
input st
if st=1 then goto w
if st=2 then goto p
if st=3 then goto r
if st=4 then goto a
if st=5 then goto c
if st=6 then goto f
goto start
a:
delete music 1
w:
if music exist(1) then goto d
s:
print "this only plays mp3 and midi files"
print "make sure to include file endings (C:\file.mp3)"
print "you can also use a website address (ftp://dom/music.mp3)and (http://domain.com/music.mp3)"
print "type the path of the music here"
input path$
goto starty
l:
load music path$,1
play music 1
loop music 1
goto starty
d:
print "please select 4 to reload music instead"
goto starty
p:
if music paused(1) then goto n
pause music (1)
goto starty
n:
print "music is already paused"
goto starty
r:
if music playing (1) then goto e
resume music (1)
goto starty
e:
print "music is already playing"
goto starty
c:
if music exist (1) then goto cf
print "play some music first"
goto starty
cf:
print "type 1-200 for volume"
input vol
set music volume 1,vol
goto starty
f:
if music exist (1) then goto fr
print "play some music first"
goto starty
fr:
print "set the speed 1-200"
input speed
set music speed 1,speed
goto starty
@wtpayne

This comment has been minimized.

Show comment
Hide comment
@wtpayne

wtpayne Jun 24, 2013

Wow ... I remember DarkBasic ... I had totally forgotten about it too...

wtpayne commented Jun 24, 2013

Wow ... I remember DarkBasic ... I had totally forgotten about it too...

@nighthawk24

This comment has been minimized.

Show comment
Hide comment
@nighthawk24

nighthawk24 Jun 24, 2013

I remember a time when I had just started programming, and goto was my favorite command!

I remember a time when I had just started programming, and goto was my favorite command!

@philjackson

This comment has been minimized.

Show comment
Hide comment
@philjackson

philjackson Jun 24, 2013

You laugh but this is actually what the Windows Media Player internals look like.

You laugh but this is actually what the Windows Media Player internals look like.

@caarlos0

This comment has been minimized.

Show comment
Hide comment
@caarlos0

caarlos0 Jun 24, 2013

I'm fear to see my first C codes when I was 15...

I'm fear to see my first C codes when I was 15...

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment