home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / qb_pds / communic / bceasydr / edrdemo.bas < prev    next >
Encoding:
BASIC Source File  |  1993-12-22  |  4.1 KB  |  155 lines
  1. DEFINT A-Z
  2.  
  3. ' $INCLUDE: 'EasyDoor.BI'
  4. ' $INCLUDE: 'AutoBBS.BI'
  5. ' $INCLUDE: 'EasyPara.BI'
  6.  
  7. Init Para$(), NPara(), 0, 2, 0  ' Use this default parameters
  8. LOCATE , , 1
  9.  
  10. SendCLS
  11. SmartColor 15, 1
  12. SendCR Center$("This is the SmartColor and the AnsiLocate routine...")
  13. RANDOMIZE TIMER
  14. FOR T = 1 TO 200
  15.    SmartColor T MOD 15 + 1, T MOD 100 + 1
  16.    AnsiLocate RND * 19 + 3, RND * 65 + 1
  17.    Send "* Easy-Door *"
  18. NEXT
  19.  
  20. SmartColor 11, 3
  21. AnsiBox 20, 10, 60, 15, 2, 1
  22. SmartColor 15, 3
  23. AnsiLocate 11, 22: SendCR "You can use the AnsiBox routine to"
  24. AnsiLocate 12, 22: SendCR "make pretty box like this one!"
  25. AnsiLocate 14, 32: Send "Press [Enter] to continue."
  26.  
  27. WHILE ModemInputChar$ <> CHR$(13): WEND
  28.  
  29. SmartColor 15, 5
  30. AnsiBox 18, 9, 62, 15, 2, 1
  31. SmartColor 15, 5
  32. AnsiLocate 10, 20: SendCR "Easy-Door has nice simple menu routines."
  33. AnsiLocate 11, 20: SendCR "It also has built-in support for ANSI and"
  34. AnsiLocate 12, 20: SendCR "Avatar/0+ control codes."
  35. AnsiLocate 14, 34: Send "Press [Enter] to continue."
  36. WHILE ModemInputChar$ <> CHR$(13): WEND
  37.  
  38.  
  39. SendCLS
  40. SmartColor 15, 0
  41. SendCR "The SendFile routine let you send ANSI or AVATAR files."
  42. LineFeed 2
  43. SmartColor 3, 0
  44. SendCR "Use cursor keys or press space to toggle between choice. Press Enter to select."
  45. SendCR ""
  46. SmartColor 14, 0
  47. Send "Wich file type you want to see: "
  48. MulChoice "ANSI;Avatar/0+;Skip this part", 1, ch
  49. SELECT CASE ch
  50.    CASE IS = 1: SendFile "SHUTTLE2.ANS", 0
  51.    CASE IS = 2: SendFile "SHUTTLE2.AVT", 0
  52. END SELECT
  53.  
  54. SmartColor 11, 3
  55. AnsiBox 18, 10, 58, 14, 4, 0
  56. SmartColor 15, 3
  57. AnsiLocate 11, 20: SendCR "Who said BASIC was slow?"
  58. AnsiLocate 13, 30: Send "Press [Enter] to continue."
  59. WHILE ModemInputChar$ <> CHR$(13): WEND
  60.  
  61. SendCLS
  62. SmartColor 15, 0
  63. SendCR ""
  64. Send "Now look at the first line of the status bar and then press [Enter]."
  65. WHILE ModemInputChar$ <> CHR$(13): WEND
  66.  
  67. ChangePara 24, " This bar can contains your own specific message!"
  68. StatusBar 1
  69. LineFeed 2
  70. SendCR "Now look at it again."
  71. SmartColor 9, 0
  72. SendCR ""
  73. SendCR "Has you can see Easy-Door is fully customizable."
  74. SendCR ""
  75. SmartColor 3, 0
  76. SendCR "Easy-Door can also be translated to another language like French or Spanish"
  77. SendCR "without pain."
  78. SendCR ""
  79. SmartColor 14, 0
  80. Send "Press [Enter] to continue."
  81. WHILE ModemInputChar$ <> CHR$(13): WEND
  82.  
  83. Choice$(1) = "Start a new game"
  84. Choice$(2) = "Continue a game"
  85. Choice$(3) = "Display high scores"
  86. Choice$(4) = "Quit"
  87.  
  88. SendCLS
  89. NbChoice = 4
  90. EasyMenu "Main menu", Choice$(), NbChoice, Answer, 15, 14, 1, 5, 2, 1
  91.  
  92. AnsiLocate 16, 1
  93. SmartColor 15, 0
  94. SendCR "You have selected option #" + Num2Str$(Answer)
  95. SendCR ""
  96. SmartColor 14, 0
  97. Send "Press [Enter] to continue."
  98. WHILE ModemInputChar$ <> CHR$(13): WEND
  99.  
  100. SendCLS
  101. SmartColor 15, 0
  102. SendCR "Easy-Door supports various multitaskers:"
  103. SmartColor 3, 0
  104. SendCR "   - Windows"
  105. SendCR "   - OS/2"
  106. SendCR "   - DESQview"
  107. SendCR "   - DoubleDOS"
  108. SendCR "   - PC-MOS"
  109. SendCR ""
  110. SmartColor 15, 0
  111. SendCR "With the Easy-Door library your application will have:"
  112. SmartColor 3, 0
  113. SendCR "   - Automatic time slicing"
  114. SendCR "   - DESQview virtual screen support"
  115. SendCR ""
  116. SmartColor 11, 0
  117. Send " ■ Your system is running under "
  118.  
  119. SELECT CASE TaskerDetect%
  120.    CASE IS = 1: SendCR "Windows."
  121.    CASE IS = 2: SendCR "DESQview or TopView."
  122.    CASE IS = 3: SendCR "DoubleDOS."
  123.    CASE IS = 4: SendCR "PC-MOS."
  124.    CASE IS = 5: SendCR "OS/2."
  125.    CASE ELSE: SendCR "DOS or an unknown operating system."
  126. END SELECT
  127.  
  128. SendCR ""
  129. SmartColor 14, 0
  130. Send "Press [Enter] to continue."
  131. WHILE ModemInputChar$ <> CHR$(13): WEND
  132.  
  133.  
  134. Here:
  135. lf$ = CHR$(13) + CHR$(10)
  136. SmartColor 15, 1
  137. AnsiBox 7, 3, 72, 16, 2, 0
  138. AnsiLocate 5, 1
  139. SmartColor 14, 1
  140. SendCR Center$("Thanks for watching the Easy-Door Library demo")
  141. SmartColor 15, 1
  142. SendCR Center$("(c) 1990-93, All Rights Reserved") + lf$
  143. SendCR Center$("by Martin Bouchard (Fidonet 1:240/291)") + lf$
  144. SendCR Center$("1207 du Golf")
  145. SendCR Center$("Cap-Rouge, QC")
  146. SendCR Center$("Canada")
  147. SendCR Center$("G1Y 2T4")
  148. SendCR lf$ + lf$ + lf$
  149. SmartColor 14, 0
  150. Send "Press [Enter] to continue."
  151. WHILE ModemInputChar$ <> CHR$(13): WEND
  152. SendCLS
  153. ReturnBBS
  154.  
  155.