home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / a / dataflo1.lbr / RESTART.CMD < prev    next >
Encoding:
Text File  |  1993-10-26  |  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.