Autor | Thema: profanneuling bittet um übersetzungshilfe aus basic | | Datum:19.05.01 20:14 
(ul.boett@t-online.de) | |
hallo an alle profaner,
ich schreibe meine q-basic programme um.manchmal klemmt
es jedoch für mich als profan anfänger.wer "übersetzt" mir folgende zeilen bitte:
A=ASC(INPUT$(1,#1))
P=SGN(A AND 2^X)
(X stammt aus einer for...next schleife,ist mit while ...schon erledigt)
vielen dank schon mal
uli
|
| | Datum: 20.05.01 11:47 
(info@noten-checker.de) | |
Hallo Ulrich,
A=ASC(INPUT$(1,#1))
ASC heißt in Profan ORD, der Befehl zum Lesen eines einzelnen Bytes aus einer Datei heißt in Profan Getbyte(#N), die Datei muß vorher mit
OPENRW geöffnet worden sein. Damit auch eine schreibgeschützte Datei gelesen werden kann, muß vor dem RESET-Befehle der FILEMODE 0 (nur lesen)
eingestellt werden.
P=SGN(A AND 2^X)
2^X => POW(2,X%)
A AND B => AND(A%,B%)
SGN gibts in Profan nicht (oder?)
könnte man folgendermaßen ersetzen:
let vorz%=0
case gt(n%,0): let vorz%=1
case lt(n%,0): let vorz%=-1
Viele Grüße
Heinz
|
|
|