� >ToneDial
� 'Dial' phone numbers
�
(:
2%� �tonedial_name = "Tone Dialler"
<!� �tonedial_args = "-in Text"
F:
P� �tonedial_init
Z� col$,row$,a%,col%,row%
d%� dial_tone1%(12),dial_tone2%(12)
ncol$="160167174"
xrow$="122130136142"
�a%=1
�� col%=0 � 2
� � row%=0 � 3
�(  dial_tone1%(a%)=��col$,col%*3+1,3)
�(  dial_tone2%(a%)=��row$,row%*3+1,3)
�  a%+=1
� �
��
�#�write_in_icon(wind_hand%,1,"")
�=0
�:
�*� �tonedial_mouse(mx%,my%,mb%,mh%,mi%)
�=(mi%=2)

:

1� �tonedial_key(wh%,ic%,cx%,cy%,ch%,ci%,key%)

=(key%=13)

"

,� �tonedial(file$)

6� n$,i%,a$,in%,t%,dig%

@ș "Sound_Configure" � i%

J� i%<2 Ƞ 2

T"*ChannelVoice 1 WaveSynth-Beep

^"*ChannelVoice 2 WaveSynth-Beep

hș "Sound_QBeat",-2

r� file$="" �

|$ �dial(�icon_text(wind_hand%,1))

��

� in%=�(file$)

� �dial(�#in%)

� � #in%

��

�=0

�:

�� �dial(n$)

�i%=0

�
ȕ n$<>""

�  a%=�" 123456789*0#",�n$,1))

�
 � a%>0 �

�  tone1%=dial_tone1%(a%-1)
  tone2%=dial_tone2%(a%-1)
(  � tone1%=0 vol%=0 � vol%=&FFF80000
<  ș "Sound_QSchedule",i%*20+5,,vol% � 1,&30000 � tone1%
&<  ș "Sound_QSchedule",     -1,,vol% � 2,&30000 � tone2%
0  i%+=1
: �
D n$=�n$,2)
N�
X�
�

00000000  0d 00 0a 0f f4 20 3e 54  6f 6e 65 44 69 61 6c 0d  |..... >ToneDial.|
00000010  00 14 1a f4 20 27 44 69  61 6c 27 20 70 68 6f 6e  |.... 'Dial' phon|
00000020  65 20 6e 75 6d 62 65 72  73 0d 00 1e 05 e0 0d 00  |e numbers.......|
00000030  28 05 3a 0d 00 32 25 dd  20 a4 74 6f 6e 65 64 69  |(.:..2%. .tonedi|
00000040  61 6c 5f 6e 61 6d 65 20  3d 20 22 54 6f 6e 65 20  |al_name = "Tone |
00000050  44 69 61 6c 6c 65 72 22  0d 00 3c 21 dd 20 a4 74  |Dialler"..<!. .t|
00000060  6f 6e 65 64 69 61 6c 5f  61 72 67 73 20 3d 20 22  |onedial_args = "|
00000070  2d 69 6e 20 54 65 78 74  22 0d 00 46 05 3a 0d 00  |-in Text"..F.:..|
00000080  50 14 dd 20 a4 74 6f 6e  65 64 69 61 6c 5f 69 6e  |P.. .tonedial_in|
00000090  69 74 0d 00 5a 1c ea 20  63 6f 6c 24 2c 72 6f 77  |it..Z.. col$,row|
000000a0  24 2c 61 25 2c 63 6f 6c  25 2c 72 6f 77 25 0d 00  |$,a%,col%,row%..|
000000b0  64 25 de 20 64 69 61 6c  5f 74 6f 6e 65 31 25 28  |d%. dial_tone1%(|
000000c0  31 32 29 2c 64 69 61 6c  5f 74 6f 6e 65 32 25 28  |12),dial_tone2%(|
000000d0  31 32 29 0d 00 6e 14 63  6f 6c 24 3d 22 31 36 30  |12)..n.col$="160|
000000e0  31 36 37 31 37 34 22 0d  00 78 17 72 6f 77 24 3d  |167174"..x.row$=|
000000f0  22 31 32 32 31 33 30 31  33 36 31 34 32 22 0d 00  |"122130136142"..|
00000100  82 08 61 25 3d 31 0d 00  8c 10 e3 20 63 6f 6c 25  |..a%=1..... col%|
00000110  3d 30 20 b8 20 32 0d 00  96 11 20 e3 20 72 6f 77  |=0 . 2.... . row|
00000120  25 3d 30 20 b8 20 33 0d  00 a0 28 20 20 64 69 61  |%=0 . 3...(  dia|
00000130  6c 5f 74 6f 6e 65 31 25  28 61 25 29 3d bb c1 63  |l_tone1%(a%)=..c|
00000140  6f 6c 24 2c 63 6f 6c 25  2a 33 2b 31 2c 33 29 0d  |ol$,col%*3+1,3).|
00000150  00 aa 28 20 20 64 69 61  6c 5f 74 6f 6e 65 32 25  |..(  dial_tone2%|
00000160  28 61 25 29 3d bb c1 72  6f 77 24 2c 72 6f 77 25  |(a%)=..row$,row%|
00000170  2a 33 2b 31 2c 33 29 0d  00 b4 0b 20 20 61 25 2b  |*3+1,3)....  a%+|
00000180  3d 31 0d 00 be 06 20 ed  0d 00 c8 05 ed 0d 00 d2  |=1.... .........|
00000190  23 f2 77 72 69 74 65 5f  69 6e 5f 69 63 6f 6e 28  |#.write_in_icon(|
000001a0  77 69 6e 64 5f 68 61 6e  64 25 2c 31 2c 22 22 29  |wind_hand%,1,"")|
000001b0  0d 00 dc 06 3d 30 0d 00  e6 05 3a 0d 00 f0 2a dd  |....=0....:...*.|
000001c0  20 a4 74 6f 6e 65 64 69  61 6c 5f 6d 6f 75 73 65  | .tonedial_mouse|
000001d0  28 6d 78 25 2c 6d 79 25  2c 6d 62 25 2c 6d 68 25  |(mx%,my%,mb%,mh%|
000001e0  2c 6d 69 25 29 0d 00 fa  0c 3d 28 6d 69 25 3d 32  |,mi%)....=(mi%=2|
000001f0  29 0d 01 04 05 3a 0d 01  0e 31 dd 20 a4 74 6f 6e  |)....:...1. .ton|
00000200  65 64 69 61 6c 5f 6b 65  79 28 77 68 25 2c 69 63  |edial_key(wh%,ic|
00000210  25 2c 63 78 25 2c 63 79  25 2c 63 68 25 2c 63 69  |%,cx%,cy%,ch%,ci|
00000220  25 2c 6b 65 79 25 29 0d  01 18 0e 3d 28 6b 65 79  |%,key%)....=(key|
00000230  25 3d 31 33 29 0d 01 22  04 0d 01 2c 16 dd 20 a4  |%=13).."...,.. .|
00000240  74 6f 6e 65 64 69 61 6c  28 66 69 6c 65 24 29 0d  |tonedial(file$).|
00000250  01 36 1a ea 20 6e 24 2c  69 25 2c 61 24 2c 69 6e  |.6.. n$,i%,a$,in|
00000260  25 2c 74 25 2c 64 69 67  25 0d 01 40 1d c8 99 20  |%,t%,dig%..@... |
00000270  22 53 6f 75 6e 64 5f 43  6f 6e 66 69 67 75 72 65  |"Sound_Configure|
00000280  22 20 b8 20 69 25 0d 01  4a 0f e7 20 69 25 3c 32  |" . i%..J.. i%<2|
00000290  20 c8 a0 20 32 0d 01 54  22 2a 43 68 61 6e 6e 65  | .. 2..T"*Channe|
000002a0  6c 56 6f 69 63 65 20 31  20 57 61 76 65 53 79 6e  |lVoice 1 WaveSyn|
000002b0  74 68 2d 42 65 65 70 0d  01 5e 22 2a 43 68 61 6e  |th-Beep..^"*Chan|
000002c0  6e 65 6c 56 6f 69 63 65  20 32 20 57 61 76 65 53  |nelVoice 2 WaveS|
000002d0  79 6e 74 68 2d 42 65 65  70 0d 01 68 17 c8 99 20  |ynth-Beep..h... |
000002e0  22 53 6f 75 6e 64 5f 51  42 65 61 74 22 2c 2d 32  |"Sound_QBeat",-2|
000002f0  0d 01 72 10 e7 20 66 69  6c 65 24 3d 22 22 20 8c  |..r.. file$="" .|
00000300  0d 01 7c 24 20 f2 64 69  61 6c 28 a4 69 63 6f 6e  |..|$ .dial(.icon|
00000310  5f 74 65 78 74 28 77 69  6e 64 5f 68 61 6e 64 25  |_text(wind_hand%|
00000320  2c 31 29 29 0d 01 86 05  cc 0d 01 90 11 20 69 6e  |,1))......... in|
00000330  25 3d 8e 28 66 69 6c 65  24 29 0d 01 9a 11 20 f2  |%=.(file$).... .|
00000340  64 69 61 6c 28 be 23 69  6e 25 29 0d 01 a4 0b 20  |dial(.#in%).... |
00000350  d9 20 23 69 6e 25 0d 01  ae 05 cd 0d 01 b8 06 3d  |. #in%.........=|
00000360  30 0d 01 c2 05 3a 0d 01  cc 0f dd 20 f2 64 69 61  |0....:..... .dia|
00000370  6c 28 6e 24 29 0d 01 d6  08 69 25 3d 30 0d 01 e0  |l(n$)....i%=0...|
00000380  0d c8 95 20 6e 24 3c 3e  22 22 0d 01 ea 20 20 61  |... n$<>""...  a|
00000390  25 3d a7 22 20 31 32 33  34 35 36 37 38 39 2a 30  |%=." 123456789*0|
000003a0  23 22 2c c0 6e 24 2c 31  29 29 0d 01 f4 0d 20 e7  |#",.n$,1)).... .|
000003b0  20 61 25 3e 30 20 8c 0d  01 fe 1e 20 20 74 6f 6e  | a%>0 .....  ton|
000003c0  65 31 25 3d 64 69 61 6c  5f 74 6f 6e 65 31 25 28  |e1%=dial_tone1%(|
000003d0  61 25 2d 31 29 0d 02 08  1e 20 20 74 6f 6e 65 32  |a%-1)....  tone2|
000003e0  25 3d 64 69 61 6c 5f 74  6f 6e 65 32 25 28 61 25  |%=dial_tone2%(a%|
000003f0  2d 31 29 0d 02 12 28 20  20 e7 20 74 6f 6e 65 31  |-1)...(  . tone1|
00000400  25 3d 30 20 76 6f 6c 25  3d 30 20 8b 20 76 6f 6c  |%=0 vol%=0 . vol|
00000410  25 3d 26 46 46 46 38 30  30 30 30 0d 02 1c 3c 20  |%=&FFF80000...< |
00000420  20 c8 99 20 22 53 6f 75  6e 64 5f 51 53 63 68 65  | .. "Sound_QSche|
00000430  64 75 6c 65 22 2c 69 25  2a 32 30 2b 35 2c 2c 76  |dule",i%*20+5,,v|
00000440  6f 6c 25 20 84 20 31 2c  26 33 30 30 30 30 20 84  |ol% . 1,&30000 .|
00000450  20 74 6f 6e 65 31 25 0d  02 26 3c 20 20 c8 99 20  | tone1%..&<  .. |
00000460  22 53 6f 75 6e 64 5f 51  53 63 68 65 64 75 6c 65  |"Sound_QSchedule|
00000470  22 2c 20 20 20 20 20 2d  31 2c 2c 76 6f 6c 25 20  |",     -1,,vol% |
00000480  84 20 32 2c 26 33 30 30  30 30 20 84 20 74 6f 6e  |. 2,&30000 . ton|
00000490  65 32 25 0d 02 30 0b 20  20 69 25 2b 3d 31 0d 02  |e2%..0.  i%+=1..|
000004a0  3a 06 20 cd 0d 02 44 0e  20 6e 24 3d c1 6e 24 2c  |:. ...D. n$=.n$,|
000004b0  32 29 0d 02 4e 05 ce 0d  02 58 05 e1 0d ff        |2)..N....X....|
000004be