'************************************************************ ' BIOSDAT.BAS = Abfrage des BIOS-Datums mit PEEK ' =========== ' Getestet unter Dos 6.22 und Windows95. Fuer Windows XP ' und hoeher wird keine Funktionsgarantie gegeben. ' ' (c) Thomas Antoni, 29.7.05 '************************************************************ DEF SEG = &HF000 FOR X% = &HFFF5 TO &HFFFD BIOSDatum$ = BIOSDatum$ + CHR$(PEEK(X%)) NEXT PRINT "Das BIOS-Datum lautet: "; BIOSDatum$ SLEEP END