home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 19 / CD_ASCQ_19_010295.iso / vrac / easydr26.zip / EASYPARA.BI < prev    next >
Text File  |  1994-11-13  |  4KB  |  96 lines
  1. ' Easy-Door V2.63 Configurable Parameters
  2. ' ---------------------------------------
  3. '
  4. ' See EasyDoor.DOC for more information
  5. '
  6. DIM Para$(1 TO 37), NPara(1 TO 20)
  7.  
  8. lf$ = CHR$(13) + CHR$(10)
  9. FullName$ = Cap$(FullName$)
  10. Para$(1) = AnsiReset$ + CHR$(12) + lf$ + lf$ + Bright$ + "Sysop Chat Mode Entered..."
  11. Para$(2) = "■ ESC to End Chat Mode" + lf$
  12. Para$(3) = lf$ + "Hello " + FullName$ + ", this is the Sysop." + lf$
  13. Para$(4) = Cyan$
  14. Para$(5) = Magenta$
  15. Para$(6) = Green$ + lf$ + lf$ + "Sysop Chat Mode Ended." + lf$
  16. Para$(7) = Red$ + lf$ + lf$ + "**** Warning - User inactivity timeout in 30 seconds."
  17. Para$(8) = Red$ + lf$ + "**** User inactivity timeout, Hanging Up..." + AnsiReset$
  18. Para$(9) = "ERROR: "
  19. Para$(10) = AnsiReset$ + CHR$(12) + "Press S to Stop or P to Pause" + lf$
  20. Para$(11) = AnsiReset$ + CHR$(12) + "Press P to Pause" + lf$
  21. Para$(12) = "P" ' Pause key
  22. Para$(13) = "S" ' Stop key
  23. Para$(14) = " Hanging Up..."
  24. Para$(15) = "No Carrier, Communication Lost."
  25. Para$(16) = lf$ + lf$ + "Data file not found." + lf$
  26. Para$(17) = "  Returning to BBS..."
  27. Para$(18) = "Exceeded  "
  28. Para$(19) = Red$ + lf$ + lf$ + "**** Time Limit Exceeded. Call Back Tomorrow ****" + lf$ + lf$
  29. Para$(20) = Bright$ + Green$ + "More " + Yellow$ + "Y" + Green$ + "/" + Yellow$ + "n" + Green$ + "? "
  30. Para$(21) = "Y" ' key for more
  31. Para$(22) = "N"  'key for more
  32. Para$(23) = AnsiReset$ + STRING$(12, 8)
  33. Para$(24) = " Easy-Door v2.63, (c) 1990-94, Martin Bouchard                                  "
  34. Para$(25) = " Paused   "  ' When PauseClock
  35. Para$(26) = lf$ + Red$ + "The Sysop has shelled to DOS..."
  36. Para$(27) = AnsiReset$ + "Sysop DOS Shell Function:" + lf$ + lf$ + "Type EXIT to return to door"
  37. Para$(28) = Bright$ + Green$ + lf$ + "The Sysop has Returned from DOS, Thanks for Waiting!"
  38. Para$(29) = Red$ + lf$ + "**** Warning: Less than 2 minutes remaining this call." + lf$
  39. Para$(30) = FullName$
  40. Para$(31) = Location$
  41. Para$(32) = BAUD$
  42. Para$(33) = Com$              ' COMx
  43. Para$(34) = AnsiFlag$         ' ANSI
  44. Para$(35) = TimeRemaining$    ' Time left by User when entering Door
  45. Para$(36) = "Local Mode"      ' Message when in Local Mode
  46. Para$(37) = " min. "          ' Message after time display
  47.  
  48. NPara(1) = 55   ' Delay to lower DTR when Hanging UP (18th/sec)
  49. NPara(2) = 15   ' Pause delay when 'P' hit (sec)
  50. NPara(3) = 120  ' User Inactivity Timeout in sec.
  51. NPara(4) = 18   ' Delay after a No Carrier (18th/sec)
  52. NPara(5) = 72   ' Delay when DATA FILE NOT FOUND (18th/sec)
  53. NPara(6) = 23   ' Nb of line wanted on screen (leave space for status bar)
  54. NPara(7) = 1    ' Carrier Detect On/Off
  55. FG = 11: BG = 1 ' Foreground and Background Color for status bar
  56. NPara(8) = FG + 16 * BG   ' Status Bar Color (combined color number)
  57. NPara(9) = 1    ' Enable Time Counter
  58. NPara(10) = 0   ' Used internally by Time Counter
  59. NPara(11) = 5   ' Row where to put cursor when shelling to DOS
  60. NPara(12) = 1   ' Enable ALT-X or ALT-R to EXIT DOOR
  61. NPara(13) = 120 ' Enable warning before daily timeout ( >0 = ON) (sec)
  62. NPara(14) = 1   ' Enable keys to change time
  63. NPara(15) = 0   ' Used internally by Inactivity checker
  64. NPara(16) = 0   ' Turn off ALT-C, 0=Not Turned OFF, 1=Turned OFF
  65. NPara(17) = 1   ' Enable Status Bar
  66. NPara(18) = 42  ' Column where # of BAUD/LOCALLY is printed on status bar
  67. NPara(19) = 1   ' Enable Avatar/0+ emulation
  68. IF NovellDetect% = 1 THEN
  69.    NPara(20) = 0   ' Disable multitasker awarness under a Novell network
  70. ELSE
  71.    NPara(20) = 1   ' Otherwise, enable multitasker awarness
  72. END IF
  73.  
  74.  
  75. ' Add graphic mode info to status bar
  76.  
  77. SELECT CASE Para$(34)
  78.     CASE IS = "0": Graph$ = "(ASCII)"
  79.     CASE IS = "1": Graph$ = " (ANSI)"
  80.     CASE IS >= "2": Graph$ = "  (AVT)"
  81. END SELECT
  82. MID$(Para$(24), 66) = Graph$
  83.  
  84. ' Add multi-tasker info to status bar
  85.  
  86. SELECT CASE TaskerDetect%
  87.    CASE IS = 1: Tasker$ = " (WIN)"
  88.    CASE IS = 2: Tasker$ = "  (DV)"
  89.    CASE IS = 3: Tasker$ = "(DDOS)"
  90.    CASE IS = 4: Tasker$ = " (PCM)"
  91.    CASE IS = 5: Tasker$ = "(OS/2)"
  92.    CASE ELSE: Tasker$ = " (DOS)"
  93. END SELECT
  94. MID$(Para$(24), 74) = Tasker$
  95.  
  96.