Hallo Leute

Ist es moeglich unter TurboBASIC hexdaten ueber READ und DATA zu laden?

Also zB:

DATA A0, BD,01, 8E
READ a,b,c,d

Tschuess

Mathy

Wenn du's einfach so schreibst:

DATA $A0, $BD,$01, $8E
READ ...

Gruß
Bernhard

Hallo Bernhard

Hab' ich probiert. DATA $A0,$8B,... funktioniert, aber was kommt nach READ? Ich hab' schon einiges probiert, aber ohne Erfolg.

Tschuess

Mathy

BEISPIEL:

FOR B=1 TO 20
READ A
Z$(B)=CHR$(A)
NEXT I
DATA $66,$67,$68, ...

ODER:

FOR B=1 TO 20
READ A
POKE C(B),A
NEXT B
Q=USR(ADR(C)
DATA ...

ODER:

FOR B=0 TO 19
READ A
POKE 1536+B,A
NEXT B
Q=USR(ADR(1536)
DATA ...

ETC.

Ich denke die Funktionsweise ist ersichtlich.

Turbo-BASIC liest aus DATA-Zeilen keine Hex-Werte aus,

100 READ A:? A:REM Versucht, Daten zu lesen, endet mit ERROR 8
110 DATA $FF

funktioniert also nicht.

Stattdessen solltest du das hier probieren:

100 DIM H$(2):REM einen String DIMensionieren
110 READ H$:Liest Hex-Angabe als String
120 D=DEC(H$):Wandelt den Hex-String in einen Dezimalwert um
130 DATA FF
140 REM DATA-Angaben OHNE $.. !



Mirko

Mirko's Tipp funktioniert. Danke.

Tschuess

Mathy