Wenn ich diesen Code mit Turbo-Bas ablaufen lasse, kommt eine Fehlermeldung für Zeile 220 : Error- 8 INPUT AT LINE 220
Was ist da falsch?

mfg
peter

Code: Alles auswählen

100 GRAPHICS 7+16
110 COLOR 1:PLOT 5,5:DRAWTO 155,5:DRAWTO 155,75:DRAWTO 5,75:DRAWTO 5,5
120 COLOR 3:CIRCLE 80,40,35
130 PAINT 80,40:COLOR 1:PAINT 6,6:PAINT 100,6:COLOR 2:PAINT 0,0
200 RESTORE 1010
210 FOR I=1 TO 16
220   READ BANK
230   POKE 54017,BANK
240   Z=1:COLOR 2:TEXT 50,35,"BANK":TEXT 85,35,I:TEXT 105,35,Z:Z=Z+1
250   MOVE DPEEK(88),16384,7680
260   TEXT 105,35,Z
270   MOVE DPEEK(88),16384+$2000,7680
280 NEXT I
290 POKE 54017,254
300 RESTORE 1010
310 GRAPHICS 7+16
320 a=dpeek(560)
330 a=a+4
340 FOR I=1 TO 16
350   READ BANK
360   POKE 54017,BANK
370   dpoke a,$4000
380   GET KEY
390   dpoke a,$4000+$2000
400   GET KEY
410 NEXT I
420 POKE 54017,254
1000 REM BANKDATEN (COMPY-SHOP)
1010 DATA 238,234,230,226
1020 DATA 174,170,166,162
1030 DATA 110,106,102,98
1040 DATA 46,42,38,34


Error 8 ist falscher Input-Befehl. Ich tippe mal auf die Leerzeichen zwischen den Zahlen und Kommas. Das ist dann vermutlich ein String statt einer Zahl und "BANK" kann nur Zahlen annehmen.

Hatt ich auch schon ohne Leerzeichen, ging auch nicht.

mfg
peter

Hab's mal abgetippt ... es läuft einwandfrei ...

Du hast ganz sicher einen Tippfehler drin.
Entweder einen Data-Wert zu wenig (Error 6) oder ein Wert wird als String eingelesen (Error 8).