home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turbo Toolbox
/
Turbo_Toolbox.iso
/
1990
/
08
/
einsteig
/
selecbsp.bas
< prev
Wrap
BASIC Source File
|
1990-05-16
|
1KB
|
40 lines
'------------ selecbsp.bas
SELECT CASE ASC(v$)
CASE ESC
EXIT DO
CASE ENTER
IF INSTR(eingabe$, ".") THEN
vor$ = LEFT$(eingabe$, INSTR(eingabe$, ".") - 1)
nach$ = RTRIM$(RIGHT$(eingabe$, laenge% -
INSTR(eingabe$, ".")))
ELSE
vor$ = RTRIM$(eingabe$)
nach$ = ""
END IF
IF LEN(vor$) > laenge%-nachkomma%-1 AND typ$ = "N" THEN
CALL fehlmeld("Zu viele Vorkommastellen ")
fehler% = 1
END IF
IF LEN(nach$) > nachkomma% AND typ$ = "N" THEN
CALL fehlmeld("Zu viele Nachkommastellen ")
fehler% = 1
END IF
IF fehler% = 0 THEN
EXIT DO
END IF
CASE ELSE
IF INSTR(gueltig$, v$) THEN
SELECT CASE typ$
CASE "C", "A"
CALL zeichen(einfmerker%, eingabe$, laenge%,
position%, v$)
CASE "N"
CALL numerisch(komma%, vorzeichen%, einfmerker%,
eingabe$, laenge%, position%, v$)
END SELECT
ELSE
CALL fehlmeld("Kein gültiges Zeichen")
fehler% = 1
END IF
END SELECT