home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 08 / einsteig / selecbsp.bas < prev   
BASIC Source File  |  1990-05-16  |  1KB  |  40 lines
  1. '------------ selecbsp.bas
  2. SELECT CASE ASC(v$)
  3. CASE ESC
  4.     EXIT DO
  5. CASE ENTER
  6.     IF INSTR(eingabe$, ".") THEN
  7.         vor$ = LEFT$(eingabe$, INSTR(eingabe$, ".") - 1)
  8.         nach$ = RTRIM$(RIGHT$(eingabe$, laenge% -
  9.         INSTR(eingabe$, ".")))
  10.     ELSE
  11.         vor$ = RTRIM$(eingabe$)
  12.         nach$ = ""
  13.     END IF
  14.     IF LEN(vor$) > laenge%-nachkomma%-1 AND typ$ = "N" THEN
  15.         CALL fehlmeld("Zu viele Vorkommastellen ")
  16.         fehler% = 1
  17.     END IF
  18.     IF LEN(nach$) > nachkomma% AND typ$ = "N" THEN
  19.         CALL fehlmeld("Zu viele Nachkommastellen ")
  20.         fehler% = 1
  21.     END IF
  22.     IF fehler% = 0 THEN
  23.         EXIT DO
  24.     END IF
  25. CASE ELSE
  26.     IF INSTR(gueltig$, v$) THEN
  27.         SELECT CASE typ$
  28.         CASE "C", "A"
  29.             CALL zeichen(einfmerker%, eingabe$, laenge%,
  30.             position%, v$)
  31.         CASE "N"
  32.             CALL numerisch(komma%, vorzeichen%, einfmerker%,
  33.             eingabe$, laenge%, position%, v$)
  34.         END SELECT
  35.     ELSE
  36.         CALL fehlmeld("Kein gültiges Zeichen")
  37.         fehler% = 1
  38.     END IF
  39. END SELECT
  40.