home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
basic
/
tools
/
codeit
/
demow2.bas
< prev
next >
Wrap
BASIC Source File
|
1992-05-27
|
5KB
|
158 lines
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'DEMOW2.BAS Copyright (C) 1991-1992, Clear Software. ALL RIGHTS RESERVED.
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'$INCLUDE: 'CITOOLS.BI'
'$INCLUDE: 'CIWIND2.BI'
'$INCLUDE: 'CIMOUSE.BI'
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
DEFINT A-Z
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
CONST TRUE = -1, FALSE = 0
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'Dimention the arrays and initialize the mouse. Notice the base of 1 (1 TO n).
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
DIM AletText$(1 TO 2)
DIM TextText$(1 TO 5)
DIM scrlText$(1 TO 40)
DIM scrlTag(1 TO 40)
DIM TagText$(1 TO 2)
MouseInit
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'Set the array member contents of the string and integer arrays.
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
AlertText$(1) = " Be Bop Aluah She's My Baby...... "
TextText$(1) = " Be Bop Aluah Don't Mean Maybe|"
TextText$(2) = "="
TextText$(3) = " Press any key to go to the mountains "
scrlText$(1) = "Pine Trees"
scrlText$(2) = "Ferns"
scrlText$(3) = "Mountains"
scrlText$(4) = "Rivers"
scrlText$(5) = "Lakes"
scrlText$(6) = "Valleys"
scrlText$(7) = "Water Falls"
scrlText$(8) = "Deer"
scrlText$(9) = "Fish"
scrlText$(10) = "Bear"
scrlText$(11) = "Ponds"
scrlText$(12) = "Rabbits"
scrlText$(13) = "Leaves"
scrlText$(14) = "Medows"
scrlText$(15) = "Vines"
scrlText$(16) = "Oak Trees"
scrlText$(17) = "Log Cabins"
scrlText$(18) = "Blue Sky"
scrlText$(19) = "Streems"
scrlText$(20) = "Birds"
scrlText$(21) = "Big Pine Trees"
scrlText$(22) = "Green Ferns"
scrlText$(23) = "High Mountains"
scrlText$(24) = "Rapid Rivers"
scrlText$(25) = "Clear Lakes"
scrlText$(26) = "Green Valleys"
scrlText$(27) = "Cascading Water Falls"
scrlText$(28) = "Hiding Deer"
scrlText$(29) = "Jumpin' Fish"
scrlText$(30) = "Grissly Bear"
scrlText$(31) = "Wide Ponds"
scrlText$(32) = "Fast Rabbits"
scrlText$(33) = "Lots of Leaves"
scrlText$(34) = "Green Medows"
scrlText$(35) = "Hanging Vines"
scrlText$(36) = "Large Oak Trees"
scrlText$(37) = "Cozy Log Cabins"
scrlText$(38) = "Clear Blue Sky"
scrlText$(39) = "Trickling Streems"
scrlText$(40) = "Singing Birds"
scrlTag(4) = 1
scrlTag(5) = 1
scrlTag(20) = 1
scrlTag(30) = 1
scrlTag(35) = 1
scrlTag(36) = 1
TagText$(1) = " Use the SPACE BAR to tag or un-tag items "
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'Sort the scrlText$() array.
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
SWAPIT = TRUE
WHILE SWAPIT
SWAPIT = FALSE
FOR a = 2 TO UBOUND(scrlText$)
IF scrlText$(a - 1) > scrlText$(a) THEN
SWAP scrlText$(a - 1), scrlText$(a)
SWAPIT = TRUE
END IF
NEXT
WEND
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'Clear the screen and paint the background.
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
CLS
COLOR 0, 1
ScreenPaint 2, 79, 2, 23, ""
DrawBox 1, 80, 1, 23, 2
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'Show the mouse and display the alert window.
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
MouseShow
x = AlertWindow(6, 25, AlertText$(), " Show Your Age ", 1, 2, "OK", "Continue", "", 0, 3, 15)
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'Display the text window.
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
TextWindow 2, 4, TextText$(), "", 1, 2, 1, 15, 5
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'Make the scroll window active.
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
x = ScrollWindow(10, 38, 4, 20, scrlText$(), " Scroll Me ", 1, 2, 15, 6, 0, 7)
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'Display a text window and a tag window. Notice the 0 in the saveFlag
'parameter. This puts the window on the screen but does not save the screen
'area or wait for a user keypress like the first text window example above.
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
TextWindow 10, 2, TagText$(), "", 1, 2, 0, 15, 2
x = TagWindow(49, 77, 4, 20, scrlText$(), " Tag, Your It ", 1, 2, 15, 2, 0, 7, scrlTag(), "*")
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'Hide the mouse and clean up the screen.
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
MouseHide
COLOR 7, 0
CLS
END