home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 19
/
CD_ASCQ_19_010295.iso
/
vrac
/
easydr26.zip
/
TESTDOOR.BAS
< prev
next >
Wrap
BASIC Source File
|
1994-08-05
|
779b
|
35 lines
DEFINT A-Z
' $INCLUDE: 'EasyDoor.BI'
' $INCLUDE: 'AutoBBS.BI'
' $INCLUDE: 'EasyPara.BI'
Init Para$(), NPara(), 0, 2, 0 ' Beginners: use those default parameters
LOCATE , , 1 ' Make the cursor visible
SendCLS ' Clear the screen
SmartColor 13, 0 ' Change color
SendCR Center$("This is a test door using Easy-Door")
SendCR ""
SmartColor 11, 0
ModemInput "How old are you? ", M$, 14, 1, 2
SendCR ""
SELECT CASE M$
CASE IS <= "14"
SendCR "Hello young boy!"
CASE IS <= "21"
SendCR "Hello young adult!"
CASE ELSE
SendCR "Hello Mister!"
END SELECT
SmartColor 12, 0
Linefeed 2
Send "Press [Enter] to quit this door."
WHILE GetChar$ <> CHR$(13): WEND
ReturnBBS