home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / QB4GRAF.ZIP / TELEFONE.BAS < prev    next >
Encoding:
BASIC Source File  |  1989-05-16  |  186 b   |  16 lines
  1. CLS
  2. DO
  3.  
  4. PRINT "ring"
  5. FOR t1 = 1 TO 4 STEP 1
  6. FOR t2 = 1 TO 25 STEP 1
  7. SOUND 540, .6
  8. SOUND 650, .5
  9. NEXT t2
  10. FOR t3 = 1 TO 1500 STEP 1
  11. NEXT t3
  12. NEXT t1
  13.  
  14. LOOP WHILE INKEY$ = ""
  15.  
  16.