home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol110 / sign-on.acg < prev    next >
Encoding:
Text File  |  1984-04-29  |  1.2 KB  |  26 lines
  1. * sign-on.cmd 02/12/83 sml
  2. ERASE
  3. ?
  4. ?
  5. ? '    * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *' 
  6. ? '    *                                                                     *' 
  7. ? '    *             AMATEUR COMPUTER GROUP OF NEW JERSEY                    *' 
  8. ? '    *                                                                     *' 
  9. ? '    *             PO BOX 319 SOUTH BOUND BROOK,NJ 08880                   *' 
  10. ? '    *                                                                     *' 
  11. ? '    *                                                                     *' 
  12. ? '    *                 SAMPLE DATA MANAGEMENT PROGRAM                      *' 
  13. ? '    *                                                                     *' 
  14. ? '    *                                                                     *' 
  15. ? '    *                                    Vers 1.0 Feb. 1983               *' 
  16. ? '    * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *' 
  17. ?
  18. IF $(DATE(),1,2)= '00' 
  19.   STORE '        ' TO date:var
  20.   @ 18,10 SAY 'Enter date as MM/DD/YY ' GET date:var PICTURE '##/##/##' 
  21.   READ
  22.   SET DATE TO &date:var
  23.   RELEASE date:var
  24. ENDIF $(DATE(),1,2)= '00'  
  25.  
  26.