home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib30a.dsk / MARCH.1987 / SETDATE.txt < prev    next >
Text File  |  2023-02-26  |  529b  |  37 lines
  1. p --------------------------------
  2. p SETDATE: sets ProDOS system date
  3. p Copyright 1987 by MicroSPARC, Inc.
  4. p --------------------------------
  5. ny
  6. pnd
  7. ppr
  8. pas12-17-86=$a
  9. ppr
  10. ppr    --  Set System Date  --
  11. ppr
  12. ppr     Enter today's date,
  13. ppr     in the format MM-DD-YY
  14. ppr  Include ALL zeroes and dashes
  15. ppr  Example: 03-01-86, NOT 3-1-86
  16. ppr
  17. ppr   Last date used: $a
  18. pin   Today's date  : =$b
  19. ppr
  20. qh$b
  21. l/AW2MASTER/SETDATE
  22. b
  23. f/=/
  24. ?
  25. d
  26. w
  27. d
  28. f// pas/
  29. y?
  30. f//$b/
  31. y?
  32. s/AW2MASTER/SETDATE
  33. y
  34. ny
  35. pin Set-date complete, press [RETURN] =$a
  36. pqt
  37.