home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 1B / DATAFILE_PDCD1B.iso / _pocketbk / pocketbook / 001 / psionu_arc / LOCK.OPL < prev    next >
Text File  |  1991-04-22  |  319b  |  24 lines
  1. LOCK:
  2. LOCAL D$(32),E$(06),M$(32),EC%
  3. ONERR START::
  4. START::
  5. OFF
  6. EC%=1023
  7. CLS :PRINT"Id:";
  8. E$=""
  9. WHILE LEN(E$)<6
  10.  E$=E$+KEY$
  11. ENDWH
  12. IF E$<>"MADDOG"
  13.  CLS :PRINT"*Invalid Entry*"
  14.  BEEP 9999,500
  15.  PAUSE -20
  16.  CLS
  17.  GOTO START::
  18. ENDIF
  19. CLS
  20. D$=DATIM$
  21. M$=LEFT$(D$,16)+"    "+MID$(D$,17,8)
  22. PRINT M$;
  23. PAUSE -40
  24.