home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 April / CHIP4_98.ISO / software / ccconrad / basic.exe / CHIP / Programme.Bas / Beispiele_2 / TIMESET.BAS < prev    next >
Encoding:
BASIC Source File  |  1997-03-07  |  632 b   |  40 lines
  1. '**************************************
  2. '
  3. ' C-Control/BASIC       TIMESET.BAS
  4. '
  5. ' Aufgabe:
  6. '
  7. ' - Stellen der Echtzeituhr
  8. ' - ueber ein Terminal am PC
  9. '
  10. '**************************************
  11. ' --- Definitionen --------------------
  12.  
  13. define Sekunde byte
  14.  
  15. ' --- Programmoperationen -------------
  16.  
  17. print "Stunde"
  18. input hour
  19. print "Minute"
  20. input minute
  21. print "Sekunde"
  22. input second
  23. print "Tag"
  24. input day
  25. print "Monat"
  26. input month
  27. print "Jahr"
  28. input year
  29. #Loop
  30.   print hour, minute, second
  31.   print day, month, year
  32.   #Loop2
  33.   if Sekunde = second then goto Loop2
  34.   Sekunde = second
  35. goto Loop
  36. end
  37.  
  38.  
  39.  
  40.