home *** CD-ROM | disk | FTP | other *** search
/ Between Heaven & Hell 2 / BetweenHeavenHell.cdr / 100 / 31 / alarm.bas < prev    next >
BASIC Source File  |  1983-03-21  |  1KB  |  46 lines
  1. 10 REM ALARM CLOCK PROGRAM FOR IBM-PC; BY: AL ZOLLER; MARCH 20, 1983
  2. 20 CLS: KEY OFF
  3. 30 LOCATE 12,30,0
  4. 40 PRINT "TIME","DATE"
  5. 50 LOCATE 14,30,0
  6. 60 PRINT TIME$,DATE$
  7. 70 LOCATE 16,30,0
  8. 80 PRINT "SET ALARM ? (Y/N)":PRINT
  9. 90 X$=INKEY$
  10. 100 IF X$="N" OR X$="n" THEN 420
  11. 110 IF X$="Y" OR X$="y" THEN 120 ELSE 50
  12. 120 LOCATE 16,26,0
  13. 130 PRINT "SET HH:MM:SS         "
  14. 140 PRINT:PRINT  TAB(28);
  15. 150 INPUT T$
  16. 160 CLS
  17. 170 B$=TIME$
  18. 180 IF B$=T$ THEN 260
  19. 190 LOCATE 12,30,0
  20. 200 PRINT "TIME","DATE"
  21. 210 LOCATE 14,30,0
  22. 220 PRINT TIME$,DATE$
  23. 230 LOCATE 16,16,0
  24. 240 PRINT "ALARM SET FOR ";T$
  25. 250 GOTO 170
  26. 260 FOR I=440 TO 1000 STEP 5
  27. 270 SOUND I, .2
  28. 280 NEXT
  29. 290 FOR I=1000 TO 440 STEP -5
  30. 300 SOUND I, .2
  31. 310 NEXT
  32. 320 CLS
  33. 330 LOCATE 12,30,0
  34. 340 PRINT "TIME","DATE"
  35. 350 LOCATE 14,30,0
  36. 360 PRINT TIME$,DATE$
  37. 370 LOCATE 16,25,0
  38. 380 PRINT "PRESS ANY KEY TO RESET ALARM "
  39. 390 A$=INKEY$
  40. 400 IF A$<>"" THEN 410 ELSE 260
  41. 410 GOTO 20
  42. 420 CLS
  43. 430 END
  44. 5,0
  45. 380 PRINT "PRESS ANY KEY TO RESET ALARM "
  46. 390 A$=INK