===========================================================================
 BBS: The Abacus * HST/DS * Potterville MI
Date: 04-29-93 (05:57)             Number: 93
From: CALVIN FRENCH                Refer#: NONE
  To: DAVE BEATTY                   Recvd: NO  
Subj: Ring                           Conf: (35) Quick Basi
---------------------------------------------------------------------------
 DB> Calvin,
 DB>         That would be great if you could post it.  I have
 DB> tried everything (maybe its my modem, doubt it though).  As
 DB> with a routine, are you talking about library's or just a
Here you go:
'________O_/________________________| SNIP |______________________\_O_______
'        O \                        | HERE |                      / O
'This file created by PostIt! v6.0.
'>>> Start of page 1.

DEFINT A-Z
DECLARE FUNCTION FilterCmd$ (ModemInput$)
DECLARE SUB DoMenu (NumOfOptions, Xstarting, Ystarting)
DECLARE SUB ComSend (WhatToSend$)
DECLARE SUB DialDir ()
DECLARE SUB ComCommand ()
DECLARE SUB Menu ()
OPEN "COM2:2400,N,8,1" FOR RANDOM AS #1 LEN = 256
OPEN "CONS:" FOR OUTPUT AS #2  'Allows for easy ANSI printing
ON ERROR GOTO errorhandle:

CONST TermScreen = 1
CONST DownloadScreen = 2
CONST RegularScreen = 0
CONST PcopyPage = 4
DIM SHARED Option$(10)
'
' 281-0640
' 283-5292

SCREEN , , RegularScreen, RegularScreen

CLS

DialDir

SCREEN , , TermScreen, TermScreen

CLS

DO

DO:
key$ = INKEY$
   IF NOT EOF(1) THEN

      ' LOC(1) gives the number of characters waiting:
      ModemInput$ = INPUT$(LOC(1), #1)
      ModemInput$ = FilterCmd$(ModemInput$)
      PRINT #2, ModemInput$;
   END IF

LOOP WHILE key$ = ""

SELECT CASE key$
CASE CHR$(0) + CHR$(32) ' That is ALT + D ; Dialing Directory
     DialDir
CASE CHR$(0) + CHR$(50) ' That is ALT + M ; Menu
     Menu
CASE CHR$(0) + CHR$(46) ' That is ALT + C ; Communication
' Commands
     ComCommand
CASE ELSE: ComSend key$
END SELECT


LOOP WHILE key$ <> CHR$(0) + CHR$(50)

END

errorhandle:
'57 - Device I/O error
SELECT CASE ERR
     CASE 57              'This always happens when losing
' Carrier
     RESUME NEXT          '... so just ignore it!
END SELECT

DEFSNG A-Z
SUB ComCommand

COLOR 15, 1

'>>> Continued on page 2
Here's the program:

... OFFLINE 1.52  "I got a Harley-Davidson for my ex-wife; GOOD TRADE"

--- 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