home *** CD-ROM | disk | FTP | other *** search
/ Best of German Only 1 / romside_best_of_german_only_1.iso / anwender / zephyr / zephyr4s.2 / BEISPIEL.EXE / lha / ZEITZEIG.PRG < prev   
Text File  |  1991-01-12  |  308b  |  19 lines
  1.  
  2. *** ZEITZEIG.PRG
  3.  
  4. * Anzeigen von Wochentag, Datum, Uhrzeit
  5.  
  6. SET CLOCK ON
  7. Tag = CDOW(DATE())
  8. Heute = DATE()
  9. Mitte = 40-(LEN(Tag)+8/2)
  10. @ 20,Mitte GET Tag
  11. @ 20,Mitte + LEN(Tag)+ 1 GET Heute
  12. SET CLOCK TO 20,Mitte + LEN(Tag) + 10
  13. CLEAR GETS
  14.  
  15.   DO WHILE INKEY() = 0
  16.   ENDDO
  17. SET CLOCK OFF
  18. RETURN
  19.