home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / SIMTEL / CPMUG / CPMUG042.ARK / TIME.BAS < prev    next >
BASIC Source File  |  1984-04-29  |  2KB  |  75 lines
  1. 10 REM ****** MICROSOFT DISK BASIC, RUNNING UNDER CP/M ******
  2. 20 REM *** REV. BY HARRY KAEMMERER  07/14/1979 ***
  3. 30 REM *** PGM TO DISPAY TIME AND DATE OF COMPU/TIME MODEL T102A CLOCK ***
  4. 40 REM *** SET DISPLAY SCREEN WIDTH ***
  5. 50 WIDTH 80
  6. 60 REM *** CLEAR SCREEN COMMAND ***
  7. 70 PRINT CHR$(12)
  8. 80 REM
  9. 90 REM *** CHANGE P1= TO DECIMAL ADDRESS OF YOUR STARTING PORT ***
  10. 100 REM *** 192=C0Hex ***
  11. 110 P1=192
  12. 120 H=23:V=0:GOSUB 680
  13. 130 PRINT" TIME ";
  14. 140 REM *** HOUR TENS ***
  15. 150 OUT P1,0
  16. 160 H1=INP(P1)
  17. 170 REM *** HOUR UNITS ***
  18. 180 OUT P1,1
  19. 190 H2=INP(P1)
  20. 200 REM *** MINUTE TENS ***
  21. 210 OUT P1,2
  22. 220 M1=INP(P1)
  23. 230 REM *** MINUTE UNITS ***
  24. 240 OUT P1,3
  25. 250 M2=INP(P1)
  26. 260 REM *** SECOND TENS ***
  27. 270 OUT P1,4
  28. 280 S1=INP(P1)
  29. 290 REM *** SECOND UNITS ***
  30. 300 OUT P1,5
  31. 310 S2=INP(P1)
  32. 320 REM *** ELIMINATE SPACES BETWEEN NUMBERS BY CONVERTING TO STRINGS ***
  33. 330 H1$=CHR$(H1+48)
  34. 340 H2$=CHR$(H2+48)
  35. 350 M1$=CHR$(M1+48)
  36. 360 M2$=CHR$(M2+48)
  37. 370 S1$=CHR$(S1+48)
  38. 380 S2$=CHR$(S2+48)
  39. 390 PRINT H1$;H2$;":";M1$;M2$;":";S1$;S2$;
  40. 400 PRINT"  DATE ";
  41. 410 REM *** MONTH TENS ***
  42. 420 OUT P1,8
  43. 430 M1=INP(P1)
  44. 440 IF M1=15 THEN M1=0
  45. 450 REM *** MONTH UNITS ***
  46. 460 OUT P1,9
  47. 470 M2=INP(P1)
  48. 480 REM *** DAY TENS ***
  49. 490 OUT P1,10
  50. 500 D1=INP(P1)
  51. 510 REM *** DAY UNITS ***
  52. 520 OUT P1,11
  53. 530 D2=INP(P1)
  54. 540 REM *** ELIMINATE SPACES BETWEEN NUMBERS BY CONVERTING TO STRINGS ***
  55. 550 M1$=CHR$(M1+48)
  56. 560 M2$=CHR$(M2+48)
  57. 570 D1$=CHR$(D1+48)
  58. 580 D2$=CHR$(D2+48)
  59. 590 REM *** CHANGE NEXT LINE TO CURRENT YEAR ***
  60. 600 PRINT M1$;M2$;"/";D1$;D2$;"/1979"
  61. 610 PRINT:PRINT
  62. 620 END
  63. 630 REM ---------------------------
  64. 640 REM *** CURSOR CONTROL SUB. ***
  65. 650 REM ---------------------------
  66. 660 REM
  67. 670 REM    H=HORZ  V=VERTICAL
  68. 680 OUT 1,3
  69. 690 A=INP(0) AND 128:IF A<>0 THEN 690
  70. 700 OUT 1,H
  71. 710 A=INP(0) AND 128:IF A<>0 THEN 710
  72. 720 OUT 1,V
  73. 730 A=INP(0) AND 128:IF A<>0 THEN 730
  74. 740 RETURN
  75.