'-----------------------------------------------------------------------------
'
' 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]
    SEROUT 1,396,["1"]
    pas = pas + 1
    numero(pas) = 1
    GOTO start
t2:
    DTMFOUT 0, 150 ,30, [2]
    SEROUT 1,396,["2"]
    pas = pas + 1
    numero(pas) = 2
    GOTO start
t3:
    DTMFOUT 0, 150 ,30, [3]
    SEROUT 1,396,["3"]
    pas = pas + 1
    numero(pas) = 3
    GOTO start
t4:
    DTMFOUT 0, 150 ,30, [4]
    SEROUT 1,396,["4"]
    pas = pas + 1
    numero(pas) = 4
    GOTO start
t5:
    DTMFOUT 0, 150 ,30, [5]
    SEROUT 1,396,["5"]
    pas = pas + 1
    numero(pas) = 5
    GOTO start
t6:
    DTMFOUT 0, 150 ,30, [6]
    SEROUT 1,396,["6"]
    pas = pas + 1
    numero(pas) = 6
    GOTO start
t7:
    DTMFOUT 0, 150 ,30, [7]
    SEROUT 1,396,["7"]
    pas = pas + 1
    numero(pas) = 7
    GOTO start
t8:
    DTMFOUT 0, 150 ,30, [8]
    SEROUT 1,396,["8"]
    pas = pas + 1
    numero(pas) = 8
    GOTO start
t9:
    DTMFOUT 0, 150 ,30, [9]
    SEROUT 1,396,["9"]
    pas = pas + 1
    numero(pas) = 9
    GOTO start
t10:
    DTMFOUT 0, 150 ,30, [0]
    SEROUT 1,396,["0"]
    pas = pas + 1
    numero(pas) = 10
    GOTO start
t11:
    DTMFOUT 0, 150 ,30, [10]
    SEROUT 1,396,["*"]
    pas = pas + 1
    numero(pas) = 11
    GOTO start
t12:
    DTMFOUT 0, 150 ,30, [11]
    SEROUT 1,396,["#"]
    pas = pas + 1
    numero(pas) = 12
    GOTO start
efface:
   SEROUT 1,396,[254,1]
   pas = 0
   GOTO start
redial:
   IF pas = 0 THEN start
   'SEROUT 1,396,[254,1]
   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