home *** CD-ROM | disk | FTP | other *** search
/ TopWare Tools / TOOLS.iso / tools / top1170 / gepackt.exe / UHR.HRP < prev    next >
Encoding:
Text File  |  1993-08-01  |  559 b   |  20 lines
  1. Variable        Zeit,8
  2. Variable        Vergl,8
  3. Variable        Eing,1
  4.         
  5.         Clear           10
  6.         Center          "Mit beliebiger Taste beenden...",25
  7.         ?Time           Zeit
  8.         
  9.         LABEL           WIEDER
  10.         WriteAt         37,13   Zeit,14
  11.         SetVar          Vergl,Zeit
  12.         
  13.         LABEL           LOOP
  14.         ReadKey         Eing,,"",1
  15.         Compare         Eing,"",END
  16.         ?Time           Zeit
  17.         Compare         Zeit,Vergl,WIEDER,WIEDER,LOOP
  18.         
  19.         LABEL           END
  20.