===========================================================================
 BBS: The Abacus * HST/DS * Potterville MI
Date: 04-29-93 (05:58)             Number: 94
From: CALVIN FRENCH                Refer#: 93
  To: DAVE BEATTY                   Recvd: NO  
Subj: Ring                           Conf: (35) Quick Basi
---------------------------------------------------------------------------
'>>> Start of page 2.

Option$(1) = " Send Hangup String "
Option$(2) = " Send Answer String "
Option$(3) = " Download File      "
Option$(4) = " Upload File        "
Option$(5) = "--------------------"
Option$(6) = " Return To Terminal "

PCOPY 1, 4

OldRow = CSRLIN
OldCol = POS(0)
DoMenu 6, 10, 5
LOCATE OldRow, OldCol
PCOPY 4, 1

SELECT CASE CurrentBar
CASE 1: PRINT #1, "+++": SLEEP 3: PRINT #1, "ATH0"
END SELECT
END SUB

SUB ComSend (WhatToSend$)
PRINT #1, WhatToSend$;
END SUB

SUB DialDir
CLS
PRINT "Dart Board - 281-0640, Other one - 283-5292"
INPUT "Phone Number to Dial? ", PhoneNumber$
PRINT #1, "ATDT" + PhoneNumber$

SCREEN , , TermScreen, TermScreen

CLS
COLOR 15, 1
PRINT "Dialing: "; PhoneNumber$
COLOR 7, 0
END SUB

DEFINT A-Z
SUB DoMenu (NumOfOptions, Xstarting, Ystarting)

SHARED CurrentBar
SHARED OldCurrentBar

IF OldCurrentBar > 0 THEN CurrentBar = OldCurrentBar ELSE_
 CurrentBar = 1

NumOfHorizontals = LEN(Option$(1))
NumOfVerticals = NumOfOptions

COLOR 14, 4
LOCATE Ystarting, Xstarting - 1
COLOR 14, 4
PRINT "+"; STRING$(NumOfHorizontals, "-"); "+"
FOR n = 1 TO NumOfVerticals
     LOCATE Ystarting + n, Xstarting - 1
IF n = CurrentBar THEN
     PRINT "|"; : COLOR 15, 1: PRINT Option$(n); : COLOR 14, 4:_
 PRINT "|"
ELSE
     COLOR 14, 4: PRINT "|"; Option$(n); "|"
END IF
NEXT n
LOCATE Ystarting + NumOfVerticals + 1, Xstarting - 1
COLOR 14, 4
PRINT "+"; STRING$(NumOfHorizontals, "-"); "+"
'DrawMenu:

Keyin:
DO: pkey$ = INKEY$: LOOP WHILE pkey$ = ""
SELECT CASE pkey$
     CASE CHR$(0) + "P"
          GOSUB Down
     CASE CHR$(0) + "H"
          GOSUB Up
     CASE CHR$(13)
          GOSUB ThatOne
END SELECT
GOTO Keyin

Down:

'>>> Continued on page 3

... OFFLINE 1.52  "Real men use BASIC... C is for UNIX."

--- Maximus 2.01wb
 * Origin: RJ's Byteline =[HST/DS]= Calgary (403)247-3180 CANADA (1:134/75)
SEEN-BY: 1/211 11/2 4 13/13 101/1 108/89 109/25 110/69 114/5 123/19 124/1
SEEN-BY: 153/752 154/40 77 157/2 159/100 125 430 575 950 203/23 209/209
SEEN-BY: 280/1 390/1 396/1 15 397/2 2230/100 2440/5 3603/20