Hallo Leute,
hoffe ihr könnt mir Licht ins Dunkel bringen.
Ich habe ja schon recht früh mit dem Basic programmieren angefangen, und da kam diese Fehlermeldung "?ILLEGAL QUANTITY ERROR" auch öffters vor.
Aber den konnte ich dann immer sehr schnell beheben.
Aber jetzt zu meien speziellen Fall:
Ich Teste immer noch mit der Routine von Snoopy für die FCM Umgebung herum. Bin gerate dabei eine Schleife zu basteln wie ich die Grafikzeichen an der besagen Adresse zu Poken.
Da die Printfunktion mit der FCM-Umgebung nicht funktioniert.
Also habe ich das erst einmal unter der Standart-Umgebung getestet:
- 10 BORDER 11:BACKGROUND 0:FOREGROUND 1
- 20 PRINTCHR$(27)"4" :REM UMSCHALTEN AUF MOD 40 ZEILEN
- 30 SCNCLR
- 40 REM
- 50 A$(1)="******************************"
- 60 A$(2)="*................** **"
- 70 REM
- 100 FOR XX=1 TO LEN(A$(1))
- 110 S=2048+XX:F=55296+XX
- 120 POKE S,ASC(MID$(A$(1),XX,1))
- 125 POKE F,1
- 130 POKE S+40,ASC(MID$(A$(2),XX,1))
- 135 POKE F+40,1
- 140 NEXT XX
- 150 REM
- 160 GETKEY A$
- 170 END
Und was soll ich sagen, es läuft ohne wenn und aber.
So jetzt das ganze unter FCM-Umgebung
- 10 BORDER 11:BACKGROUND 0:FOREGROUND 1
- 20 PRINTCHR$(27)"4" :REM SWITCH TO 40 COL MODE
- 30 SCNCLR
- 40 REM GOSUB 10000 :REM INIT FCM MODE
- 60 GOSUB 5000 :REM GRAFIK SETZTEN
- 70 GETKEY A$
- 80 :
- 90 GOSUB 10150
- 100 END
- #######################################################
- ## SPIELFELDRAHMEN ZEICHEN ##
- #######################################################
- 5000 A$(1)="DAS IST NUR EIN TEST"
- 5010 FOR XX=0 TO LEN(A$(1))
- 5020 P=$40000+(XX*2)+(0*80)
- 5030 REM P=2048+XX
- 5100 POKE P,ASC(MID$(A$(1),XX,1))
- 5140 NEXT XX
- 5200 FOR D=1 TO 1000 : REM COLOR CYCLE FOR COLOR $05
- 5210 FOR I=0 TO 15:PALETTE COLOR 5,0,0,I:NEXT I
- 5220 NEXT D
- 5999 RETURN
- #######################################################
- ## INIT FCM MODE ##
- #######################################################
- 10000 REM
- 10010 POKE $D02F,$47:POKE $D02F,$53 : REM SET VIC-4
- 10020 A1=PEEK($D054):A2=PEEK($D058) : REM STORE VIC-VALUES INTO A1-A6
- 10030 A3=PEEK($D060):A4=PEEK($D061)
- 10040 A5=PEEK($D062):A6=PEEK($D063)
- 10050 POKE $D054,PEEK($D054) OR 7 : REM SET FCLRHI,FCLRLO,CHR16
- 10060 POKE $D058,80,0 : REM SET LINESTEP TO 80 (=40 * 2)
- 10070 FOR P=$40000 TO $40000+80*25-1 STEP 2 : REM FILL SCREEN WITH CHAR 251
- 10080 POKE P,251,$12 : REM AND ALIGN BYTE 2
- 10090 NEXT P
- 10100 EDMA 3,256*64,$00,$48000 : REM CLEAR CHAR MEMORY FROM $48000
- 10110 POKE $D060,0,0,4 : REM SET TEXTSCREEN TO $40000
- 10120 POKE $D063,PEEK($D063) AND $F0 :
- 10130 BLOAD "BDFCM*",B 4,P 32768+2 : REM LOAD FCM CHARSET TO $48000 (SKIP 2 BYTES)
- 10140 RETURN
- #######################################################
- ## RESTORE NORMAL MODE ##
- #######################################################
- 10150 REM RESTORE NORMAL MODE
- 10160 BANK 128
- 10170 POKE $D054,A1:POKE $D058,A2
- 10180 POKE $D060,A3,A4,A5,A6
- 10190 PRINT CHR$(27)"8"
- 10200 RETURN
So und hier schmeist mich mein Programm in der Zeile 5100 raus mit der Fehlermeldung "?ILLEGAL QUANTITY ERROR"
Ich habe danach zick verschiedene Einstellung probiert, aber immer wieder die Fehlermeldung.
Also ich bilcke es nicht. Vielleich sehe ich den Baum nicht vor lauter Bäume.
Hoffe einer von euch hat einen Lichtblick für mich