home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V1D2.D64 / clock (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.7 KB  |  59 lines
  1. 3 X$=CHR$(34)
  2. 4 Q$=X$+"STRING"+X$
  3. 5 SYS4096
  4. 10 POKE53280,6:POKE53281,0:GOSUB2030
  5. 30 PRINT" [212]HIS PROGRAM WILL CONTINUALLY DISPLAY
  6. 40 [153]" AN ACCURATE 24-HOUR DIGITAL CLOCK IN"
  7. 50 [153]" THE BORDER JUST BELOW THE BOTTOM OF
  8. 60 PRINT" THE NORMAL SCREEN. [212]HE DISPLAY IS IN
  9. 70 [153]" THE NORMAL SYSHOURS:MINS:SECSOPEN FORMAT WITH
  10. 80 PRINT" [158][193][205][159]/[158][208][205][159] BEING INDICATED BY A SMALL BOX
  11. 90 [153]" TO THE RIGHT OF THE TIME.
  12. 100 GOSUB 2000
  13. 110 PRINT" [212]HE PROGRAM IS STORED IN MEMORY AT"
  14. 120 PRINT" [158]$[195]000-$[195]280[159] ([158]49152-49792[159]). [217]OU CAN USE
  15. 130 [153]" THESE COMMANDS TO CHANGE THE CLOCK:"
  16. 150 [153]" SYS(null)(null)(null) 49152OPEN"
  17. 160 [153]" STR$ISPLAY THE CLOCK AT THE BOTTOM OF THE
  18. 170 PRINT" SCREEN. [212]HIS IS NECESSARY IF YOU HAVE
  19. 180 [153]" PRESSED RUN/STOP-RESTORE."
  20. 190 [141]2000
  21. 200 [153]"SYS (null)(null)(null) 49152,"Q$
  22. 210 [153]"OPEN (null)ETS THE CLOCK TO THE TIME SPECIFIED
  23. 220 PRINT" IN [158]"Q$"[159]. [212]HE FORMAT IS THE SAME AS
  24. 230 [153]" IS USED TO SET (null)RIGHT$$, THAT IS SYSHHMMSSOPEN. RIGHT$N
  25. 240 PRINT" ADDITION, IF THE FIRST CHARACTER IN
  26. 250 [153]" THE STRING IS AN SYS@OPEN, THEN THE TIME WILL
  27. 260 PRINT" BE DISPLAYED IN REVERSE VIDEO."
  28. 270 GOSUB2000
  29. 300 PRINT"[158] [211][217][211] 49152,COLOUR"
  30. 310 PRINT"[159] [195]HANGES THE COLOUR OF THE CLOCK. [212]HE
  31. 320 [153]" COLOUR GIVEN IN THE (null)(null)(null) COMMAND IS A
  32. 330 PRINT" STANDARD COLOUR CODE FROM 0-15."
  33. 340 PRINT" [158][206][207][212][197]:[159] [212]HE LAST TWO COMMANDS CAN BE
  34. 350 [153]" COMBINED INTO A SINGLE COMMAND LIKE:
  35. 360 PRINT" [158][211][217][211] 49152,"X$"@043000"X$",6[159]."
  36. 390 GOSUB 2000
  37. 400 PRINT" [215]HEN THE CLOCK IS RUNNING, [212][201]$ IS NO
  38. 410 [153]" NO LONGER ACCURATE SINCE THE PROGRAM
  39. 420 PRINT" MAKES USE OF RASTER INTERRUPTS. [193]LSO,
  40. 430 [153]" SPRITES 0,1 AND 2 ARE USED TO DISPLAY
  41. 440 PRINT" THE CLOCK SO THESE SHOULD NOT BE USED."
  42. 450 PRINT" [198]INALLY, THE SPRITE DATA IS STORED IN
  43. 460 [153]" MEMORY FROM 832-1023 SO THIS AREA IS
  44. 470 PRINT" NOT AVAILABLE FOR MACHINE-CODE ETC."
  45. 480 GOSUB 2000
  46. 490 PRINT " [208]LEASE ENTER THE CORRECT TIME BELOW."
  47. 500 PRINT"SYS49152,"X$:PRINT"[145][145][145][145][158]"
  48. 510 FORT=631TO640:POKET,29:NEXT:POKE198,10
  49. 600 END
  50. 1900 GOSUB2000
  51. 1990 END
  52. 2000 POKE214,22:PRINT:PRINT"        [208]RESS [158][211][208][193][195][197][159] TO CONTINUE"
  53. 2010 GETA$:IFA$<>""THEN2010
  54. 2020 GETA$:IFA$<>" "THEN2020
  55. 2025 :
  56. 2030 PRINT"[147][153]    [212]HE [195]OMMODORE 64 [201]NVISIBLE [195]LOCK"
  57. 2040 PRINT "         BY[158] [197]DWARD [195]ARROLL 1986[159]"
  58. 2050 RETURN
  59.