fb:porticula NoPaste
verschlüssler
Uploader: | apollo26 |
Datum/Zeit: | 23.05.2008 20:46:04 |
COLOR 11, 2
CLS
DO
COLOR 15, 0
LOCATE 2, 30
PRINT "leertaste ist #"
COLOR 1, 14
LOCATE 4, 1
PRINT "Wrter zusammen eingebar du , er , sie , es , ihr , wir , ist , der , die , das "
COLOR 12, 1
LOCATE 12, 30
PRINT "verschlssler 1.4"
SLEEP
COLOR 0, 11
LOCATE 6, 30
INPUT wetter$
IF wetter$ = "du" THEN texa$ = texa$ + "548 "
IF wetter$ = "er" THEN texa$ = texa$ + "421 "
IF wetter$ = "sie" THEN texa$ = texa$ + "167 "
IF wetter$ = "es" THEN texa$ = texa$ + "125 "
IF wetter$ = "ihr" THEN texa$ = texa$ + "578 "
IF wetter$ = "wir" THEN texa$ = texa$ + "135 "
IF wetter$ = "ist" THEN texa$ = texa$ + "397 "
IF wetter$ = "die" THEN texa$ = texa$ + "426 "
IF wetter$ = "der" THEN texa$ = texa$ + "489 "
IF wetter$ = "das" THEN texa$ = texa$ + "972 "
IF wetter$ = "du" THEN text$ = text$ + "du"
IF wetter$ = "er" THEN text$ = text$ + "er"
IF wetter$ = "sie" THEN text$ = text$ + "sie"
IF wetter$ = "es" THEN text$ = text$ + "es"
IF wetter$ = "ihr" THEN text$ = text$ + "ihr"
IF wetter$ = "wir" THEN text$ = text$ + "wir"
IF wetter$ = "ist" THEN text$ = text$ + "ist"
IF wetter$ = "die" THEN text$ = text$ + "die"
IF wetter$ = "der" THEN text$ = text$ + "der"
IF wetter$ = "das" THEN text$ = text$ + "das"
IF wetter$ = "548" THEN text$ = text$ + "du"
IF wetter$ = "421" THEN text$ = text$ + "er"
IF wetter$ = "167" THEN text$ = text$ + "sie"
IF wetter$ = "125" THEN text$ = text$ + "es"
IF wetter$ = "578" THEN text$ = text$ + "ihr"
IF wetter$ = "135" THEN text$ = text$ + "wir"
IF wetter$ = "379" THEN text$ = text$ + "sie"
IF wetter$ = "426" THEN text$ = text$ + "die"
IF wetter$ = "489" THEN text$ = text$ + "der"
IF wetter$ = "972" THEN text$ = text$ + "das"
IF wetter$ = "548" THEN texa$ = texa$ + "548 "
IF wetter$ = "421" THEN texa$ = texa$ + "421 "
IF wetter$ = "167" THEN texa$ = texa$ + "167 "
IF wetter$ = "125" THEN texa$ = texa$ + "125 "
IF wetter$ = "578" THEN texa$ = texa$ + "578 "
IF wetter$ = "135" THEN texa$ = texa$ + "135 "
IF wetter$ = "379" THEN texa$ = texa$ + "379 "
IF wetter$ = "426" THEN texa$ = texa$ + "426 "
IF wetter$ = "489" THEN texa$ = texa$ + "489 "
IF wetter$ = "972" THEN texa$ = texa$ + "972 "
IF wetter$ = "a" THEN texa$ = texa$ + "17 "
IF wetter$ = "b" THEN texa$ = texa$ + "74 "
IF wetter$ = "c" THEN texa$ = texa$ + "26 "
IF wetter$ = "d" THEN texa$ = texa$ + "19 "
IF wetter$ = "e" THEN texa$ = texa$ + "57 "
IF wetter$ = "f" THEN texa$ = texa$ + "28 "
IF wetter$ = "g" THEN texa$ = texa$ + "58 "
IF wetter$ = "h" THEN texa$ = texa$ + "50 "
IF wetter$ = "i" THEN texa$ = texa$ + "52 "
IF wetter$ = "j" THEN texa$ = texa$ + "71 "
IF wetter$ = "k" THEN texa$ = texa$ + "64 "
IF wetter$ = "l" THEN texa$ = texa$ + "13 "
IF wetter$ = "m" THEN texa$ = texa$ + "23 "
IF wetter$ = "n" THEN texa$ = texa$ + "88 "
IF wetter$ = "o" THEN texa$ = texa$ + "54 "
IF wetter$ = "p" THEN texa$ = texa$ + "83 "
IF wetter$ = "q" THEN texa$ = texa$ + "61 "
IF wetter$ = "r" THEN texa$ = texa$ + "47 "
IF wetter$ = "s" THEN texa$ = texa$ + "41 "
IF wetter$ = "t" THEN texa$ = texa$ + "33 "
IF wetter$ = "u" THEN texa$ = texa$ + "59 "
IF wetter$ = "v" THEN texa$ = texa$ + "22 "
IF wetter$ = "w" THEN texa$ = texa$ + "66 "
IF wetter$ = "x" THEN texa$ = texa$ + "73 "
IF wetter$ = "y" THEN texa$ = texa$ + "44 "
IF wetter$ = "z" THEN texa$ = texa$ + "94 "
IF wetter$ = "a" THEN text$ = text$ + "a"
IF wetter$ = "b" THEN text$ = text$ + "b"
IF wetter$ = "c" THEN text$ = text$ + "c"
IF wetter$ = "d" THEN text$ = text$ + "d"
IF wetter$ = "e" THEN text$ = text$ + "e"
IF wetter$ = "f" THEN text$ = text$ + "f"
IF wetter$ = "g" THEN text$ = text$ + "g"
IF wetter$ = "h" THEN text$ = text$ + "h"
IF wetter$ = "i" THEN text$ = text$ + "i"
IF wetter$ = "j" THEN text$ = text$ + "j"
IF wetter$ = "k" THEN text$ = text$ + "k"
IF wetter$ = "l" THEN text$ = text$ + "l"
IF wetter$ = "m" THEN text$ = text$ + "m"
IF wetter$ = "n" THEN text$ = text$ + "n"
IF wetter$ = "o" THEN text$ = text$ + "o"
IF wetter$ = "p" THEN text$ = text$ + "p"
IF wetter$ = "q" THEN text$ = text$ + "q"
IF wetter$ = "r" THEN text$ = text$ + "r"
IF wetter$ = "s" THEN text$ = text$ + "s"
IF wetter$ = "t" THEN text$ = text$ + "t"
IF wetter$ = "u" THEN text$ = text$ + "u"
IF wetter$ = "v" THEN text$ = text$ + "v"
IF wetter$ = "w" THEN text$ = text$ + "w"
IF wetter$ = "x" THEN text$ = text$ + "x"
IF wetter$ = "y" THEN text$ = text$ + "y"
IF wetter$ = "z" THEN text$ = text$ + "z"
IF wetter$ = "17" THEN text$ = text$ + "a"
IF wetter$ = "74" THEN text$ = text$ + "b"
IF wetter$ = "26" THEN text$ = text$ + "c"
IF wetter$ = "19" THEN text$ = text$ + "d"
IF wetter$ = "57" THEN text$ = text$ + "e"
IF wetter$ = "28" THEN text$ = text$ + "f"
IF wetter$ = "58" THEN text$ = text$ + "g"
IF wetter$ = "50" THEN text$ = text$ + "h"
IF wetter$ = "64" THEN text$ = text$ + "k"
IF wetter$ = "13" THEN text$ = text$ + "l"
IF wetter$ = "23" THEN text$ = text$ + "m"
IF wetter$ = "88" THEN text$ = text$ + "n"
IF wetter$ = "54" THEN text$ = text$ + "o"
IF wetter$ = "83" THEN text$ = text$ + "p"
IF wetter$ = "61" THEN text$ = text$ + "q"
IF wetter$ = "47" THEN text$ = text$ + "r"
IF wetter$ = "41" THEN text$ = text$ + "s"
IF wetter$ = "33" THEN text$ = text$ + "t"
IF wetter$ = "59" THEN text$ = text$ + "u"
IF wetter$ = "22" THEN text$ = text$ + "v"
IF wetter$ = "66" THEN text$ = text$ + "w"
IF wetter$ = "73" THEN text$ = text$ + "x"
IF wetter$ = "44" THEN text$ = text$ + "y"
IF wetter$ = "94" THEN text$ = text$ + "z"
IF wetter$ = "17" THEN texa$ = texa$ + "17 "
IF wetter$ = "74" THEN texa$ = texa$ + "74 "
IF wetter$ = "26" THEN texa$ = texa$ + "26 "
IF wetter$ = "19" THEN texa$ = texa$ + "19 "
IF wetter$ = "57" THEN texa$ = texa$ + "57 "
IF wetter$ = "28" THEN texa$ = texa$ + "28 "
IF wetter$ = "58" THEN texa$ = texa$ + "58 "
IF wetter$ = "50" THEN texa$ = texa$ + "50 "
IF wetter$ = "64" THEN texa$ = texa$ + "64 "
IF wetter$ = "13" THEN texa$ = texa$ + "13 "
IF wetter$ = "23" THEN texa$ = texa$ + "23 "
IF wetter$ = "88" THEN texa$ = texa$ + "88 "
IF wetter$ = "54" THEN texa$ = texa$ + "54 "
IF wetter$ = "83" THEN texa$ = texa$ + "83 "
IF wetter$ = "61" THEN texa$ = texa$ + "61 "
IF wetter$ = "47" THEN texa$ = texa$ + "47 "
IF wetter$ = "41" THEN texa$ = texa$ + "41 "
IF wetter$ = "33" THEN texa$ = texa$ + "33 "
IF wetter$ = "59" THEN texa$ = texa$ + "59 "
IF wetter$ = "22" THEN texa$ = texa$ + "22 "
IF wetter$ = "66" THEN texa$ = texa$ + "66 "
IF wetter$ = "73" THEN texa$ = texa$ + "73 "
IF wetter$ = "44" THEN texa$ = texa$ + "44 "
IF wetter$ = "94" THEN texa$ = texa$ + "94 "
IF wetter$ = "#" THEN text$ = text$ + " "
IF wetter$ = "#" THEN texa$ = texa$ + "5 "
IF wetter$ = "5" THEN text$ = text$ + " "
IF wetter$ = "5" THEN texa$ = texa$ + "5 "
IF wetter$ = "3" THEN text$ = text$ + "."
IF wetter$ = "3" THEN texa$ = texa$ + "3 "
IF wetter$ = "." THEN text$ = text$ + "."
IF wetter$ = "." THEN texa$ = texa$ + "3 "
IF wetter$ = "?" THEN text$ = text$ + "?"
IF wetter$ = "?" THEN texa$ = texa$ + "8 "
IF wetter$ = "8" THEN text$ = text$ + "8 "
IF wetter$ = "8" THEN texa$ = texa$ + "? "
IF wetter$ = "end" THEN END
IF wetter$ = "master" THEN textb$ = " Master a=17 b=74 c=26 d=19 e=57 f=28 g=58 h=50 k=64 l=13 m=23 n=88 o=54 p=83 q=61 r=47 s=41 t=33 u=59 v=22 w=66 x=73 y=44 z=94 #=5 .=3 ?=8 "
COLOR 15, 1
LOCATE 15, 1
PRINT "normal = "
LOCATE 17, 1
PRINT ; text$
LOCATE 20, 1
PRINT "verwandelt = "
LOCATE 22, 1
PRINT ; texa$
COLOR 11, 2
LOCATE 8, 1
PRINT ; textb$
COLOR 11, 2
IF wetter$ = "clean" THEN CLS
IF wetter$ = "clean" THEN text$ = ""
IF wetter$ = "clean" THEN texa$ = ""
IF wetter$ = "clean" THEN textb$ = ""
LOOP