dtmfout.bs2

来自「proteus 仿真实例」· BS2 代码 · 共 18 行

'-----------------------------------------------------------------------------
' 
' Sample program to dial a phone #
'
'
'{$STAMP BS2}

start:  
    debug   "Dialing...",cr  
    dtmfout 0,[1,5,8,6,7,8,1,9,1,4,5]

    pause   1000
    goto    start