home *** CD-ROM | disk | FTP | other *** search
/ תקליטור אוסף פנטזיה / fantasia-CD_LINE.iso / dosmenu / oclock.bas < prev    next >
Encoding:
BASIC Source File  |  1995-01-28  |  534 b   |  52 lines
  1. CLS
  2. FOR i = 0 TO 24
  3. FOR t = 0 TO 60
  4. FOR o = 0 TO 60
  5. FOR u = 0 TO 100
  6. LOCATE 13, 17: PRINT i; ":"; t; ":"; o; ":"; u
  7. a$ = INKEY$
  8. IF a$ = CHR$(27) THEN END
  9. IF a$ = "c" THEN
  10. CLS
  11. PRINT "{1} change hour"
  12. PRINT "{2} change min"
  13. PRINT "{3} change sec"
  14. PRINT "{4} change mina"
  15. pr: a$ = INKEY$
  16. SELECT CASE a$
  17. CASE IS = "1"
  18. INPUT i
  19. CLS
  20. CASE IS = "2"
  21. INPUT t
  22. CLS
  23. CASE IS = "3"
  24. INPUT o
  25. CLS
  26. CASE IS = "4"
  27. INPUT u
  28. CLS
  29. CASE ELSE
  30. GOTO pr
  31. END SELECT
  32. END IF
  33. NEXT u
  34. NEXT o
  35. NEXT t
  36. NEXT i
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.