home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / qb_pds / communic / bceasydr / testdoor.bas < prev    next >
Encoding:
BASIC Source File  |  1993-12-22  |  779 b   |  35 lines
  1. DEFINT A-Z
  2.  
  3. ' $INCLUDE: 'EasyDoor.BI'
  4. ' $INCLUDE: 'AutoBBS.BI'
  5. ' $INCLUDE: 'EasyPara.BI'
  6.  
  7. Init Para$(), NPara(), 0, 2, 0  ' Beginners: use those default parameters
  8. LOCATE , , 1                    ' Make the cursor visible
  9. SendCLS                         ' Clear the screen
  10. SmartColor 13, 0                ' Change color
  11.  
  12. SendCR Center$("This is a test door using Easy-Door")
  13. SendCR ""
  14. SmartColor 11, 0
  15. ModemInput "How old are you? ", M$, 14, 1, 2
  16. SendCR ""
  17.  
  18. SELECT CASE M$
  19.    CASE IS <= "14"
  20.       SendCR "Hello young boy!"
  21.    CASE IS <= "21"
  22.       SendCR "Hello young adult!"
  23.    CASE ELSE
  24.       SendCR "Hello Mister!"
  25. END SELECT
  26.  
  27. SmartColor 12, 0
  28. Linefeed 2
  29. Send "Press [Enter] to quit this door."
  30.  
  31. WHILE GetChar$ <> CHR$(13): WEND
  32.  
  33. ReturnBBS
  34.  
  35.