I know this is newbie, this code is a decrypted for messages u can write

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    REM Project: Dcryper1
REM Created: 23/11/2008 5:47:39 PM
REMREM ***** Main Source File *****
REM

Set display mode 1024,768,32
Set window on
Set window title "Decryptor"
maximize window
`if mousey() >= 30 then show mouse else
`hide mouse

x = 0
quest1 = 0
quest2$ = ""
Accross = 363
Dim Number1$(200)
Dim Number2$(200)
Dim Messages$(50)

Load image "Background.bmp",1,1
sprite 1,0,0,1
Color backdrop RGB(0,0,0)
SET SPRITE 1,1,1

Print

`If mousex() >= 3 and mousey() >= 753 and mousex() <= 159 and mousey() <= 766 and mouseclick() = 1
`gosub Red
`cls
`endif
`If mousex() >= 166 and mousey() >= 753 and mousex() <= 340 and mousey() <= 766 and mouseclick() = 1
`gosub Blue
`cls
`endif
`If mousex() >= 347 and mousey() >= 753 and mousex() <= 516 and mousey() <= 766 and mouseclick() = 1
`gosub Black
`cls
`endif

Input "Blue or Red or Black or Messages : ",BR$
If BR$ = "Blue" or BR$ = "blue" then quest1 = 1
If BR$ = "Red" or BR$ = "red" then quest1 = 2
If BR$ = "Black" or BR$ = "black" then quest1 = 3
If BR$ = "Messages" or BR$ = "message" then quest1 = 4

cls

print

do

`Text Accross,730,Numbers1$(x)
if scancode() = 28
sleep 800
cls
endif
print
Text 363,5,"Write Blue or Red or Black or encrypt to change code or"
Text 363,15,"Write ENCRYPT to encrypt a message,enter to enter code"
Text 363,25,"Write Messages to write strings that will be counted."
Text 363,715,quest2$


If quest1 = 1 then quest2$ = "Blue"
If quest1 = 2 then quest2$ = "Red"
If quest1 = 3 then quest2$ = "Black"
If quest1 = 4 then quest2$ = "Messages"
If quest1 = 1 then gosub Blue
If quest1 = 2 then gosub Red
If quest1 = 3 then gosub Black
If quest1 = 4 then gosub Messages

loop



Blue:
quest2$ = "Blue"
Input "",Inputs$
print "---"
If Inputs$ = "Red" or Inputs$ = "red" then Gosub Red
If Inputs$ = "Black" or Inputs$ = "black" then Gosub Black
If Inputs$ = "1" then print "1"
If Inputs$ = "2" then print "2"
If Inputs$ = "3" then print "3"
If Inputs$ = "4" then print "4"
If Inputs$ = "5" then print "5"
If Inputs$ = "6" then print "6"
If Inputs$ = "7" then print "7"
If Inputs$ = "8" then print "8"
If Inputs$ = "9" then print "9"
If Inputs$ = "10" then print "!"
If Inputs$ = "11" then print "@"
If Inputs$ = "12" then print "#"
If Inputs$ = "13" then print "$"
If Inputs$ = "14" then print "%"
If Inputs$ = "15" then print "^"
If Inputs$ = "16" then print "&"
If Inputs$ = "17" then print "*"
If Inputs$ = "18" then print "("
If Inputs$ = "19" then print ")"
If Inputs$ = "20" then print "-"
If Inputs$ = "21" then print "_"
If Inputs$ = "22" then print "+"
If Inputs$ = "23" then print "="
If Inputs$ = "24" then print "\"
If Inputs$ = "25" then print "|"
If Inputs$ = "26" then print "~"
If Inputs$ = "27" then print "`"
If Inputs$ = "28" then print "}"
If Inputs$ = "29" then print "]"
If Inputs$ = "30" then print "{"
If Inputs$ = "31" then print "["
If Inputs$ = "32" then print ";"
If Inputs$ = "33" then print ":"
If Inputs$ = "34" then print "?"
If Inputs$ = "35" then print "/"
If Inputs$ = "36" then print "."
If Inputs$ = "37" then print ">"
If Inputs$ = "38" then print "<"
If Inputs$ = "39" then print ","
If Inputs$ = "40" then print "q"
If Inputs$ = "41" then print "e"
If Inputs$ = "42" then print "w"
If Inputs$ = "43" then print "r"
If Inputs$ = "44" then print "t"
If Inputs$ = "45" then print "u"
If Inputs$ = "46" then print "y"
If Inputs$ = "47" then print "i"
If Inputs$ = "48" then print "o"
If Inputs$ = "49" then print "p"
If Inputs$ = "50" then print "a"
If Inputs$ = "5"  then print "g"
If Inputs$ = "52" then print "d"
If Inputs$ = "53" then print "f"
If Inputs$ = "54" then print "s"
If Inputs$ = "55" then print "h"
If Inputs$ = "56" then print "j"
If Inputs$ = "57" then print "l"
If Inputs$ = "58" then print "k"
If Inputs$ = "59" then print "z"
If Inputs$ = "60" then print "x"
If Inputs$ = "61" then print "c"
If Inputs$ = "62" then print "v"
If Inputs$ = "63" then print "n"
If Inputs$ = "64" then print "m"
If Inputs$ = "65" then print "b"
If Inputs$ = "66" then print "½"
If Inputs$ = "67" then print "°"
If Inputs$ = "68" then print "³"
If Inputs$ = "68" then print "²"
If Inputs$ = "69" then print "ø"
If Inputs$ = "70" then print "æ"
If Inputs$ = "71" then print "A"
If Inputs$ = "72" then print "B"
If Inputs$ = "73" then print "C"
If Inputs$ = "74" then print "D"
If Inputs$ = "75" then print "E"
If Inputs$ = "76" then print "F"
If Inputs$ = "77" then print "G"
If Inputs$ = "78" then print "H"
If Inputs$ = "79" then print "I"
If Inputs$ = "80" then print "J"
If Inputs$ = "81" then print "K"
If Inputs$ = "82" then print "L"
If Inputs$ = "83" then print "M"
If Inputs$ = "84" then print "N"
If Inputs$ = "85" then print "O"
If Inputs$ = "86" then print "P"
If Inputs$ = "87" then print "Q"
If Inputs$ = "88" then print "R"
If Inputs$ = "89" then print "S"
If Inputs$ = "90" then print "T"
If Inputs$ = "91" then print "U"
If Inputs$ = "92" then print "V"
If Inputs$ = "93" then print "W"
If Inputs$ = "94" then print "X"
If Inputs$ = "95" then print "Y"
If Inputs$ = "96" then print "Z"
If Inputs$ = "97" then print "À"
If Inputs$ = "98" then print "þ"
If Inputs$ = "99" then print "ÃŽ"
If Inputs$ = "100" then print "Ð"
Accross = Accross + 10
Inputs$ = Number1$(x)
x = x + 1
return

Red:
quest2$ = "Red"
Input "",Inputs2$
print "---"
If Inputs$ = "Blue" or Inputs$ = "blue" then Gosub Blue
If Inputs$ = "Black" or Inputs$ = "black" then Gosub Black
If Inputs2$ = "71" then print "1"
If Inputs2$ = "7662" then print "2"
If Inputs2$ = "33333" then print "3"
If Inputs2$ = "33334" then print "4"
If Inputs2$ = "745" then print "5"
If Inputs2$ = "336" then print "6"
If Inputs2$ = "337" then print "7"
If Inputs2$ = "84" then print "8"
If Inputs2$ = "39" then print "9"
If Inputs2$ = "130" then print "!"
If Inputs2$ = "171" then print "@"
If Inputs2$ = "17432" then print "#"
If Inputs2$ = "134633" then print "$"
If Inputs2$ = "15734" then print "%"
If Inputs2$ = "15" then print "^"
If Inputs2$ = "16756" then print "&"
If Inputs2$ = "17" then print "*"
If Inputs2$ = "17438" then print "("
If Inputs2$ = "19" then print ")"
If Inputs2$ = "20" then print "-"
If Inputs2$ = "2574" then print "_"
If Inputs2$ = "222" then print "+"
If Inputs2$ = "234" then print "="
If Inputs2$ = "243" then print "\"
If Inputs2$ = "29645" then print "|"
If Inputs2$ = "29976" then print "~"
If Inputs2$ = "271" then print "`"
If Inputs2$ = "28878" then print "}"
If Inputs2$ = "292" then print "]"
If Inputs2$ = "3570" then print "{"
If Inputs2$ = "312" then print "["
If Inputs2$ = "323" then print ";"
If Inputs2$ = "3243" then print ":"
If Inputs2$ = "3244" then print "?"
If Inputs2$ = "3245" then print "/"
If Inputs2$ = "3246" then print "."
If Inputs2$ = "3471" then print ">"
If Inputs2$ = "33558" then print "<"
If Inputs2$ = "35239" then print ","
If Inputs2$ = "42250" then print "q"
If Inputs2$ = "4251" then print "e"
If Inputs2$ = "42352" then print "w"
If Inputs2$ = "433" then print "r"
If Inputs2$ = "4454" then print "t"
If Inputs2$ = "4531" then print "u"
If Inputs2$ = "462" then print "y"
If Inputs2$ = "45435457" then print "i"
If Inputs2$ = "4832" then print "o"
If Inputs2$ = "4923" then print "p"
If Inputs2$ = "5440" then print "a"
If Inputs2$ = "511" then print "g"
If Inputs2$ = "56562" then print "d"
If Inputs2$ = "565563" then print "f"
If Inputs2$ = "5664" then print "s"
If Inputs2$ = "579475" then print "h"
If Inputs2$ = "5986" then print "j"
If Inputs2$ = "597" then print "l"
If Inputs2$ = "5578508" then print "k"
If Inputs2$ = "590079" then print "z"
If Inputs2$ = "602" then print "x"
If Inputs2$ = "6981" then print "c"
If Inputs2$ = "621" then print "v"
If Inputs2$ = "6733" then print "n"
If Inputs2$ = "6754" then print "m"
If Inputs2$ = "65755" then print "b"
If Inputs2$ = "67576" then print "½"
If Inputs2$ = "6757" then print "°"
If Inputs2$ = "65758" then print "³"
If Inputs2$ = "67578" then print "²"
If Inputs2$ = "65759" then print "ø"
If Inputs2$ = "703" then print "æ"
If Inputs2$ = "712" then print "A"
If Inputs2$ = "75572" then print "B"
If Inputs2$ = "7683" then print "C"
If Inputs2$ = "744" then print "D"
If Inputs2$ = "75465" then print "E"
If Inputs2$ = "7876" then print "F"
If Inputs2$ = "7537" then print "G"
If Inputs2$ = "75438" then print "H"
If Inputs2$ = "794" then print "I"
If Inputs2$ = "870" then print "J"
If Inputs2$ = "8751" then print "K"
If Inputs2$ = "857752" then print "L"
If Inputs2$ = "8753" then print "M"
If Inputs2$ = "8774" then print "N"
If Inputs2$ = "8765" then print "O"
If Inputs2$ = "83466" then print "P"
If Inputs2$ = "87" then print "Q"
If Inputs2$ = "8858" then print "R"
If Inputs2$ = "895" then print "S"
If Inputs2$ = "9540 "then print "T"
If Inputs2$ = "9616" then print "U"
If Inputs2$ = "95652" then print "V"
If Inputs2$ = "96563" then print "W"
If Inputs2$ = "956454" then print "X"
If Inputs2$ = "9546545" then print "Y"
If Inputs2$ = "4566" then print "Z"
If Inputs2$ = "5465" then print "À"
If Inputs2$ = "9456" then print "þ"
If Inputs2$ = "952" then print "ÃŽ"
If Inputs2$ = "1074740" then print "Ð"
return


Black:
quest2$ = "Black"

Input "",Inputs3$
print "---"
If Inputs3$ = "Blue" or Inputs$ = "blue" then Gosub Blue
If Inputs3$ = "Red" or Inputs$ = "red" then Gosub Red
If Inputs3$ = "1" then print "1"
If Inputs3$ = "2" then print "2"
If Inputs3$ = "3" then print "3"
If Inputs3$ = "4" then print "4"
If Inputs3$ = "5" then print "5"
If Inputs3$ = "6" then print "6"
If Inputs3$ = "7" then print "7"
If Inputs3$ = "8" then print "8"
If Inputs3$ = "9" then print "9"
If Inputs3$ = "!" then print "10"
If Inputs3$ = "@" then print "11"
If Inputs3$ = "#" then print "12"
If Inputs3$ = "$" then print "13"
If Inputs3$ = "%" then print "14"
If Inputs3$ = "^" then print "15"
If Inputs3$ = "&" then print "16"
If Inputs3$ = "*" then print "17"
If Inputs3$ = "(" then print "18"
If Inputs3$ = ")" then print "19"
If Inputs3$ = "-" then print "20"
If Inputs3$ = "_" then print "21"
If Inputs3$ = "+" then print "22"
If Inputs3$ = "=" then print "23"
If Inputs3$ = "\" then print "24"
If Inputs3$ = "|" then print "25"
If Inputs3$ = "~" then print "26"
If Inputs3$ = "`" then print "27"
If Inputs3$ = "}" then print "28"
If Inputs3$ = "]" then print "29"
If Inputs3$ = "{" then print "30"
If Inputs3$ = "[" then print "31"
If Inputs3$ = ";" then print "32"
If Inputs3$ = ":" then print "33"
If Inputs3$ = "?" then print "34"
If Inputs3$ = "/" then print "35"
If Inputs3$ = "." then print "36"
If Inputs3$ = ">" then print "37"
If Inputs3$ = "<" then print "38"
If Inputs3$ = "," then print "39"
If Inputs3$ = "q" then print "40"
If Inputs3$ = "e" then print "41"
If Inputs3$ = "w" then print "42"
If Inputs3$ = "r" then print "43"
If Inputs3$ = "t" then print "44"
If Inputs3$ = "u" then print "45"
If Inputs3$ = "y" then print "46"
If Inputs3$ = "i" then print "47"
If Inputs3$ = "o" then print "48"
If Inputs3$ = "p" then print "49"
If Inputs3$ = "a" then print "50"
If Inputs3$ = "g" then print "51"
If Inputs3$ = "d" then print "52"
If Inputs3$ = "f" then print "53"
If Inputs3$ = "s" then print "54"
If Inputs3$ = "h" then print "55"
If Inputs3$ = "j" then print "56"
If Inputs3$ = "l" then print "57"
If Inputs3$ = "k" then print "58"
If Inputs3$ = "z" then print "59"
If Inputs3$ = "x" then print "60"
If Inputs3$ = "c" then print "61"
If Inputs3$ = "v" then print "62"
If Inputs3$ = "n" then print "63"
If Inputs3$ = "m" then print "64"
If Inputs3$ = "b" then print "65"
If Inputs3$ = "½" then print "66"
If Inputs3$ = "°" then print "67"
If Inputs3$ = "³" then print "68"
If Inputs3$ = "²" then print "69"
If Inputs3$ = "ø" then print "70"
If Inputs3$ = "æ" then print "71"
If Inputs3$ = "A" then print "72"
If Inputs3$ = "B" then print "73"
If Inputs3$ = "C" then print "74"
If Inputs3$ = "D" then print "75"
If Inputs3$ = "E" then print "76"
If Inputs3$ = "F" then print "77"
If Inputs3$ = "H" then print "78"
If Inputs3$ = "I" then print "79"
If Inputs3$ = "J" then print "80"
If Inputs3$ = "K" then print "81"
If Inputs3$ = "L" then print "82"
If Inputs3$ = "M" then print "83"
If Inputs3$ = "N" then print "84"
If Inputs3$ = "O" then print "85"
If Inputs3$ = "P" then print "86"
If Inputs3$ = "Q" then print "87"
If Inputs3$ = "R" then print "88"
If Inputs3$ = "S" then print "89"
If Inputs3$ = "T" then print "90"
If Inputs3$ = "U" then print "91"
If Inputs3$ = "V" then print "92"
If Inputs3$ = "W" then print "93"
If Inputs3$ = "X" then print "94"
If Inputs3$ = "Y" then print "95"
If Inputs3$ = "Z" then print "96"
If Inputs3$ = "À" then print "97"
If Inputs3$ = "þ" then print "98"
If Inputs3$ = "ÃŽ" then print "99"
If Inputs3$ = "Ð" then print "100"
return

Messages:
quest2$ = "Messages"
Input "",Inputs5$
Inputs4 = len(Inputs5$)
print "---"
If Inputs4$ = "Red" or Inputs$ = "red" then Gosub Red
If Inputs4$ = "Blue" or Inputs$ = "blue" then Gosub Blue
If Inputs4$ = "Black" or Inputs$ = "black" then Gosub Black
If Inputs4 = 1 then print "1"
If Inputs4 = 2 then print "2"
If Inputs4 = 3 then print "3"
If Inputs4 = 4 then print "4"
If Inputs4 = 5 then print "5"
If Inputs4 = 6 then print "6"
If Inputs4 = 7 then print "7"
If Inputs4 = 8 then print "8"
If Inputs4 = 9 then print "9"
If Inputs4 = 10 then print "10"
If Inputs4 = 11 then print "11"
If Inputs4 = 12 then print "12"
If Inputs4 = 13 then print "13"
If Inputs4 = 14 then print "14"
If Inputs4 = 15 then print "15"
If Inputs4 = 16 then print "16"
If Inputs4 = 17 then print "17"
If Inputs4 = 18 then print "18"
If Inputs4 = 19 then print "19"
If Inputs4 = 20 then print "20"
If Inputs4 = 21 then print "21"
If Inputs4 = 22 then print "22"
If Inputs4 = 23 then print "23"
If Inputs4 = 24 then print "24"
If Inputs4 = 25 then print "25"
If Inputs4 = 26 then print "26"
If Inputs4 = 27 then print "27"
If Inputs4 = 28 then print "28"
If Inputs4 = 29 then print "29"
If Inputs4 = 30 then print "30"
If Inputs4 = 31 then print "31"
If Inputs4 = 32 then print "32"
If Inputs4 = 33 then print "33"
If Inputs4 = 34 then print "34"
If Inputs4 = 35 then print "35"
If Inputs4 = 36 then print "36"
If Inputs4 = 37 then print "37"
If Inputs4 = 38 then print "38"
If Inputs4 = 39 then print "39"
If Inputs4 = 40 then print "40"
If Inputs4 = 41 then print "41"
If Inputs4 = 42 then print "42"
If Inputs4 = 43 then print "43"
If Inputs4 = 44 then print "44"
If Inputs4 = 45 then print "45"
If Inputs4 = 46 then print "46"
If Inputs4 = 47 then print "47"
If Inputs4 = 48 then print "48"
If Inputs4 = 49 then print "49"
If Inputs4 = 50 then print "50"
If Inputs4 = 51 then print "51"
If Inputs4 = 52 then print "52"
If Inputs4 = 53 then print "53"
If Inputs4 = 54 then print "54"
If Inputs4 = 55 then print "55"
If Inputs4 = 56 then print "56"
If Inputs4 = 57 then print "57"
If Inputs4 = 58 then print "58"
If Inputs4 = 59 then print "59"
If Inputs4 = 60 then print "60"
If Inputs4 = 61 then print "61"
If Inputs4 = 62 then print "62"
If Inputs4 = 63 then print "63"
If Inputs4 = 64 then print "64"
If Inputs4 = 65 then print "65"
If Inputs4 = 66 then print "66"
If Inputs4 = 67 then print "67"
If Inputs4 = 68 then print "68"
If Inputs4 = 69 then print "69"
If Inputs4 = 70 then print "70"
If Inputs4 = 71 then print "71"
If Inputs4 = 72 then print "72"
If Inputs4 = 73 then print "73"
If Inputs4 = 74 then print "74"
If Inputs4 = 75 then print "75"
If Inputs4 = 76 then print "76"
If Inputs4 = 77 then print "77"
If Inputs4 = 78 then print "78"
If Inputs4 = 79 then print "79"
If Inputs4 = 80 then print "80"
If Inputs4 = 81 then print "81"
If Inputs4 = 82 then print "82"
If Inputs4 = 83 then print "83"
If Inputs4 = 84 then print "84"
If Inputs4 = 85 then print "85"
If Inputs4 = 86 then print "86"
If Inputs4 = 87 then print "87"
If Inputs4 = 88 then print "88"
If Inputs4 = 89 then print "89"
If Inputs4 = 90 then print "90"
If Inputs4 = 91 then print "91"
If Inputs4 = 92 then print "92"
If Inputs4 = 93 then print "93"
If Inputs4 = 94 then print "94"
If Inputs4 = 95 then print "95"
If Inputs4 = 96 then print "96"
If Inputs4 = 97 then print "97"
If Inputs4 = 98 then print "98"
If Inputs4 = 99 then print "99"
If Inputs4 = 100 then print "100"
`Accross4 = Accross4 + 10
`Inputs4$ = Number2$(x)
`x = x + 1
return