home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / c64 / bbs / dtjbbs.arc / PRESET (.txt) < prev    next >
Commodore BASIC  |  1993-04-02  |  1KB  |  48 lines
  1. 10 POKE53280,0:POKE53281,0:PRINT"[147][196][212][202]-[194][194][211] [196]ATE [208]RESETTER [197]XAMPLE"
  2. 20 PRINT"[212]HIS PROGRAM SHOWS YOU HOW TO SET THE"
  3. 30 PRINT"DATE AND TIME BEFORE YOU LOAD THE"
  4. 40 PRINT"[196][212][202]-[194][194][211]."
  5. 50 PRINT"[212]O MODIFY THIS PROGRAM TO USE A"
  6. 60 PRINT"HARDWARE DATE/TIME DEVICE, MODIFY LINES"
  7. 70 PRINT"1000 AND HIGHER TO READ THE DATE AND"
  8. 80 PRINT"TIME INTO THE APPROPRIATE VARIABLES."
  9. 90 GOSUB 1000:REM      GET DATE/TIME
  10. 100 POKE2041,123:REM   DATE-SET FLAG
  11. 110 POKE2042,YE:REM    YEAR
  12. 120 POKE2043,MO:REM    MONTH
  13. 130 POKE2044,DA:REM    DAY
  14. 140 POKE56331,HO:REM   HOUR (BCD)
  15. 150 POKE56330,MI:REM   MINUTE (BCD)
  16. 160 POKE56329,SE:REM   SECONDS (BCD)
  17. 170 POKE56328,0:REM    START CLOCK
  18. 180 LOAD"BBS",8,1:REM  LOAD BBS
  19. 990 END
  20. 1000 REM  ----------------------------
  21. 1010 REM  THIS ROUTINE GETS THE DATE
  22. 1020 REM  AND TIME.  VARIABLES ARE:
  23. 1030 REM   YE = YEAR
  24. 1040 REM   MO = MONTH
  25. 1050 REM   DA = DAY
  26. 1060 REM   HO = HOURS (24 HOUR)
  27. 1070 REM   MI = MINUTES
  28. 1080 REM   SE = SECONDS
  29. 1090 REM  ----------------------------
  30. 1100 INPUT "   [217]EAR";YE
  31. 1110 INPUT "  [205]ONTH";MO
  32. 1120 INPUT "    [196]AY";DA
  33. 1130 INPUT "  [200]OURS (24 HOUR MILITARY TIME)";HO
  34. 1140 INPUT "[205]INUTES";MI
  35. 1150 INPUT "[211]ECONDS  0[157][157][157]";SE
  36. 1160 REM  ----------------------------
  37. 1170 REM  MAKE SURE YEAR IS 2 DIGITS
  38. 1180 YE=INT(100*(YE/100-INT(YE/100))+.5)
  39. 1190 REM  ----------------------------
  40. 1200 REM  CONVERT TIME TO BCD AM/PM
  41. 1210 IFHO>23THENHO=HO-24
  42. 1220 I=0:IFHO>11THENHO=HO-12:I=128
  43. 1230 HO=16*INT(HO/10)+(HO-10*INT(HO/10))+I
  44. 1240 MI=16*INT(MI/10)+(MI-10*INT(MI/10))
  45. 1250 SE=16*INT(SE/10)+(SE-10*INT(SE/10))
  46. 1260 RETURN
  47. 9000 REM  ---* CORRECTED 9/11/89 *----
  48.