home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / 2-ALARM-SYSTEM (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.9 KB  |  64 lines
  1. 1 REM 24HR ALARM 3/10/89 BY DAVE WILKERSON
  2. 5 POKE53280,11:POKE53281,0
  3. 10 GOSUB3000:REM PRINT SCREEN
  4. 130 PRINT"ENTER TIME IN 24 HOUR FORMAT.           ";
  5. 140 PRINT"EXAMPLE: 8:24 PM = 202400"
  6. 150 PRINTTAB(13):INPUT"[158]TIME";TI$:TM$=TI$
  7. 160 PRINTTAB(10):INPUT"[150]ALARM 1";A1$
  8. 170 PRINTTAB(10):INPUT"[153]ALARM 2";A2$
  9. 180 PRINT"IS THIS CORRECT? Y OR N";
  10. 190 GETA$:IFA$=""GOTO190
  11. 200 IFA$<>"Y"THENPRINT"[145][145][145][145][145]":GOTO150
  12. 210 GOSUB4000
  13. 250 PRINT"HIT ANY KEY TO START CLOCK[146]";
  14. 260 GETB$:IFB$=""GOTO260
  15. 265 PRINT"[147]":GOSUB3000:GOSUB4000
  16. 270 TI$=TM$
  17. 290 PRINT"[158]";
  18. 300 PRINTSPC(14)LEFT$(TI$,2)SPC(6)MID$(TI$,3,2)SPC(6)RIGHT$(TI$,2);
  19. 310 IFTI$=A1$THENGOSUB1000
  20. 320 IFTI$=A2$THENGOSUB1900
  21. 330 GOTO290
  22. 1000 PRINT"[150]";
  23. 1010 PRINTSPC(14)" ALARM 1 ACTIVATED [146]"
  24. 1020 HI=30:CL=14:REM HI FREQ,BORDER COLOR
  25. 1030 GOSUB5000
  26. 1040 RETURN
  27. 1900 PRINT"[153]";
  28. 1910 HI=40:CL=8:REM HIFREQ BORDER COLOR
  29. 1950 PRINTSPC(14)" ALARM 2 ACTIVATED [146]"
  30. 2000 GOSUB5000
  31. 2010 RETURN
  32. 3000 PRINT"[147]";
  33. 3010 PRINT"                24 HOUR ALARM [146]          ";
  34. 3020 PRINT"      [153] [159]     HOURS[146]  MINUTES[146]  SECONDS[146]     ";
  35. 3040 PRINT"[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]";
  36. 3050 PRINT"        [180]                               ";
  37. 3060 PRINT"[158]TIME    [180]                               ";
  38. 3070 PRINT"        [180]                               ";
  39. 3080 PRINT"[150]ALARM 1 [180]                                   
  40. 4620  [153]"        SGN                               ";
  41. 3100 [153]"PRINTALARM 2 SGN                               ";
  42. 3120 [153]"        SGN                               ";
  43. 3130 [153]"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR";
  44. 3140 [142]
  45. 4000 [153]"SYS";
  46. 4010 [153][166]14)[200](TM$,2)[166]6)[202](TM$,3,2)[166]6)[201](TM$,2);
  47. 4020 [153]"DEF";
  48. 4030 [153][166]14)[200](A1$,2)[166]6)[202](A1$,3,2)[166]6)[201](A1$,2);
  49. 4040 [153]"PRINT";
  50. 4050 [153][166]14)[200](A2$,2)[166]6)[202](A2$,3,2)[166]6)[201](A2$,2)
  51. 4060 [142]
  52. 5000 [151]53280,CL
  53. 5005 S[178]54272:[143] SOUND
  54. 5010 [151]S[170]24,15:[151]S[170]5,40:[151]S[170]6,250:[151]S,100:[151]S[170]1,HI
  55. 5020 [151]S[170]2,50:[151]S[170]3,50:[151]S    
  56. 53 [145][161][153]"OPENHIT ANY KEY"
  57. 5030 [129]T[178]1[164]50:[130]
  58. 5035 [161]C$:[139]C$[178]""[167][153]"HIT ANY KEY":[137]5010
  59. 5037 [153]"                       "
  60. 5040 [151]S[170]4,64
  61. 5045 [151]53280,11
  62. 5047 [141]3000:[141]4000
  63. 5050 [142]
  64.