home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / dbaseii / dataflow.lbr / RESTART.CZD / RESTART.CMD
Encoding:
Text File  |  1989-06-15  |  512 b   |  25 lines
  1. *START.PRG
  2. SET TALK OFF
  3. *THE INITIALIZATION AND SECURITY PROGRAM
  4. DO WHILE T
  5. ERASE
  6. @ 1,0 SAY 'PLEASE ENTER THE DATE  IN dd/mm/yy FORMAT '
  7. @ 2,0 SAY 'PLEASE DO IT CAREFULLY AS THIS WILL AFFECT THE DATE ON'
  8. @ 3,0 SAY 'DOCUMENTS AND DATA LINES'
  9. STORE '        ' TO DATEA
  10. @ 0,65 GET DATEA PICTURE '99/99/99'
  11. READ
  12. set console off
  13. SET DATE   TO &DATEA
  14. ERASE
  15. RETURN     
  16. ENDDO
  17.  
  18.  
  19.  
  20.  
  21.  
  22.  
  23.  
  24.  
  25.