home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / tools / codeit / demom3.bas < prev    next >
BASIC Source File  |  1992-05-27  |  4KB  |  99 lines

  1. '::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  2. 'DEMOM3.BAS Copyright (C) 1991-1992, Clear Software. ALL RIGHTS RESERVED.
  3. '::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  4.  
  5. '$INCLUDE: 'CITOOLS.BI'
  6. '$INCLUDE: 'CIMENU3.BI'
  7. '$INCLUDE: 'CIMOUSE.BI'
  8.  
  9. '::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  10.  
  11. DEFINT A-Z
  12.  
  13. '::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  14.  
  15. CONST TRUE = -1, FALSE = 0
  16.  
  17. '::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  18.  
  19. '::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  20. 'Initialize the mouse and dimention the arrays.
  21. '::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  22.     MouseInit
  23.  
  24.     DIM p1$(1 TO 10)
  25.     DIM pHi(1 TO 10)
  26.     DIM pHlp$(1 TO 10)
  27.  
  28. '::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  29. 'Define the array members for the menu choices and the highlight quick access
  30. 'keys.
  31. '::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  32.  
  33.     p1$(1) = "This Won't Hurt A Bit":       pHi(1) = 19
  34.     p1$(2) = "Trust Me":                    pHi(2) = 1
  35.     p1$(3) = "I Was At The Library":        pHi(3) = 1
  36.     p1$(4) = "I Told You So":               pHi(4) = 12
  37.     p1$(5) = "Easy To Use":                 pHi(5) = 1
  38.     p1$(6) = "-":                           pHi(6) = 1
  39.     p1$(7) = "Exit":                        pHi(7) = 2
  40.  
  41. '::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  42. 'Set the pop up menu colors.
  43. '::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  44.  
  45.     PopColors 7, 1, 7, 1, 7, 1, 1, 7, 8, 8, 15, 15
  46.  
  47. '::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  48. 'Define the menu description array members and the description area and
  49. 'colors.
  50. '::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  51.  
  52.     pHlp$(1) = " The reason most of us don't believe doctors"
  53.     pHlp$(2) = " Chapter one in the `How To Sell Used Cars' manual"
  54.     pHlp$(3) = " What we wished our parents would have beleived"
  55.     pHlp$(4) = " A phrase we could all do without"
  56.     pHlp$(5) = " Famous software claims"
  57.     pHlp$(6) = ""
  58.     pHlp$(7) = " Exit the program"
  59.  
  60.     PopDescript 1, 2, pHlp$(), 78, 15, 3
  61.     
  62. '::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  63. 'Set user defined exit keys for F1 and F2.
  64. '::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  65.     
  66.     PopExitKeySet 1, CHR$(0) + CHR$(59)
  67.     PopExitKeySet 2, CHR$(0) + CHR$(60)
  68.  
  69. '::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  70. 'Clear the screen, paint the background, and display the mouse cursor.
  71. '::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  72.  
  73.     CLS
  74.     COLOR 0, 7
  75.     ScreenPaint 2, 79, 2, 22, "."
  76.     DrawBox 1, 80, 1, 23, 2
  77.     
  78.     MouseShow
  79.  
  80. '::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  81. 'Make the menu visible and active. If the user chooses "Exit" from the menu
  82. 'or presses the escape key, exit the loop.
  83. '::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  84.     
  85.     WHILE x <> 7 AND x <> -27
  86.         x = PopMenu(6, 28, p1$(), pHi(), " Quotes and Claims ", 1, 1)
  87.     WEND
  88.  
  89. '::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  90. 'Hide the mouse cursor, clean up the screen, and exit the program.
  91. '::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  92.  
  93.     MouseHide
  94.  
  95.     COLOR 7, 0
  96.     CLS
  97.     END
  98.  
  99.