home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / CLOCK-64 (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  896b  |  46 lines
  1. 100 PRINT"[147]":POKE53280,8:POKE53281,0:PRINTTAB(11)"A STRIKING CLOCK
  2. 110 [129]R[178]0[164]3000:[130]:[153]"LOADLIST
  3. 130 PRINT"[147]SET CLOCK:":INPUT" HOUR (0-23)";H:INPUT" MINUTE (0-59)";M:PRINT"[147]
  4. 170 CT[178]TI
  5. 190 [153][163]13)"CLR(null)";
  6. 200 [129]X[178]1[164]10:[153]"TAB(";:[130]
  7. 210 [153]"(null)
  8. 220 PRINTTAB(13)"[204]";
  9. 230 FORX=1TO10:PRINT"[164]";:NEXT
  10. 240 PRINT"[186][145][145]"
  11. 250 GOSUB400
  12. 270 GETX$:IFX$=" "THEN130
  13. 273 IFX$<>""THEN510
  14. 280 NT=TI
  15. 290 IF(NT-CT)<60THEN270
  16. 310 CT=NT
  17. 320 S=S+1
  18. 330 IFS<60THEN370
  19. 340 M=M+1:S=0
  20. 345 IFS=0ANDM=30THENC=1:V=54272:GOSUB560
  21. 350 IFM>59THENM=0:H=H+1:C=H
  22. 360 IFH>23THENH=0
  23. 370 GOSUB400
  24. 375 IFC>0THENV=54272:GOSUB560
  25. 380 GOTO270
  26. 400 H$=STR$(H)
  27. 410 IFLEN(H$)=2THENH$=" "+H$
  28. 420 M$=STR$(M)
  29. 430 IFLEN(M$)=2THENM$="0"+RIGHT$(M$,1)
  30. 440 M$=":"+RIGHT$(M$,2)
  31. 450 S$=STR$(S)
  32. 460 IFLEN(S$)=2THENS$="0"+RIGHT$(S$,1)
  33. 470 S$="[144][198][153]"+RIGHT$(S$,2)+" [158]"
  34. 480 T$=CHR$(165)+H$+M$+S$+CHR$(167)
  35. 490 PRINTTAB(13)"[158]"T$"[145]
  36. 495 [139]C[178]0[167][151]54296,0
  37. 500 [142]
  38. 510 [153]"LOAD    CLOCK STOPPED !STOP":[128]
  39. 560 [151]V[170]1,90:[151]V[170]15,37
  40. 570 [151]V[170]5,11:[151]V[170]24,15
  41. 580 [151]V[170]4,21
  42. 590 [129]X[178]1[164]380:[130]
  43. 600 [151]V[170]4,20
  44. 610 C[178]C[171]1
  45. 620 [142]
  46.