Ärgerlich, aber nicht schlimm. Guck hier:Zitat von michiE
'IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII IIIIIIIIIIIIIIIIIII
'II WORKAROUND BUG "INPUT" (ser. Schnittstelle) by DIE HARD 09-04 I
'IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII IIIIIIIIIIIIIIIIIII
' BETRIFFT BETRIEBSSYSTEM VERSION 2.01
'--------------------------------------------------------------------
' Die M 2.0 hat in diesem Teil des Betriebssystems einen Fehler
' Das Unterprogramm INPUTEMULATION übernimmt diese Funktion.
'---------------------------------------------------------------------
Define WERT word[1]
define INBYTE byte[4]
Wert=0
#loop
'input wert
gosub INPUTEMULATION 'ERSATZ FÜR INPUT
pause 50
Print "Ausgabewert"
Print wert
Goto loop
'-----------------------------------------------------------------
'---- UNTERPROGRAMM ZUM ERSATZ DER FUNKTION INPUT ---
'-----------------------------------------------------------------
#INPUTEMULATION
#INLOOP
get INBYTE
if INBYTE=&H2D then wert=-1 else WERT=1
if INBYTE=&H2D then get INBYTE
WERT=(INBYTE and &H0F)*WERT
#INLOOP2
get INBYTE:if INBYTE= &H0D then return
INBYTE=INBYTE and &H0F
if WERT<0 then WERT=WERT*10-INBYTE else WERT=WERT*10+INBYTE
goto INLOOP2
Lesezeichen