home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e060 / 6.ddi / DIALER.IPF < prev    next >
Encoding:
Text File  |  1986-06-27  |  2.7 KB  |  159 lines
  1. load from dialer with "fm"
  2. load perform dialt2e
  3. load perform diale2t
  4.  
  5. e.supd=true
  6. e.lstr=80
  7.  
  8. use fone
  9.  
  10. clear
  11. i=1
  12. x=4
  13. y=x-1
  14. xx=x
  15. ans=" "
  16. changed=true
  17. while ans <> "q" do
  18.     if changed then
  19.         clear
  20.         putform head
  21.         obtain first from fone
  22.         i=1
  23.         while i lt 10 do
  24.             tally nuber at x,1
  25.             if i in [1,2] then
  26.                 tally slne at x,1
  27.             else
  28.                 if fone.name <> "" then
  29.                     tally lne at x,1
  30.                 endif
  31.             endif
  32.             x=x+1
  33.             i=i+1
  34.             obtain next from fone
  35.         endwhile
  36.     else
  37.         if ans in ["d","c"] then
  38.             putform cl at 15,1
  39.             putform cl at 17,1
  40.             i=numb
  41.             if numb in [3,4,5,6,7,8,9] then
  42.                 tally nuber at numb+y,1
  43.                 tally lne at numb+y,1
  44.             endif
  45.             if numb in [1,2] then
  46.                 tally nuber at numb+y,1
  47.                 tally slne at numb+y,1
  48.             endif
  49.         endif
  50.     endif
  51.     numb=1
  52.     putform dcq
  53.     getform dcq
  54.     changed=false
  55.     test ans
  56.     case "h":
  57.         if #copen then
  58.             comm hangup
  59.         endif
  60.         break
  61.     case "t":
  62.         if not #copen then
  63.             comm open
  64.         endif
  65.         if #copen then
  66.             comm terminal
  67.         endif
  68.         changed=true
  69.         break
  70.     case "d":
  71.         numb=""
  72.         putform calling
  73.         putform dialw
  74.         getform dialw
  75.         fnum=""
  76.         test substr(numb, 1, 1)
  77.         case "+":
  78.             numb = substr(numb, 2, 1)
  79.             obtain 1 from fone
  80.             fnum=fone.number+","
  81.             break
  82.         case "-":
  83.             numb = substr(numb, 2, 1)
  84.             obtain 2 from fone
  85.             fnum=fone.number+","
  86.             break
  87.         case "*":
  88.             numb = substr(numb, 2, 1)
  89.             obtain 1 from fone
  90.             fnum=fone.number
  91.             obtain 2 from fone
  92.             fnum=fnum+","+fone.number+","
  93.             break
  94.         endtest
  95.         numb = tonum(numb)
  96.         if (numb gt 2 and numb lt 10) then
  97.             obtain numb from fone
  98.             fnum=fnum+fone.number
  99.             putform cl at 15,1
  100.             putform cl at 19,1
  101.             putform ll
  102.             tally ll 
  103.             putform ll2 at 1,len(fone.name)+17
  104.             tally ll2 at 1,len(fone.name)+20
  105.             perform dialt2e
  106.             yn="y"
  107.             putform plugin
  108.             getform plugin
  109.             if yn = "Y" then
  110.                 putform d1; p
  111.                 putform d2; p
  112.                 putform d3; p
  113.                 putform d4; p
  114.                 putform d5; p
  115.                 putform d6; p
  116.                 putform d7; p
  117.                 putform d8; p
  118.                 if #copen then
  119.                     comm reset
  120.                 else
  121.                     comm open
  122.                 endif
  123.                 comm terminal dial fnum
  124.                 changed=true
  125.                 p; p; p
  126.             endif
  127.         endif
  128.         break
  129.     case "c":
  130.         numb=0
  131.         putform numcha
  132.         getform numcha
  133.         if numb in [1,2,3,4,5,6,7,8,9] then
  134.             obtain numb from fone
  135.             if (numb in [1,2]) then
  136.                 getform getsnum at numb+y,1
  137.             else
  138.                 yn="n"
  139.                 getform getnum at numb+y,1
  140.                 putform cdef at numb+y,1
  141.                 getform cdef at numb+y,1
  142.                 if yn="Y" then
  143.                     putform busy at numb+y,1
  144.                     perform dialt2e
  145.                     comm setup
  146.                     perform diale2t
  147.                     changed=true
  148.                 endif
  149.             endif
  150.         endif
  151.         break
  152.         endtest
  153.     i=i+1
  154.     x=xx
  155. endwhile
  156. comm close
  157. finish fone
  158. clear
  159.