Hello! Még egyszerűsítettem, de ez is csak 9-ig számol! 'proba2.bas $regfile = "m8515.dat" $crystal = 4000000 Dim Szamlalo As Integer 'Byte Dim Ckszamlalo As Integer 'Byte Hurok: Print "sorszám: " ; Szamlalo Incr Szamlalo Waitms 100 Goto Hurok End 'end program