home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol130 / 1600.ssb < prev    next >
Encoding:
Text File  |  1984-04-29  |  651 b   |  29 lines
  1. 1602 ' date process and time
  2. 1604 ' 1.2    #
  3. 1642 '
  4. 1644 TIMEMD=TESTADDRESS
  5. 1646 DATEMD=TESTADDRESS+3
  6. 1648 DAYMD=TESTADDRESS+6
  7. 1650 IF NOCLOCK%<>0 THEN
  8.  
  9.     DATE$="XXXXXX":
  10.  
  11.     TIME$="XXXXXX":
  12.  
  13.     DAY$="":
  14.  
  15.     RETURN
  16. 1651 ODATE$=STRING$(12,"$")
  17. 1652 CALL DATEMD(ODATE$)
  18. 1654 DATE$=FNKILLSEP$(LEFT$(ODATE$,8))
  19. 1658 '    get time
  20. 1661 OTIME$=STRING$(12,"$")
  21. 1662 CALL TIMEMD(OTIME$)
  22. 1664 TIME$=FNKILLSEP$(LEFT$(OTIME$,8))
  23. 1668 '    get day of week
  24. 1672 DAY$=""
  25. 1674 IF GETDAY%=0 THEN RETURN
  26. 1676 ODAY$=STRING$(10,"$")
  27. 1678 CALL DAYMD(ODAY$)
  28. 1680 FOR I%=1 TO LEN(ODAY$)
  29. 1682    IF MID$(ODAY$,I%,1)<>"$" THEN DAY$=DAY$+MID$(ODAY$,I%,1)
  30. 1684 NEXT I%
  31. 1686 GETDAY%=0
  32. 1688 RETURN
  33.