home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / zbasic / pia / getstrn.bas < prev    next >
BASIC Source File  |  1987-10-30  |  724b  |  40 lines
  1. DEF FNGETSTRN$(MAXLEN)
  2.    STATIC RESPONSE$,I2
  3.    COLOR K(1,2),K(1,1),1
  4.    RESPONSE$=STRING$(MAXLEN,32)
  5.    I2=0
  6. 20 C$=INKEY$
  7.    IF C$="" THEN 20
  8.    IF ASC(C$)=13 THEN
  9.       FNGETSTRN$=RESPONSE$
  10.       PRINT CHR$(13);
  11.       IF I2=0 THEN FNGETSTRN$=""
  12.       EXIT DEF
  13.    END IF
  14.    IF ASC(C$)=8 THEN
  15.       IF I2=0 THEN
  16.      BEEP
  17.      GOTO 20
  18.       END IF
  19.       LOCATE ,POS(0)-1
  20.       PRINT CHR$(32);
  21.       LOCATE ,POS(0)-1
  22.       MID$(RESPONSE$,I2,1)=CHR$(32)
  23.       I2=I2-1
  24.       GOTO 20
  25.    END IF
  26.    IF ASC(C$)<32 OR ASC(C$)>127 THEN
  27.       BEEP
  28.       GOTO 20
  29.    END IF
  30.    IF I2>=MAXLEN THEN
  31.       BEEP
  32.       GOTO 20
  33.    END IF
  34.    PRINT C$;
  35.    I2=I2+1
  36.    MID$(RESPONSE$,I2,1)=C$
  37.    GOTO 20
  38. END DEF
  39.  
  40.