home *** CD-ROM | disk | FTP | other *** search
/ ST-Computer Leser 1998 October / STC_CD_10_1998.iso / LASTMIN_SFT / TIME2107 / SOURCE / TIME2107.LST < prev    next >
File List  |  1998-09-26  |  1KB  |  62 lines
  1. ' Datum und Uhrzeit schnell einstellen 1990-2107
  2. inf$="TIME2107.INF"
  3. ' inf$="B:\TIME2107.INF"
  4. ' inf$="D:\TIME2107.INF"
  5. d0$=DATE$
  6. t0$=MID$(d0$,1,2)
  7. o0$=MID$(d0$,4,2)
  8. j0$=MID$(d0$,7,4)
  9. z0$=TIME$
  10. s0$=MID$(z0$,1,2)
  11. m0$=MID$(z0$,4,2)
  12. j0=VAL(j0$)
  13. IF j0>1996 AND VAL(t0$)<>0 THEN
  14.   GOTO timeinf
  15. ENDIF
  16. IF EXIST(inf$)=0 THEN
  17.   GOTO nofile
  18. ENDIF
  19. OPEN "I",#1,inf$
  20. d0$=INPUT$(15,#1)
  21. t0$=MID$(d0$,1,2)
  22. o0$=MID$(d0$,4,2)
  23. j0$=MID$(d0$,7,4)
  24. s0$=MID$(d0$,11,2)
  25. m0$=MID$(d0$,14,2)
  26. CLOSE #1
  27. nofile:
  28. PRINT "  "+t0$+o0$+j0$;" Bitte RETURN oder neu: tt oder ttmm oder ttmmjjjj  RETURN"
  29. INPUT x$
  30. l%=LEN(x$)
  31. t1$=MID$(x$,1,2)
  32. o1$=MID$(x$,3,2)
  33. j1$=MID$(x$,5,4)
  34. IF l%=0 THEN
  35.   t1$=t0$
  36. ENDIF
  37. IF l%<=2 THEN
  38.   o1$=o0$
  39. ENDIF
  40. IF l%<=4 THEN
  41.   j1$=j0$
  42. ENDIF
  43. date1$=t1$+"."+o1$+"."+j1$
  44. PRINT "  "+s0$+m0$;" Bitte RETURN oder neu: ss oder ssmm  RETURN"
  45. INPUT x$
  46. l%=LEN(x$)
  47. s1$=MID$(x$,1,2)
  48. m1$=MID$(x$,3,2)
  49. IF l%=0 THEN
  50.   s1$=s0$
  51. ENDIF
  52. IF l%<=2 THEN
  53.   m1$=m0$
  54. ENDIF
  55. time1$=s1$+":"+m1$
  56. SETTIME time1$,date1$
  57. timeinf:
  58. OPEN "O",#1,inf$
  59. PRINT #1,DATE$;TIME$," "
  60. CLOSE #1
  61. END
  62.