home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Programmierung / SOURCE.mdf / programm / msdos / basic / code_it4 / demom3.bas < prev    next >
Encoding:
BASIC Source File  |  1991-06-10  |  3.6 KB  |  99 lines
  1. '============================================================================
  2. 'DEMOM3.BAS Copyright (C) 1991, 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.