1 / 140

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

;*****************************************************************************. ;* *. ;* ANSI DETECTION V2.3 *.

ellema
Télécharger la présentation

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

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. ;*****************************************************************************;*****************************************************************************

  2. ;* *

  3. ;* ANSI DETECTION V2.3 *

  4. ;* *

  5. ;* written by: Steve Catmull *

  6. ;* *

  7. ;* started: 04-26-93 *

  8. ;* *

  9. ;*****************************************************************************;*****************************************************************************

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

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

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

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

  14. STRING temp ; Stores the token of what user inputed.

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

  16. STRING esc ; Constant used instead of chr(27)

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

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

  19. STRING nonews ; For parsing out what user enters

  20. STRING nowelc ; For parsing out what user enters

  21. STRING ansi ; For parsing out what user enters

  22. STRING rip ; For parsing out what user enters

  23. STRING noansi ; For parsing out what user enters

  24. STRING autoansr ; Used to skip graphics question if graphics detected

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

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

  27. STRING RIPVer ; IF RIPscrip, contains the version num. of term software

  28. STRING RIPVen ; If RIPscrip, contains the vender code of term software

  29. temp = "" ; Initialized to non null for WHILE

  30. cr_lf = chr(13)+chr(10)

  31. rip_detect = true ; Assume RIPscrip detection.

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

  33. esc = chr(27) ; define the ESC character

  34. ; Analyze Command line passed

  35. temp=gettoken()

  36. while (temp != "") DO

  37. if (mid(upper(temp),2,3) = "NOR") then ;Check for RIP

  38. rip_detect = false

  39. else if (mid(upper(temp),2,3) = "NOQ") then ;Force Welcome screen

  40. allow_quick = ""

  41. else if (mid(upper(temp),2,1) = "C") then ;Compatible mode

  42. compatible = true

  43. else if (mid(upper(temp),2,1) = "A") then ;Force best answer

  44. autoansr = true

  45. endif

  46. temp=gettoken()

  47. endwhile

  48. temp="" ; Return temp how we found it.

  49. ; /* If the user is connected locally then default autoamtically to ANSI

  50. ; capable.

More Related