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
Wrap
Text File
|
1991-01-12
|
308b
|
19 lines
*** ZEITZEIG.PRG
* Anzeigen von Wochentag, Datum, Uhrzeit
SET CLOCK ON
Tag = CDOW(DATE())
Heute = DATE()
Mitte = 40-(LEN(Tag)+8/2)
@ 20,Mitte GET Tag
@ 20,Mitte + LEN(Tag)+ 1 GET Heute
SET CLOCK TO 20,Mitte + LEN(Tag) + 10
CLEAR GETS
DO WHILE INKEY() = 0
ENDDO
SET CLOCK OFF
RETURN