Communications through t

 BBS: Inland Empire Archive
Date: 02-05-93 (10:46)             Number: 317
From: JOE NEGRON                   Refer#: NONE
  To: ROB MCKEE                     Recvd: NO  
Subj: Communications through t       Conf: (2) Quik_Bas

JV> Try using something like
  > SLEEP 2
  > PRINT #1,"+++"
  > SLEEP 2
  > PRINT #1,"ATX0S7=1DT 123"
  > SLEEP 2
  > PRINT #1,"ATO"

RM> Instead of SLEEP which will drop through on key press for try..

RM> WaitFor 2
  > or
  > WaitFor .5

RM> SUB WaitFor (Sec!)
  >    D!= TIMER
  >    DO: LOOP WHILE TIMER - D! < Sec!
  > END SUB

RM> Catcha Later , I'll see you on the flip side - Rob

That's OK, but it doesn't handle the midnight rollover.  Here is a
version that does:

DECLARE SUB Pause (Ticks&)

DECLARE FUNCTION ClockTicks& ()

'***********************************************************************
'* FUNCTION ClockTicks&
'*
'* PURPOSE
'*    Returns the number of clock ticks since midnight.
'***********************************************************************
FUNCTION ClockTicks& STATIC
   DEF SEG = &H40
   ClockTicks& = PEEK(&H6C) + PEEK(&H6D) * 256& + PEEK(&H6E) * 65536
   DEF SEG
END FUNCTION

'***********************************************************************
'* SUB Pause
'*
'* PURPOSE
'*    Pauses a specified number of clock ticks.  The clock ticks
'*    approximately 18.2 times per second.
'*
'* INTERNAL ROUTINE(S)
'*    FUNCTION ClockTicks& ()
'***********************************************************************
SUB Pause (Ticks&) STATIC
   D& = ClockTicks& + Ticks&

   IF D& > 1573038 THEN
      D& = D& - 1573039
      DO WHILE ClockTicks& > 1
      LOOP
   END IF

   DO WHILE ClockTicks& < D&
   LOOP
END SUB

                                --Joe in Bay Ridge, Brooklyn, NY--
                                      Fri  02-05-1993, 10:46

... Bush: "You misheard me Rob, I said NO NUDE TEXANS!"
___
 X Blue Wave/QWK v2.12 X

--- Maximus 2.01wb
 * Origin: * BlueDog BBS * (212) 594-4425 * NYC FileBone Hub (1:278/709)