' BS2 phone Dialer (Aiglon Software) ' ' '{$STAMP BS2} a VAR Byte worka VAR Byte workb VAR Byte numero VAR Byte(18) pas VAR Byte pas = 0 start: SERIN 16\15,$54,[a] IF a=49 THEN t1 IF a=50 THEN t2 IF a=51 THEN t3 IF a=52 THEN t4 IF a=53 THEN t5 IF a=54 THEN t6 IF a=55 THEN t7 IF a=56 THEN t8 IF a=57 THEN t9 IF a=48 THEN t10 IF a=42 THEN t11 IF a=35 THEN t12 IF a=32 THEN redial IF a=27 THEN efface GOTO start t1: DTMFOUT 0, 150 ,30, [1] pas = pas + 1 numero(pas) = 1 GOTO start t2: DTMFOUT 0, 150 ,30, [2] pas = pas + 1 numero(pas) = 2 GOTO start t3: DTMFOUT 0, 150 ,30, [3] pas = pas + 1 numero(pas) = 3 GOTO start t4: DTMFOUT 0, 150 ,30, [4] pas = pas + 1 numero(pas) = 4 GOTO start t5: DTMFOUT 0, 150 ,30, [5] pas = pas + 1 numero(pas) = 5 GOTO start t6: DTMFOUT 0, 150 ,30, [6] pas = pas + 1 numero(pas) = 6 GOTO start t7: DTMFOUT 0, 150 ,30, [7] pas = pas + 1 numero(pas) = 7 GOTO start t8: DTMFOUT 0, 150 ,30, [8] pas = pas + 1 numero(pas) = 8 GOTO start t9: DTMFOUT 0, 150 ,30, [9] pas = pas + 1 numero(pas) = 9 GOTO start t10: DTMFOUT 0, 150 ,30, [0] pas = pas + 1 numero(pas) = 10 GOTO start t11: DTMFOUT 0, 150 ,30, [10] pas = pas + 1 numero(pas) = 11 GOTO start t12: DTMFOUT 0, 150 ,30, [11] pas = pas + 1 numero(pas) = 12 GOTO start efface: pas = 0 GOTO start redial: IF pas = 0 THEN start a = 1 bleue: IF numero(a)=1 THEN d1 IF numero(a)=2 THEN d2 IF numero(a)=3 THEN d3 IF numero(a)=4 THEN d4 IF numero(a)=5 THEN d5 IF numero(a)=6 THEN d6 IF numero(a)=7 THEN d7 IF numero(a)=8 THEN d8 IF numero(a)=9 THEN d9 IF numero(a)=10 THEN d10 IF numero(a)=11 THEN d11 IF numero(a)=12 THEN d12 labas: a = a + 1 IF a>pas THEN start GOTO bleue DO: DTMFOUT 0, 100 ,30, [0] GOTO labas d1: DTMFOUT 0, 100 ,30, [1] GOTO labas d2: DTMFOUT 0, 100 ,30, [2] GOTO labas d3: DTMFOUT 0, 100 ,30, [3] GOTO labas d4: DTMFOUT 0, 100 ,30, [4] GOTO labas d5: DTMFOUT 0, 100 ,30, [5] GOTO labas d6: DTMFOUT 0, 100 ,30, [6] GOTO labas d7: DTMFOUT 0, 100 ,30, [7] GOTO labas d8: DTMFOUT 0, 100 ,30, [8] GOTO labas d9: DTMFOUT 0, 100 ,30, [9] GOTO labas d10: DTMFOUT 0, 100 ,30, [0] GOTO labas d11: DTMFOUT 0, 100 ,30, [10] GOTO labas d12: DTMFOUT 0, 100 ,30, [11] GOTO labas

Basic Stamp II Script