Morse code

Hey all

I've been playing with QBasic and morse code latly.
So I made a crappy program to help me learn morse code(dos).
All you do is double click it and it will ask you how many times you want to repeat each character (eg.5), next it will ask you how long of a delay you want in between them so if you had a sounder you could repeat what you hear (eg.3).
To stop it just press any key and it with ask you if you want to quit or not.
I haven't tryed it with XP but it should work.
You can download here.

ps. don't blame me if something goes wrong Wink

If you want to compile it your self here it is:

DECLARE SUB six (rt, td)
DECLARE SUB seven (rt, td)
DECLARE SUB eight (rt, td)
DECLARE SUB nine (rt, td)
DECLARE SUB two (rt, td)
DECLARE SUB three (rt, td)
DECLARE SUB four (rt, td)
DECLARE SUB five (rt, td)
DECLARE SUB one (rt, td)
DECLARE SUB vv (rt, td)
DECLARE SUB ww (rt, td)
DECLARE SUB xx (rt, td)
DECLARE SUB yy (rt, td)
DECLARE SUB zz (rt, td)
DECLARE SUB zero (rt, td)
DECLARE SUB ii (rt, td)
DECLARE SUB jj (rt, td)
DECLARE SUB kk (rt, td)
DECLARE SUB ll (rt, td)
DECLARE SUB mm (rt, td)
DECLARE SUB nn (rt, td)
DECLARE SUB oo (rt, td)
DECLARE SUB pp (rt, td)
DECLARE SUB qq (rt, td)
DECLARE SUB rr (rt, td)
DECLARE SUB ss (rt, td)
DECLARE SUB tt (rt, td)
DECLARE SUB uu (rt, td)
DECLARE SUB ee (rt, td)
DECLARE SUB dd (rt, td)
DECLARE SUB ff (rt, td)
DECLARE SUB gg (rt, td)
DECLARE SUB hh (rt, td)
DECLARE SUB aa (rt, td)
DECLARE SUB bb (rt, td)
DECLARE SUB cc (rt, td)
DECLARE SUB dash ()
DECLARE SUB dot ()
CLS

COLOR 10, 0

STRT:

CLS
INPUT " HOW MANY TIMES DO YOU WANT IT TO REPEAT? ", rt
CLS
INPUT " HOW LONG OF A DELAY IN SECONDS DO YOU WANT? ", td

aa rt, td
bb rt, td
cc rt, td
dd rt, td
ee rt, td
ff rt, td
gg rt, td
hh rt, td
ii rt, td
jj rt, td
kk rt, td
ll rt, td
mm rt, td
nn rt, td
oo rt, td
pp rt, td
qq rt, td
rr rt, td
ss rt, td
tt rt, td
uu rt, td
vv rt, td
ww rt, td
xx rt, td
yy rt, td
zz rt, td
zero rt, td
one rt, td
two rt, td
three rt, td
four rt, td
five rt, td
six rt, td
seven rt, td
eight rt, td
nine rt, td
CLS
INPUT " DO YOU WANT TO GO AGAIN? Y/N ", ga$
IF ga$ = "Y" THEN GOTO STRT
IF ga$ = "y" THEN GOTO STRT
END

SUB aa (rt, td)
CLS
FOR x = 1 TO 23
PRINT "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"
NEXT x
FOR x = 1 TO rt
dot
dash
SLEEP td
NEXT x
END SUB

SUB bb (rt, td)
CLS
FOR x = 1 TO 23
PRINT "BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB"
NEXT x
FOR x = 1 TO rt
dash
dot
dot
dot
SLEEP td
NEXT x
END SUB

SUB cc (rt, td)
CLS
FOR x = 1 TO 23
PRINT "CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC"
NEXT x
FOR x = 1 TO rt
dash
dot
dash
dot
SLEEP td
NEXT x
END SUB

SUB dash

OUT &H61, 255

FOR a = 1 TO 3
starttime = TIMER
DO
currenttime = TIMER
LOOP UNTIL currenttime - starttime > .1
NEXT a

OUT &H61, 0

starttime = TIMER
DO
currenttime = TIMER
LOOP UNTIL currenttime - starttime > .1

IF INKEY$ <> "" THEN CLS : INPUT " DO YOU WANT TO QUIT? Y/N ", anser$
IF anser$ = "Y" THEN END
IF anser$ = "y" THEN END
END SUB

SUB dd (rt, td)
CLS
FOR x = 1 TO 23
PRINT "DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD"
NEXT x
FOR x = 1 TO rt
dash
dot
dot
SLEEP td
NEXT x
END SUB

SUB dot

OUT &H61, 255

starttime = TIMER

DO
currenttime = TIMER
LOOP UNTIL currenttime - starttime > .1

OUT &H61, 0

starttime = TIMER
DO
currenttime = TIMER
LOOP UNTIL currenttime - starttime > .1

IF INKEY$ <> "" THEN CLS : INPUT " DO YOU WANT TO QUIT? Y/N ", anser$
IF anser$ = "Y" THEN END
IF anser$ = "y" THEN END

END SUB

SUB ee (rt, td)
CLS
FOR x = 1 TO 23
PRINT "EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE"
NEXT x
FOR x = 1 TO rt
dot
SLEEP td
NEXT x
END SUB

SUB eight (rt, td)
CLS
FOR x = 1 TO 23
PRINT "8888888888888888888888888888888888888888888888888888888888888888"
NEXT x
FOR x = 1 TO rt
dash
dash
dash
dot
dot
SLEEP td
NEXT x
END SUB

SUB ff (rt, td)
CLS
FOR x = 1 TO 23
PRINT "FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF"
NEXT x
FOR x = 1 TO rt
dot
dot
dash
dot
SLEEP td
NEXT x
END SUB

SUB five (rt, td)
CLS
FOR x = 1 TO 23
PRINT "5555555555555555555555555555555555555555555555555555555555555555"
NEXT x
FOR x = 1 TO rt
dot
dot
dot
dot
dot
SLEEP td
NEXT x
END SUB

SUB four (rt, td)
CLS
FOR x = 1 TO 23
PRINT "44444444444444444444444444444444444444444444444444444444444444444"
NEXT x
FOR x = 1 TO rt
dot
dot
dot
dot
dash
SLEEP td
NEXT x
END SUB

SUB gg (rt, td)
CLS
FOR x = 1 TO 23
PRINT "GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG"
NEXT x
FOR x = 1 TO rt
dash
dash
dot
SLEEP td
NEXT x
END SUB

SUB hh (rt, td)
CLS
FOR x = 1 TO 23
PRINT "HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH"
NEXT x
FOR x = 1 TO rt
dot
dot
dot
dot
SLEEP td
NEXT x
END SUB

SUB ii (rt, td)
CLS
FOR x = 1 TO 23
PRINT "IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII"
NEXT x
FOR x = 1 TO rt
dot
dot
SLEEP td
NEXT x
END SUB

SUB jj (rt, td)
CLS
FOR x = 1 TO 23
PRINT "JJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJ"
NEXT x
FOR x = 1 TO rt
dot
dash
dash
dash
SLEEP td
NEXT x
END SUB

SUB kk (rt, td)
CLS
FOR x = 1 TO 23
PRINT "KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK"
NEXT x
FOR x = 1 TO rt
dash
dot
dash
SLEEP td
NEXT x
END SUB

SUB ll (rt, td)
CLS
FOR x = 1 TO 23
PRINT "LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
NEXT x
FOR x = 1 TO rt
dot
dash
dot
dot
SLEEP td
NEXT x
END SUB

SUB mm (rt, td)
CLS
FOR x = 1 TO 23
PRINT "MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM"
NEXT x
FOR x = 1 TO rt
dash
dash
SLEEP td
NEXT x
END SUB

SUB nine (rt, td)
CLS
FOR x = 1 TO 23
PRINT "99999999999999999999999999999999999999999999999999999999999999999"
NEXT x
FOR x = 1 TO rt
dash
dash
dash
dash
dot
SLEEP td
NEXT x
END SUB

SUB nn (rt, td)
CLS
FOR x = 1 TO 23
PRINT "NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN"
NEXT x
FOR x = 1 TO rt
dash
dot
SLEEP td
NEXT x
END SUB

SUB one (rt, td)
CLS
FOR x = 1 TO 23
PRINT "111111111111111111111111111111111111111111111111111111111111111111"
NEXT x
FOR x = 1 TO rt
dot
dash
dash
dash
dash
SLEEP td
NEXT x
END SUB

SUB oo (rt, td)
CLS
FOR x = 1 TO 23
PRINT "OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO"
NEXT x
FOR x = 1 TO rt
dash
dash
dash
SLEEP td
NEXT x
END SUB

SUB pp (rt, td)
CLS
FOR x = 1 TO 23
PRINT "PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP"
NEXT x
FOR x = 1 TO rt
dot
dash
dash
dot
SLEEP td
NEXT x
END SUB

SUB qq (rt, td)
CLS
FOR x = 1 TO 23
PRINT "QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ"
NEXT x
FOR x = 1 TO rt
dash
dash
dot
dash
SLEEP td
NEXT x
END SUB

SUB rr (rt, td)
CLS
FOR x = 1 TO 23
PRINT "RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR"
NEXT x
FOR x = 1 TO rt
dot
dash
dot
SLEEP td
NEXT x
END SUB

SUB seven (rt, td)
CLS
FOR x = 1 TO 23
PRINT "77777777777777777777777777777777777777777777777777777777777777777"
NEXT x
FOR x = 1 TO rt
dash
dash
dot
dot
dot
SLEEP td
NEXT x
END SUB

SUB six (rt, td)
CLS
FOR x = 1 TO 23
PRINT "66666666666666666666666666666666666666666666666666666666666666666"
NEXT x
FOR x = 1 TO rt
dash
dot
dot
dot
dot
SLEEP td
NEXT x
END SUB

SUB ss (rt, td)
CLS
FOR x = 1 TO 23
PRINT "SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS"
NEXT x
FOR x = 1 TO rt
dot
dot
dot
SLEEP td
NEXT x
END SUB

SUB three (rt, td)
CLS
FOR x = 1 TO 23
PRINT "3333333333333333333333333333333333333333333333333333333333333333"
NEXT x
FOR x = 1 TO rt
dot
dot
dot
dash
dash
SLEEP td
NEXT x
END SUB

SUB tt (rt, td)
CLS
FOR x = 1 TO 23
PRINT "TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT"
NEXT x
FOR x = 1 TO rt
dash
SLEEP td
NEXT x
END SUB

SUB two (rt, td)
CLS
FOR x = 1 TO 23
PRINT "22222222222222222222222222222222222222222222222222222222222222222"
NEXT x
FOR x = 1 TO rt
dot
dot
dash
dash
dash
SLEEP td
NEXT x
END SUB

SUB uu (rt, td)
CLS
FOR x = 1 TO 23
PRINT "UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU"
NEXT x
FOR x = 1 TO rt
dot
dot
dash
SLEEP td
NEXT x
END SUB

SUB vv (rt, td)
CLS
FOR x = 1 TO 23
PRINT "VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV"
NEXT x
FOR x = 1 TO rt
dot
dot
dot
dash
SLEEP td
NEXT x
END SUB

SUB ww (rt, td)
CLS
FOR x = 1 TO 23
PRINT "WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW"
NEXT x
FOR x = 1 TO rt
dot
dash
dash
SLEEP td
NEXT x
END SUB

SUB xx (rt, td)
CLS
FOR x = 1 TO 23
PRINT "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
NEXT x
FOR x = 1 TO rt
dash
dot
dot
dash
SLEEP td
NEXT x
END SUB

SUB yy (rt, td)
CLS
FOR x = 1 TO 23
PRINT "YYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYY"
NEXT x
FOR x = 1 TO rt
dash
dot
dash
dash
SLEEP td
NEXT x
END SUB

SUB zero (rt, td)
CLS
FOR x = 1 TO 23
PRINT "000000000000000000000000000000000000000000000000000000000000000000"
NEXT x
FOR x = 1 TO rt
dash
dash
dash
dash
dash
SLEEP td
NEXT x
END SUB

SUB zz (rt, td)
CLS
FOR x = 1 TO 23
PRINT "ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ"
NEXT x
FOR x = 1 TO rt
dash
dash
dot
dot
SLEEP td
NEXT x
END SUB

eric

And if you wanted to blink an LED that you've attached to the parrallel instead of using the computer's buzzer, you would replace all of the " OUT &H61, 0 " with " OUT &H378, 255 " Very Happy

Here are some link about this stuff:
http://www.aaroncake.net/electronics/qblpt.htm
http://www.doc.ic.ac.uk/~ih/doc/par/
http://www.grenvillecc.ca/faculty/jchilds/LEDBar.htm

eric