text$=""
shift=255
for n = 1 to length(ciphr$)
letter$= mid(ciphr$, n, 1)
m = asc(letter$)
text$=text$+chr(m-shift)
next n
print text$
This is a set of small programs in Basic-256, related to various topics. Just copy,paste and run. Note : Sometimes programs do not run in recent BASIC 256 versions.
No comments:
Post a Comment