home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 01 / tricks / rstdemo.bas < prev    next >
Encoding:
BASIC Source File  |  1990-10-18  |  989 b   |  25 lines
  1. '* ------------------------------------------------------- *
  2. '*                      RSTDEMO.BAS                        *
  3. '*            Demoprogramm zur Funktion ReadStr$           *
  4. '*              (c) 1990 Kay Glahn & TOOLBOX               *
  5. '* ------------------------------------------------------- *
  6. DECLARE FUNCTION ReadStr$ (ES$, EL%, UpL%, L$, i%, S%, Lin%)
  7. CLS
  8. LOCATE 10, 20: PRINT "Geben Sie Ihren Namen ein !"
  9. LOCATE 12, 20: PRINT CHR$(201); STRING$(17, 205); CHR$(187)
  10. LOCATE 13, 20: PRINT CHR$(186); SPACE$(17); CHR$(186)
  11. LOCATE 14, 20: PRINT CHR$(200); STRING$(17, 205); CHR$(188)
  12. LOCATE 13, 22
  13. Name$ = ReadStr$("Otto", 15, 0, "", 0, 1, Lin%)
  14. LOCATE 16, 20: PRINT "Hallo "; Name$; " !"
  15. LOCATE 17, 20: PRINT "Die letzte Taste war ";
  16. IF Lin% = 13 THEN
  17.   PRINT "<RET>"
  18. ELSE
  19.   PRINT "<ESC>"
  20. END IF
  21. WHILE INKEY$ = "": WEND
  22. CLS : END
  23. '* ------------------------------------------------------- *
  24. '*                 Ende von RSTDEMO.BAS                    *
  25.