home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 19
/
CD_ASCQ_19_010295.iso
/
vrac
/
easydr26.zip
/
EDRDEMO.BAS
< prev
next >
Wrap
BASIC Source File
|
1994-11-13
|
5KB
|
177 lines
DEFINT A-Z
' $INCLUDE: 'EasyDoor.BI'
' $INCLUDE: 'AutoBBS.BI'
' $INCLUDE: 'EasyPara.BI'
ON ERROR GOTO EndError
ON UEVENT GOSUB EndRoutine
UEVENT ON
Init Para$(), NPara(), 0, 2, 0 ' Use those default parameters
LOCATE , , 1
IF GetUserGraphType = 0 THEN
SendCLS
SendCR "Sorry, you need ANSI or AVATAR capabilities to run this door."
WHILE ModemInputChar$ <> CHR$(13): WEND
ReturnBBS
END IF
SendCLS
SmartColor 15, 1
SendCR Center$("This is the SmartColor and the AnsiLocate routine...")
RANDOMIZE TIMER
FOR T = 1 TO 200
SmartColor T MOD 15 + 1, T MOD 100 + 1
AnsiLocate RND * 19 + 3, RND * 65 + 1
Send "* Easy-Door *"
NEXT
SmartColor 11, 3
AnsiBox 20, 10, 60, 15, 2, 1
SmartColor 15, 3
AnsiLocate 11, 22: SendCR "You can use the AnsiBox routine to"
AnsiLocate 12, 22: SendCR "make pretty box like this one!"
AnsiLocate 14, 32: Send "Press [Enter] to continue."
WHILE ModemInputChar$ <> CHR$(13): WEND
SmartColor 15, 5
AnsiBox 18, 9, 62, 15, 2, 1
SmartColor 15, 5
AnsiLocate 10, 20: SendCR "Easy-Door has nice simple menu routines."
AnsiLocate 11, 20: SendCR "It also has built-in support for ANSI and"
AnsiLocate 12, 20: SendCR "Avatar/0+ control codes."
AnsiLocate 14, 34: Send "Press [Enter] to continue."
WHILE ModemInputChar$ <> CHR$(13): WEND
SendCLS
SmartColor 15, 0
SendCR "The SendFile routine let you send ANSI or AVATAR files."
Linefeed 2
SmartColor 3, 0
SendCR "Use cursor keys or press space to toggle between choice. Press Enter to select."
SendCR ""
SmartColor 14, 0
Send "Wich file type you want to see: "
MulChoice "ANSI;Avatar/0+;Skip this part", 1, ch
SELECT CASE ch
CASE IS = 1: SendFile "SHUTTLE2.ANS", 0
CASE IS = 2: SendFile "SHUTTLE2.AVT", 0
END SELECT
SmartColor 11, 3
AnsiBox 18, 10, 58, 14, 4, 0
SmartColor 15, 3
AnsiLocate 11, 20: SendCR "Who said BASIC was slow?"
AnsiLocate 13, 30: Send "Press [Enter] to continue."
WHILE ModemInputChar$ <> CHR$(13): WEND
SendCLS
SmartColor 15, 0
SendCR ""
Send "Now look at the first line of the status bar and then press [Enter]."
WHILE ModemInputChar$ <> CHR$(13): WEND
ChangePara 24, " This bar can contain your own specific message!"
StatusBar 1
Linefeed 2
SendCR "Now look at it again."
SmartColor 9, 0
SendCR ""
SendCR "Has you can see Easy-Door is fully customizable."
SendCR ""
SmartColor 3, 0
SendCR "Easy-Door can also be translated to another language like French or Spanish"
SendCR "without pain."
SendCR ""
SmartColor 14, 0
Send "Press [Enter] to continue."
WHILE ModemInputChar$ <> CHR$(13): WEND
Choice$(1) = "Start a new game"
Choice$(2) = "Continue a game"
Choice$(3) = "Display high scores"
Choice$(4) = "Quit"
SendCLS
NBChoice = 4
EasyMenu "Main menu", Choice$(), NBChoice, Answer, 15, 14, 1, 5, 2, 1
AnsiLocate 16, 1
SmartColor 15, 0
SendCR "You have selected option #" + Num2Str$(Answer)
SendCR ""
SmartColor 14, 0
Send "Press [Enter] to continue."
WHILE ModemInputChar$ <> CHR$(13): WEND
SendCLS
SmartColor 15, 0
SendCR "Easy-Door supports various multitaskers:"
SmartColor 3, 0
SendCR " - Windows"
SendCR " - OS/2"
SendCR " - DESQview"
SendCR " - DoubleDOS"
SendCR " - PC-MOS"
SendCR ""
SmartColor 15, 0
SendCR "With the Easy-Door library your application will have:"
SmartColor 3, 0
SendCR " - Automatic time slicing"
SendCR " - DESQview virtual screen support"
SendCR ""
SmartColor 11, 0
Send " ■ Your system is running under "
SELECT CASE TaskerDetect%
CASE IS = 1: SendCR "Windows."
CASE IS = 2: SendCR "DESQview or TopView."
CASE IS = 3: SendCR "DoubleDOS."
CASE IS = 4: SendCR "PC-MOS."
CASE IS = 5: SendCR "OS/2."
CASE ELSE: SendCR "DOS or an unknown operating system."
END SELECT
SendCR ""
SmartColor 14, 0
Send "Press [Enter] to continue."
WHILE ModemInputChar$ <> CHR$(13): WEND
Here:
lf$ = CHR$(13) + CHR$(10)
SmartColor 15, 1
AnsiBox 7, 3, 72, 16, 2, 0
AnsiLocate 5, 1
SmartColor 14, 1
SendCR Center$("Thanks for watching the Easy-Door Library demo")
SmartColor 15, 1
SendCR Center$("(c) 1990-93, All Rights Reserved") + lf$
SendCR Center$("by Martin Bouchard (Fidonet 1:240/291)") + lf$
SendCR Center$("1207 du Golf")
SendCR Center$("Cap-Rouge, QC")
SendCR Center$("Canada")
SendCR Center$("G1Y 2T4")
SendCR lf$ + lf$ + lf$
SmartColor 14, 0
Send "Press [Enter] to continue."
WHILE ModemInputChar$ <> CHR$(13): WEND
SendCLS
ReturnBBS
EndRoutine:
CLS
PRINT "Door terminated"
RETURN
EndError:
CLS
PRINT "Runtime error #"; Num2Str$(ERR)
PRINT
SLEEP 2
END