home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib27b.dsk / TIMESTAMP.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  36 lines
  1. 30  REM  ************************
  2. 40  REM  *      TIMESTAMP       *
  3. 50  REM  *   BY  PHILIP CHIEN   *
  4. 60  REM  *  COPYRIGHT (C) 1986  *
  5. 70  REM  *   MICROSPARC, INC.   *
  6. 80  REM  *  CONCORD, MA  01742  *
  7. 90  REM  ************************
  8. 100 D$ =  CHR$(4)
  9. 110  PRINT D$"OPEN TIMESTAMP.EXE"
  10. 120  PRINT D$"WEITE TIMESTAMP.EXE"
  11. 130  LIST 30000,30220
  12. 140  PRINT "RUN 30000"
  13. 150  PRINT D$"CLOSE": END 
  14. 30000  PRINT "TIMESTAMP 1.0"
  15. 30010 D$ =  CHR$(4)
  16. 30020  PRINT D$"CLOSE"
  17. 30030  FOR SL = 1 TO 7
  18. 30040  IF  PEEK( -16384 +SL *256 +5) = 255  AND  PEEK( -16384 +SL *256 +7) = 5  THEN 30070
  19. 30050  NEXT SL
  20. 30060  PRINT "NO CLOCK FOUND.": END 
  21. 30070  PRINT D$"PR#"SL
  22. 30080  IF  PEEK( -8192) = 32  THEN  PRINT ">"
  23. 30090  IF  PEEK( -8192) = 76  THEN  PRINT "%"
  24. 30100  PRINT D$"PR#0"
  25. 30110  PRINT D$"IN#"SL
  26. 30120  INPUT A$
  27. 30130  PRINT D$"IN#0"
  28. 30140  PRINT "TIME IS NOW ";A$
  29. 30150  PRINT D$"OPEN TEMP"
  30. 30160  PRINT D$"WRITE TEMP"
  31. 30170  PRINT "32010 REM LAST MOD ";A$
  32. 30180  PRINT "DEL 30000,30220"
  33. 30190  PRINT "DELETE TEMP"
  34. 30200  PRINT D$"CLOSE"
  35. 30210  PRINT D$"EXEC TEMP"
  36. 30220  END