home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 013 / a_backup.arc / BOOTPRG.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-11-13  |  238 b   |  9 lines
  1. 20  OPEN "C:\BOOTDATE" FOR INPUT AS #1
  2. 30  INPUT #1, LASTBOOT$: CLOSE
  3. 40  THISBOOT$=DATE$
  4. 50  OPEN "C:\BOOTDATE" FOR OUTPUT AS #1
  5. 60  PRINT #1, THISBOOT$: CLOSE
  6. 70  IF THISBOOT$=LASTBOOT$ THEN OPEN "C:\BOOTTEST" FOR OUTPUT AS #1: CLOSE
  7. 80  SYSTEM
  8. 9999  REM          Save "C:\BootPrg.Bas"
  9.