mirror of
https://github.com/QB64Official/qb64.git
synced 2024-09-04 11:10:15 +00:00
b586eafd3b
LINE INPUT will now use the faster method if passed a file handle that has been opened FOR BINARY. As such, the _BLINEINPUT command has been removed. qb64.bas now takes advantage of this for reading from '$include files, at least in Include Manager 1. Some tweaking of internal/source/main.txt was required to get things into a sane state, so I'm holing off changing the compiler any further so the auto-builder can make sure everything's smoothed over. Note: Everything should still compile as normal; I'm just being overcautious.
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 |