var a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x, y, z, co, code : int
var mess : string
a := 26
b := 25
c := 24
d := 23
e := 22
f := 21
g := 20
h := 19
i := 18
j := 17
k := 16
l := 15
m := 14
n := 13
o := 12
p := 11
q := 10
r := 9
s := 8
t := 7
u := 6
v := 5
w := 4
x := 3
y := 2
z := 1
for decreasing count: 26..1
for decreasing character: 122..97
put "Type 1 to enter a code.", " OR Enter 2 to type a message to Decode "
get co
delay (500)
cls
if co = 1
then
put "Please type in the code numbers to reveal the secret message (max number 26): "
get code
elsif co = 2
then
put "Please type your message to Decode in the number code: "
get mess
delay (1000)
cls
|