   1 :program vacio;
                                           0 :PROGRAM 2 9 0 5
   2 :const N = 100000;
   3 :var timer, t : integer;
   4 :begin
   5 :  settime(t);
                                           5 :LOCALVAR 4
                                           7 :PRIVATESETTIME
   6 :  for 1 to N do;
                                           8 :CONSTANT 1
                                          10 :CONSTANT 100000
                                          12 :INITFOR 5
                                          14 :LOOP 0 1
   7 :	gettime(timer,t);
                                          17 :LOCALVAR 3
                                          19 :LOCALVALUE 4
                                          21 :PRIVATEGETTIME
   8 :	writeln('ticks-> ',timer);
                                          22 :CONSTANT 1801677172
                                          24 :CONSTANT 540945779
                                          26 :WRITESTR 2 8
                                          29 :LOCALVALUE 3
                                          31 :WRITEINT
                                          32 :CONSTANT 2573
                                          34 :WRITESTR 1 2
   9 :end.
  10 :
  11 :
  12 :
                                          37 :ENDPROG
