ANSI Detection and Response System V2.1 - Features and Implementation Details

;*****************************************************************************;*****************************************************************************

;* ANSI DETECTION V2.1 *

;* written by: Steve Catmull *

;* additional coding: David Terry *

;* started: 04-26-93 *

;*****************************************************************************;*****************************************************************************

BOOLEAN hasansi ; Result of ANSI - detection test (true or false)

BOOLEAN hasrip ; Result of ANSI - detection test (RIP & ANSI)

STRING graphdef ; Stores response to the "ask" prompt below

STRING ask ; Constant that contains "want graphics" minus default resp.

INTEGER numticks ; Used to store number of clock ticks that I have waited.

STRING maxticks ; Stores the maximum number of ticks to wait for response.

INTEGER waitlen ; Number of characters specified as wait time (2 or 3 digit)

STRING delayticks ; If no byte pending delay x ticks and try again.

STRING temp ; Stores the token of what user inputed.

STRING default_yes ; Used to store setting from PCBOARD.DAT for the default

STRING rest_ANSI ; Store rest of input buffer if any after ANSI CPR.

STRING temp_dir ; Temporary/work directory as defined in PCBSetup

STRING bkspace ; Sequence of characters for destructive backspace dwt

STRING esc ; Constant used instead of chr(27)

STRING cr_lf ; Constant used instead of chr(13)+chr(10)

BOOLEAN recorded ; Not really used anymore but leave it in here.

BOOLEAN compatible ; Used to determine is sysop wants to use compatible mode.

BOOLEAN debug ; Used for debugging (capturing incoming response)

STRING nonews ; For parsing out what user enters

STRING nowelc ; For parsing out what user enters

STRING ansi ; For parsing out what user enters

STRING rip ; For parsing out what user enters

STRING noansi ; For parsing out what user enters

STRING autoansr ; Used to skip graphics question if graphics detected

STRING rip_detect ; Used to disable RIPscrip checking. For those without RIP.

STRING allow_quick ; Used to enable or disable the "quick" login feature.

temp = "" ; Initialized to non null for WHILE

bkspace = chr(8)+chr(32)+chr(8) ; destructive backspace dwt

maxticks = 50 ; (50/18.2 seconds)

delayticks = 3 ; Wait 3 ticks if no input (when checking for response)

debug = false

esc = chr(27)

cr_lf = chr(13)+chr(10)

rip_detect = true ; Assume RIPscrip detection.

allow_quick="Q" ; Add to the valid entry string

; Analyze Command line passed

temp=gettoken()

while (temp != "") DO

if (mid(upper(temp),2,1) = "W") then

waitlen = len(temp)-instr(temp,":")

ANSI Detection and Response System V2.1 - Features and Implementation Details

Télécharger la présentation

Plus de contenu associé