mirror of
https://github.com/QB64Official/qb64.git
synced 2024-08-31 11:10:18 +00:00
11 lines
No EOL
244 B
QBasic
11 lines
No EOL
244 B
QBasic
'2007 mennonite
|
|
'public domain
|
|
z$="hello"
|
|
for n = 1 TO len(z$)
|
|
a$ = right$(left$(z$,n),1)
|
|
b$ = a$
|
|
c = asc(ucase$(a$))
|
|
if c > 64 and c < 91 then b$ = chr$((c - 65 + 13) mod 26 + 65)
|
|
if asc(a$) > 91 then b$ = lcase$(b$)
|
|
print b$;
|
|
next n |