home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128BBS / DTJ911128.ARC / CMDHDBOOT (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  790 b   |  31 lines
  1. 10 POKE53280,0:POKE53281,0:PRINT"[147][196][212][202]-[194][194][211] IS NOW LOADING"
  2. 90 GOSUB 1300:REM      GET DATE/TIME
  3. 100 POKE2041,123:REM   DATE-SET FLAG
  4. 110 POKE2042,YE:REM    YEAR
  5. 120 POKE2043,MO:REM    MONTH
  6. 130 POKE2044,DA:REM    DAY
  7. 140 POKE56331,HO:REM   HOUR (BCD)
  8. 150 POKE56330,MI:REM   MINUTE (BCD)
  9. 160 POKE56329,SE:REM   SECONDS (BCD)
  10. 170 POKE56328,0:REM    START CLOCK
  11. 180 LOAD"BBS",8,1:RUN
  12. 990 END
  13. 1200 IF AP=4 THEN HO=HO+12
  14. 1210 IFHO>23THENHO=HO-24
  15. 1220 I=0:IFHO>11THENHO=HO-12:I=128
  16. 1230 HO=16*INT(HO/10)+(HO-10*INT(HO/10))+I
  17. 1240 MI=16*INT(MI/10)+(MI-10*INT(MI/10))
  18. 1250 SE=16*INT(SE/10)+(SE-10*INT(SE/10))
  19. 1260 RETURN
  20. 1300 OPEN15,8,15:PRINT#15,"T-RD"
  21. 1310 GET#15,WD$:WD=ASC(WD$+CHR$(0))
  22. 1320 GET#15,YR$:YE=ASC(YR$+CHR$(0))
  23. 1330 GET#15,MO$:MO=ASC(MO$+CHR$(0))
  24. 1340 GET#15,DA$:DA=ASC(DA$+CHR$(0))
  25. 1350 GET#15,HR$:HO=ASC(HR$+CHR$(0))
  26. 1360 GET#15,MN$:MI=ASC(MN$+CHR$(0))
  27. 1365 GET#15,SE$:SE=ASC(SE$+CHR$(0))
  28. 1370 GET#15,AP$:AP=ASC(AP$+CHR$(0))
  29. 1380 CLOSE15
  30. 1400 GOTO1200
  31.