Schermopkuis – Deel 2

Een 2de prullerijtje in scherm-opkuis.  Eigenlijk zou ik de blokjes die verschijnen nog eens moeten laten “flitsen” met wat meer kleur.  Da’s voor een volgende versie.

1 FOR I = 0 TO 1024
2 A=INT(RND(1)*1024)
3 POKE 55296+A,0
4 POKE 1024+A,160
5 NEXT I
6 POKE 53280,0
7 POKE 53281,0
8 GOTO 8

• 

  By Bud, February 13, 2010 @ 3:03 pm

  Deze scherm-wis routine heeft een probleem:

  Helaas word door de willekeurige getal functie regelmatig hetzelfde getal gekozen, waardoor met een lus van 1025 keer niet het gehele scherm leeggemaakt zal worden.

• 

  By FRaNKy, February 15, 2010 @ 1:05 pm

  Klopt, daarom ook het zwart kleuren van border en achtergrond op het einde. Er is geen check of een positie al gecleared is.

Other Links to this Post