Allgemeine Fragen zur PROFAN Programmierung
Views (Heute): 243094 (4530)
  Suchen
 Zurück zur Übersicht
 AutorThema: profanneuling bittet um übersetzungshilfe aus basic
ulrich
Datum:19.05.01 20:14 Antwortenals Email verschicken (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


Heinz Kaiser
Datum: 20.05.01 11:47 Antwortenals Email verschicken (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


 Zurück zur Übersicht