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 >
Wrap
BASIC Source File
|
1989-05-16
|
186b
|
16 lines
CLS
DO
PRINT "ring"
FOR t1 = 1 TO 4 STEP 1
FOR t2 = 1 TO 25 STEP 1
SOUND 540, .6
SOUND 650, .5
NEXT t2
FOR t3 = 1 TO 1500 STEP 1
NEXT t3
NEXT t1
LOOP WHILE INKEY$ = ""