home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / clarion / library / dial / dial.cla
Encoding:
Text File  |  1992-01-11  |  2.1 KB  |  73 lines
  1.          MEMBER()  ! "Universal" module
  2.  
  3. !============================================================================
  4. !   Dial through modem connected to COM1 - COM2
  5. !   Call procedure with COM port number and number to dial as arguments
  6. !     eg: DIAL( 1, MEM:Num )
  7. !         where MEM:Num is defined as a STRING of up to 20 characters
  8. !                         Ken Kirchner
  9. !                         6-3-91
  10. !   Freely use, modify or whatever
  11. !                  Ken Kirchner
  12. !                  1/11/92
  13. !
  14. !     NOTE that this is a "Blind" dialer, no attempt is made to set comm
  15. !     parameters, wait for dial tones or any other interaction with the
  16. !     modem.
  17. !============================================================================
  18.  
  19. Dial         PROCEDURE( D_Port, D_Num )
  20.  
  21. SCREEN         SCREEN      WINDOW(7,33),HUE(7,0)
  22.            ROW(1,32)  PAINT(1,2),TRN
  23.            ROW(2,32)  PAINT(6,2),HUE(8,0),TRN
  24.            ROW(7,2)      PAINT(1,30),HUE(8,0),TRN
  25.            ROW(7,1)      PAINT(1,1),TRN
  26.            ROW(1,1)      STRING('┌─{29}┐')
  27.            ROW(2,1)      REPEAT(3);STRING('│<0{29}>│') .
  28.            ROW(5,1)      STRING('│<0{17},17>─┘<0{9}>│')
  29.            ROW(6,1)      STRING('└─{29}┘')
  30.            ROW(2,6)      STRING('Dialing. . .')
  31.            ROW(4,4)      STRING('Lift Phone Receiver, then')
  32.            ROW(5,4)      STRING('press <<Enter> (')
  33.          COL(22)  STRING(').')
  34.          .
  35.  
  36. REPORT         REPORT      WIDTH(40),DEVICE(D_Device)
  37.  
  38. PAGE_HEAD          HEADER
  39.          COL(1)        STRING('ATTD')        !Set modem dial mode
  40.          COL(5)        STRING(20),USE(D_Num)
  41.               .
  42. FOOTER              FOOTER
  43.          .          .
  44.  
  45. D_Port         SHORT                 ! Modem Port
  46. D_Num         STRING(20)                 ! Number to dial
  47. D_Device     STRING(10)                 ! Clarion Device
  48. D_Time         LONG
  49.  
  50.  
  51.   CODE
  52.  
  53.   IF D_Port = 2
  54.     D_Device = 'COM2:'
  55.   ELSE
  56.     D_Device = 'COM1:'                 ! Errors default to COM1
  57.   .
  58.  
  59.   OPEN(REPORT)                     ! Dial Number
  60.  
  61.   D_Time = CLOCK() + 300             ! Delay 3 seconds
  62.   LOOP UNTIL CLOCK() > D_Time
  63.     IF CLOCK() < 100 THEN BREAK.         ! OK, we cheat at midnight
  64.     CYCLE
  65.   .
  66.  
  67.   OPEN(SCREEN)                     ! Tell user we dialed
  68.   ASK                         ! Wait for user to pick up
  69.   CLOSE(REPORT)                     ! Disconnect modem
  70.   CLOSE(SCREEN)
  71.   RETURN
  72.  
  73.