'============================================================================
' (p)'23/02/2003 by East-Power-Soft
'
' Tipp 2: Nutzen des POKE Befehls anstelle des PSET.
'============================================================================
SCREEN 13
TIME# = TIMER

FOR Y = 0 TO 199
   F% = 16
   FOR X = 0 TO 319
      PSET (X, Y), F%
      F% = F% + 1: IF F% = 32 THEN F% = 16
   NEXT
NEXT

T# = TIMER - TIME#
LOCATE 1, 1
PRINT "Dauer:"; USING "##.###"; T#; : PRINT " Sekunden."
PRINT
PRINT "Und nun mit POKE."
PRINT "Bitte taste drücken."
WHILE INKEY$ = "": WEND

'============================================================================
' Die selbe Routine mit POKE.
'============================================================================
DEF SEG = &HA000
TIME# = TIMER

FOR Y = 0 TO 199
   F% = 32
   FOR X = 0 TO 319
      POKE X + (Y * 320), F%
      F% = F% + 1: IF F% = 48 THEN F% = 32
   NEXT
NEXT

T1# = TIMER - TIME#
LOCATE 1, 1
PRINT "Dauer:"; USING "##.###"; T1#; : PRINT " Sekunden."
PRINT
PRINT "Nicht viel schneller, aber:"
PRINT "Kleinvieh macht auch Mist."