Sorry your browser is not supported!

set window layout 1,1,1;set window size 600,400;DIM U$(5);DIM V$(3);DIM W$(12);DIM X$(2);DIM Y$(2);DIM Z$(3)
DIM A$(5);DIM B$(5);DIM C$(5);DIM D$(7);DIM E$(4);DIM F$(5);DIM G$(4);DIM H$(14);DIM I$(6);DIM J$(5);DIM K$(5);DIM L$(8);DIM M$(14);DIM N$(9);DIM O$(4);DIM P$(6);DIM Q$(4);DIM R$(10);DIM S$(4);DIM T$(7)
repeat;Text 65,50, "  _____      _            _____                          _";text 65,65, " / ____|    | |          |  __ \                        | |";text 65,80, "| |     __ _| |__   ___  | |__) | __ ___  ___  ___ _ __ | |_ ___   _";text 65,95, "| |    / _` | '_ \ / _ \ |  ___/ '__/ _ \/ __|/ _ \ '_ \| __/ __| (_)";text 65,110, "| |___| (_| | |_) |  __/ | |   | | |  __/\__ \  __/ | | | |_\__ \  _";text 65,125, " \_____\__,_|_.__/ \___| |_|   |_|  \___||___/\___|_| |_|\__|___/ (_) ";text 165,170, " _______   _       __ ____ ____ ______";text 165,185, "|__   __| | |     /_ |___ \___ \____  |";Text 165,200, "   | | ___| |__    | | __) |__) |  / /";text 165,215, "   | |/ _ \ '_ \   | ||__ <|__ <  / / ";Text 165,230, "   | |  __/ | | |  | |___) |__) |/ / ";text 165,245, "   |_|\___|_| |_|  |_|____/____//_/  ";text 140,260,"  _____                          _";text 140,275," / ____|                        | |";text 140,290,"| |     ___  _ ____   _____ _ __| |_ ___ _ __";text 140,305,"| |    / _ \| '_ \ \ / / _ \ '__| __/ _ \ '__|";text 140,320,"| |___| (_) | | | \ V /  __/ |  | ||  __/ |";text 140,335," \_____\___/|_| |_|\_/ \___|_|   \__\___|_|";text 210,380, "Press Space Bar To Continue"
until spacekey()=1;CLS
Set text font "Times New Roman";Set text size 28
A$(1)="4";A$(2)="/\";A$(3)="@";A$(4)="/-\";A$(5)="^";B$(1)="8";B$(2)="3";B$(3)="|3";B$(4)="(3";B$(5)="/3";C$(1)="[";C$(2)="<";C$(3)="(";C$(4)="©";C$(5)="¢";D$(1)="|)";D$(2)="[)";D$(3)="I>";D$(4)="|>";;N$(3)="/\/"
D$(5)="T)";D$(6)="cl";D$(7)="I7";E$(1)="3";E$(2)="£";E$(3)="€";E$(4)="ë";F$(1)="|=";F$(2)="ƒ";F$(3)="|#";F$(4)="ph";F$(5)="/=";G$(1)="6";G$(2)="9";G$(3)="C-";G$(4)="(_+";N$(4)="[\]";N$(5)="<\>";N$(6)="{\}";N$(7)="//"
H$(1)="#";H$(2)="/-/";H$(3)="[-]";H$(4)="]-[";H$(5)=")-(";H$(6)="(-)";H$(7)="|~|";H$(8)="|-|";H$(9)="]~[";H$(10)="}{";H$(11)="1-1";H$(12)="\-/";H$(13)="I-I";H$(14)="}-{";I$(1)="1";I$(2)="!";I$(3)="¡";I$(4)="|";I$(5)="][";I$(6)="]"
J$(1)="_|";J$(2)="_/";J$(3)="</";J$(4)="_]";J$(5)="(/";K$(1)="X";K$(2)="|<";K$(3)="|{";K$(4)="]{";K$(5)="|X";L$(1)="1";L$(2)="£";L$(3)="7";L$(4)="1_";L$(5)="|";L$(6)="|_";L$(7)="[";L$(8)="[_";N$(1)="^/";N$(2)="|\|"
M$(1)="|v|";M$(2)="[V]";M$(3)="{V}";M$(4)="|\/|";M$(5)="/\/\";M$(6)="(u)";M$(7)="(V)";M$(8)="(\/)";M$(9)="/|\";M$(10)="^^";M$(11)="/|/|";M$(12)="//\";M$(13)="|\|\";M$(14)="]\/[";N$(8)="/V";N$(9)="^";O$(1)="0";O$(2)="()";O$(3)="[]";O$(4)="<>"
P$(1)="|*";P$(2)="|^";P$(3)="|>";P$(4)="|7";P$(5)="|°";P$(6)="|º";Q$(1)="(_,)";Q$(2)="()_";Q$(3)="0_";Q$(4)="<|";R$(1)="|`";R$(2)="|~";R$(3)="|?";R$(4)="/2";R$(5)="|^";R$(6)="|2";R$(7)="|Z";R$(8)="®";V$(2)="|/";V$(3)="\|"
S$(1)="5";S$(2)="$";S$(3)="z";S$(4)="§";T$(1)="7";T$(2)="+";T$(3)="-|-";T$(4)="1";T$(5)="']";T$(6)="['";T$(7)="†";U$(1)="(_)";U$(2)="|_|";U$(3)="V";U$(4)="L|";U$(5)="µ";V$(1)="\/";Z$(1)="2";Z$(2)="7_";Z$(3)="Z"
W$(1)="\/\/";W$(2)="vv";W$(3)="\N";W$(4)="'//";W$(5)="\\'";W$(6)="\^/";W$(7)="(n)";W$(8)="\V/";W$(9)="\|/";W$(10)="\_|_/";W$(11)="\_:_/";W$(12)="uu";X$(1)="><";X$(2)="×";Y$(1)="`/";Y$(2)="Y";repeat;Input "Enter Text: ";text$
text2$=UPPER$(text$);Length=LEN(text2$);copy$="";for n = 1 to length;   char$=mid$(text2$,n);if char$="A" then char$=A$(rnd(5)) else if char$="B" then char$=B$(rnd(5)) else if char$="C" then char$=C$(rnd(5)) else if char$="D" then char$=D$(rnd(7)) else if char$="E" then char$=E$(rnd(4)) else if char$="F" then char$=F$(rnd(5)) else if char$="G" then char$=G$(rnd(4)) else if char$="H" then char$=H$(rnd(14)) else if char$="I" then char$=I$(rnd(6)) else if char$="J" then char$=J$(rnd(5)) else if char$="K" then char$=K$(rnd(5)) else if char$="L" then char$=L$(rnd(8)) else if char$="M" then char$=M$(rnd(14)) else if char$="N" then char$=N$(rnd(9)) else if char$="O" then char$=O$(rnd(4))
if char$="P" then char$=P$(rnd(6)) else if char$="Q" then char$=Q$(rnd(4)) else if char$="R" then char$=R$(rnd(10)) else if char$="S" then char$=S$(rnd(4)) else if char$="T" then char$=T$(rnd(7)) else if char$="U" then char$=U$(rnd(5)) else if char$="V" then char$=V$(rnd(3)) else if char$="W" then char$=W$(rnd(12)) else if char$="X" then char$=X$(rnd(2)) else if char$="Y" then char$=Y$(rnd(2)) else if char$="Z" then char$=Z$(rnd(3)) else if char$=" " then char$="   "
copy$=copy$+char$;next n;print copy$;
write to clipboard copy$;
Wait key;CLS
Until escapekey()=1

set window layout 1,1,1
set window size 600,400

`Array set up
DIM A$(5);DIM B$(5);DIM C$(5);DIM D$(7);DIM E$(4);DIM F$(5);DIM G$(4);DIM H$(14);DIM I$(6);DIM J$(5);DIM K$(5);DIM L$(8);DIM M$(14);DIM N$(9);DIM O$(4);DIM P$(6);DIM Q$(4);DIM R$(10);DIM S$(4);DIM T$(7);DIM U$(5);DIM V$(3);DIM W$(12);DIM X$(2);DIM Y$(2);DIM Z$(3)

`title screen
repeat
Text 65,50, "  _____      _            _____                          _";text 65,65, " / ____|    | |          |  __ \                        | |";text 65,80, "| |     __ _| |__   ___  | |__) | __ ___  ___  ___ _ __ | |_ ___   _";text 65,95, "| |    / _` | '_ \ / _ \ |  ___/ '__/ _ \/ __|/ _ \ '_ \| __/ __| (_)";text 65,110, "| |___| (_| | |_) |  __/ | |   | | |  __/\__ \  __/ | | | |_\__ \  _";text 65,125, " \_____\__,_|_.__/ \___| |_|   |_|  \___||___/\___|_| |_|\__|___/ (_) ";text 165,170, " _______   _       __ ____ ____ ______";text 165,185, "|__   __| | |     /_ |___ \___ \____  |";Text 165,200, "   | | ___| |__    | | __) |__) |  / /";text 165,215, "   | |/ _ \ '_ \   | ||__ <|__ <  / / ";Text 165,230, "   | |  __/ | | |  | |___) |__) |/ / ";text 165,245, "   |_|\___|_| |_|  |_|____/____//_/  ";text 140,260,"  _____                          _";text 140,275," / ____|                        | |";text 140,290,"| |     ___  _ ____   _____ _ __| |_ ___ _ __";text 140,305,"| |    / _ \| '_ \ \ / / _ \ '__| __/ _ \ '__|";text 140,320,"| |___| (_) | | | \ V /  __/ |  | ||  __/ |";text 140,335," \_____\___/|_| |_|\_/ \___|_|   \__\___|_|";text 210,380, "Press Space Bar To Continue"

until spacekey()=1
CLS
Set text font "Times New Roman";Set text size 28

`Adding the leetspeek into the arrays
A$(1)="4";A$(2)="/\";A$(3)="@";A$(4)="/-\";A$(5)="^"
B$(1)="8";B$(2)="3";B$(3)="|3";B$(4)="(3";B$(5)="/3"
C$(1)="[";C$(2)="<";C$(3)="(";C$(4)="©";C$(5)="¢"
D$(1)="|)";D$(2)="[)";D$(3)="I>";D$(4)="|>";D$(5)="T)";D$(6)="cl";D$(7)="I7"
E$(1)="3";E$(2)="£";E$(3)="€";E$(4)="ë"
F$(1)="|=";F$(2)="ƒ";F$(3)="|#";F$(4)="ph";F$(5)="/="
G$(1)="6";G$(2)="9";G$(3)="C-";G$(4)="(_+"
H$(1)="#";H$(2)="/-/";H$(3)="[-]";H$(4)="]-[";H$(5)=")-(";H$(6)="(-)";H$(7)="|~|";H$(8)="|-|";H$(9)="]~[";H$(10)="}{";H$(11)="1-1";H$(12)="\-/";H$(13)="I-I";H$(14)="}-{"
I$(1)="1";I$(2)="!";I$(3)="¡";I$(4)="|";I$(5)="][";I$(6)="]"
J$(1)="_|";J$(2)="_/";J$(3)="</";J$(4)="_]";J$(5)="(/"
K$(1)="X";K$(2)="|<";K$(3)="|{";K$(4)="]{";K$(5)="|X"
L$(1)="1";L$(2)="£";L$(3)="7";L$(4)="1_";L$(5)="|";L$(6)="|_";L$(7)="[";L$(8)="[_"
M$(1)="|v|";M$(2)="[V]";M$(3)="{V}";M$(4)="|\/|";M$(5)="/\/\";M$(6)="(u)";M$(7)="(V)";M$(8)="(\/)";M$(9)="/|\";M$(10)="^^";M$(11)="/|/|";M$(12)="//\";M$(13)="|\|\";M$(14)="]\/["
N$(1)="^/";N$(2)="|\|";N$(3)="/\/";N$(4)="[\]";N$(5)="<\>";N$(6)="{\}";N$(7)="//";N$(8)="/V";N$(9)="^"
O$(1)="0";O$(2)="()";O$(3)="[]";O$(4)="<>"
P$(1)="|*";P$(2)="|^";P$(3)="|>";P$(4)="|7";P$(5)="|°";P$(6)="|º"
Q$(1)="(_,)";Q$(2)="()_";Q$(3)="0_";Q$(4)="<|"
R$(1)="|`";R$(2)="|~";R$(3)="|?";R$(4)="/2";R$(5)="|^";R$(6)="|2";R$(7)="|Z";R$(8)="®"
S$(1)="5";S$(2)="$";S$(3)="z";S$(4)="§"
T$(1)="7";T$(2)="+";T$(3)="-|-";T$(4)="1";T$(5)="']";T$(6)="['";T$(7)="†"
U$(1)="(_)";U$(2)="|_|";U$(3)="V";U$(4)="L|";U$(5)="µ"
V$(1)="\/";V$(2)="|/";V$(3)="\|"
W$(1)="\/\/";W$(2)="vv";W$(3)="\N";W$(4)="'//";W$(5)="\\'";W$(6)="\^/";W$(7)="(n)";W$(8)="\V/";W$(9)="\|/";W$(10)="\_|_/";W$(11)="\_:_/";W$(12)="uu"
X$(1)="><";X$(2)="×"
Y$(1)="`/";Y$(2)="Y"
Z$(1)="2";Z$(2)="7_";Z$(3)="Z"

`The actual convertion takes place here
repeat
print "After the conversion press any key to continue"
Print "Enter The Text you want converted below"
input "Text: ";text$
   text2$=UPPER$(text$)    `Changes the text into upper case
   Length=LEN(text2$)      `Find the length of the string
   copy$=""
for n = 1 to length        `loop that will run once for each character in string
   char$=mid$(text2$,n)    `gets letter that corosponds to the position in the loop
      if char$="A" then char$=A$(rnd(5))
      if char$="B" then char$=B$(rnd(5))
      if char$="C" then char$=C$(rnd(5))
      if char$="D" then char$=D$(rnd(7))
      if char$="E" then char$=E$(rnd(4))
      if char$="F" then char$=F$(rnd(5))
      if char$="G" then char$=G$(rnd(4))
      if char$="H" then char$=H$(rnd(14))
      if char$="I" then char$=I$(rnd(6))
      if char$="J" then char$=J$(rnd(5))
      if char$="K" then char$=K$(rnd(5))
      if char$="L" then char$=L$(rnd(8))
      if char$="M" then char$=M$(rnd(14))
      if char$="N" then char$=N$(rnd(9))
      if char$="O" then char$=O$(rnd(4))
      if char$="P" then char$=P$(rnd(6))
      if char$="Q" then char$=Q$(rnd(4))
      if char$="R" then char$=R$(rnd(10))
      if char$="S" then char$=S$(rnd(4))
      if char$="T" then char$=T$(rnd(7))
      if char$="U" then char$=U$(rnd(5))
      if char$="V" then char$=V$(rnd(3))
      if char$="W" then char$=W$(rnd(12))
      if char$="X" then char$=X$(rnd(2))
      if char$="Y" then char$=Y$(rnd(2))
      if char$="Z" then char$=Z$(rnd(3))
      if char$=" " then char$="   "
   Print char$;
   copy$=copy$+char$
next n

write to clipboard copy$      `Copies the converted text to the clipboard
Wait key
CLS
Print "press any key to do another conversion"
Print "Press escape to quit"
Wait key
CLS
Until escapekey()=1