000
25.06.2015, 15:31 Uhr
Microprofessor
|
Hallo,
ich bin auf einen merkwürdigen Effekt gestoßen, den ich nirgends erklärt finde. Vielleicht könnt ihr mir weiterhelfen. Ich habe folgendes BASIC-Programm in meinen KC-85/3 (ohne Speichererweiterung, ohne Module) eingegeben:
10 CLS
20 X1=INT(RND(1)*39)
30 X2=INT(RND(1)*39)
40 IF X2<=X1 THEN GOTO 30
50 Y1=INT(RND(1)*29)
60 Y2=INT(RND(1)*29)
70 IF Y2<=Y1 THEN GOTO 60
80 C=INT(RND(1)*7)
90 WINDOW Y1,Y2,X1,X2
100 PAPER C
110 GOTO 10
Wenn ich das Programm laufen lasse, generiert es zunächst - wie erwartet - farbige Kästen auf dem Bildschirm. Nach einiger Zeit erscheinen jedoch keine neuen Kästen. Manchmal geschieht dies schon nach 3 Kästen, manchmal erst nach mehr als 15.
Woran könnte es liegen?
µP
Dieser Beitrag wurde am 25.06.2015 um 15:44 Uhr von Microprofessor editiert. |
