home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / QBAS / QB4GRAF.ZIP / TELEFONE.BAS < prev    next >
BASIC Source File  |  1989-05-16  |  186b  |  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.