home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / alarm.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-10-13  |  640 b   |  47 lines
  1. 100  GOSUB 280
  2. 110  GOSUB 320
  3. 120  GOSUB 320
  4. 130  GOSUB 280
  5. 140  GOSUB 430
  6. 150  GOSUB 430
  7. 160  GOSUB 430
  8. 170  GOSUB 320
  9. 180  GOSUB 430
  10. 190  GOSUB 280
  11. 200  GOSUB 390
  12. 210  GOSUB 490
  13. 220  GOSUB 490
  14. 230  GOSUB 280
  15. 240  GOSUB 430
  16. 250  GOSUB 430
  17. 260  GOSUB 390
  18. 270  END
  19. 280  FOR I=900 TO 1200 STEP 2
  20. 290  SOUND I,0.22
  21. 300  NEXT I
  22. 310  RETURN
  23. 320  FOR I=1200 TO 900 STEP -2
  24. 330  SOUND I,0.22
  25. 340  NEXT I
  26. 350  FOR I=900 TO 1200 STEP 2
  27. 360  SOUND I,0.22
  28. 370  NEXT I
  29. 380  RETURN
  30. 390  FOR I=1200 TO 500 STEP -3
  31. 400  SOUND I,0.2
  32. 410  NEXT I
  33. 420  RETURN
  34. 430  FOR K=1 TO 2
  35. 440  FOR I=1200 TO 700 STEP -18
  36. 450  SOUND I,0.22
  37. 460  NEXT I
  38. 470  NEXT K
  39. 480  RETURN
  40. 490  FOR I=1 TO 3
  41. 500  SOUND 700,4
  42. 510  SOUND 20000,1
  43. 520  SOUND 500,4
  44. 530  SOUND 20000,1
  45. 540  NEXT I
  46. 550  RETURN
  47.