TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Text

Version: 1.0

Information

Uploaded: 16th Jun 2006 21:37

Modified: 1st Jan 1970 01:00

Author: Anonymous Coder

Summary

Short program that converts text to Morse code

Full Description

....

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

HIDE MOUSE

Print "Press Downkey to begin"

IF DOWNKEY()=1 THEN GOTO 2

LOOP

function code

cls

input "print>",a$

d=LEN(a$)

FOR i= 1 TO d

b$=LEFT$(a$, i)

c$=RIGHT$(b$, 1)

IF c$="a" THEN PRINT "char";i;" = .- "

IF c$="b" THEN PRINT "char";i;" = -... "

IF c$="c" THEN PRINT "char";i;" = -.-. "

IF c$="d" THEN PRINT "char";i;" = -.. "

IF c$="e" THEN PRINT "char";i;" = . "

IF c$="f" THEN PRINT "char";i;" = ..-. "

IF c$="g" THEN PRINT "char";i;" = --. "

IF c$="h" THEN PRINT "char";i;" = .... "

IF c$="i" THEN PRINT "char";i;" = .. "

IF c$="j" THEN PRINT "char";i;" = .--- "

IF c$="k" THEN PRINT "char";i;" = -.- "

IF c$="l" THEN PRINT "char";i;" = .-.. "

IF c$="m" THEN PRINT "char";i;" = -- "

IF c$="n" THEN PRINT "char";i;" = -. "

IF c$="o" THEN PRINT "char";i;" = --- "

IF c$="p" THEN PRINT "char";i;" = .--. "

IF c$="q" THEN PRINT "char";i;" = --.- "

IF c$="r" THEN PRINT "char";i;" = .-. "

IF c$="s" THEN PRINT "char";i;" = ... "

IF c$="t" THEN PRINT "char";i;" = - "

IF c$="u" THEN PRINT "char";i;" = ..- "

IF c$="v" THEN PRINT "char";i;" = ...- "

IF c$="w" THEN PRINT "char";i;" = .-- "

IF c$="x" THEN PRINT "char";i;" = -..- "

IF c$="y" THEN PRINT "char";i;" = -.-- "

IF c$="z" THEN PRINT "char";i;" = --.. "

IF c$="1" THEN PRINT "char";i;" = .---- "

IF c$="2" THEN PRINT "char";i;" = ..--- "

IF c$="3" THEN PRINT "char";i;" = ...-- "

IF c$="4" THEN PRINT "char";i;" = ....- "

IF c$="5" THEN PRINT "char";i;" = ..... "

IF c$="6" THEN PRINT "char";i;" = -.... "

IF c$="7" THEN PRINT "char";i;" = --... "

IF c$="8" THEN PRINT "char";i;" = ---.. "

IF c$="9" THEN PRINT "char";i;" = ----. "

IF c$="0" THEN PRINT "char";i;" = ----- "

NEXT i

IF DOWNKEY()=1 THEN

print "end program"

SET TEXT TO BOLD

loop

endfunction code

Download

Please login to download

Comments

No comments yet.

CodeBase - Morse Code