Last active
December 18, 2015 21:29
-
-
Save Earlz/5848045 to your computer and use it in GitHub Desktop.
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.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
I remember a time when I had just started programming, and goto was my favorite command!
You laugh but this is actually what the Windows Media Player internals look like.
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
Wow ... I remember DarkBasic ... I had totally forgotten about it too...